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

* ARM scheduler need to move register de-allocs located before the instruction. Also preserve order of allocs and de-allocs.

Browse Source 
git-svn-id: trunk@35552 -
This commit is contained in:
yury 2017-03-09 19:05:15 +00:00
parent 9f3759bcb8
commit 3bedccf946
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/arm/aoptcpu.pas
View File

@ -2578,10 +2578,10 @@ Implementation
associated with p, move it together with p }
{ before the instruction? }
{ find reg allocs and PIC labels }
{ find reg allocs,deallocs and PIC labels }
while assigned(hp3) and (hp3.typ<>ait_instruction) do
begin
if ( (hp3.typ=ait_regalloc) and (tai_regalloc(hp3).ratype in [ra_alloc]) and
if ( (hp3.typ=ait_regalloc) and (tai_regalloc(hp3).ratype in [ra_alloc, ra_dealloc]) and
RegInInstruction(tai_regalloc(hp3).reg,p) )
or ( (hp3.typ=ait_label) and (tai_label(hp3).labsym.typ=AT_ADDR) )
then
@ -2589,7 +2589,7 @@ Implementation
hp4:=hp3;
hp3:=tai(hp3.Previous);
asml.Remove(hp4);
list.Concat(hp4);
list.Insert(hp4);
end
else
hp3:=tai(hp3.Previous);