mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 23:42:39 +02:00
475a9e1617
* rax86int.pas: reject RIP-relative references to locals/parameters. git-svn-id: trunk@29087 -
27 lines
323 B
ObjectPascal
27 lines
323 B
ObjectPascal
{ %cpu=i386,x86_64 }
|
|
{ %opt=-Cg- }
|
|
{$mode objfpc}
|
|
{$asmmode intel}
|
|
|
|
|
|
function bar: integer;
|
|
begin
|
|
result:=$12345678;
|
|
end;
|
|
|
|
function foo: pointer; assembler; nostackframe;
|
|
asm
|
|
{$ifdef x86_64}
|
|
lea rax,[bar+rip]
|
|
{$else}
|
|
lea eax,[bar]
|
|
{$endif}
|
|
end;
|
|
|
|
|
|
begin
|
|
if (foo<>pointer(@bar)) then
|
|
halt(1);
|
|
end.
|
|
|