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

* improved compatibility with Windows WinSock

Browse Source 
git-svn-id: trunk@5349 -
This commit is contained in:
Tomas Hajny 2006-11-12 22:49:48 +00:00
parent b76211b426
commit 0a35861d2a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/pmwsock.pas
View File

@ -55,8 +55,13 @@ Function __WSAFDIsSet(a: TSocket;var b: fdset): Longint; cdecl;
external 'PMWSock' name '__WSAFDIsSet';
Function __WSAFDIsSet_(s:TSocket; var FDSet:TFDSet): Longint; cdecl;
external 'PMWSock' name '__WSAFDIsSet';
Function __WSAFDIsSet2_(s:TSocket; var FDSet:TFDSet): boolean; cdecl;
external 'PMWSock' name '__WSAFDIsSet';
Function FD_ISSET(a: TSocket;var b: fdset): Longint; cdecl;
Function FD_ISSET2(a: TSocket;var b: fdset): Longint; cdecl;
external 'PMWSock' name '__WSAFDIsSet';
Function FD_ISSET(a: TSocket;var b: fdset): boolean; cdecl;
external 'PMWSock' name '__WSAFDIsSet';
Procedure FD_CLR(ASocket: TSocket; var aset: fdset);
@ -101,7 +106,7 @@ const
IOCPARM_MASK = $7f; // parameters must be < 128 bytes
IOC_VOID = $20000000; // no parameters
IOC_OUT = $40000000; // copy out parameters
IOC_IN = $80000000; // copy in parameters
IOC_IN = longint ($80000000); // copy in parameters
IOC_INOUT = IOC_IN or IOC_OUT; // 0x20000000 distinguishes new &
// old ioctl's
const