mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 18:29:18 +02:00
fix from johill
This commit is contained in:
parent
aad37ce53c
commit
4df9146d01
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user