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

* fix octal that broke 1.0.x

Browse Source
This commit is contained in:
marco 2003-01-21 15:34:59 +00:00
parent 2a17241d66
commit 2478552240
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/bsd/bunxmacr.inc
View File

@ -51,35 +51,38 @@ end;
function wifexited(status : cint): cint; function wifexited(status : cint): cint;
begin begin
wifexited:=cint((status AND &177) =0); wifexited:=cint((status AND 127) =0);
end; end;
function wexitstatus(status : cint): cint; function wexitstatus(status : cint): cint;
begin begin
wexitstatus:=(status and &177) shr 8; wexitstatus:=(status and 127) shr 8;
end; end;
function wstopsig(status : cint): cint; function wstopsig(status : cint): cint;
begin begin
wstopsig:=(status and &177) shr 8; wstopsig:=(status and 127) shr 8;
end; end;
const wstopped=&177; const wstopped=127;
function wifsignaled(status : cint): cint; function wifsignaled(status : cint): cint;
begin begin
wifsignaled:=cint(((status and &177)<>wstopped) and ((status and &177)<>0)); wifsignaled:=cint(((status and 127)<>wstopped) and ((status and 127)<>0));
end; end;
function wtermsig(status : cint):cint; function wtermsig(status : cint):cint;
begin begin
wtermsig:=cint(status and &177); wtermsig:=cint(status and 127);
end; end;
{ {
$Log$ $Log$
Revision 1.1 2003-01-05 19:01:28 marco Revision 1.2 2003-01-21 15:34:59 marco
* fix octal that broke 1.0.x
Revision 1.1 2003/01/05 19:01:28 marco
* FreeBSD compiles now with baseunix mods. * FreeBSD compiles now with baseunix mods.
Revision 1.4 2002/11/12 14:19:46 marco Revision 1.4 2002/11/12 14:19:46 marco