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

* fixes for new macro's

Browse Source
This commit is contained in:
marco 2003-09-17 11:24:46 +00:00
parent 2e9daf5cfa
commit 35cd7e61c9
4 changed files with 44 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/linux/bunxfunc.inc
View File

@ -345,7 +345,7 @@ Function fpmkfifo(path:pchar;mode:mode_t):cint;
begin begin
fpmkfifo:=do_syscall(syscall_nr_mknod,TSysParam(path),TSysParam(mode or _S_IFIFO),TSysParam(0)); fpmkfifo:=do_syscall(syscall_nr_mknod,TSysParam(path),TSysParam(mode or S_IFIFO),TSysParam(0));
end; end;
Function fpchmod(path:pchar;mode:mode_t):cint; Function fpchmod(path:pchar;mode:mode_t):cint;
@ -433,7 +433,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2003-09-14 20:15:01 marco Revision 1.4 2003-09-17 11:24:46 marco
* fixes for new macro's
Revision 1.3 2003/09/14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix. * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.2 2003/01/05 19:16:45 marco Revision 1.2 2003/01/05 19:16:45 marco

27
rtl/linux/bunxmacr.inc
View File

@ -26,27 +26,39 @@
function FpISDIR(m : TMode): boolean; function FpISDIR(m : TMode): boolean;
begin begin
FpISDIR:=((m and _S_IFMT) = _S_IFDIR); FpISDIR:=((m and S_IFMT) = S_IFDIR);
end; end;
function FpISCHR(m : TMode): boolean; function FpISCHR(m : TMode): boolean;
begin begin
FpISCHR:=((m and _S_IFMT) = _S_IFCHR); FpISCHR:=((m and S_IFMT) = S_IFCHR);
end; end;
function FpISBLK(m : TMode): boolean; function FpISBLK(m : TMode): boolean;
begin begin
FpISBLK:=((m and _S_IFMT) = _S_IFBLK); FpISBLK:=((m and S_IFMT) = S_IFBLK);
end; end;
function FpISREG(m : TMode): boolean; function FpISREG(m : TMode): boolean;
begin begin
FpISREG:=((m and _S_IFMT) = _S_IFREG); FpISREG:=((m and S_IFMT) = S_IFREG);
end; end;
function FpISFIFO(m : TMode): boolean; function FpISFIFO(m : TMode): boolean;
begin begin
FpISFIFO:=((m and _S_IFMT) = _S_IFIFO); FpISFIFO:=((m and S_IFMT) = S_IFIFO);
end;
Function FPISLNK(m:TMode):boolean;
begin
FPISLNK:=((m and S_IFMT) = S_IFLNK);
end;
Function FPISSOCK(m:TMode):boolean;
begin
FPISSOCK:=((m and S_IFMT) = S_IFSOCK);
end; end;
function wifexited(status : cint): cint; function wifexited(status : cint): cint;
@ -79,7 +91,10 @@ end;
{ {
$Log$ $Log$
Revision 1.1 2002-12-18 16:43:26 marco Revision 1.2 2003-09-17 11:24:46 marco
* fixes for new macro's
Revision 1.1 2002/12/18 16:43:26 marco
* new unix rtl, linux part..... * new unix rtl, linux part.....
Revision 1.2 2002/11/12 15:31:33 marco Revision 1.2 2002/11/12 15:31:33 marco

21
rtl/linux/ostypes.inc
View File

@ -57,17 +57,22 @@ Type
ptimezone =^timezone; ptimezone =^timezone;
TTimeZone = timezone; TTimeZone = timezone;
CONST Const // generated by statmacr.c
_S_IFDIR = $4000; S_IFMT = 61440; { type of file mask}
_S_IFCHR = $2000; S_IFIFO = 4096; { named pipe (fifo)}
_S_IFBLK = $6000; S_IFCHR = 8192; { character special}
_S_IFREG = $8000; S_IFDIR = 16384; { directory }
_S_IFMT = $f000; S_IFBLK = 24576; { block special}
_S_IFIFO = $1000; S_IFREG = 32768; { regular }
S_IFLNK = 40960; { symbolic link }
S_IFSOCK= 49152; { socket }
{ {
$Log$ $Log$
Revision 1.3 2003-09-14 20:15:01 marco Revision 1.4 2003-09-17 11:24:46 marco
* fixes for new macro's
Revision 1.3 2003/09/14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix. * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.2 2002/12/18 16:43:26 marco Revision 1.2 2002/12/18 16:43:26 marco

7
rtl/unix/bunxh.inc
View File

@ -110,7 +110,7 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
// The following two are very common, but not POSIX. // The following two are very common, but not POSIX.
Function FPISLNK (m:TMode) : Boolean; Function FPISLNK (m:TMode) : Boolean;
Function FPISSOCK (m:TMode : Boolean; Function FPISSOCK (m:TMode) : Boolean;
Function wifexited (Status : cInt): cInt; Function wifexited (Status : cInt): cInt;
Function wexitStatus (Status : cInt): cInt; Function wexitStatus (Status : cInt): cInt;
@ -122,7 +122,10 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
{ {
$Log$ $Log$
Revision 1.6 2003-09-17 11:14:25 marco Revision 1.7 2003-09-17 11:24:46 marco
* fixes for new macro's
Revision 1.6 2003/09/17 11:14:25 marco
* two extra FPIS added * two extra FPIS added
Revision 1.5 2003/09/16 16:13:56 marco Revision 1.5 2003/09/16 16:13:56 marco