freepascal.compiler/rtl/freebsd/ucontexth.inc

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}

{$ifdef CPUPOWERPC64}
  mcontext_t = record
    { version & flags }
    mc_vers    : cint;
    mc_flags   : cint;
    { saved sigstack flag and total size of this structure }
    mc_onstack : cint;
    mc_len     : cint;

    { general-purpose CPU state (matches trapframe layout) }
    mc_gpr     : array[0..31] of cuint64;  { r0..r31 }
    mc_lr      : cuint64;                  { link register }
    mc_cr      : cuint64;                  { condition register }
    mc_xer     : cuint64;                  { fixed-point exception }
    mc_ctr     : cuint64;                  { count register }
    mc_srr0    : cuint64;                  { PC at signal (NIP) }
    mc_srr1    : cuint64;                  { MSR }

    { floating-point state }
    mc_fpscr   : cdouble;                     { saved FPSCR as double }
    mc_fpreg   : array[0..31] of cdouble;     { FPR0..FPR31 }

    { Altivec / VSX state }
    { 32 vector registers, stored as 2x64-bit words each }
    mc_avec    : array[0..(32*2)-1] of cuint64;
    { misc Altivec control: VSCR / VRSAVE (32-bit) }
    mc_av      : array[0..1] of cuint32;
  end;
{$endif}

  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;