|
@@ -41,56 +41,10 @@ uses
|
|
|
type
|
|
|
|
|
|
TCpuAsmOptimizer = class(TRVCpuAsmOptimizer)
|
|
|
- { uses the same constructor as TAopObj }
|
|
|
- function PeepHoleOptPass1Cpu(var p: tai): boolean; override;
|
|
|
-
|
|
|
- function PostPeepHoleOptsCpu(var p: tai): boolean; override;
|
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
- uses
|
|
|
- cutils;
|
|
|
-
|
|
|
-
|
|
|
- function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
|
|
|
- var
|
|
|
- next1, next2: tai;
|
|
|
- l1, l2, shlcount: longint;
|
|
|
- begin
|
|
|
- result := inherited PeepHoleOptPass1Cpu(p);
|
|
|
- if result then
|
|
|
- exit;
|
|
|
-
|
|
|
- case p.typ of
|
|
|
- ait_instruction:
|
|
|
- begin
|
|
|
- {case taicpu(p).opcode of
|
|
|
- end;}
|
|
|
- end;
|
|
|
- else
|
|
|
- ;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
- function TCpuAsmOptimizer.PostPeepHoleOptsCpu(var p: tai): boolean;
|
|
|
- var
|
|
|
- next1: tai;
|
|
|
- begin
|
|
|
- result := inherited PostPeepHoleOptsCpu(p);
|
|
|
- if result then
|
|
|
- exit;
|
|
|
-
|
|
|
- case p.typ of
|
|
|
- ait_instruction:
|
|
|
- begin
|
|
|
- end;
|
|
|
- else
|
|
|
- ;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
begin
|
|
|
casmoptimizer := TCpuAsmOptimizer;
|
|
|
end.
|