瀏覽代碼

disable range check explicitly

pierre 25 年之前
父節點
當前提交
0508920eb7
共有 1 個文件被更改,包括 3 次插入1 次删除
  1. 3 1
      tests/tbs/tbs0046.pp

+ 3 - 1
tests/tbs/tbs0046.pp

@@ -1,6 +1,8 @@
 program test;
 
-{$ifdef fpk}
+{$R-}
+
+{$ifdef fpc}
 {$ifdef go32v2}
 uses
    dpmiexcp;