浏览代码

* new bugs

peter 24 年之前
父节点
当前提交
34db6813c3
共有 2 个文件被更改,包括 21 次插入0 次删除
  1. 6 0
      tests/tbs/tb0358.pp
  2. 15 0
      tests/tbs/tb0359.pp

+ 6 - 0
tests/tbs/tb0358.pp

@@ -0,0 +1,6 @@
+{ %version=1.1 }
+type
+  __u64 = 0..High(Int64); // Create unsigned Int64 (with 63 bits)
+
+begin
+end.

+ 15 - 0
tests/tbs/tb0359.pp

@@ -0,0 +1,15 @@
+{ %version=1.1 }
+
+{$ifdef unix}
+
+{$linklib c}
+
+procedure printf(t:pchar);varargs;cdecl;external;
+
+begin
+  printf("Test %d",1);
+{$else}
+begin
+  writeln('Unix only test');
+{$endif}
+end.