浏览代码

disable explicitly overflow checks

pierre 25 年之前
父节点
当前提交
7f52cfc571
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      tests/test/testi642.pp

+ 2 - 1
tests/test/testi642.pp

@@ -1,3 +1,4 @@
+{$Q-} { this is necessary to avoid an overflow error below }
 {$mode objfpc}
 uses
    sysutils
@@ -1186,4 +1187,4 @@ begin
    writeln('                Int64 test successful');
    writeln('------------------------------------------------------');
    halt(0);
-end.
+end.