Merged revisions 7756 via svnmerge from

svn+ssh://jonas@svn.freepascal.org/FPC/svn/fpc/trunk

........
r7756 | vincents | 2007-06-21 16:03:51 +0200 (Thu, 21 Jun 2007) | 1 line

fixed checksynchronize so that it can be called recursively, fixes issue #9068 and #9079
........


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_2_2@7788 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/rtl/objpas/classes/classes.inc b/rtl/objpas/classes/classes.inc
index 7ec085932f..276834517f 100644
--- a/rtl/objpas/classes/classes.inc
+++ b/rtl/objpas/classes/classes.inc
@@ -177,12 +177,12 @@ procedure CheckSynchronize(timeout : longint=0);
 
         if DoSynchronizeMethod then
           begin
+            DoSynchronizeMethod:=false;
             try
               SynchronizeMethod;
             except
               SynchronizeException:=Exception(AcquireExceptionObject);
             end;
-            DoSynchronizeMethod:=false;
             RtlEventSetEvent(ExecuteEvent);
           end;
       end;