浏览代码

* fix INVALID_SOCKET constant (needs to be OS specific, it is UNSIGNED in windows)

git-svn-id: trunk@7328 -
Almindor 18 年之前
父节点
当前提交
a52a63178b
共有 2 个文件被更改,包括 4 次插入3 次删除
  1. 0 3
      rtl/inc/socketsh.inc
  2. 4 0
      rtl/win/fpwinsockh.inc

+ 0 - 3
rtl/inc/socketsh.inc

@@ -36,9 +36,6 @@ const
   SOCK_SEQPACKET  = 5;               { sequential packet socket     }
 {$endif}
 
-  INVALID_SOCKET = -1;				 { To ease porting from Kylix libc}
-  SOCKET_ERROR = -1;                 { unit to sockets unit.}
-
   INADDR_ANY   = CARDINAL(0);
   INADDR_NONE  = CARDINAL($FFFFFFFF);
 

+ 4 - 0
rtl/win/fpwinsockh.inc

@@ -201,3 +201,7 @@ const
 
   { options for socket level  }
   SOL_SOCKET = $ffff;
+  
+  INVALID_SOCKET = winsock2.INVALID_SOCKET;
+  SOCKET_ERROR = winsock2.SOCKET_ERROR;
+