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

* post 2.0 simplification, win32 now also has fpread/write

Browse Source 
git-svn-id: trunk@4920 -
This commit is contained in:
marco 2006-10-15 12:29:22 +00:00
parent d3dfdffaa2
commit b5e0fa43ce
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/sockets.inc
View File

@ -34,8 +34,8 @@ end;
Procedure IOSock(var F:text);
begin
case textrec(f).mode of
fmoutput : {$ifdef unix}fpWrite{$else}fdwrite{$endif}(textrec(f).handle,textrec(f).bufptr^,textrec(f).bufpos);
fminput : textrec(f).BufEnd:={$ifdef Unix}fpRead{$else}fdread{$endif}(textrec(f).handle,textrec(f).bufptr^,textrec(f).bufsize);
fmoutput : fpWrite(textrec(f).handle,textrec(f).bufptr^,textrec(f).bufpos);
fminput : textrec(f).BufEnd:=fpRead(textrec(f).handle,textrec(f).bufptr^,textrec(f).bufsize);
end;
textrec(f).bufpos:=0;
end;