paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 11:01:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed ExitCode translation in WaitProcess for Linux and Darwin (and

Browse Source 
probably other BSD's as well)
This commit is contained in:
Jonas Maebe 2003-05-24 20:39:54 +00:00
parent 1712878279
commit fd581235c8
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/unix/unix.pp
View File

@ -521,15 +521,16 @@ begin
else
begin
{$ifndef Solaris}
WaitProcess:=s; // s<0 should not occur, but wie return also a negativ value
{ at least correct for Linux and Darwin (JM) }
if (s and $7F)=0 then // Only this is a valid returncode
{$else}
if (s and $FF)=0 then // Only this is a valid returncode
{$endif}
WaitProcess:=s shr 8
else if (s>0) then // Until now there is not use of the highest bit , but check this for the future
WaitProcess:=-s // normal case
else
WaitProcess:=s; // s<0 should not occur, but wie return also a negativ value
{$endif}
end;
end;
@ -3058,7 +3059,11 @@ End.
{
$Log$
Revision 1.26 2003-03-11 08:27:59 michael
Revision 1.27 2003-05-24 20:39:54 jonas
* fixed ExitCode translation in WaitProcess for Linux and Darwin (and
probably other BSD's as well)
Revision 1.26 2003/03/11 08:27:59 michael
* stringtoppchar should use tabs instead of backspace as delimiter
Revision 1.25 2002/12/18 16:50:39 marco