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

* use trampoline on x86-64/linux to convert signals properly in exceptions for psabieh

Browse Source 
git-svn-id: branches/debug_eh@41566 -
This commit is contained in:
florian 2019-03-02 23:05:26 +00:00
parent b8b3a5b523
commit 21860480ad
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/linux/x86_64/sighnd.inc
View File

@ -16,6 +16,13 @@
**********************************************************************}
{ use a trampoline which pushes the return address for proper unwinding }
Procedure SignalToHandleErrorAddrFrame (Errno : longint;addr : CodePointer; frame : Pointer); nostackframe; assembler;
asm
pushq addr
jmp HandleErrorAddrFrame
end;
const
FPU_All = $7f;
@ -106,7 +113,12 @@ procedure SignalToRunerror(sig : longint; SigInfo: PSigInfo; SigContext: PSigCon
end;
reenable_signal(sig);
if res<>0 then
HandleErrorAddrFrame(res,pointer(SigContext^.rip),pointer(SigContext^.rbp));
begin
SigContext^.rdi := res;
SigContext^.rsi := SigContext^.rip;
SigContext^.rdx := SigContext^.rbp;
SigContext^.rip := ptruint(@SignalToHandleErrorAddrFrame);
end;
end;