mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 11:09:42 +02:00
* libc stat record under ifdef added
This commit is contained in:
parent
4fc157970d
commit
68508ef8d4
@ -13,6 +13,8 @@
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
{$ifndef FPC_USE_LIBC} // kernel record
|
||||
|
||||
Stat = Packed Record // No unix typing because of differences
|
||||
// kernel <->libc
|
||||
case byte of
|
||||
@ -20,10 +22,10 @@
|
||||
pad1 : word;
|
||||
st_ino : longint;
|
||||
st_mode,
|
||||
nlink,
|
||||
uid,
|
||||
gid : word;
|
||||
rdev : word;
|
||||
st_nlink,
|
||||
st_uid,
|
||||
st_gid : word;
|
||||
st_rdev : word;
|
||||
pad2 : word;
|
||||
st_size,
|
||||
st_blksze,
|
||||
@ -41,10 +43,10 @@
|
||||
pad1_dummy : word;
|
||||
ino : longint;
|
||||
mode,
|
||||
nlink_dummy,
|
||||
uid_dummy,
|
||||
gid_dummy : word;
|
||||
rdev_dummy : word;
|
||||
nlink,
|
||||
uid,
|
||||
gid : word;
|
||||
rdev : word;
|
||||
pad2_dummy : word;
|
||||
size,
|
||||
blksze,
|
||||
@ -59,10 +61,66 @@
|
||||
unused5_dummy : longint;
|
||||
);
|
||||
end;
|
||||
{$else}
|
||||
|
||||
{$packrecords C}
|
||||
Stat = Record // No unix typing because of differences
|
||||
// kernel <->libc
|
||||
case byte of
|
||||
0: (st_dev : int64;
|
||||
pad1 : word;
|
||||
st_ino : longint;
|
||||
st_mode,
|
||||
st_nlink,
|
||||
st_uid,
|
||||
st_gid : longint;
|
||||
st_rdev : int64;
|
||||
pad2 : word;
|
||||
st_size,
|
||||
st_blksze,
|
||||
st_blocks,
|
||||
st_atime,
|
||||
unused1,
|
||||
st_mtime,
|
||||
unused2,
|
||||
st_ctime,
|
||||
unused3,
|
||||
unused4,
|
||||
unused5 : longint;);
|
||||
1: (
|
||||
dev : int64;
|
||||
pad1_dummy : word;
|
||||
ino : longint;
|
||||
mode,
|
||||
nlink,
|
||||
uid,
|
||||
gid : longint;
|
||||
rdev : int64;
|
||||
pad2_dummy : word;
|
||||
size,
|
||||
blksze,
|
||||
blocks,
|
||||
atime,
|
||||
unused1_dummy,
|
||||
mtime,
|
||||
unused2_dummy,
|
||||
ctime,
|
||||
unused3_dummy,
|
||||
unused4_dummy,
|
||||
unused5_dummy : longint;
|
||||
|
||||
);
|
||||
end;
|
||||
|
||||
|
||||
{$endif}
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2003-05-15 22:50:50 jonas
|
||||
Revision 1.2 2004-01-01 14:20:20 marco
|
||||
* libc stat record under ifdef added
|
||||
|
||||
Revision 1.1 2003/05/15 22:50:50 jonas
|
||||
* the stat type is processor-dependent
|
||||
* the dev_t tpye is processor dependent. Don't use it in the stat type
|
||||
however, as that one is also used at a time where dev_t is already
|
||||
|
Loading…
Reference in New Issue
Block a user