paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not split statements following A_IT* instructions on arm thumb2 when inserting constant pools

Browse Source 
git-svn-id: trunk@25347 -
This commit is contained in:
florian 2013-08-23 15:22:51 +00:00
parent 8884f1c0bf
commit b4c7b40049
1 changed files with 43 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
compiler/arm/aasmcpu.pas
View File

@ -1033,21 +1033,50 @@ implementation
end;
{ special case for case jump tables }
if SimpleGetNextInstruction(curtai,hp) and
(tai(hp).typ=ait_instruction) and
(taicpu(hp).opcode=A_LDR) and
(taicpu(hp).oper[0]^.typ=top_reg) and
(taicpu(hp).oper[0]^.reg=NR_PC) then
(tai(hp).typ=ait_instruction) then
begin
penalty:=1*multiplier;
hp:=tai(hp.next);
{ skip register allocations and comments inserted by the optimizer }
while assigned(hp) and (hp.typ in [ait_comment,ait_regalloc]) do
hp:=tai(hp.next);
while assigned(hp) and (hp.typ=ait_const) do
begin
inc(penalty,multiplier);
hp:=tai(hp.next);
end;
case taicpu(hp).opcode of
A_LDR:
if (taicpu(hp).oper[0]^.typ=top_reg) and
(taicpu(hp).oper[0]^.reg=NR_PC) then
begin
penalty:=multiplier;
hp:=tai(hp.next);
{ skip register allocations and comments inserted by the optimizer }
while assigned(hp) and (hp.typ in [ait_comment,ait_regalloc]) do
hp:=tai(hp.next);
while assigned(hp) and (hp.typ=ait_const) do
begin
inc(penalty,multiplier);
hp:=tai(hp.next);
end;
end;
A_IT:
if current_settings.cputype in cpu_thumb2 then
penalty:=multiplier;
A_ITE,
A_ITT:
if current_settings.cputype in cpu_thumb2 then
penalty:=2*multiplier;
A_ITEE,
A_ITTE,
A_ITET,
A_ITTT:
if current_settings.cputype in cpu_thumb2 then
penalty:=3*multiplier;
A_ITEEE,
A_ITTEE,
A_ITETE,
A_ITTTE,
A_ITEET,
A_ITTET,
A_ITETT,
A_ITTTT:
if current_settings.cputype in cpu_thumb2 then
penalty:=4*multiplier;
else
penalty:=0;
end;
end
else
penalty:=0;