mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 17:08:01 +02:00
15 lines
201 B
ObjectPascal
15 lines
201 B
ObjectPascal
{ %cpu=x86_64}
|
|
{ %skiptarget=win64}
|
|
{ %opt=-Cg -vew }
|
|
|
|
var
|
|
global: boolean; public;
|
|
begin
|
|
asm
|
|
movq global@GOTPCREL(%rip), %rax
|
|
movb $1, (%rax)
|
|
end;
|
|
if not global then
|
|
halt(1);
|
|
end.
|