Browse Source

* renamed to .pp extension

peter 24 years ago
parent
commit
6fd93ee078
2 changed files with 2 additions and 6 deletions
  1. 0 0
      tests/test/tfexpand.pp
  2. 2 6
      tests/test/tpara1.pp

+ 0 - 0
tests/test/tfexpand.pas → tests/test/tfexpand.pp


+ 2 - 6
tests/test/tpara1.pp

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