diff --git a/rtl/win32/winsock.pp b/rtl/win32/winsock.pp
index aa712fd835..397f1c9fe5 100644
--- a/rtl/win32/winsock.pp
+++ b/rtl/win32/winsock.pp
@@ -90,15 +90,15 @@ unit winsock;
        IOC_OUT = $40000000;
        IOC_IN = $80000000;
        IOC_INOUT = IOC_IN or IOC_OUT;
-       FIONREAD = IOC_OUT or
+       FIONREAD =cardinal( IOC_OUT or
          ((4 and IOCPARM_MASK) shl 16) or
-         (102 shl 8) or 127;
-       FIONBIO = IOC_IN or
+         (102 shl 8) or 127);
+       FIONBIO = cardinal(IOC_IN or
          ((4 and IOCPARM_MASK) shl 16) or
-         (102 shl 8) or 126;
-       FIOASYNC     = IOC_IN or
+         (102 shl 8) or 126);
+       FIOASYNC     = cardinal(IOC_IN or
          ((4 and IOCPARM_MASK) shl 16) or
-         (102 shl 8) or 125;
+         (102 shl 8) or 125);
        {
          Structures returned by network data base library, taken from the
          BSD file netdb.h.  All addresses are supplied in host order, and
@@ -307,7 +307,7 @@ unit winsock;
        taken from the BSD file sys/socket.h.
     }
     const
-       INVALID_SOCKET = longint(not(1));
+       INVALID_SOCKET = TSocket(not(1));
        SOCKET_ERROR = -1;
        SOCK_STREAM = 1;
        SOCK_DGRAM = 2;
@@ -911,7 +911,10 @@ IOW, there _must_ be 3 versions then: var/const, pchar and pointer}
 end.
 {
   $Log$
-  Revision 1.16  2005-02-14 17:13:32  peter
+  Revision 1.17  2005-04-03 11:33:08  marco
+   * some constants changed to unsigned to avoid warnings (bug 3817)
+
+  Revision 1.16  2005/02/14 17:13:32  peter
     * truncate log
 
 }