浏览代码

* change Result of CheckSynchronize to true when at least one method was executed (matches with both FPC and Delphi documentation)

Sven/Sarah Barth 2 年之前
父节点
当前提交
e774a6275c
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      rtl/objpas/classes/classes.inc

+ 2 - 0
rtl/objpas/classes/classes.inc

@@ -564,6 +564,8 @@ begin
   tmpentry := PopThreadQueueHead;
   tmpentry := PopThreadQueueHead;
   while Assigned(tmpentry) do
   while Assigned(tmpentry) do
     begin
     begin
+    { at least one method is handled, so return true }
+    result := true;
     { step 2: execute the method }
     { step 2: execute the method }
     exceptobj := Nil;
     exceptobj := Nil;
     try
     try