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

* only adjust the stack pointer of the signal context if it's aligned (it

Browse Source 
may still be unaligned in case the signal got raised in a leaf function)

git-svn-id: trunk@40771 -
This commit is contained in:
Jonas Maebe 2019-01-05 16:26:26 +00:00
parent e3126bdf3d
commit f20e7bc193
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/darwin/x86/x86hnd.inc
View File

@ -80,9 +80,11 @@ begin
sigcontext^.uc_mcontext^.ts.rdi:=res; sigcontext^.uc_mcontext^.ts.rdi:=res;
sigcontext^.uc_mcontext^.ts.rsi:=sigcontext^.uc_mcontext^.ts.rip; sigcontext^.uc_mcontext^.ts.rsi:=sigcontext^.uc_mcontext^.ts.rip;
sigcontext^.uc_mcontext^.ts.rdx:=sigcontext^.uc_mcontext^.ts.rbp; sigcontext^.uc_mcontext^.ts.rdx:=sigcontext^.uc_mcontext^.ts.rbp;
{ the ABI expects the stack pointer to be 4 bytes off alignment } { the ABI expects the stack pointer to be 8 bytes off alignment
{ due to the return address which has been pushed } due to the return address which has been pushed -- but take into account
dec(sigcontext^.uc_mcontext^.ts.rsp,sizeof(pointer)); that rsp may already unaligned in case of a leaf routine }
if (sigcontext^.uc_mcontext^.ts.rsp and 15)=0 then
dec(sigcontext^.uc_mcontext^.ts.rsp,sizeof(pointer));
{ return to run time error handler } { return to run time error handler }
sigcontext^.uc_mcontext^.ts.rip:=ptruint(@HandleErrorAddrFrame); sigcontext^.uc_mcontext^.ts.rip:=ptruint(@HandleErrorAddrFrame);
{$else cpu64} {$else cpu64}
@ -90,9 +92,11 @@ begin
sigcontext^.uc_mcontext^.ts.eax:=res; sigcontext^.uc_mcontext^.ts.eax:=res;
sigcontext^.uc_mcontext^.ts.edx:=sigcontext^.uc_mcontext^.ts.eip; sigcontext^.uc_mcontext^.ts.edx:=sigcontext^.uc_mcontext^.ts.eip;
sigcontext^.uc_mcontext^.ts.ecx:=sigcontext^.uc_mcontext^.ts.ebp; sigcontext^.uc_mcontext^.ts.ecx:=sigcontext^.uc_mcontext^.ts.ebp;
{ the ABI expects the stack pointer to be 8 bytes off alignment } { the ABI expects the stack pointer to be 4 bytes off alignment }
{ due to the return address which has been pushed } { due to the return address which has been pushed -- but take into account
dec(sigcontext^.uc_mcontext^.ts.esp,sizeof(pointer)); that esp may already unaligned in case of a leaf routine }
if (sigcontext^.uc_mcontext^.ts.rsp and 15)=0 then
dec(sigcontext^.uc_mcontext^.ts.esp,sizeof(pointer));
{ return to run time error handler } { return to run time error handler }
sigcontext^.uc_mcontext^.ts.eip:=ptruint(@HandleErrorAddrFrame); sigcontext^.uc_mcontext^.ts.eip:=ptruint(@HandleErrorAddrFrame);
{$endif cpu64} {$endif cpu64}