X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/9951872c6c46881c8b414bcd04a18320c457b811..3f8290b4a13c15cf62776aa427f62a8ae77ee07c:/binipstuff.pas?ds=sidebyside

diff --git a/binipstuff.pas b/binipstuff.pas
index e7d891c..1d7a7c2 100644
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -300,7 +300,10 @@ begin
   {$endif}
 
   {try v4}
-  binip.ip := htonl(longip(s));
+  // zipplet: htonl() expects a uint32 but longip() spits out longint.
+  // Because longip() is deprecated, we do not fix it but typecast.
+  //binip.ip := htonl(longip(s));
+  binip.ip := htonl(uint32(longip(s)));
   if (binip.ip <> 0) or (s = '0.0.0.0') then begin
     result := true;
     binip.family := AF_INET;