summaryrefslogtreecommitdiff
path: root/tests/webtbf/tw22665b.pp
blob: 0513b2bc8086a91a643162039d3da323f2856744 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{ %skiptarget=win64 }
{ %cpu=x86_64 }
{ %opt=-vw -Sew -Cg }
{ %fail }

{$asmmode intel}

var
  val: qword; public;

Function Test: QWord; Assembler; NoStackFrame;
Asm
 { global symbols must be accessed via the GOT on non-win64 }
 mov RAX, [RIP+val]
End;

BEGIN
  Val := $12345678901;
  if test<>$12345678901 then
    halt(1);
END.