|
@@ -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 :=
|