浏览代码

* renamed to .pp extension

peter 24 年之前
父节点
当前提交
6fd93ee078
共有 2 个文件被更改,包括 2 次插入6 次删除
  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}