mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
4d0e4e1b56
(mantis #22665) + support "[var wrt ..gotpcrel]" nasm/yasm syntax in intel assembler mode for GOT-relative accesses on x86-64, + give an error when trying to do this on win64 (it doesn't have a GOT) * moved code that give a warning when using GOT-relative accesses to static data on x86-64 from the AT&T reader to rax86 so it's also active for the Intel assembler reader + added warning when not using GOT-relative accesses (but plain RIP-relative instead) to global data on non-Win64 x86-64 git-svn-id: trunk@22243 -
25 lines
308 B
ObjectPascal
25 lines
308 B
ObjectPascal
{ %cpu=x86_64 }
|
|
{ %opt=-Cg }
|
|
|
|
{$asmmode intel}
|
|
|
|
var
|
|
val: qword; public;
|
|
|
|
Function Test: QWord; Assembler; NoStackFrame;
|
|
Asm
|
|
{$ifdef win64}
|
|
MOV RAX, [RIP+Val]
|
|
{$else}
|
|
mov RAX, [val wrt ..gotpcrel]
|
|
mov RAX, [RAX]
|
|
{$endif}
|
|
End;
|
|
|
|
BEGIN
|
|
Val := $12345678901;
|
|
if test<>$12345678901 then
|
|
halt(1);
|
|
END.
|
|
|