mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 00:28:05 +02:00
2c3c6d27d3
(mantis #14841) -> this also makes it impossible now to use constructs such as inc(qword_var,-1) with range checking enabled, because that would require a conversion to 128 bit for proper evaluation git-svn-id: trunk@14260 -
13 lines
107 B
ObjectPascal
13 lines
107 B
ObjectPascal
{$r+,o+}
|
|
var
|
|
b: byte;
|
|
s: shortint;
|
|
begin
|
|
b:=57;
|
|
s:=-1;
|
|
inc(b, s);
|
|
if b<>56 then
|
|
halt(1);
|
|
end.
|
|
|