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

* Killed octal codes for 1.0.x compilability.

Browse Source
This commit is contained in:
marco 2002-11-12 15:31:33 +00:00
parent bcff2b841c
commit 21fa99a728
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/linux/posmacro.inc
View File

@ -24,12 +24,12 @@
}
CONST
_S_IFDIR = &040000;
_S_IFCHR = &020000;
_S_IFBLK = &060000;
_S_IFREG = &100000;
_S_IFMT = &170000;
_S_IFIFO = &010000;
_S_IFDIR = $4000;
_S_IFCHR = $2000;
_S_IFBLK = $6000;
_S_IFREG = $8000;
_S_IFMT = $f000;
_S_IFIFO = $1000;
function S_ISDIR(m : mode_t): boolean;
@ -72,22 +72,25 @@ begin
wstopsig:=(status and $FF00) shr 8;
end;
const wstopped=&177;
const wstopped=127;
function wifsignaled(status : cint): cint;
begin
wifsignaled:=cint(((status and $FF)<>wstopped) and ((status and &177)<>0));
wifsignaled:=cint(((status and $FF)<>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 2002-11-12 14:37:59 marco
Revision 1.2 2002-11-12 15:31:33 marco
* Killed octal codes for 1.0.x compilability.
Revision 1.1 2002/11/12 14:37:59 marco
* Parts of new unix rtl