paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Sven/Sarah Barth 2023-03-17 15:53:25 +01:00
parent 5fe8fbd43a
commit e774a6275c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classes.inc
View File

@ -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