paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +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'; external 'PMWSock' name '__WSAFDIsSet';
Function __WSAFDIsSet_(s:TSocket; var FDSet:TFDSet): Longint; cdecl; Function __WSAFDIsSet_(s:TSocket; var FDSet:TFDSet): Longint; cdecl;
external 'PMWSock' name '__WSAFDIsSet'; 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'; external 'PMWSock' name '__WSAFDIsSet';
Procedure FD_CLR(ASocket: TSocket; var aset: fdset); Procedure FD_CLR(ASocket: TSocket; var aset: fdset);
@ -101,7 +106,7 @@ const
IOCPARM_MASK = $7f; // parameters must be < 128 bytes IOCPARM_MASK = $7f; // parameters must be < 128 bytes
IOC_VOID = $20000000; // no parameters IOC_VOID = $20000000; // no parameters
IOC_OUT = $40000000; // copy out 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 & IOC_INOUT = IOC_IN or IOC_OUT; // 0x20000000 distinguishes new &
// old ioctl's // old ioctl's
const const