blob: 8814cb10a553349ed777d956a77e57addd975f74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %fail }
{$mode objfpc}
{$ifdef cpu64}
{$r+}
{$else}
{$q+}
{$endif}
function test(l1, l2: longint): longint; inline;
begin
result:=l1+l2;
end;
{ range checking state at caller site should not influence inline evaluation }
{$ifdef cpu64}
{$r-}
{$else}
{$q-}
{$endif}
begin
test(high(longint), 1);
end.
|
