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

* fix range check error

Browse Source
This commit is contained in:
carl 2002-05-16 19:32:57 +00:00
parent 1e82d75ccf
commit 0cfe673d5a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/dos.pp
View File

@ -397,7 +397,7 @@ begin
end; end;
Proc:=PI.hProcess; Proc:=PI.hProcess;
CloseHandle(PI.hThread); CloseHandle(PI.hThread);
if WaitForSingleObject(Proc, Infinite) <> $ffffffff then if WaitForSingleObject(Proc, dword(Infinite)) <> $ffffffff then
GetExitCodeProcess(Proc,l) GetExitCodeProcess(Proc,l)
else else
l:=-1; l:=-1;
@ -1011,7 +1011,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.11 2001-11-23 01:35:09 carl Revision 1.12 2002-05-16 19:32:57 carl
* fix range check error
Revision 1.11 2001/11/23 01:35:09 carl
* Range check error fix * Range check error fix
Revision 1.10 2001/11/23 00:36:26 carl Revision 1.10 2001/11/23 00:36:26 carl