tests/webtbs/tw23109.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %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.