mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-27 20:51:35 +01:00
701638138b
* math library is now automatically linked on non-x86 platforms when FPC_USE_LIBC is defined * generic C system function signature adaptions for 64 bit CPUs git-svn-id: trunk@1392 -
209 lines
4.6 KiB
PHP
209 lines
4.6 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by Jonas Maebe,
|
|
member of the Free Pascal development team.
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
|
|
{$packrecords C}
|
|
|
|
{********************
|
|
Signal
|
|
********************}
|
|
|
|
Const
|
|
{ For sending a signal }
|
|
{$ifdef SPARC}
|
|
SA_SIGINFO = $200;
|
|
SA_NOMASK = $20;
|
|
|
|
SIG_BLOCK = 1;
|
|
SIG_UNBLOCK = 2;
|
|
SIG_SETMASK = 4;
|
|
{$else SPARC}
|
|
SA_NOCLDSTOP = 1;
|
|
SA_NOCLDWAIT = 2;
|
|
SA_SIGINFO = 4;
|
|
SA_SHIRQ = $04000000;
|
|
SA_STACK = $08000000;
|
|
SA_RESTART = $10000000;
|
|
SA_INTERRUPT = $20000000;
|
|
SA_NOMASK = $40000000;
|
|
SA_ONESHOT = $80000000;
|
|
|
|
SIG_BLOCK = 0;
|
|
SIG_UNBLOCK = 1;
|
|
SIG_SETMASK = 2;
|
|
{$endif SPARC}
|
|
|
|
SIG_DFL = 0 ;
|
|
SIG_IGN = 1 ;
|
|
SIG_ERR = -1 ;
|
|
|
|
{$ifdef cpusparc}
|
|
SIGHUP = 1;
|
|
SIGINT = 2;
|
|
SIGQUIT = 3;
|
|
SIGILL = 4;
|
|
SIGTRAP = 5;
|
|
SIGABRT = 6;
|
|
SIGIOT = 6;
|
|
SIGEMT = 7;
|
|
SIGFPE = 8;
|
|
SIGKILL = 9;
|
|
SIGBUS = 10;
|
|
SIGSEGV = 11;
|
|
SIGSYS = 12;
|
|
SIGPIPE = 13;
|
|
SIGALRM = 14;
|
|
SIGTERM = 15;
|
|
SIGURG = 16;
|
|
SIGSTOP = 17;
|
|
SIGTSTP = 18;
|
|
SIGCONT = 19;
|
|
SIGCHLD = 20;
|
|
SIGTTIN = 21;
|
|
SIGTTOU = 22;
|
|
SIGIO = 23;
|
|
SIGPOLL = SIGIO;
|
|
SIGXCPU = 24;
|
|
SIGXFSZ = 25;
|
|
SIGVTALRM = 26;
|
|
SIGPROF = 27;
|
|
SIGWINCH = 28;
|
|
SIGLOST = 29;
|
|
SIGPWR = SIGLOST;
|
|
SIGUSR1 = 30;
|
|
SIGUSR2 = 31;
|
|
{$else cpusparc}
|
|
SIGHUP = 1;
|
|
SIGINT = 2;
|
|
SIGQUIT = 3;
|
|
SIGILL = 4;
|
|
SIGTRAP = 5;
|
|
SIGABRT = 6;
|
|
SIGIOT = 6;
|
|
SIGBUS = 7;
|
|
SIGFPE = 8;
|
|
SIGKILL = 9;
|
|
SIGUSR1 = 10;
|
|
SIGSEGV = 11;
|
|
SIGUSR2 = 12;
|
|
SIGPIPE = 13;
|
|
SIGALRM = 14;
|
|
SIGTerm = 15;
|
|
SIGSTKFLT = 16;
|
|
SIGCHLD = 17;
|
|
SIGCONT = 18;
|
|
SIGSTOP = 19;
|
|
SIGTSTP = 20;
|
|
SIGTTIN = 21;
|
|
SIGTTOU = 22;
|
|
SIGURG = 23;
|
|
SIGXCPU = 24;
|
|
SIGXFSZ = 25;
|
|
SIGVTALRM = 26;
|
|
SIGPROF = 27;
|
|
SIGWINCH = 28;
|
|
SIGIO = 29;
|
|
SIGPOLL = SIGIO;
|
|
SIGPWR = 30;
|
|
SIGUNUSED = 31;
|
|
{$endif cpusparc}
|
|
|
|
|
|
const
|
|
SI_PAD_SIZE = ((128 div sizeof(longint)) - 3);
|
|
|
|
|
|
type
|
|
SigSet = array[0..wordsinsigset-1] of cuLong;
|
|
sigset_t= SigSet;
|
|
PSigSet = ^SigSet;
|
|
psigset_t=psigset;
|
|
TSigSet = SigSet;
|
|
|
|
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;
|
|
|
|
{ CPU dependent TSigContext }
|
|
{$i sighndh.inc}
|
|
|
|
type
|
|
SignalHandler = Procedure(Sig : Longint);cdecl;
|
|
PSignalHandler = ^SignalHandler;
|
|
SignalRestorer = Procedure;cdecl;
|
|
PSignalRestorer = ^SignalRestorer;
|
|
SigActionHandler = procedure(sig : longint; SigInfo: PSigInfo; SigContext: PSigContext);cdecl;
|
|
|
|
{$ifdef CPUARM}
|
|
{$define NEWSIGNAL}
|
|
{$endif CPUARM}
|
|
|
|
{$ifdef CPUx86_64}
|
|
{$define NEWSIGNAL}
|
|
{$endif CPUx86_64}
|
|
|
|
{$ifdef CPUPOWERPC64}
|
|
{$define NEWSIGNAL}
|
|
{$endif CPUPOWERPC64}
|
|
|
|
SigActionRec = packed record // this is temporary for the migration
|
|
sa_handler : SigActionHandler;
|
|
{$ifdef NEWSIGNAL}
|
|
Sa_Flags : culong;
|
|
Sa_restorer : SignalRestorer; { Obsolete - Don't use }
|
|
Sa_Mask : SigSet;
|
|
{$else NEWSIGNAL}
|
|
Sa_Mask : SigSet;
|
|
Sa_Flags : cuLong;
|
|
Sa_restorer : SignalRestorer; { Obsolete - Don't use }
|
|
{$endif NEWSIGNAL}
|
|
end;
|
|
TSigActionRec = SigActionRec;
|
|
PSigActionRec = ^SigActionRec;
|
|
|
|
|