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

packages/base/libc/sstat.inc

@@ -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;

packages/base/libc/sstath.inc

@@ -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;