+ Add type and constants to ease porting from Kylix libc unit

to sockets unit.

git-svn-id: trunk@6414 -

rtl/inc/socketsh.inc

@@ -36,6 +36,9 @@ 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);
 
@@ -154,6 +157,8 @@ type
     sun_path      : array[0..107] of char;
   end;
 
+  Tsocket=longint;  {To easy porting code from Kylix libc unit to sockets unit.}
+
 Var
   SocketError:cint;