paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 12:39:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* signal handling fixed

Browse Source
This commit is contained in:
florian 2004-03-27 19:20:11 +00:00
parent 2e300fb66c
commit 73412562b7
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/arm/sighnd.inc
View File

@ -17,7 +17,7 @@
**********************************************************************} **********************************************************************}
procedure SignalToRunerror(Sig: longint; SigContext: SigContextRec); cdecl; procedure SignalToRunerror(Sig: longint; _a2,_a3,_a4 : dword; SigContext: PSigInfoRec; uContext : PuContext); cdecl;
var var
res,fpustate : word; res,fpustate : word;
@ -36,12 +36,15 @@ begin
end; end;
{ give runtime error at the position where the signal was raised } { give runtime error at the position where the signal was raised }
if res<>0 then if res<>0 then
HandleErrorAddrFrame(res,pointer(SigContext.arm_ip),pointer(SigContext.arm_fp)); HandleErrorAddrFrame(res,pointer(uContext^.uc_mcontext.arm_ip),pointer(uContext^.uc_mcontext.arm_fp));
end; end;
{ {
$Log$ $Log$
Revision 1.1 2003-11-21 00:40:06 florian Revision 1.2 2004-03-27 19:20:11 florian
* signal handling fixed
Revision 1.1 2003/11/21 00:40:06 florian
* some arm issues fixed * some arm issues fixed
} }