eliminated a lot of hints and warnings

[lcore.git] / dnssync.pas

diff --git a/dnssync.pas b/dnssync.pas
index 7d6631c97b73011641e8bd0b778855e408d5c72c..c603b9267a892b071ec96631dca3fa4e5d371539 100644 (file)
--- a/dnssync.pas
+++ b/dnssync.pas
@@ -75,14 +75,14 @@ implementation
 \r
 {$i unixstuff.inc}\r
 \r
 \r
 {$i unixstuff.inc}\r
 \r

+\r
+{$ifdef syncdnscore}\r

 var\r
   numsockused:integer;\r
   fd:array[0..numsock-1] of integer;\r
   state:array[0..numsock-1] of tdnsstate;\r
   toaddr:array[0..numsock-1] of tbinip;\r
 \r
 var\r
   numsockused:integer;\r
   fd:array[0..numsock-1] of integer;\r
   state:array[0..numsock-1] of tdnsstate;\r
   toaddr:array[0..numsock-1] of tbinip;\r
 \r

-{$ifdef syncdnscore}\r
-\r

 {$ifdef win32}\r
   const\r
     winsocket = 'wsock32.dll';\r
 {$ifdef win32}\r
   const\r
     winsocket = 'wsock32.dll';\r


@@ -109,7 +109,6 @@ end;
 \r
 function sendquery(socknum:integer;const packet:tdnspacket;len:integer):boolean;\r
 var\r
 \r
 function sendquery(socknum:integer;const packet:tdnspacket;len:integer):boolean;\r
 var\r

-  a:integer;\r

   addr       : ansistring;\r
   port       : ansistring;\r
   inaddr     : TInetSockAddrV;\r
   addr       : ansistring;\r
   port       : ansistring;\r
   inaddr     : TInetSockAddrV;\r


@@ -177,7 +176,6 @@ var
   currenttime  : integer;\r
 \r
   lag            : ttimeval;\r
   currenttime  : integer;\r
 \r
   lag            : ttimeval;\r

-  currenttimeout : ttimeval;\r

   selecttimeout         : ttimeval;\r
   socknum:integer;\r
   needprocessing:array[0..numsock-1] of boolean;\r
   selecttimeout         : ttimeval;\r
   socknum:integer;\r
   needprocessing:array[0..numsock-1] of boolean;\r


@@ -299,7 +297,7 @@ end;
 function forwardlookuplist(name:ansistring;timeout:integer):tbiniplist;\r
 var\r
   dummy : integer;\r
 function forwardlookuplist(name:ansistring;timeout:integer):tbiniplist;\r
 var\r
   dummy : integer;\r

-  a,b:integer;\r
+  a:integer;\r

   biniptemp:tbinip;\r
   l:tbiniplist;\r
 begin\r
   biniptemp:tbinip;\r
   l:tbiniplist;\r
 begin\r