New tests for atomic ops

2025-06-03 19:49:48 +02:00
parent 556690fa5e
commit f438c91dbd
11 changed files with 511 additions and 951 deletions
@@ -57,7 +57,8 @@ end;

 function TMycExecMock.Notify: Boolean;
 begin
-    if Assigned(FProc) then
+    Result := Assigned(FProc);
+    if Result then
    begin
        FProc();
        FProc := nil;