From: beware <beware@bircd.org>
Date: Sat, 21 Apr 2018 00:06:32 +0000 (+0000)
Subject: compile on 64 bits delphi
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/dc073bfadb411ab43bc39e2a39f48811706dfc0e?ds=inline

compile on 64 bits delphi

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

diff --git a/dnswin.pas b/dnswin.pas
index 1f6263d..5e85f70 100644
--- a/dnswin.pas
+++ b/dnswin.pas
@@ -113,7 +113,7 @@ begin
       getmem(output.ai_addr,sizeof(tlinetsockaddr4));
       if servname <> nil then output.ai_addr.InAddr.port := htons(strtoint(servname)) else output.ai_addr.InAddr.port := 0;
       output.ai_addr.InAddr.addr := longint(addrlist^^);
-      inc(integer(addrlist),4);
+      inc(taddrint(addrlist),4);
       output.ai_flags := 0;
       output.ai_family := af_inet;
       output.ai_socktype := 0;
diff --git a/pgtypes.pas b/pgtypes.pas
index 3c13976..a232262 100644
--- a/pgtypes.pas
+++ b/pgtypes.pas
@@ -14,7 +14,11 @@ interface
     {$ifdef i386}
       taddrint=longint;
     {$else}
+      {$ifdef cpux64}
+      taddrint=int64;
+      {$else}
       taddrint=sizeint;
+      {$endif}
     {$endif}
     paddrint=^taddrint;