mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 13:46:39 +02:00
* WaitFor modified to call CheckSynchronize - to be tested with 3695
git-svn-id: trunk@1671 -
This commit is contained in:
parent
9b59f0675f
commit
69cc232b0b
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user