mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 20:39:24 +02:00
b5b7e0f338
register allocator on AArch64 + test (did not get caught by existing
tests)
git-svn-id: trunk@29965 -
17 lines
245 B
ObjectPascal
17 lines
245 B
ObjectPascal
function f: qword;
|
|
begin
|
|
f:=$7111888800000001;
|
|
end;
|
|
|
|
begin
|
|
if qword(cardinal(f))<>1 then
|
|
halt(1);
|
|
if qword(longint(f))<>1 then
|
|
halt(2);
|
|
if int64(cardinal(f))<>1 then
|
|
halt(3);
|
|
if int64(longint(f))<>1 then
|
|
halt(4);
|
|
end.
|
|
|