From b846f2596e5554f812c29a6f17aed7ec1f2c66dc Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 9 Jun 2007 14:24:13 +0000
Subject: [PATCH]  * Fix for 9220 for socket2text stuff too

git-svn-id: trunk@7604 -
---
 rtl/inc/sockets.inc | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/rtl/inc/sockets.inc b/rtl/inc/sockets.inc
index d3b8565c62..b544a12e6f 100644
--- a/rtl/inc/sockets.inc
+++ b/rtl/inc/sockets.inc
@@ -115,6 +115,11 @@ begin
   TextRec(SockIn).FlushFunc:=@FlushSock;
   TextRec(SockIn).CloseFunc:=@CloseSock;
   TextRec(SockIn).Mode := fmInput;
+  Case DefaultTextLineBreakStyle Of
+    tlbsLF: TextRec(sockin).LineEnd := #10;
+    tlbsCRLF: TextRec(sockin).LineEnd := #13#10;
+    tlbsCR: TextRec(sockin).LineEnd := #13;
+   End;
 { Now the writing part. }
   Assign(SockOut,'.');
   Textrec(SockOut).Handle:=Sock;
@@ -124,6 +129,12 @@ begin
   TextRec(SockOut).FlushFunc:=@FlushSock;
   TextRec(SockOut).CloseFunc:=@CloseSock;
   TextRec(SockOut).Mode := fmOutput;
+
+   Case DefaultTextLineBreakStyle Of
+    tlbsLF: TextRec(sockout).LineEnd := #10;
+    tlbsCRLF: TextRec(sockout).LineEnd := #13#10;
+    tlbsCR: TextRec(sockout).LineEnd := #13;
+   End;
 end;