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

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

Browse Source 
git-svn-id: trunk@1671 -
This commit is contained in:
Tomas Hajny 2005-11-06 01:53:48 +00:00
parent 9b59f0675f
commit 69cc232b0b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/os2/tthread.inc
View File

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