paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:49:23 +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 Macros from sys/stat.h
---------------------------------------------------------------------} ---------------------------------------------------------------------}
function __S_ISTYPE(mode,mask : longint) : boolean; function __S_ISTYPE(mode,mask : __mode_t) : boolean;
begin begin
__S_ISTYPE:=(mode and __S_IFMT) = mask; __S_ISTYPE:=(mode and __S_IFMT) = mask;
end; end;
function S_ISDIR(mode : longint) : boolean; function S_ISDIR(mode : __mode_t) : boolean;
begin begin
S_ISDIR:=__S_ISTYPE(mode,__S_IFDIR); S_ISDIR:=__S_ISTYPE(mode,__S_IFDIR);
end; end;
function S_ISCHR(mode : longint) : boolean; function S_ISCHR(mode : __mode_t) : boolean;
begin begin
S_ISCHR:=__S_ISTYPE(mode,__S_IFCHR); S_ISCHR:=__S_ISTYPE(mode,__S_IFCHR);
end; end;
function S_ISBLK(mode : longint) : boolean; function S_ISBLK(mode : __mode_t) : boolean;
begin begin
S_ISBLK:=__S_ISTYPE(mode,__S_IFBLK); S_ISBLK:=__S_ISTYPE(mode,__S_IFBLK);
end; end;
function S_ISREG(mode : longint) : boolean; function S_ISREG(mode : __mode_t) : boolean;
begin begin
S_ISREG:=__S_ISTYPE(mode,__S_IFREG); S_ISREG:=__S_ISTYPE(mode,__S_IFREG);
end; end;
function S_ISFIFO(mode : longint) : boolean; function S_ISFIFO(mode : __mode_t) : boolean;
begin begin
S_ISFIFO:=__S_ISTYPE(mode,__S_IFIFO); S_ISFIFO:=__S_ISTYPE(mode,__S_IFIFO);
end; end;
function S_ISLNK(mode : longint) : boolean; function S_ISLNK(mode : __mode_t) : boolean;
begin begin
S_ISLNK:=__S_ISTYPE(mode,__S_IFLNK); S_ISLNK:=__S_ISTYPE(mode,__S_IFLNK);
end; end;
function S_ISSOCK(mode : longint) : boolean; function S_ISSOCK(mode : __mode_t) : boolean;
begin begin
S_ISSOCK:=__S_ISTYPE(mode,__S_IFSOCK); S_ISSOCK:=__S_ISTYPE(mode,__S_IFSOCK);
end; end;

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

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