X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/6cb6b7ede2d178e03fa817bc28474c175f5a93b9..82d4e52fba54be50d719f6185ec381f2dc87fc6c:/lsocket.pas

diff --git a/lsocket.pas b/lsocket.pas
index e56a25d..c37a66a 100755
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -218,8 +218,7 @@ var
 begin
   if state <> wsclosed then close;
   //prevtime := 0;
-
-  biniplist := forwardlookuplist(addr,0);
+  if isbiniplist(addr) then biniplist := addr else biniplist := forwardlookuplist(addr,0);
   if biniplist_getcount(biniplist) = 0 then raise exception.create('unable to resolve '+addr);
 
   //makeinaddrv(addr,port,inaddr);
@@ -321,7 +320,7 @@ begin
     {$endif}
     addr := '0.0.0.0';
   end;
-  biniptemp := forwardlookup(addr,10);
+  if isbiniplist(addr) then biniptemp := biniplist_get(addr,0) else biniptemp := forwardlookup(addr,10);
   addr := ipbintostr(biniptemp);
   fdhandlein := socket(biniptemp.family,socktype,0);
   {$ifdef ipv6}
@@ -631,6 +630,6 @@ end;
     result := winsock.recv(fd,buf,size,0);
   end;
 {$endif}
-
+
 end.