mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 20:08:52 +02:00
103 lines
2.6 KiB
PHP
103 lines
2.6 KiB
PHP
const
|
|
{* Used by swapcontext(3). *}
|
|
UCF_SWAPPED = $00000001;
|
|
_MC_FPFMT_NODEV = $10000; {* device not present or configured *}
|
|
_MC_FPFMT_387 = $10001;
|
|
_MC_FPFMT_XMM = $10002;
|
|
_MC_FPOWNED_NONE = $20000; {* FP state not used *}
|
|
_MC_FPOWNED_FPU = $20001; {* FP state came from FPU *}
|
|
_MC_FPOWNED_PCB = $20002; {* FP state came from PCB *}
|
|
|
|
type
|
|
plwpid_t = ^lwpid_t;
|
|
lwpid_t = cint32;
|
|
TLwPid = lwpid_t;
|
|
PLwPid = ^lwpid_t;
|
|
|
|
{$packrecords 16}
|
|
TMCFPStateArray = record
|
|
items: array[0..127] of cInt;
|
|
end;
|
|
{$packrecords C}
|
|
|
|
{$if (defined(CPUi386) or defined(CPUX86_64))}
|
|
mcontext_t = record
|
|
{*
|
|
* The first 20 fields must match the definition of
|
|
* sigcontext. So that we can support sigcontext
|
|
* and ucontext_t at the same time.
|
|
*}
|
|
mc_onstack: cInt; {* XXX - sigcontext compat. *}
|
|
mc_gs: cInt; {* machine state (struct trapframe) *}
|
|
mc_fs: cInt;
|
|
mc_es: cInt;
|
|
mc_ds: cInt;
|
|
mc_edi: cInt;
|
|
mc_esi: cInt;
|
|
mc_ebp: cInt;
|
|
mc_isp: cInt;
|
|
mc_ebx: cInt;
|
|
mc_edx: cInt;
|
|
mc_ecx: cInt;
|
|
mc_eax: cInt;
|
|
mc_trapno: cInt;
|
|
mc_err: cInt;
|
|
mc_eip: cInt;
|
|
mc_cs: cInt;
|
|
mc_eflags: cInt;
|
|
mc_esp: cInt;
|
|
mc_ss: cInt;
|
|
mc_len: cInt; {* sizeof(mcontext_t) *}
|
|
mc_fpformat: cInt;
|
|
mc_ownedfp: cInt;
|
|
mc_spare1: array[0..0] of cInt; {* align next field to 16 bytes *}
|
|
mc_fpstate: TMCFPStateArray;
|
|
mc_spare2: array[0..7] of cInt;
|
|
end;
|
|
{$endif def x86}
|
|
|
|
{$ifdef CPUAARCH64}
|
|
gpregs = record
|
|
gp_x: array[0..30] of cInt; { __register_t gp_x[30]; }
|
|
gp_lr: cInt;
|
|
gp_sp: cInt;
|
|
gp_elr: cInt;
|
|
gp_spsr: cuint32;
|
|
gp_pad: cInt;
|
|
end;
|
|
|
|
fpregs = record
|
|
fp_q: array[0..64] of cInt; { __uint128_t fp_q[32] }
|
|
fp_sr: cuint32;
|
|
fp_cr: cuint32;
|
|
fp_flags: cInt;
|
|
fp_pad: cInt;
|
|
end;
|
|
|
|
mcontext_t = record
|
|
mc_gpregs: gpregs;
|
|
mc_fpregs: fpregs;
|
|
mc_flags: cint32;
|
|
mc_pad: cint32;
|
|
mc_spare: array[0..8] of cInt;
|
|
end;
|
|
{$endif cpuaarch64}
|
|
|
|
pucontext_t = ^ucontext_t;
|
|
ucontext_t = record // required for kse threads
|
|
{*
|
|
* Keep the order of the first two fields. Also,
|
|
* keep them the first two fields in the structure.
|
|
* This way we can have a union with struct
|
|
* sigcontext and ucontext_t. This allows us to
|
|
* support them both at the same time.
|
|
* note: the union is not defined, though.
|
|
*}
|
|
uc_sigmask: sigset_t;
|
|
uc_mcontext: mcontext_t;
|
|
uc_link: pucontext_t;
|
|
uc_stack: stack_t;
|
|
uc_flags: cInt;
|
|
__spare__: array[0..3] of cInt;
|
|
end;
|