2
0
Эх сурвалжийг харах

* renamed to .pp extension

peter 24 жил өмнө
parent
commit
6fd93ee078

+ 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}