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

fix for last one

Browse Source
This commit is contained in:
marco 2003-11-22 10:59:58 +00:00
parent 7ac67b2caf
commit 867e44861a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/sockets.inc
View File

@ -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