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

* Added typecast to prevent range check error in TProcess.WaitOnExit

Browse Source
This commit is contained in:
sg 2003-04-27 21:21:42 +00:00
parent ed747b102b
commit 7343e56b58
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/process.pp
View File

@ -726,7 +726,7 @@ Function TProcess.WaitOnExit : Dword;
begin
{$ifdef unix}
Result:=WaitPid(Handle,@FExitCode,0);
Result:=Dword(WaitPid(Handle,@FExitCode,0));
If Result=Handle then
FExitCode:=WexitStatus(FExitCode);
{$else}
@ -917,7 +917,10 @@ end;
end.
{
$Log$
Revision 1.13 2002-09-07 15:15:25 peter
Revision 1.14 2003-04-27 21:21:42 sg
* Added typecast to prevent range check error in TProcess.WaitOnExit
Revision 1.13 2002/09/07 15:15:25 peter
* old logs removed and tabs fixed
}