mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
ce598c15ec
overflow checks
o in particular ensure that cpu-specific overrides don't perform overflow
checks when nf_internal is set
git-svn-id: trunk@42573 -
12 lines
113 B
ObjectPascal
12 lines
113 B
ObjectPascal
{$r+,q+}
|
|
|
|
procedure test(i: int64);
|
|
begin
|
|
if (i>0) and (i<$1fff) then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test(0);
|
|
end.
|