From: plugwash <plugwash@p10link.net>
Date: Mon, 13 Apr 2009 00:16:07 +0000 (+0000)
Subject: fix screwup in previous commit
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/52411bfabda0c0700608f9a1b057eacdb9535781?ds=inline

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 573c888..9f66cda 100755
--- 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);