* cleanup

This commit is contained in:
florian 2025-04-08 22:09:28 +02:00
parent e0ac77bb33
commit d6825a3561

View File

@ -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.