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

* update winsock2 to version 2.2 regarding SO_ and AF_ constants

Browse Source 
git-svn-id: trunk@8329 -
This commit is contained in:
Almindor 2007-08-29 09:38:01 +00:00
parent fc078fbc29
commit 9525a96db7
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/win/winsock2.pp
View File

@ -241,7 +241,8 @@ const
SO_LINGER = $0080; { linger on close if data present } SO_LINGER = $0080; { linger on close if data present }
SO_OOBINLINE = $0100; { leave received OOB data in line } SO_OOBINLINE = $0100; { leave received OOB data in line }
SO_DONTLINGER = $ff7f; SO_DONTLINGER = Integer(not SO_LINGER)
SO_EXCLUSIVEADDRUSE = Integer(not SO_REUSEADDR) { disallow local address reuse }
{ Additional options. } { Additional options. }
@ -285,14 +286,18 @@ const
SO_GROUP_ID = $2001; // ID of a socket group SO_GROUP_ID = $2001; // ID of a socket group
SO_GROUP_PRIORITY = $2002; // the relative priority within a group SO_GROUP_PRIORITY = $2002; // the relative priority within a group
SO_MAX_MSG_SIZE = $2003; // maximum message size SO_MAX_MSG_SIZE = $2003; // maximum message size
SO_Protocol_InfoA = $2004; // WSAPROTOCOL_INFOA structure SO_PROTOCOL_INFOA = $2004; // WSAPROTOCOL_INFOA structure
SO_Protocol_InfoW = $2005; // WSAPROTOCOL_INFOW structure SO_PROTOCOL_INFOW = $2005; // WSAPROTOCOL_INFOW structure
{$IFDEF UNICODE} {$IFDEF UNICODE}
SO_Protocol_Info = SO_Protocol_InfoW; SO_PROTOCOL_INFO = SO_PROTOCOL_INFOW;
{$ELSE} {$ELSE}
SO_Protocol_Info = SO_Protocol_InfoA; SO_PROTOCOL_INFO = SO_PROTOCOL_INFOA;
{$ENDIF} {$ENDIF}
PVD_CONFIG = $3001; // configuration info for service provider PVD_CONFIG = $3001; // configuration info for service provider
SO_CONDITIONAL_ACCEPT = $3002; { enable true conditional accept:
connection is not ack-ed to the
other side until conditional
function returns CF_ACCEPT }
{ Address families. } { Address families. }
AF_UNSPEC = 0; { unspecified } AF_UNSPEC = 0; { unspecified }
@ -319,10 +324,18 @@ const
AF_FIREFOX = 19; { FireFox } AF_FIREFOX = 19; { FireFox }
AF_UNKNOWN1 = 20; { Somebody is using this! } AF_UNKNOWN1 = 20; { Somebody is using this! }
AF_BAN = 21; { Banyan } AF_BAN = 21; { Banyan }
AF_ATM = 22; // Native ATM Services AF_ATM = 22; { Native ATM Services }
AF_INET6 = 23; // Internetwork Version 6 AF_INET6 = 23; { Internetwork Version 6 }
AF_CLUSTER = 24; { Microsoft Wolfpack }
AF_12844 = 25; { IEEE 1284.4 WG AF }
AF_IRDA = 26; { IrDA }
AF_NETDES = 28; { Network Designers OSI & gateway
enabled protocols }
AF_TCNPROCESS = 29;
AF_TCNMESSAGE = 30;
AF_ICLFXBM = 31;
AF_MAX = 24; AF_MAX = 32;
{ Socket I/O Controls } { Socket I/O Controls }
{Const {Const
@ -359,6 +372,13 @@ const
PF_BAN = AF_BAN; PF_BAN = AF_BAN;
PF_ATM = AF_ATM; PF_ATM = AF_ATM;
PF_INET6 = AF_INET6; PF_INET6 = AF_INET6;
PF_CLUSTER = AF_CLUSTER;
PF_12844 = AF_12844;
PF_IRDA = AF_IRDA;
PF_NETDES = AF_NETDES;
PF_TCNPROCESS = AF_TCNPROCESS;
PF_TCNMESSAGE = AF_TCNMESSAGE;
PF_ICLFXBM = AF_ICLFXBM;
PF_MAX = AF_MAX; PF_MAX = AF_MAX;