mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 18:43:42 +02:00
97 lines
2.2 KiB
PHP
97 lines
2.2 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.
|
|
|
|
TSigContext
|
|
|
|
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}
|
|
|
|
const
|
|
__SUNOS_MAXWIN = 31;
|
|
|
|
type
|
|
twbuf = record
|
|
locals : array[0..7] of longint;
|
|
ins : array[0..7] of longint;
|
|
end;
|
|
|
|
(* MIPS OABI32 structure
|
|
struct sigcontext {
|
|
unsigned int sc_regmask;
|
|
unsigned int sc_status;
|
|
unsigned long long sc_pc;
|
|
unsigned long long sc_regs[32];
|
|
unsigned long long sc_fpregs[32];
|
|
unsigned int sc_ownedfp;
|
|
unsigned int sc_fpc_csr;
|
|
unsigned int sc_fpc_eir;
|
|
unsigned int sc_used_math;
|
|
unsigned int sc_dsp;
|
|
unsigned long long sc_mdhi;
|
|
unsigned long long sc_mdlo;
|
|
unsigned long sc_hi1;
|
|
unsigned long sc_lo1;
|
|
unsigned long sc_hi2;
|
|
unsigned long sc_lo2;
|
|
unsigned long sc_hi3;
|
|
unsigned long sc_lo3;
|
|
};
|
|
typedef struct ucontext
|
|
{
|
|
unsigned long int uc_flags;
|
|
struct ucontext *uc_link;
|
|
stack_t uc_stack;
|
|
mcontext_t uc_mcontext;
|
|
__sigset_t uc_sigmask;
|
|
} ucontext_t;
|
|
|
|
*)
|
|
FPReg = record
|
|
case byte of
|
|
0 : (fp_dreg : double;);
|
|
1 : (fp_reg : single;
|
|
fp_pad : cint; );
|
|
end;
|
|
|
|
PSigContext = ^TSigContext;
|
|
TSigContext = record
|
|
sigc_regmask,
|
|
sigc_status: cuint;
|
|
sigc_pc : culonglong;
|
|
sigc_regs : array[0..31] of culonglong;
|
|
sigc_fpregs : array[0..31] of fpreg;
|
|
sigc_fpc_csr, sigc_fpc_eir : cuint;
|
|
sigc_used_math : cuint;
|
|
sigc_dsp : cuint;
|
|
sigc_mdhi, sigc_mdlo : culonglong;
|
|
sigc_hi1,sigc_lo1,
|
|
sigc_hi2,sigc_lo2,
|
|
sigc_hi3,sigc_lo3 : culong;
|
|
end;
|
|
|
|
TStack = record
|
|
ss_sp : pointer;
|
|
ss_size : size_t;
|
|
ss_flags : cint;
|
|
end;
|
|
|
|
PUContext = ^TUContext;
|
|
TUContext = record
|
|
uc_flags : culong;
|
|
uc_link : PUContext;
|
|
uc_stack : TStack;
|
|
uc_mcontext : TSigContext;
|
|
uc_sigmask : TSigSet;
|
|
end;
|
|
|