paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 02:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test for non-64 bit platforms

Browse Source 
git-svn-id: trunk@43451 -
This commit is contained in:
Jonas Maebe 2019-11-11 09:26:55 +00:00
parent 2f914ee2d8
commit 7bf50d261e
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/test/tinlrange1.pp
View File

@ -1,7 +1,12 @@
{ %fail }
{$mode objfpc}
{$ifdef cpu64}
{$r+}
{$else}
{$q+}
{$endif}
function test(l1, l2: longint): longint; inline;
begin
@ -9,7 +14,11 @@ begin
end;
{ range checking state at caller site should not influence inline evaluation }
{$ifdef cpu64}
{$r-}
{$else}
{$q-}
{$endif}
begin
test(high(longint), 1);
end.