mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 15:29:13 +02:00
+ sighand and associated record definitions for ppc. Untested.
This commit is contained in:
Jonas Maebe
parent
a9d9a15e20
commit
26daf920f2
55
rtl/linux/powerpc/sighnd.inc
Normal file
55
rtl/linux/powerpc/sighnd.inc
Normal file
@ -0,0 +1,55 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by Michael Van Canneyt,
|
||||
member of the Free Pascal development team.
|
||||
|
||||
Signal handler is arch dependant due to processor to language
|
||||
exception conversion.
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
|
||||
procedure SignalToRunerror(Sig: longint; SigContext: SigContextRec); cdecl;
|
||||
|
||||
var
|
||||
res,fpustate : word;
|
||||
begin
|
||||
res:=0;
|
||||
case sig of
|
||||
SIGFPE :
|
||||
begin
|
||||
{ don't know how to find the different causes, maybe via xer? }
|
||||
res := 207;
|
||||
end;
|
||||
SIGILL,
|
||||
SIGBUS,
|
||||
SIGSEGV :
|
||||
res:=216;
|
||||
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]));
|
||||
end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2003-11-02 14:53:06 jonas
|
||||
+ sighand and associated record definitions for ppc. Untested.
|
||||
|
||||
Revision 1.2 2003/11/01 01:58:11 marco
|
||||
* more small fixes.
|
||||
|
||||
Revision 1.1 2003/11/01 01:27:20 marco
|
||||
* initial version from 1.0.x branch
|
||||
|
||||
|
||||
}
|
||||
|
||||
@ -90,6 +90,13 @@ type
|
||||
status: cardinal;
|
||||
end;
|
||||
|
||||
SigSet = array[0..wordsinsigset-1] of Longint;
|
||||
sigset_t= SigSet;
|
||||
PSigSet = ^SigSet;
|
||||
psigset_t=psigset;
|
||||
TSigSet = SigSet;
|
||||
|
||||
|
||||
{$ifdef cpui386}
|
||||
PSigContextRec = ^SigContextRec;
|
||||
SigContextRec = record
|
||||
@ -128,10 +135,105 @@ type
|
||||
|
||||
|
||||
{$ifdef cpupowerpc}
|
||||
PSigContextRec = ^SigContextRec;
|
||||
SigContextRec = record
|
||||
{ dummy for now PM }
|
||||
|
||||
{ from include/ppc/ptrace.h }
|
||||
pptregs = ^tptregs;
|
||||
tptregs = record
|
||||
gpr: array[0..31] of cardinal;
|
||||
nip: cardinal;
|
||||
msr: cardinal;
|
||||
orig_gpr3: cardinal; { Used for restarting system calls }
|
||||
ctr: cardinal;
|
||||
link: cardinal;
|
||||
xer: cardinal;
|
||||
ccr: cardinal;
|
||||
mq: cardinal; { 601 only (not used at present) }
|
||||
{ Used on APUS to hold IPL value. }
|
||||
trap: cardinal; { Reason for being here }
|
||||
dar: cardinal; { Fault registers }
|
||||
dsisr: cardinal;
|
||||
result: cardinal; { Result of a system call }
|
||||
end;
|
||||
|
||||
{ from include/asm/ppc/siginfo.h }
|
||||
psiginfo = ^tsiginfo;
|
||||
tsiginfo = record
|
||||
si_signo : longint;
|
||||
si_errno : longint;
|
||||
si_code : longint;
|
||||
_sifields : record
|
||||
case longint of
|
||||
0 : ( _pad : array[0..(SI_PAD_SIZE)-1] of longint );
|
||||
1 : ( _kill : record
|
||||
_pid : pid_t;
|
||||
_uid : uid_t;
|
||||
end );
|
||||
2 : ( _timer : record
|
||||
_timer1 : dword;
|
||||
_timer2 : dword;
|
||||
end );
|
||||
3 : ( _rt : record
|
||||
_pid : pid_t;
|
||||
_uid : uid_t;
|
||||
_sigval : pointer;
|
||||
end );
|
||||
4 : ( _sigchld : record
|
||||
_pid : pid_t;
|
||||
_uid : uid_t;
|
||||
_status : longint;
|
||||
_utime : clock_t;
|
||||
_stime : clock_t;
|
||||
end );
|
||||
5 : ( _sigfault : record
|
||||
_addr : pointer;
|
||||
end );
|
||||
6 : ( _sigpoll : record
|
||||
_band : longint;
|
||||
_fd : longint;
|
||||
end );
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{ from include/asm-ppc/signal.h }
|
||||
stack_t = record
|
||||
ss_sp: pointer;
|
||||
ss_flags: longint;
|
||||
ss_size: size_t;
|
||||
end;
|
||||
|
||||
{ from include/asm-ppc/sigcontext.h }
|
||||
tsigcontext_struct = record
|
||||
_unused: array[0..3] of dword;
|
||||
signal: longint;
|
||||
handler: dword;
|
||||
oldmask: dword;
|
||||
pt_regs: pptregs;
|
||||
end;
|
||||
|
||||
{ from include/asm-ppc/ucontext.h }
|
||||
pucontext = ^tucontext;
|
||||
tucontext = record
|
||||
uc_flags : dword;
|
||||
uc_link : pucontext;
|
||||
uc_stack : stack_t;
|
||||
uc_mcontext : tsigcontext_struct;
|
||||
uc_sigmask : sigset_t;
|
||||
end;
|
||||
|
||||
|
||||
{ from arch/ppc/kernel/signal.c, the type of the actual parameter passed }
|
||||
{ to the sigaction handler }
|
||||
t_rt_sigframe = record
|
||||
_unused: array[0..1] of cardinal;
|
||||
pinfo: psiginfo;
|
||||
puc: pointer;
|
||||
siginfo: tsiginfo;
|
||||
uc: tucontext;
|
||||
end;
|
||||
|
||||
PSigContextRec = ^SigContextRec;
|
||||
SigContextRec = t_rt_sigframe;
|
||||
{$endif cpupowerpc}
|
||||
|
||||
|
||||
@ -203,13 +305,6 @@ type
|
||||
|
||||
|
||||
|
||||
SigSet = array[0..wordsinsigset-1] of Longint;
|
||||
sigset_t= SigSet;
|
||||
PSigSet = ^SigSet;
|
||||
psigset_t=psigset;
|
||||
TSigSet = SigSet;
|
||||
|
||||
|
||||
SigActionRec = packed record // this is temporary for the migration
|
||||
{$ifdef posixworkaround}
|
||||
sa_handler : signalhandler;
|
||||
@ -229,7 +324,10 @@ type
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.12 2003-09-14 20:15:01 marco
|
||||
Revision 1.13 2003-11-02 14:53:06 jonas
|
||||
+ sighand and associated record definitions for ppc. Untested.
|
||||
|
||||
Revision 1.12 2003/09/14 20:15:01 marco
|
||||
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
|
||||
|
||||
Revision 1.11 2003/09/03 14:09:37 florian
|
||||
@ -259,3 +357,4 @@ type
|
||||
* several fixes to MT
|
||||
|
||||
}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user