瀏覽代碼

Explicitly disable range and overflow checking for this test

git-svn-id: trunk@36465 -
pierre 8 年之前
父節點
當前提交
abd765da40
共有 1 個文件被更改,包括 4 次插入0 次删除
  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);