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

* AArch64 and i386: omit exit stackframe, same as r44191 for x86-64

Browse Source 
git-svn-id: trunk@44196 -
This commit is contained in:
florian 2020-02-16 20:14:26 +00:00
parent 3188dc18d4
commit 9989d408fd
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/aarch64/cgcpu.pas
View File

@ -1742,7 +1742,14 @@ implementation
regsstored: boolean; regsstored: boolean;
sr: tsuperregister; sr: tsuperregister;
begin begin
if not nostackframe then if not(nostackframe) and
{ we do not need an exit stack frame when we never return
* the final ret is left so the peephole optimizer can easily do call/ret -> jmp or call conversions
* the entry stack frame must be normally generated because the subroutine could be still left by
an exception and then the unwinding code might need to restore the registers stored by the entry code
}
not(po_noreturn in current_procinfo.procdef.procoptions) then
begin begin
{ if no registers have been stored, we don't have to subtract the { if no registers have been stored, we don't have to subtract the
allocated temp space from the stack pointer } allocated temp space from the stack pointer }

9
compiler/i386/cgcpu.pas
View File

@ -308,7 +308,14 @@ unit cgcpu;
list.concat(Taicpu.op_none(A_EMMS,S_NO)); list.concat(Taicpu.op_none(A_EMMS,S_NO));
{ remove stackframe } { remove stackframe }
if not nostackframe then if not(nostackframe) and
{ we do not need an exit stack frame when we never return
* the final ret is left so the peephole optimizer can easily do call/ret -> jmp or call conversions
* the entry stack frame must be normally generated because the subroutine could be still left by
an exception and then the unwinding code might need to restore the registers stored by the entry code
}
not(po_noreturn in current_procinfo.procdef.procoptions) then
begin begin
if (current_procinfo.framepointer=NR_STACK_POINTER_REG) or if (current_procinfo.framepointer=NR_STACK_POINTER_REG) or
(current_procinfo.procdef.proctypeoption=potype_exceptfilter) then (current_procinfo.procdef.proctypeoption=potype_exceptfilter) then