From 867e44861a6b5099fd9c8711243d48f2004aefa9 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 22 Nov 2003 10:59:58 +0000
Subject: [PATCH]  fix for last one

---
 rtl/inc/sockets.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/sockets.inc b/rtl/inc/sockets.inc
index a346bb0ab2..1779786ad3 100644
--- a/rtl/inc/sockets.inc
+++ b/rtl/inc/sockets.inc
@@ -98,14 +98,14 @@ begin
   FileRec(SockIn).Handle:=Sock;
   FileRec(SockIn).RecSize:=1;
   FileRec(Sockin).userdata[1]:=S_IN;
-  TextRec(SockIn).Mode := fmInput;
+  FileRec(SockIn).Mode := fmInput;
 
 {Output}
   Assign(SockOut,'.');
   FileRec(SockOut).Handle:=Sock;
   FileRec(SockOut).RecSize:=1;
   FileRec(SockOut).userdata[1]:=S_OUT;
-  TextRec(SockOut).Mode := fmAppend;
+  FileRec(SockOut).Mode := fmAppend;
 end;
 
 {******************************************************************************
@@ -172,7 +172,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.8  2003-11-22 10:33:38  marco
+  Revision 1.9  2003-11-22 10:59:58  marco
+   fix for last one
+
+  Revision 1.8  2003/11/22 10:33:38  marco
    fix from johill for 2801
 
   Revision 1.7  2003/11/22 10:32:41  marco