X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/40b538b4671a190ea35502207562edabfcea539b..055fa6bf18e0733d1bf2f97075d6bb33c76e72b5:/dnswin.pas

diff --git a/dnswin.pas b/dnswin.pas
old mode 100755
new mode 100644
index 573c888..e9c2a16
--- a/dnswin.pas
+++ b/dnswin.pas
@@ -233,7 +233,7 @@ var
   getnameinforesult : integer;
 begin
 
-  makeinaddrv(sa,ip);
+  makeinaddrv(ip,'1',sa);
   populateprocvars;
   setlength(result,1025);
   getnameinforesult := getnameinfo(@sa,sizeof(tinetsockaddrv),pchar(result),length(result),nil,0,0);