* defines added

tests/test/testlib.pp

@@ -1,5 +1,6 @@
 {$ifdef win32}
  {$define supported}
+ {$define supportidx}
 {$endif win32}
 {$ifdef linux}
  {$define supported}
@@ -20,8 +21,10 @@ procedure Test;export;
 
 exports
   Test name publicname;
+{$ifdef supportidx}
 exports
   Test index publicindex;
+{$endif}
 
 begin
 end.

tests/test/testout.pp

@@ -1,6 +1,7 @@
 uses
    dotest;
 
+{$ifdef HASOUT}
 type
    tr1 = record
       l1,l2 : longint;
@@ -87,3 +88,8 @@ begin
    if a<>'Now it''s another ansistring' then
      do_error(1105);
 end.
+{$else}
+begin
+  Writeln('No out parameter support');
+end.
+{$endif HASOUT}