From 8ff402109f29ade0ff730bef14a98809183c54af Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 11 Feb 2007 12:21:01 +0000
Subject: [PATCH]   + Add type and constants to ease porting from Kylix libc
 unit     to sockets unit.

git-svn-id: trunk@6414 -
---
 rtl/inc/socketsh.inc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/rtl/inc/socketsh.inc b/rtl/inc/socketsh.inc
index eefadb0378..4a94e0c66e 100644
--- a/rtl/inc/socketsh.inc
+++ b/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;