paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 16:31:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for 9220 for socket2text stuff too

Browse Source 
git-svn-id: trunk@7604 -
This commit is contained in:
marco 2007-06-09 14:24:13 +00:00
parent 60dee7fcf0
commit b846f2596e
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/sockets.inc
View File

@ -115,6 +115,11 @@ begin
TextRec(SockIn).FlushFunc:=@FlushSock; TextRec(SockIn).FlushFunc:=@FlushSock;
TextRec(SockIn).CloseFunc:=@CloseSock; TextRec(SockIn).CloseFunc:=@CloseSock;
TextRec(SockIn).Mode := fmInput; 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. } { Now the writing part. }
Assign(SockOut,'.'); Assign(SockOut,'.');
Textrec(SockOut).Handle:=Sock; Textrec(SockOut).Handle:=Sock;
@ -124,6 +129,12 @@ begin
TextRec(SockOut).FlushFunc:=@FlushSock; TextRec(SockOut).FlushFunc:=@FlushSock;
TextRec(SockOut).CloseFunc:=@CloseSock; TextRec(SockOut).CloseFunc:=@CloseSock;
TextRec(SockOut).Mode := fmOutput; 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; end;