* use linklib only on darwin

git-svn-id: trunk@11029 -

tests/test/tlib1.pp

@@ -8,7 +8,9 @@
 uses
   {$ifdef unix}dl,{$endif unix}sysutils;
 
+{$ifdef darwin}
 {$linklib tlib1a}
+{$endif darwin}
 
 procedure p(var a : pointer);external 'tlib1a' name 'p';
 
@@ -34,7 +36,7 @@ w:
   s2:=ExtractFilename(s2);
   writeln({ 'Func: ',s1,'} 'Source: ',s2,' Line: ',l);
   { GetLineInfo of dwarf doesn't return the function name }
-  if { (s1<>'P') or } (s2<>'tlib1.pp') or (l<>21) then
+  if { (s1<>'P') or } (s2<>'tlib1.pp') or (l<>23) then
     halt(1);
 
   writeln('ok');