X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/a83971b64b0b20f6774cf3ccedd05202ad0bdb0e..27e903c56380abcb11b5a0b8d7ccab88a14b5cde:/dnssync.pas

diff --git a/dnssync.pas b/dnssync.pas
index 7d6631c..c603b92 100644
--- a/dnssync.pas
+++ b/dnssync.pas
@@ -75,14 +75,14 @@ implementation
 
 {$i unixstuff.inc}
 
+
+{$ifdef syncdnscore}
 var
   numsockused:integer;
   fd:array[0..numsock-1] of integer;
   state:array[0..numsock-1] of tdnsstate;
   toaddr:array[0..numsock-1] of tbinip;
 
-{$ifdef syncdnscore}
-
 {$ifdef win32}
   const
     winsocket = 'wsock32.dll';
@@ -109,7 +109,6 @@ end;
 
 function sendquery(socknum:integer;const packet:tdnspacket;len:integer):boolean;
 var
-  a:integer;
   addr       : ansistring;
   port       : ansistring;
   inaddr     : TInetSockAddrV;
@@ -177,7 +176,6 @@ var
   currenttime  : integer;
 
   lag            : ttimeval;
-  currenttimeout : ttimeval;
   selecttimeout	 : ttimeval;
   socknum:integer;
   needprocessing:array[0..numsock-1] of boolean;
@@ -299,7 +297,7 @@ end;
 function forwardlookuplist(name:ansistring;timeout:integer):tbiniplist;
 var
   dummy : integer;
-  a,b:integer;
+  a:integer;
   biniptemp:tbinip;
   l:tbiniplist;
 begin