tinlrange2.pp 234 B

123456789101112131415
  1. { %norun }
  2. {$mode objfpc}
  3. {$r-}
  4. function test(l1, l2: longint): longint; inline;
  5. begin
  6. result:=l1+l2;
  7. end;
  8. { range checking state at caller site should not influence inline evaluation }
  9. {$r+}
  10. begin
  11. test(high(longint), 1);
  12. end.