fixed TServiceContainerServer.FakeCallbackRelease

synopse · Feb 28, 2022 · 034b23e · 034b23e
1 parent d0c1be0
commit 034b23e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.0.5'
+'2.0.6'
diff --git a/src/soa/mormot.soa.server.pas b/src/soa/mormot.soa.server.pas
@@ -1847,7 +1847,7 @@ procedure TServiceContainerServer.FakeCallbackRelease(
     // avoid stack overflow ;)
     fRestServer.InternalLog('%.FakeCallbackRelease(%,"%") remote call',
       [ClassType, fakeID, Values[0].Name.Text], sllDebug);
-  fFakeCallbacks.Safe.ReadOnlyLock;
+  fFakeCallbacks.Safe.WriteLock; // may include a nested WriteLock (reentrant)  
   try
     fake := FakeCallbackFind(
       pointer(fFakeCallbacks.List), fFakeCallbacks.Count, connectionID, fakeID);
@@ -1882,7 +1882,7 @@ procedure TServiceContainerServer.FakeCallbackRelease(
         Ctxt.Success;
     end;
   finally
-    fFakeCallbacks.Safe.ReadOnlyUnLock;
+    fFakeCallbacks.Safe.WriteUnLock;
   end;
 end;