mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 14:31:59 +02:00
dd7e472fa4
has been upcasted to int64, but convert it back to cardinal (mantis
#15015)
* put the "remove unnecessary 64 bit type conversions" code between
{$ifndef cpu64bitalu} instead of {$ifndef cpu64bitaddr}
git-svn-id: trunk@14396 -
14 lines
210 B
ObjectPascal
14 lines
210 B
ObjectPascal
program tget2;
|
|
|
|
var
|
|
a, b: LongWord;
|
|
|
|
begin
|
|
a := 307;
|
|
b := 1 + ($FFFFFFFF mod (a - 2));
|
|
writeln(b);
|
|
if b <> 301 then Halt(1);
|
|
writeln(1 + $FFFFFFFF mod (a - 2));
|
|
if b <> 301 then Halt(1);
|
|
end.
|