paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 21:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adapted for new windows unit

Browse Source
This commit is contained in:
peter 2000-06-11 07:06:59 +00:00
parent 3faa571532
commit 4179aaa215
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/win32/thread.inc
View File

@ -202,9 +202,9 @@ var
Msg: TMsg;
begin
if GetCurrentThreadID = MainThreadID then
while MsgWaitForMultipleObjects(1, @FHandle, False, INFINITE, QS_SENDMESSAGE) = WAIT_OBJECT_0 + 1 do
PeekMessage(@Msg, 0, 0, 0, PM_NOREMOVE)
while MsgWaitForMultipleObjects(1, FHandle, False, INFINITE, QS_SENDMESSAGE) = WAIT_OBJECT_0 + 1 do
PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE)
else
WaitForSingleObject(ulong(FHandle), INFINITE);
GetExitCodeThread(FHandle, @Result);
GetExitCodeThread(FHandle, Result);
end;