paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 18:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix from johill

Browse Source
This commit is contained in:
marco 2003-11-22 10:32:41 +00:00
parent aad37ce53c
commit 4df9146d01
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/sockets.inc
View File

@ -74,6 +74,7 @@ begin
TextRec(SockIn).InOutFunc:=@IOSock; TextRec(SockIn).InOutFunc:=@IOSock;
TextRec(SockIn).FlushFunc:=@FlushSock; TextRec(SockIn).FlushFunc:=@FlushSock;
TextRec(SockIn).CloseFunc:=@CloseSock; TextRec(SockIn).CloseFunc:=@CloseSock;
TextRec(SockIn).Mode := fmInput;
{ Now the writing part. } { Now the writing part. }
Assign(SockOut,'.'); Assign(SockOut,'.');
Textrec(SockOut).Handle:=Sock; Textrec(SockOut).Handle:=Sock;
@ -82,6 +83,7 @@ begin
TextRec(SockOut).InOutFunc:=@IOSock; TextRec(SockOut).InOutFunc:=@IOSock;
TextRec(SockOut).FlushFunc:=@FlushSock; TextRec(SockOut).FlushFunc:=@FlushSock;
TextRec(SockOut).CloseFunc:=@CloseSock; TextRec(SockOut).CloseFunc:=@CloseSock;
TextRec(SockOut).Mode := fmAppend;
end; end;
@ -167,7 +169,10 @@ begin
end; end;
{ {
$Log$ $Log$
Revision 1.6 2003-09-15 07:55:29 marco Revision 1.7 2003-11-22 10:32:41 marco
fix from johill
Revision 1.6 2003/09/15 07:55:29 marco
* fixed typo * fixed typo
Revision 1.5 2003/09/15 07:51:09 marco Revision 1.5 2003/09/15 07:51:09 marco