mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 14:47:55 +02:00
+ Xtensa: enable jump optimizer
git-svn-id: trunk@45045 -
This commit is contained in:
parent
8d95da3fea
commit
8b71455e3b
@ -36,6 +36,8 @@ Interface
|
||||
|
||||
Type
|
||||
TCpuAsmOptimizer = class(TAsmOptimizer)
|
||||
function CanDoJumpOpts: Boolean; override;
|
||||
|
||||
{ uses the same constructor as TAopObj }
|
||||
function RegLoadedWithNewValue(reg: tregister; hp: tai): boolean;override;
|
||||
function InstructionLoadsFromReg(const reg: TRegister; const hp: tai): boolean;override;
|
||||
@ -70,6 +72,12 @@ Implementation
|
||||
end;
|
||||
|
||||
|
||||
function TCpuAsmOptimizer.CanDoJumpOpts: Boolean;
|
||||
begin
|
||||
Result := true;
|
||||
end;
|
||||
|
||||
|
||||
function RefsEqual(const r1, r2: treference): boolean;
|
||||
begin
|
||||
refsequal :=
|
||||
|
Loading…
Reference in New Issue
Block a user