pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

WIN64 data align fixes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@116 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2010-01-24 10:17:26 +00:00
parent c7bb56ed0f
commit c0e29fd514
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
sswin32.pas
View File

@ -288,7 +288,7 @@ const
FD_SETSIZE = 64; FD_SETSIZE = 64;
type type
PFDSet = ^TFDSet; PFDSet = ^TFDSet;
TFDSet = packed record TFDSet = record
fd_count: u_int; fd_count: u_int;
fd_array: array[0..FD_SETSIZE-1] of TSocket; fd_array: array[0..FD_SETSIZE-1] of TSocket;
end; end;
@ -300,7 +300,7 @@ const
type type
PTimeVal = ^TTimeVal; PTimeVal = ^TTimeVal;
TTimeVal = packed record TTimeVal = record
tv_sec: Longint; tv_sec: Longint;
tv_usec: Longint; tv_usec: Longint;
end; end;
@ -321,14 +321,14 @@ const
type type
PInAddr = ^TInAddr; PInAddr = ^TInAddr;
TInAddr = packed record TInAddr = record
case integer of case integer of
0: (S_bytes: packed array [0..3] of byte); 0: (S_bytes: packed array [0..3] of byte);
1: (S_addr: u_long); 1: (S_addr: u_long);
end; end;
PSockAddrIn = ^TSockAddrIn; PSockAddrIn = ^TSockAddrIn;
TSockAddrIn = packed record TSockAddrIn = record
case Integer of case Integer of
0: (sin_family: u_short; 0: (sin_family: u_short;
sin_port: u_short; sin_port: u_short;
@ -344,7 +344,7 @@ type
end; end;
PInAddr6 = ^TInAddr6; PInAddr6 = ^TInAddr6;
TInAddr6 = packed record TInAddr6 = record
case integer of case integer of
0: (S6_addr: packed array [0..15] of byte); 0: (S6_addr: packed array [0..15] of byte);
1: (u6_addr8: packed array [0..15] of byte); 1: (u6_addr8: packed array [0..15] of byte);
@ -353,7 +353,7 @@ type
end; end;
PSockAddrIn6 = ^TSockAddrIn6; PSockAddrIn6 = ^TSockAddrIn6;
TSockAddrIn6 = packed record TSockAddrIn6 = record
sin6_family: u_short; // AF_INET6 sin6_family: u_short; // AF_INET6
sin6_port: u_short; // Transport level port number sin6_port: u_short; // Transport level port number
sin6_flowinfo: u_long; // IPv6 flow information sin6_flowinfo: u_long; // IPv6 flow information
@ -369,7 +369,7 @@ type
end; end;
PHostEnt = ^THostEnt; PHostEnt = ^THostEnt;
THostEnt = packed record THostEnt = record
h_name: PAnsiChar; h_name: PAnsiChar;
h_aliases: ^PAnsiChar; h_aliases: ^PAnsiChar;
h_addrtype: Smallint; h_addrtype: Smallint;
@ -380,7 +380,7 @@ type
end; end;
PNetEnt = ^TNetEnt; PNetEnt = ^TNetEnt;
TNetEnt = packed record TNetEnt = record
n_name: PAnsiChar; n_name: PAnsiChar;
n_aliases: ^PAnsiChar; n_aliases: ^PAnsiChar;
n_addrtype: Smallint; n_addrtype: Smallint;
@ -388,7 +388,7 @@ type
end; end;
PServEnt = ^TServEnt; PServEnt = ^TServEnt;
TServEnt = packed record TServEnt = record
s_name: PAnsiChar; s_name: PAnsiChar;
s_aliases: ^PAnsiChar; s_aliases: ^PAnsiChar;
{$ifdef WIN64} {$ifdef WIN64}
@ -401,7 +401,7 @@ type
end; end;
PProtoEnt = ^TProtoEnt; PProtoEnt = ^TProtoEnt;
TProtoEnt = packed record TProtoEnt = record
p_name: PAnsiChar; p_name: PAnsiChar;
p_aliases: ^PAnsichar; p_aliases: ^PAnsichar;
p_proto: Smallint; p_proto: Smallint;
@ -534,7 +534,7 @@ type
{ Structure used by kernel to pass protocol information in raw sockets. } { Structure used by kernel to pass protocol information in raw sockets. }
PSockProto = ^TSockProto; PSockProto = ^TSockProto;
TSockProto = packed record TSockProto = record
sp_family: u_short; sp_family: u_short;
sp_protocol: u_short; sp_protocol: u_short;
end; end;
@ -561,7 +561,7 @@ const
type type
{ Structure used for manipulating linger option. } { Structure used for manipulating linger option. }
PLinger = ^TLinger; PLinger = ^TLinger;
TLinger = packed record TLinger = record
l_onoff: u_short; l_onoff: u_short;
l_linger: u_short; l_linger: u_short;
end; end;
@ -723,7 +723,7 @@ const
WSASYS_STATUS_LEN = 128; WSASYS_STATUS_LEN = 128;
type type
PWSAData = ^TWSAData; PWSAData = ^TWSAData;
TWSAData = packed record TWSAData = record
wVersion: Word; wVersion: Word;
wHighVersion: Word; wHighVersion: Word;
{$ifdef win64} {$ifdef win64}