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

* use ctypes types in structs, fixes Mantis #19778 and 64-bit linux

Browse Source 
git-svn-id: trunk@18021 -
This commit is contained in:
marco 2011-07-26 12:58:00 +00:00
parent 32c868d83e
commit eef37e69c5
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/uuid/src/macuuid.pp
View File

@ -29,12 +29,12 @@ Type
0 : (ifrn_name: array [0..IF_NAMESIZE-1] of char); 0 : (ifrn_name: array [0..IF_NAMESIZE-1] of char);
end; end;
tifmap = record tifmap = record
mem_start : cardinal; mem_start : culong;
mem_end : cardinal; mem_end : culong;
base_addr : word; base_addr : cushort;
irq : byte; irq : cuchar;
dma : byte; dma : cuchar;
port : byte; port : cuchar;
end; end;
PIFrec = ^TIFrec; PIFrec = ^TIFrec;
TIFrec = record TIFrec = record
@ -45,16 +45,16 @@ Type
2 : (ifru_broadaddr : TSockAddr); 2 : (ifru_broadaddr : TSockAddr);
3 : (ifru_netmask : TSockAddr); 3 : (ifru_netmask : TSockAddr);
4 : (ifru_hwaddr : TSockAddr); 4 : (ifru_hwaddr : TSockAddr);
5 : (ifru_flags : word); 5 : (ifru_flags : cshort);
6 : (ifru_ivalue : longint); 6 : (ifru_ivalue : cint);
7 : (ifru_mtu : longint); 7 : (ifru_mtu : cint);
8 : (ifru_map : tifmap); 8 : (ifru_map : tifmap);
9 : (ifru_slave : Array[0..IF_NAMESIZE-1] of char); 9 : (ifru_slave : Array[0..IF_NAMESIZE-1] of char);
10 : (ifru_newname : Array[0..IF_NAMESIZE-1] of char); 10 : (ifru_newname : Array[0..IF_NAMESIZE-1] of char);
11 : (ifru_data : pointer); 11 : (ifru_data : pointer);
end; end;
TIFConf = record TIFConf = record
ifc_len : longint; ifc_len : cint;
case integer of case integer of
0 : (ifcu_buf : pointer); 0 : (ifcu_buf : pointer);
1 : (ifcu_req : ^tifrec); 1 : (ifcu_req : ^tifrec);