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

* fixed several type declarations

Browse Source 
git-svn-id: trunk@7071 -
This commit is contained in:
florian 2007-04-07 18:23:03 +00:00
parent 0c889207ca
commit d90bc77a54
2 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/linux/ptypes.inc
View File

@ -47,10 +47,6 @@ Type
TkDev = KDev_t; // kernel and glibc. This is kernel.
pkDev = ^kdev_t;
gid_t = cuint32; { used for group IDs }
TGid = gid_t;
pGid = ^gid_t;
ino_t = clong; { used for file serial numbers }
TIno = ino_t;
pIno = ^ino_t;
@ -79,7 +75,7 @@ Type
TOff = off_t;
pOff = ^off_t;
pid_t = cint32; { used as process identifier }
pid_t = cint; { used as process identifier }
TPid = pid_t;
pPid = ^pid_t;
@ -109,9 +105,20 @@ Type
wchar_t = widechar;
pwchar_t = ^wchar_t;
uid_t = cuint32; { used for user ID type }
{$ifdef cpu64}
uid_t = cuint; { used for user ID type }
gid_t = cuint; { used for group IDs }
ipc_pid_t = cint;
{$else cpu64}
uid_t = cushort; { used for user ID type }
gid_t = cushort; { used for group IDs }
ipc_pid_t = cushort;
{$endif cpu64}
TUid = uid_t;
pUid = ^uid_t;
TGid = gid_t;
pGid = ^gid_t;
socklen_t= cuint32;
TSockLen = socklen_t;

4
rtl/unix/ipc.pp
View File

@ -252,8 +252,8 @@ type
msg_cbytes : word;
msg_qnum : word;
msg_qbytes : word;
msg_lspid : pid_t;
msg_lrpid : pid_t;
msg_lspid : ipc_pid_t;
msg_lrpid : ipc_pid_t;
end;
{$else}
PMSQid_ds = ^TMSQid_ds;