paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 11:49:14 +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;
PSignalRestorer = ^SignalRestorer;
{$ifdef BSD}
{$ifdef BSD}
SigSet = Array[0..31] of byte;
{$else}
{$else}
SigSet = Longint;
{$endif}
{$endif}
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
Sa_Handler : SignalHandler;
Handler : record
case byte of
0: (Sh: SignalHandler);
1: (Sa: TSigAction);
end;
Sa_Mask : SigSet;
Sa_Flags : Longint;
{$ifndef BSD}
Sa_restorer : SignalRestorer; { Obsolete - Don't use }
{$endif}
end;
PSigActionRec = ^SigActionRec;
TSigActionRec = SigActionRec;
{********************
@ -2881,7 +2929,10 @@ End.
{
$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
Revision 1.67 2000/04/14 16:07:06 marco