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

+ Use SigContext sigc_sp and sigc_pc fields for HandleErrorAdrFrame parameters

Browse Source 
git-svn-id: trunk@21703 -
This commit is contained in:
pierre 2012-06-25 12:02:02 +00:00
parent 0cf5b9abdb
commit 150578f2c0
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/linux/mips/sighnd.inc
View File

@ -19,6 +19,7 @@ procedure SignalToRunerror(sig : longint; SigInfo: PSigInfo; SigContext: PSigCon
var
res : word;
addr : pointer;
frame : pointer;
begin
res:=0;
addr:=nil;
@ -57,5 +58,21 @@ begin
reenable_signal(sig);
{ give runtime error at the position where the signal was raised }
if res<>0 then
HandleErrorAddrFrame(res,addr,nil);
begin
{$ifdef FPC_FRAMETYPE_RECORD}
if assigned(SigContext) then
begin
frame:=pointer(SigContext^.sigc_sp); { stack pointer }
addr:=pointer(SigContext^.sigc_pc); { program counter }
end
else
begin
frame:=nil;
addr:=nil;
end;
{$else not FPC_FRAMETYPE_RECORD}
frame:=nil;
{$endif FPC_FRAMETYPE_RECORD}
HandleErrorAddrFrame(res,addr,frame);
end;
end;