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

Make sure to remove postfix as well when fixing thumb instructions.

Browse Source 
git-svn-id: trunk@32787 -
This commit is contained in:
Jeppe Johansen 2015-12-29 12:20:30 +00:00
parent f452d9140e
commit c929bb32ae
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/aasmcpu.pas
View File

@ -1421,8 +1421,10 @@ implementation
if (taicpu(curtai).ops=2) and
(taicpu(curtai).oper[0]^.typ=top_ref) and
(taicpu(curtai).oper[0]^.ref^.index=NR_STACK_POINTER_REG) and
(taicpu(curtai).oper[0]^.ref^.addressmode=AM_PREINDEXED) then
(taicpu(curtai).oper[0]^.ref^.addressmode=AM_PREINDEXED) and
(taicpu(curtai).oppostfix in [PF_FD,PF_DB]) then
begin
taicpu(curtai).oppostfix:=PF_None;
taicpu(curtai).loadregset(0, taicpu(curtai).oper[1]^.regtyp, taicpu(curtai).oper[1]^.subreg, taicpu(curtai).oper[1]^.regset^);
taicpu(curtai).ops:=1;
taicpu(curtai).opcode:=A_PUSH;
@ -1434,8 +1436,10 @@ implementation
if (taicpu(curtai).ops=2) and
(taicpu(curtai).oper[0]^.typ=top_ref) and
(taicpu(curtai).oper[0]^.ref^.index=NR_STACK_POINTER_REG) and
(taicpu(curtai).oper[0]^.ref^.addressmode=AM_PREINDEXED) then
(taicpu(curtai).oper[0]^.ref^.addressmode=AM_PREINDEXED) and
(taicpu(curtai).oppostfix in [PF_FD,PF_IA]) then
begin
taicpu(curtai).oppostfix:=PF_None;
taicpu(curtai).loadregset(0, taicpu(curtai).oper[1]^.regtyp, taicpu(curtai).oper[1]^.subreg, taicpu(curtai).oper[1]^.regset^);
taicpu(curtai).ops:=1;
taicpu(curtai).opcode:=A_POP;