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

* fixed signal handling

Browse Source
This commit is contained in:
Jonas Maebe 2004-01-01 16:28:16 +00:00
parent 19c44b76f2
commit 0ab36d6e91
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,7 @@
**********************************************************************}
procedure SignalToRunerror(Sig: longint; SigContext: SigContextRec); cdecl;
procedure SignalToRunerror(Sig: longint; SigContext: PSigContextRec); cdecl;
var
res,fpustate : word;
@ -36,12 +36,15 @@ begin
end;
{ give runtime error at the position where the signal was raised }
if res<>0 then
HandleErrorAddrFrame(res,pointer(SigContext.uc.uc_mcontext.pt_regs^.nip),pointer(SigContext.uc.uc_mcontext.pt_regs^.gpr[1]));
HandleErrorAddrFrame(res,pointer(SigContext^.pt_regs^.nip),pointer(SigContext^.pt_regs^.gpr[1]));
end;
{
$Log$
Revision 1.2 2003-11-21 00:40:06 florian
Revision 1.3 2004-01-01 16:28:16 jonas
* fixed signal handling
Revision 1.2 2003/11/21 00:40:06 florian
* some arm issues fixed
Revision 1.1 2003/11/02 14:53:06 jonas

7
rtl/linux/signal.inc
View File

@ -231,7 +231,7 @@ type
end;
PSigContextRec = ^SigContextRec;
SigContextRec = t_rt_sigframe;
SigContextRec = tsigcontext_struct;
{$endif cpupowerpc}
@ -342,7 +342,10 @@ type
{
$Log$
Revision 1.14 2003-11-21 00:40:06 florian
Revision 1.15 2004-01-01 16:28:16 jonas
* fixed signal handling
Revision 1.14 2003/11/21 00:40:06 florian
* some arm issues fixed
Revision 1.13 2003/11/02 14:53:06 jonas