paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 12:00:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't ignore by accident the next instruction after a newly inserted constant pool

Browse Source 
git-svn-id: trunk@24677 -
This commit is contained in:
florian 2013-05-31 21:29:08 +00:00
parent 3a393f839e
commit 4056194e7c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/arm/aasmcpu.pas
View File

@ -1092,7 +1092,6 @@ implementation
curtai:=tai(curtai.next);
doinsert:=false;
hp:=tai(curtai.next);
current_asmdata.getjumplabel(l);
{ align thumb in thumb .text section to 4 bytes }
@ -1112,6 +1111,11 @@ implementation
hp2:=tai(hp2.next);
end;
{ continue with the last inserted label because we use later
on SimpleGetNextInstruction, so if we used curtai.next (which
is then equal curdata.last.previous) we could over see one
instruction }
hp:=tai(curdata.Last);
list.insertlistafter(curtai,curdata);
curtai:=hp;
end