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

+ Fixed S_ISXX parameter typ to __mode_t as suggested by Michalis Kamburelis

Browse Source
This commit is contained in:
michael 2004-05-02 14:55:00 +00:00
parent 6fc1eee56c
commit eb4df64ffc
2 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/base/libc/sstat.inc
View File

@ -2,43 +2,43 @@
Macros from sys/stat.h
---------------------------------------------------------------------}
function __S_ISTYPE(mode,mask : longint) : boolean;
function __S_ISTYPE(mode,mask : __mode_t) : boolean;
begin
__S_ISTYPE:=(mode and __S_IFMT) = mask;
end;
function S_ISDIR(mode : longint) : boolean;
function S_ISDIR(mode : __mode_t) : boolean;
begin
S_ISDIR:=__S_ISTYPE(mode,__S_IFDIR);
end;
function S_ISCHR(mode : longint) : boolean;
function S_ISCHR(mode : __mode_t) : boolean;
begin
S_ISCHR:=__S_ISTYPE(mode,__S_IFCHR);
end;
function S_ISBLK(mode : longint) : boolean;
function S_ISBLK(mode : __mode_t) : boolean;
begin
S_ISBLK:=__S_ISTYPE(mode,__S_IFBLK);
end;
function S_ISREG(mode : longint) : boolean;
function S_ISREG(mode : __mode_t) : boolean;
begin
S_ISREG:=__S_ISTYPE(mode,__S_IFREG);
end;
function S_ISFIFO(mode : longint) : boolean;
function S_ISFIFO(mode : __mode_t) : boolean;
begin
S_ISFIFO:=__S_ISTYPE(mode,__S_IFIFO);
end;
function S_ISLNK(mode : longint) : boolean;
function S_ISLNK(mode : __mode_t) : boolean;
begin
S_ISLNK:=__S_ISTYPE(mode,__S_IFLNK);
end;
function S_ISSOCK(mode : longint) : boolean;
function S_ISSOCK(mode : __mode_t) : boolean;
begin
S_ISSOCK:=__S_ISTYPE(mode,__S_IFSOCK);
end;

16
packages/base/libc/sstath.inc
View File

@ -10,14 +10,14 @@ const
S_IFSOCK = __S_IFSOCK;
function __S_ISTYPE(mode,mask : longint) : boolean;
function S_ISDIR(mode : longint) : boolean;
function S_ISCHR(mode : longint) : boolean;
function S_ISBLK(mode : longint) : boolean;
function S_ISREG(mode : longint) : boolean;
function S_ISFIFO(mode : longint) : boolean;
function S_ISLNK(mode : longint) : boolean;
function S_ISSOCK(mode : longint) : boolean;
function __S_ISTYPE(mode,mask : __mode_t) : boolean;
function S_ISDIR(mode : __mode_t) : boolean;
function S_ISCHR(mode : __mode_t) : boolean;
function S_ISBLK(mode : __mode_t) : boolean;
function S_ISREG(mode : __mode_t) : boolean;
function S_ISFIFO(mode : __mode_t) : boolean;
function S_ISLNK(mode : __mode_t) : boolean;
function S_ISSOCK(mode : __mode_t) : boolean;
const
S_ISUID = __S_ISUID;