mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 11:08:02 +02:00
18 lines
252 B
ObjectPascal
18 lines
252 B
ObjectPascal
{ %cpu=x86_64 }
|
|
{ %opt=-Sew }
|
|
{ %norun }
|
|
|
|
{$asmmode intel}
|
|
begin
|
|
asm
|
|
lea rsp, [rsp-32] // (1)
|
|
lea rax, @table[rip]
|
|
lea rsp, [rsp+32]
|
|
jmp @next
|
|
db 0, 1, 2, 3, 4, 5, 6, 7
|
|
@table:
|
|
db 8, 9, 10
|
|
@next:
|
|
end ['rax', 'xmm0'];
|
|
end.
|