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

* better recognization of procedure exit code

Browse Source 
git-svn-id: trunk@41060 -
This commit is contained in:
florian 2019-01-24 19:53:51 +00:00
parent 24f6cc0da5
commit 6cb6517411
1 changed files with 8 additions and 0 deletions

8
compiler/x86/aoptx86.pas
View File

@ -949,6 +949,14 @@ unit aoptx86;
GetNextInstruction(p,hp2) and
MatchInstruction(hp2,A_RET,[S_NO])
) or
(((taicpu(p).opcode=A_LEA) and
MatchOpType(taicpu(p),top_ref,top_reg) and
(taicpu(p).oper[0]^.ref^.base=NR_STACK_POINTER_REG) and
(taicpu(p).oper[1]^.reg=NR_STACK_POINTER_REG)
) and
GetNextInstruction(p,hp2) and
MatchInstruction(hp2,A_RET,[S_NO])
) or
((((taicpu(p).opcode=A_MOV) and
MatchOpType(taicpu(p),top_reg,top_reg) and
(taicpu(p).oper[0]^.reg=current_procinfo.framepointer) and