zipplet: fix range check exception in fpc 3 on tcp connect

git-svn-id: file:///svnroot/lcore/trunk@148 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/binipstuff.pas b/binipstuff.pas
index e7d891c1eade8ac98448bcbc1d3ce5810f92cdad..1d7a7c23c74fbfeef33d2ee4f091fe256f03a905 100644 (file)
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -300,7 +300,10 @@ begin
   {$endif}\r
 \r
   {try v4}\r
   {$endif}\r
 \r
   {try v4}\r

-  binip.ip := htonl(longip(s));\r
+  // zipplet: htonl() expects a uint32 but longip() spits out longint.\r
+  // Because longip() is deprecated, we do not fix it but typecast.\r
+  //binip.ip := htonl(longip(s));\r
+  binip.ip := htonl(uint32(longip(s)));\r

   if (binip.ip <> 0) or (s = '0.0.0.0') then begin\r
     result := true;\r
     binip.family := AF_INET;\r
   if (binip.ip <> 0) or (s = '0.0.0.0') then begin\r
     result := true;\r
     binip.family := AF_INET;\r