paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID , wrong size for msqid_ds

Browse Source 
git-svn-id: trunk@33347 -
This commit is contained in:
michael 2016-03-27 13:36:48 +00:00
parent 65c880a7f6
commit fb984ad18a
1 changed files with 16 additions and 0 deletions

16
packages/rtl-extra/src/unix/ipc.pp
View File

@ -508,6 +508,8 @@ type
{$elseif defined(Linux)}
PMSQid_ds = ^TMSQid_ds;
TMSQid_ds = record
{ 32 bit }
{$IFNDEF CPU64}
msg_perm : TIPC_perm;
msg_first : PMsg;
msg_last : PMsg;
@ -519,6 +521,20 @@ type
msg_qbytes : word;
msg_lspid : ipc_pid_t;
msg_lrpid : ipc_pid_t;
{$ELSE cpu64}
{ 64 bit }
msg_perm : TIPC_perm;
msg_stime : time_t;
msg_rtime : time_t;
msg_ctime : time_t;
msg_cbytes : qword;
msg_qnum : qword;
msg_qbytes : qword;
msg_lspid : ipc_pid_t;
msg_lrpid : ipc_pid_t;
pad1 : qword;
pad2 : qword;
{$ENDIF}
end;
{$else}
{$if defined(Darwin)}