Browse Source

Explicitly disable range and overflow checking for this test

git-svn-id: trunk@36465 -
pierre 8 years ago
parent
commit
abd765da40
1 changed files with 4 additions and 0 deletions
  1. 4 0
      tests/webtbs/tw30948.pp

+ 4 - 0
tests/webtbs/tw30948.pp

@@ -4,6 +4,10 @@ program BugInline;
 uses
   sysutils;
 
+{ Explicitly disable range and overflow checking }
+{$R-}
+{$Q-}
+
 procedure Add64x2(HA,LA,HB,LB: QWord; out HR,LR: QWord); inline;
 begin
   Inc(LA,LB);