mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
27 lines
454 B
ObjectPascal
27 lines
454 B
ObjectPascal
{ %cpu=x86_64 }
|
|
|
|
procedure p1;assembler;nostackframe;
|
|
asm
|
|
cltq
|
|
end;
|
|
|
|
const
|
|
test_expected : array[0..1] of byte = (
|
|
$48,$98);
|
|
|
|
var
|
|
i : longint;
|
|
|
|
|
|
begin
|
|
for i:=0 to high(test_expected) do
|
|
if test_expected[i]<>pbyte(@p1)[i] then
|
|
begin
|
|
writeln('mismatch at offset $',hexstr(i,4), ', expected=$',
|
|
hexstr(test_expected[i],2),' actual=$',hexstr(pbyte(@p1)[i],2));
|
|
halt(1);
|
|
end;
|
|
writeln('ok');
|
|
end.
|
|
|