tdnsstatearr declaration is needed outside syncdns code

git-svn-id: file:///svnroot/lcore/trunk@112 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/dnssync.pas b/dnssync.pas
index d037a68ea9cc350bee1ca33d95cbd95e770efcce..60af58082e36a7d075a67fe41d5009683e4f9873 100644 (file)
--- a/dnssync.pas
+++ b/dnssync.pas
@@ -71,6 +71,7 @@ implementation
 \r
 {$i unixstuff.inc}\r
 \r
 \r
 {$i unixstuff.inc}\r
 \r

+type tdnsstatearr=array[0..numsock-1] of tdnsstate;\r

 \r
 {$ifdef syncdnscore}\r
 \r
 \r
 {$ifdef syncdnscore}\r
 \r


@@ -98,9 +99,6 @@ begin
 {$endif}\r
 end;\r
 \r
 {$endif}\r
 end;\r
 \r

-\r
-type tdnsstatearr=array[0..numsock-1] of tdnsstate;\r
-\r

 procedure resolveloop(timeout:integer;var state:tdnsstatearr;numsockused:integer);\r
 var\r
   selectresult   : integer;\r
 procedure resolveloop(timeout:integer;var state:tdnsstatearr;numsockused:integer);\r
 var\r
   selectresult   : integer;\r