From b5e0fa43ce6d0eed7e368cc0c62002f2d35ce416 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 15 Oct 2006 12:29:22 +0000
Subject: [PATCH]  * post 2.0 simplification, win32 now also has fpread/write

git-svn-id: trunk@4920 -
---
 rtl/inc/sockets.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/sockets.inc b/rtl/inc/sockets.inc
index 1b0d00103d..29502e7275 100644
--- a/rtl/inc/sockets.inc
+++ b/rtl/inc/sockets.inc
@@ -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;