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

+ Changed mode to output for file sockets

Browse Source
This commit is contained in:
michael 2003-11-23 10:57:15 +00:00
parent 3e874e373e
commit 20c89903ec
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/sockets.inc
View File

@ -105,7 +105,7 @@ begin
FileRec(SockOut).Handle:=Sock; FileRec(SockOut).Handle:=Sock;
FileRec(SockOut).RecSize:=1; FileRec(SockOut).RecSize:=1;
FileRec(SockOut).userdata[1]:=S_OUT; FileRec(SockOut).userdata[1]:=S_OUT;
FileRec(SockOut).Mode := fmAppend; FileRec(SockOut).Mode := fmOutput;
end; end;
{****************************************************************************** {******************************************************************************
@ -172,7 +172,10 @@ begin
end; end;
{ {
$Log$ $Log$
Revision 1.10 2003-11-22 21:58:09 marco Revision 1.11 2003-11-23 10:57:15 michael
+ Changed mode to output for file sockets
Revision 1.10 2003/11/22 21:58:09 marco
* johill changed his mind * johill changed his mind
Revision 1.9 2003/11/22 10:59:58 marco Revision 1.9 2003/11/22 10:59:58 marco