fix screwup in previous commit

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

diff --git a/dnswin.pas b/dnswin.pas
index 573c888a76c8a83369bfc0366d3b46ca63e87962..9f66cda0dcafa3e6876aafe349a4107fcefda00e 100755 (executable)
--- a/dnswin.pas
+++ b/dnswin.pas
@@ -233,7 +233,7 @@ var
   getnameinforesult : integer;\r
 begin\r
 \r
   getnameinforesult : integer;\r
 begin\r
 \r

-  makeinaddrv(sa,ip);
+  makeinaddrv(ip,'1',sa);

   populateprocvars;\r
   setlength(result,1025);\r
   getnameinforesult := getnameinfo(@sa,sizeof(tinetsockaddrv),pchar(result),length(result),nil,0,0);\r
   populateprocvars;\r
   setlength(result,1025);\r
   getnameinforesult := getnameinfo(@sa,sizeof(tinetsockaddrv),pchar(result),length(result),nil,0,0);\r