From 0a35861d2adc2f162298b618ea35f6c6fc7767de Mon Sep 17 00:00:00 2001 From: Tomas Hajny Date: Sun, 12 Nov 2006 22:49:48 +0000 Subject: [PATCH] * improved compatibility with Windows WinSock git-svn-id: trunk@5349 - --- rtl/os2/pmwsock.pas | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/rtl/os2/pmwsock.pas b/rtl/os2/pmwsock.pas index d1f452beb4..5a12f6f549 100644 --- a/rtl/os2/pmwsock.pas +++ b/rtl/os2/pmwsock.pas @@ -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