Просмотр исходного кода

disable range check explicitly

pierre 26 лет назад
Родитель
Сommit
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;