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

* added sigaction record from signal.inc

Browse Source
This commit is contained in:
peter 2000-05-17 17:11:44 +00:00
parent d8925d6fcd
commit a98554df02
1 changed files with 57 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
rtl/linux/linux.pp
View File

@ -169,22 +169,70 @@ Type
SignalRestorer = Procedure;cdecl; SignalRestorer = Procedure;cdecl;
PSignalRestorer = ^SignalRestorer; PSignalRestorer = ^SignalRestorer;
{$ifdef BSD} {$ifdef BSD}
SigSet = Array[0..31] of byte; SigSet = Array[0..31] of byte;
{$else} {$else}
SigSet = Longint; SigSet = Longint;
{$endif} {$endif}
PSigSet = ^SigSet; PSigSet = ^SigSet;
tfpreg = record
significand: array[0..3] of word;
exponent: word;
end;
pfpstate = ^tfpstate;
tfpstate = record
cw, sw, tag, ipoff, cssel, dataoff, datasel: cardinal;
st: array[0..7] of tfpreg;
status: cardinal;
end;
{$ifdef i386}
PSigContextRec = ^SigContextRec;
SigContextRec = record
gs, __gsh: word;
fs, __fsh: word;
es, __esh: word;
ds, __dsh: word;
edi: cardinal;
esi: cardinal;
ebp: cardinal;
esp: cardinal;
ebx: cardinal;
edx: cardinal;
ecx: cardinal;
eax: cardinal;
trapno: cardinal;
err: cardinal;
eip: cardinal;
cs, __csh: word;
eflags: cardinal;
esp_at_signal: cardinal;
ss, __ssh: word;
fpstate: pfpstate;
oldmask: cardinal;
cr2: cardinal;
end;
TSigContextRec = SigContextRec;
{$endif}
TSigAction = procedure(Sig: Longint; SigContext: SigContextRec);cdecl;
PSigActionRec = ^SigActionRec;
SigActionRec = packed record SigActionRec = packed record
Sa_Handler : SignalHandler; Handler : record
case byte of
0: (Sh: SignalHandler);
1: (Sa: TSigAction);
end;
Sa_Mask : SigSet; Sa_Mask : SigSet;
Sa_Flags : Longint; Sa_Flags : Longint;
{$ifndef BSD} {$ifndef BSD}
Sa_restorer : SignalRestorer; { Obsolete - Don't use } Sa_restorer : SignalRestorer; { Obsolete - Don't use }
{$endif} {$endif}
end; end;
PSigActionRec = ^SigActionRec; TSigActionRec = SigActionRec;
{******************** {********************
@ -2881,7 +2929,10 @@ End.
{ {
$Log$ $Log$
Revision 1.68 2000-04-16 16:09:32 marco Revision 1.69 2000-05-17 17:11:44 peter
* added sigaction record from signal.inc
Revision 1.68 2000/04/16 16:09:32 marco
* Some small mistakes when merging BSD and Linux version fixed * Some small mistakes when merging BSD and Linux version fixed
Revision 1.67 2000/04/14 16:07:06 marco Revision 1.67 2000/04/14 16:07:06 marco