mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 00:59:38 +02:00
744facb7fc
the intel assembler reader: no longer parse them as register tokens,
but as local operands that are later converted into registers. This
ensures in particular that the type of the operand is set, which is
necessary in case this operand later subscripted (as in tasm10a)
git-svn-id: trunk@36288 -
42 lines
815 B
ObjectPascal
42 lines
815 B
ObjectPascal
{ %cpu=x86_64 }
|
|
|
|
program asmclass;
|
|
{$mode delphiunicode}
|
|
{$asmmode intel}
|
|
type
|
|
TMyClass = class
|
|
public
|
|
Data: longint;
|
|
function AsmToClass: longint; ms_abi_default;
|
|
end;
|
|
|
|
function TMyClass.AsmToClass: longint; ms_abi_default;
|
|
asm
|
|
mov RAX, Self.Data // Error: Can't access fields directly for parameters
|
|
end;
|
|
|
|
function AsmToClassProc(Inst: TMyClass): longint; ms_abi_default;
|
|
asm
|
|
mov RAX, Inst.Data // Error: Can't access fields directly for parameters
|
|
end;
|
|
|
|
function AsmToClassProc2(Inst: TMyClass): pointer; ms_abi_default;
|
|
asm
|
|
mov RAX, qword ptr [Inst]
|
|
end;
|
|
|
|
var
|
|
C: TMyClass;
|
|
begin
|
|
C := TMyClass.Create;
|
|
c.data:=123548;
|
|
if C.AsmToClass<>123548 then
|
|
halt(1);
|
|
if AsmToClassProc(C)<>123548 then
|
|
halt(2);
|
|
|
|
if AsmToClassProc2(C)<>ppointer(c)^ then
|
|
halt(3);
|
|
C.Free;
|
|
end.
|