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

* fixed constant insertation

Browse Source
This commit is contained in:
florian 2005-02-20 12:23:45 +00:00
parent d2ec096991
commit 00d9868260
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/arm/aasmcpu.pas
View File

@ -487,15 +487,15 @@ implementation
inc(curpos);
end;
if ((curpos-lastpos)>1016) and
{ split only at real instructions else the test below fails }
if ((curpos-lastpos)>1016) and (curtai.typ=ait_instruction) and
(
{ don't splitt loads of pc to lr and the following move }
{ don't split loads of pc to lr and the following move }
not(
(curtai.typ=ait_instruction) and
(taicpu(curtai).opcode=A_MOV) and
(taicpu(curtai).oper[0]^.typ=top_reg) and
(taicpu(curtai).oper[0]^.reg=NR_R14) and
(taicpu(curtai).oper[0]^.typ=top_reg) and
(taicpu(curtai).oper[1]^.typ=top_reg) and
(taicpu(curtai).oper[1]^.reg=NR_PC)
)
) then
@ -518,7 +518,10 @@ implementation
end.
{
$Log$
Revision 1.40 2005-02-15 21:24:40 florian
Revision 1.41 2005-02-20 12:23:45 florian
* fixed constant insertation
Revision 1.40 2005/02/15 21:24:40 florian
* don't split indirect calls while inserting pc relative constants
Revision 1.39 2005/02/15 19:53:41 florian