mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 22:48:57 +02:00
* ensure that the stack is aligned after haltproc, should resolve #33311
git-svn-id: trunk@38400 -
This commit is contained in:
parent
18d7b29b2f
commit
c6af4e42c0
@ -134,6 +134,7 @@ _haltproc:
|
||||
movq ___fpc_ret_rbp@GOTPCREL(%rip),%rcx
|
||||
movq (%rcx),%rbp
|
||||
movq ___fpc_ret@GOTPCREL(%rip),%rcx
|
||||
popq %rdx
|
||||
movq (%rcx),%rdx
|
||||
pushq %rdx
|
||||
ret
|
||||
|
@ -172,6 +172,7 @@ procedure _FPC_libc_start; assembler; nostackframe; public name '_start';
|
||||
procedure _FPC_libc_haltproc(e:longint); assembler; nostackframe; public name '_haltproc';
|
||||
asm
|
||||
movl %edi,%eax
|
||||
popq %rdx { keep stack aligned }
|
||||
movq fpc_ret(%rip),%rdx { return to libc }
|
||||
movq fpc_ret_rbp(%rip),%rbp
|
||||
pushq %rdx
|
||||
|
Loading…
Reference in New Issue
Block a user