paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 20:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

haiku: more fixes of base OS types for 64bit, the compiler itself works natively now at least somewhat

Browse Source 
git-svn-id: trunk@40764 -
This commit is contained in:
Károly Balogh 2019-01-04 06:34:56 +00:00
parent 634503591b
commit fa4502387b
2 changed files with 34 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/haiku/ostypes.inc
View File

@ -101,7 +101,7 @@ TYPE
pUtsName= ^utsname;
{ file characteristics services }
stat = packed record { the types are real}
stat = record { the types are real}
st_dev : dev_t; // inode's device
st_ino : ino_t; // inode's number
st_mode : mode_t; // inode protection mode
@ -119,7 +119,7 @@ TYPE
st_ctimensec : clong; // nsec of last file status change
st_crtime : time_t; // time of creation file
st_crtimensec : clong; // nsec of creation file
st_type : cint; // attribute/index type
st_type : cint; // attribute/index type
st_blocks : fsblkcnt_t; // blocks allocated for file
end;
@ -127,12 +127,12 @@ TYPE
pStat = ^stat;
{ directory services }
dirent = packed record
d_dev:longint;
d_pdev:longint;
d_ino:int64;
d_pino:int64;
d_reclen:word;
dirent = record
d_dev : dev_t;
d_pdev : dev_t;
d_ino : ino_t;
d_pino : ino_t;
d_reclen : cushort;
d_name:array[0..255] of char;
end;
(* dirent = record

48
rtl/haiku/ptypes.inc
View File

@ -46,16 +46,16 @@ type
end;
pmbstate_t = ^mbstate_t;
dev_t = cuint32; { used for device numbers }
dev_t = cint32; { used for device numbers }
TDev = dev_t;
pDev = ^dev_t;
gid_t = cuint32; { used for group IDs }
gid_t = cint32; { used for group IDs }
TGid = gid_t;
pGid = ^gid_t;
TIOCtlRequest = cuLong;
ino_t = clonglong; { used for file serial numbers }
ino_t = cint64; { used for file serial numbers }
TIno = ino_t;
pIno = ^ino_t;
@ -78,34 +78,36 @@ type
{$ifdef cpu64}
size_t = cuint64; { as definied in the C standard}
ssize_t = cint64; { used by function for returning number of bytes }
clock_t = cuint64;
time_t = cint64; { used for returning the time }
{$else}
size_t = cuint32; { as definied in the C standard}
ssize_t = cint32; { used by function for returning number of bytes }
clock_t = culong;
time_t = clong; { used for returning the time }
{$endif}
wint_t = cint32;
wint_t = cint32;
TSize = size_t;
pSize = ^size_t;
psize_t = pSize;
psize_t = pSize;
TsSize = ssize_t;
psSize = ^ssize_t;
psSize = ^ssize_t;
uid_t = cuint32; { used for user ID type }
TUid = Uid_t;
pUid = ^Uid_t;
clock_t = cint32;
suseconds_t = cint32;
useconds_t = cuint32;
TClock = clock_t;
pClock = ^clock_t;
// TTime = time_t; // Not allowed in system unit, -> unixtype
pTime = ^time_t;
ptime_t = ^time_t;
wchar_t = cint32;
pwchar_t = ^wchar_t;
@ -113,21 +115,23 @@ type
TSocklen = socklen_t;
pSocklen = ^socklen_t;
timeval = packed record
tv_sec,tv_usec:clong;
end;
ptimeval = ^timeval;
TTimeVal = timeval;
timeval = record
tv_sec: time_t;
tv_usec: suseconds_t;
end;
ptimeval = ^timeval;
TTimeVal = timeval;
timespec = record
tv_sec : time_t;
tv_nsec : clong;
end;
ptimespec= ^timespec;
Ttimespec= timespec;
timespec = packed record
tv_sec : time_t;
tv_nsec : clong;
end;
ptimespec= ^timespec;
Ttimespec= timespec;
pthread_t = culong;
sched_param = record
__sched_priority: cint;
end;