Selaa lähdekoodia

* range and overflow checks explicitly disabled

git-svn-id: trunk@6538 -
pierre 18 vuotta sitten
vanhempi
commit
40d9ef1196
1 muutettua tiedostoa jossa 6 lisäystä ja 0 poistoa
  1. 6 0
      tests/webtbs/tw1901.pp

+ 6 - 0
tests/webtbs/tw1901.pp

@@ -4,9 +4,15 @@
 {$MODE DELPHI}
 {$endif}
 
+{ Range and overflow checks need to be off }
+
+{$Q-}
+{$R-}
+
 const Inf=1/0;
       NaN=0/0;
       MinusInf=-Inf;
+
 var
   s : string;
   error : boolean;