mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:49:31 +02:00
d1264eeb3a
constant is > high(longint), because then it must be loaded into a register
first since such values cannot be encoded directly in non-mov x86-64
instructions (mantis #17836)
git-svn-id: trunk@16305 -
22 lines
403 B
ObjectPascal
22 lines
403 B
ObjectPascal
var
|
|
w,w1: int64;
|
|
begin
|
|
w1:=-1;
|
|
w:=w1 div (int64(1) shl 33);
|
|
system.writeln(w);
|
|
if w<>0 then
|
|
halt(1);
|
|
w:=w1 div (int64(1) shl 32);
|
|
system.writeln(w);
|
|
if w<>0 then
|
|
halt(2);
|
|
w:=w1 div (int64(1) shl 31);
|
|
system.writeln(w);
|
|
if w<>0 then
|
|
halt(3);
|
|
w:=w1 div (int64(1) shl 5);
|
|
system.writeln(w);
|
|
if w<>0 then
|
|
halt(4);
|
|
end.
|