Repository URL to install this package:
|
Version:
3.2.0 ▾
|
{ %norun }
{$mode objfpc}
{$r-}
function test(l1, l2: longint): longint; inline;
begin
result:=l1+l2;
end;
{ range checking state at caller site should not influence inline evaluation }
{$r+}
begin
test(high(longint), 1);
end.