# HG changeset patch
# Parent 30c0cbcac03a2f37b10c7a2c5f30a503701ccbfd
diff -r 30c0cbcac03a -r 92d8e8311ea0 rtl/inc/sockets.inc
--- a/rtl/inc/sockets.inc	Sun May 05 12:44:46 2013 +1000
+++ b/rtl/inc/sockets.inc	Sun May 05 13:22:46 2013 +1000
@@ -309,6 +309,7 @@
   HostAddrToStr:=NetAddrToStr(x);
 end;
 
+{$PUSH} {$R-}
 function StrToHostAddr(IP : AnsiString) : in_addr ;
 
 Var
@@ -378,7 +379,7 @@
 begin
   ShortNEtToHost:=ntohs(net);
 end;
-
+{$POP}
 const digittab : shortstring = ('0123456789ABCDEF');
 
 function lclinttohex (i:integer;digits:longint): ansistring;