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

* structs for arm adapted

Browse Source
This commit is contained in:
florian 2004-03-27 14:35:13 +00:00
parent 4fdc20f014
commit 7298501722
1 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/linux/signal.inc
View File

@ -273,8 +273,25 @@ type
arm_cpsr : dword; arm_cpsr : dword;
fault_address : dword; fault_address : dword;
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-arm/ucontext.h }
pucontext = ^tucontext;
tucontext = record
uc_flags : dword;
uc_link : pucontext;
uc_stack : stack_t;
uc_mcontext : SigContextRec;
uc_sigmask : sigset_t;
end;
{$endif cpuarm} {$endif cpuarm}
(*
PSigInfoRec = ^SigInfoRec; PSigInfoRec = ^SigInfoRec;
SigInfoRec = record SigInfoRec = record
si_signo: longint; si_signo: longint;
@ -283,7 +300,7 @@ type
case longint of case longint of
0: 0:
(pad: array[SI_PAD_SIZE] of longint); (pad: array[0..SI_PAD_SIZE-1] of longint);
1: { kill } 1: { kill }
( kill: record ( kill: record
pid: longint; { sender's pid } pid: longint; { sender's pid }
@ -318,7 +335,6 @@ type
fd : longint; fd : longint;
end ); end );
end; end;
*)
SignalHandler = Procedure(Sig : Longint);cdecl; SignalHandler = Procedure(Sig : Longint);cdecl;
PSignalHandler = ^SignalHandler; PSignalHandler = ^SignalHandler;
@ -338,16 +354,25 @@ type
1: (Sa: TSigAction); 1: (Sa: TSigAction);
end; end;
{$endif} {$endif}
{$ifdef CPUARM}
Sa_Flags : Longint;
Sa_restorer : SignalRestorer; { Obsolete - Don't use }
Sa_Mask : SigSet;
{$else CPUARM}
Sa_Mask : SigSet; Sa_Mask : SigSet;
Sa_Flags : Longint; Sa_Flags : Longint;
Sa_restorer : SignalRestorer; { Obsolete - Don't use } Sa_restorer : SignalRestorer; { Obsolete - Don't use }
{$endif CPUARM}
end; end;
TSigActionRec = SigActionRec; TSigActionRec = SigActionRec;
PSigActionRec = ^SigActionRec; PSigActionRec = ^SigActionRec;
{ {
$Log$ $Log$
Revision 1.16 2004-02-05 01:16:12 florian Revision 1.17 2004-03-27 14:35:13 florian
* structs for arm adapted
Revision 1.16 2004/02/05 01:16:12 florian
+ completed x86-64/linux system unit + completed x86-64/linux system unit
Revision 1.15 2004/01/01 16:28:16 jonas Revision 1.15 2004/01/01 16:28:16 jonas