paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #25817, 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -508,6 +508,8 @@ type
{$elseif defined(Linux)} {$elseif defined(Linux)}
PMSQid_ds = ^TMSQid_ds; PMSQid_ds = ^TMSQid_ds;
TMSQid_ds = record TMSQid_ds = record
{ 32 bit }
{$IFNDEF CPU64}
msg_perm : TIPC_perm; msg_perm : TIPC_perm;
msg_first : PMsg; msg_first : PMsg;
msg_last : PMsg; msg_last : PMsg;
@ -519,6 +521,20 @@ type
msg_qbytes : word; msg_qbytes : word;
msg_lspid : ipc_pid_t; msg_lspid : ipc_pid_t;
msg_lrpid : 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; end;
{$else} {$else}
{$if defined(Darwin)} {$if defined(Darwin)}