mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 20:51:17 +02:00
c745ae4836
Most arithmetic/logica instructions don't support X/WZR as operand (since you should use movk with the calculated constant in that case) Resolves #39372
23 lines
285 B
ObjectPascal
23 lines
285 B
ObjectPascal
{ %norun }
|
|
{ %opt=-O-1 }
|
|
|
|
{ helpers can extend type parameters if they can only be classes }
|
|
program Arm64Peep;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
type bob = class
|
|
function doInc: integer;
|
|
end;
|
|
|
|
function bob.doInc: integer;
|
|
begin
|
|
Result := 0;
|
|
Inc(Result, 32);
|
|
end;
|
|
|
|
begin
|
|
end.
|