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

+ add SOCKADDR_STORAGE type

Browse Source 
git-svn-id: trunk@37365 -
This commit is contained in:
svenbarth 2017-09-30 16:34:02 +00:00
parent 9619576515
commit 68f94d2d2d
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/rtl-extra/src/win/winsock2.pp
View File

@ -387,6 +387,7 @@ const
PF_MAX = AF_MAX;
type
ADDRESS_FAMILY = USHORT;
SunB = record
s_b1, s_b2, s_b3, s_b4: u_char;
@ -976,8 +977,35 @@ Const
{ SockAddr Information }
const
_SS_MAXSIZE = 128;
_SS_ALIGNSIZE = SizeOf(Int64);
_SS_PAD1SIZE_XP = _SS_ALIGNSIZE - SizeOf(SmallInt);
_SS_PAD2SIZE_XP = _SS_MAXSIZE - (SizeOf(SmallInt) + _SS_PAD1SIZE_XP + _SS_ALIGNSIZE);
_SS_PAD1SIZE_LH = _SS_ALIGNSIZE - SizeOf(USHORT);
_SS_PAD2SIZE_LH = _SS_MAXSIZE - (SizeOf(USHORT) + _SS_PAD1SIZE_LH + _SS_ALIGNSIZE);
Type
SOCKADDR_STORAGE_XP = record
ss_family: SmallInt;
__ss_pad1: array[0.._SS_PAD1SIZE_XP - 1] of Byte;
__ss_align: Int64;
__ss_pad2: array[0.._SS_PAD2SIZE_XP - 1] of Byte;
end;
SOCKADDR_STORAGE_LH = record
ss_family: ADDRESS_FAMILY;
__ss_pad1: array[0.._SS_PAD1SIZE_LH - 1] of Byte;
__ss_align: Int64;
__ss_pad2: array[0.._SS_PAD2SIZE_LH - 1] of Byte;
end;
SOCKADDR_STORAGE = SOCKADDR_STORAGE_LH;
PSOCKADDR_STORAGE = ^SOCKADDR_STORAGE_LH;
LPSOCKADDR_STORAGE = ^SOCKADDR_STORAGE_LH;
SOCKET_ADDRESS = record
lpSockaddr : PSockAddr;
iSockaddrLength : Longint;