浏览代码

* fix octal that broke 1.0.x

marco 22 年之前
父节点
当前提交
2478552240
共有 1 个文件被更改,包括 10 次插入7 次删除
  1. 10 7
      rtl/bsd/bunxmacr.inc

+ 10 - 7
rtl/bsd/bunxmacr.inc

@@ -51,35 +51,38 @@ end;
 
 function wifexited(status : cint): cint;
 begin
- wifexited:=cint((status AND &177) =0);
+ wifexited:=cint((status AND 127) =0);
 end;
 
 function wexitstatus(status : cint): cint;
 begin
- wexitstatus:=(status and &177) shr 8;
+ wexitstatus:=(status and 127) shr 8;
 end;
 
 function wstopsig(status : cint): cint;
 begin
- wstopsig:=(status and &177) shr 8;
+ wstopsig:=(status and 127) shr 8;
 end;
 
-const wstopped=&177;
+const wstopped=127;
 
 function wifsignaled(status : cint): cint;
 begin
- wifsignaled:=cint(((status and &177)<>wstopped) and ((status and &177)<>0));
+ wifsignaled:=cint(((status and 127)<>wstopped) and ((status and 127)<>0));
 end;
 
 function wtermsig(status : cint):cint;
 
 begin
- wtermsig:=cint(status and &177);
+ wtermsig:=cint(status and 127);
 end;
 
 {
   $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.
 
   Revision 1.4  2002/11/12 14:19:46  marco