paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 13:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Explicitly disable range and overflow checking for this test

Browse Source 
git-svn-id: trunk@36465 -
This commit is contained in:
pierre 2017-06-09 12:22:47 +00:00
parent 605e6defc7
commit abd765da40
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw30948.pp
View File

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