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 1f6263df3f42e7ad4d89f60afe993bfd48cc444f..5e85f7043b5b612320dda1463f253bee44665467 100644 (file)
--- a/dnswin.pas
+++ b/dnswin.pas
@@ -113,7 +113,7 @@ begin
       getmem(output.ai_addr,sizeof(tlinetsockaddr4));\r
       if servname <> nil then output.ai_addr.InAddr.port := htons(strtoint(servname)) else output.ai_addr.InAddr.port := 0;\r
       output.ai_addr.InAddr.addr := longint(addrlist^^);\r
       getmem(output.ai_addr,sizeof(tlinetsockaddr4));\r
       if servname <> nil then output.ai_addr.InAddr.port := htons(strtoint(servname)) else output.ai_addr.InAddr.port := 0;\r
       output.ai_addr.InAddr.addr := longint(addrlist^^);\r

-      inc(integer(addrlist),4);\r
+      inc(taddrint(addrlist),4);\r

       output.ai_flags := 0;\r
       output.ai_family := af_inet;\r
       output.ai_socktype := 0;\r
       output.ai_flags := 0;\r
       output.ai_family := af_inet;\r
       output.ai_socktype := 0;\r

diff --git a/pgtypes.pas b/pgtypes.pas
index 3c139763452c701f20b1dca4ba4e7b73d323f45e..a232262c5e9ef4ceacadd6f5b9a9ec35a1b4c2b2 100644 (file)
--- a/pgtypes.pas
+++ b/pgtypes.pas
@@ -14,7 +14,11 @@ interface
     {$ifdef i386}\r
       taddrint=longint;\r
     {$else}\r
     {$ifdef i386}\r
       taddrint=longint;\r
     {$else}\r

+      {$ifdef cpux64}\r
+      taddrint=int64;\r
+      {$else}\r

       taddrint=sizeint;\r
       taddrint=sizeint;\r

+      {$endif}\r

     {$endif}\r
     paddrint=^taddrint;\r
 \r
     {$endif}\r
     paddrint=^taddrint;\r
 \r