paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 10:12:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for stricter argument checking

Browse Source
This commit is contained in:
peter 2001-04-17 17:36:17 +00:00
parent 18b4f7d832
commit c2b26855ce
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/win32/thread.inc
View File

@ -116,7 +116,7 @@ begin
FSuspended := CreateSuspended;
Flags := 0;
if CreateSuspended then Flags := CREATE_SUSPENDED;
FHandle := CreateThread(nil, 0, @ThreadProc, Pointer(self), Flags, FThreadID);
FHandle := CreateThread(nil, 0, @ThreadProc, Pointer(self), Flags, DWord(FThreadID));
end;
@ -206,14 +206,17 @@ begin
PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE)
else
WaitForSingleObject(ulong(FHandle), INFINITE);
GetExitCodeThread(FHandle, Result);
GetExitCodeThread(FHandle, DWord(Result));
end;
{
$Log$
Revision 1.3 2000-07-25 11:27:35 jonas
Revision 1.4 2001-04-17 17:36:17 peter
* fixed for stricter argument checking
Revision 1.3 2000/07/25 11:27:35 jonas
* fixed missing comment openers for log section
Revision 1.2 2000/07/13 11:33:07 michael
+ removed logs
}