mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-27 01:09:26 +02:00
* cleanup
This commit is contained in:
parent
e0ac77bb33
commit
d6825a3561
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user