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

* set TOC pointer when returning to HandleErrorAddrFrame from signal handler

Browse Source 
git-svn-id: trunk@20826 -
This commit is contained in:
Jonas Maebe 2012-04-11 18:05:20 +00:00
parent 1f9d8420b6
commit 60869a0da0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/aix/sighnd.inc
View File

@ -63,6 +63,8 @@ begin
{ the address of a function is a descriptor, and we need the actual
address here -> dereference }
pointer(SigContext^.uc_mcontext.iar) := ppointer(@HandleErrorAddrFrame)^;
{ set corresponding TOC for the routine we are returning to }
pointer(SigContext^.uc_mcontext.gpr[2]) := (ppointer(@HandleErrorAddrFrame)+1)^;
end;
end;