mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
89663e499b
* test adapted, e.g. 1 shl 63 needs now an explicit cast to qword for the one: qword(1) shl 63 git-svn-id: trunk@26295 -
33 lines
487 B
ObjectPascal
33 lines
487 B
ObjectPascal
program tw22133;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
uint64 = qword;
|
|
|
|
var
|
|
T64:UInt64;
|
|
|
|
//force checking constants in compile-time
|
|
{$RANGECHECKS ON}
|
|
|
|
{$inline on}
|
|
|
|
function testshift(a:uint64; b: byte): uint64; inline;
|
|
begin
|
|
result:=a shl b;
|
|
end;
|
|
|
|
begin
|
|
T64:=UInt64(qword(1) shl 63);
|
|
if T64<>uint64(high(int64)+1) then
|
|
halt(1);
|
|
T64:=UInt64(1) shl 63;
|
|
if T64<>uint64(high(int64)+1) then
|
|
halt(2);
|
|
T64:=testshift(1,63);
|
|
if T64<>uint64(high(int64)+1) then
|
|
halt(3);
|
|
end.
|
|
|