* Make sure that current method is removed from stack prior to executing it (bug ID #23629)

git-svn-id: trunk@23362 -

rtl/objpas/classes/classes.inc

@@ -349,20 +349,20 @@ function CheckSynchronize(timeout : longint=0) : boolean;
                   the GUI thread and thus will be executed immediatly instead of
                   queuing them }
           while Assigned(ThreadQueueHead) do begin
-            { step 1: execute the method }
+            { step 1: update the list }
+            tmpentry := ThreadQueueHead;
+            ThreadQueueHead := ThreadQueueHead^.Next;
+            if not Assigned(ThreadQueueHead) then
+              ThreadQueueTail := Nil;
+
+            { step 2: execute the method }
             exceptobj := Nil;
             try
-              ExecuteThreadQueueEntry(ThreadQueueHead);
+              ExecuteThreadQueueEntry(tmpentry);
             except
               exceptobj := Exception(AcquireExceptionObject);
             end;
 
-            { step 2: update the list }
-            tmpentry := ThreadQueueHead;
-            ThreadQueueHead := ThreadQueueHead^.Next;
-            if not Assigned(ThreadQueueHead) then
-              ThreadQueueTail := Nil;
-
             { step 3: error handling and cleanup }
             if Assigned(tmpentry^.SyncEvent) then begin
               { for Synchronize entries we pass back the Exception and trigger