* improved compatibility with Windows WinSock

git-svn-id: trunk@5349 -

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_ISSET2(a: TSocket;var b: fdset): Longint; cdecl;
+    external 'PMWSock' name '__WSAFDIsSet';
 
-Function FD_ISSET(a: TSocket;var b: fdset): Longint; cdecl;
+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