Merged revisions 1671 via svnmerge from

http://[email protected]/svn/fpc/trunk

........
r1671 | hajny | 2005-11-06 01:53:48 +0000 (Sun, 06 Nov 2005) | 1 line

  * WaitFor modified to call CheckSynchronize - to be tested with 3695
........

git-svn-id: branches/fixes_2_0@1674 -

rtl/os2/tthread.inc

@@ -230,6 +230,9 @@ function TThread.WaitFor: Integer;
 var
  FH: cardinal;
 begin
+ if GetCurrentThreadID = MainThreadID then
+  while not (FFinished) do
+   CheckSynchronize (1000);
  WaitFor := DosWaitThread (FH, dtWait);
 end;