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

This change might generate failure to compile

Browse Source 
older code for BeOS, because of field name changes.

  Rename stat structure fields according to information in
https://www.haiku-os.org/legacy-docs/bebook/TheStorageKit_DefinedTypes.html#stat

  Add S_ISUID and S_ISGID constants with value zero
as these features do not seem to be supported by BeOS.
This commit is contained in:
Pierre Muller 2023-02-08 13:47:58 +00:00
parent 7ec5e24541
commit aa7f1f9667
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/beos/ostypes.inc
View File

@ -125,19 +125,20 @@ TYPE
{$endif} {$endif}
st_qspare : array[0..1] Of cint64; st_qspare : array[0..1] Of cint64;
end;*) end;*)
{ https://www.haiku-os.org/legacy-docs/bebook/TheStorageKit_DefinedTypes.html#stat }
stat = packed record stat = packed record
dev:longint; {"device" that this file resides on} st_dev:longint; {"device" that this file resides on}
ino:int64; {this file's inode #, unique per device} st_ino:int64; {this file's inode #, unique per device}
st_mode:dword; {mode bits (rwx for user, group, etc)} st_mode:dword; {mode bits (rwx for user, group, etc)}
nlink:longint; {number of hard links to this file} st_nlink:longint; {number of hard links to this file}
uid:dword; {user id of the owner of this file} st_uid:dword; {user id of the owner of this file}
gid:dword; {group id of the owner of this file} st_gid:dword; {group id of the owner of this file}
st_size:int64; {size of this file (in bytes)} st_size:int64; {size of this file (in bytes)}
rdev:longint; {device type (not used)} st_rdev:longint; {device type (not used)}
blksize:longint; {preferref block size for i/o} st_blksize:longint; {preferref block size for i/o}
atime:longint; {last access time} st_atime:longint; {last access time}
st_mtime:longint; {last modification time} st_mtime:longint; {last modification time}
ctime:longint; {last change time, not creation time} st_ctime:longint; {last change time, not creation time}
crtime:longint; {creation time} crtime:longint; {creation time}
end; end;
@ -255,6 +256,9 @@ CONST
S_IROTH = %0000000100; { Read permission for world } S_IROTH = %0000000100; { Read permission for world }
S_IWOTH = %0000000010; { Write permission for world } S_IWOTH = %0000000010; { Write permission for world }
S_IXOTH = %0000000001; { Exec permission for world } S_IXOTH = %0000000001; { Exec permission for world }
{ The two following modes are not supported on BeOS }
S_ISUID = 0; { set user id on execution }
S_ISGID = 0; { set group id on execution }
{ Used for waitpid } { Used for waitpid }
WNOHANG = 1; { don't block waiting } WNOHANG = 1; { don't block waiting }