paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 13:10:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cond. instruction optimization enabled

Browse Source 
git-svn-id: trunk@5393 -
This commit is contained in:
florian 2006-11-15 21:59:29 +00:00
parent 66607303af
commit 84f0b62f93
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/arm/aoptcpu.pas
View File

@ -46,6 +46,16 @@ Implementation
result:=true;
end;
{ instructions modifying the CPSR can be only the last instruction }
function MustBeLast(p : tai) : boolean;
begin
Result:=(p.typ=ait_instruction) and
((taicpu(p).opcode in [A_BL,A_BLX,A_CMP,A_CMN,A_SWI,A_TEQ,A_TST]) or
(taicpu(p).oppostfix=PF_S));
end;
procedure TCpuAsmOptimizer.PeepHoleOptPass2;
var
p,hp1,hp2: tai;
@ -55,7 +65,6 @@ Implementation
{ UsedRegs, TmpUsedRegs: TRegSet; }
begin
exit; { deactived, not working yet FK }
p := BlockStart;
{ UsedRegs := []; }
while (p <> BlockEnd) Do
@ -82,7 +91,13 @@ Implementation
not(hp1.typ=ait_label) do
begin
inc(l);
GetNextInstruction(hp1,hp1);
if MustBeLast(hp1) then
begin
GetNextInstruction(hp1,hp1);
break;
end
else
GetNextInstruction(hp1,hp1);
end;
if assigned(hp1) then
begin
@ -97,7 +112,13 @@ Implementation
repeat
if hp1.typ=ait_instruction then
taicpu(hp1).condition:=condition;
GetNextInstruction(hp1,hp1);
if MustBeLast(hp1) then
begin
GetNextInstruction(hp1,hp1);
break;
end
else
GetNextInstruction(hp1,hp1);
until not(assigned(hp1)) or
not(CanBeCond(hp1)) or
(hp1.typ=ait_label);