/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-â
âvi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8                                :viâ
ââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââ¡
â Copyright 2021 Justine Alexandra Roberts Tunney                              â
â                                                                              â
â Permission to use, copy, modify, and/or distribute this software for         â
â any purpose with or without fee is hereby granted, provided that the         â
â above copyright notice and this permission notice appear in all copies.      â
â                                                                              â
â THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                â
â WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                â
â WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             â
â AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         â
â DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        â
â PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               â
â TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             â
â PERFORMANCE OF THIS SOFTWARE.                                                â
ââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââââ*/
#include "ape/sections.internal.h"
#include "libc/calls/calls.h"
#include "libc/calls/internal.h"
#include "libc/calls/state.internal.h"
#include "libc/calls/struct/sigaction.h"
#include "libc/calls/struct/siginfo-meta.internal.h"
#include "libc/calls/struct/siginfo-openbsd.internal.h"
#include "libc/calls/struct/siginfo.h"
#include "libc/calls/struct/ucontext-openbsd.internal.h"
#include "libc/calls/ucontext.h"
#include "libc/log/libfatal.internal.h"
#include "libc/macros.internal.h"
#include "libc/runtime/runtime.h"
#include "libc/str/str.h"
#include "libc/sysv/consts/sa.h"

#ifdef __x86_64__

privileged void __sigenter_openbsd(int sig, struct siginfo_openbsd *openbsdinfo,
                                   struct ucontext_openbsd *ctx) {
  int rva, flags;
  struct Goodies {
    ucontext_t uc;
    struct siginfo si;
  } g;
  rva = __sighandrvas[sig & (NSIG - 1)];
  if (rva >= kSigactionMinRva) {
    flags = __sighandflags[sig & (NSIG - 1)];
    if (~flags & SA_SIGINFO) {
      ((sigaction_f)(__executable_start + rva))(sig, 0, 0);
    } else {
      __repstosb(&g.uc, 0, sizeof(g.uc));
      __siginfo2cosmo(&g.si, (void *)openbsdinfo);
      g.uc.uc_mcontext.fpregs = &g.uc.__fpustate;
      g.uc.uc_sigmask.__bits[0] = ctx->sc_mask;
      g.uc.uc_sigmask.__bits[1] = 0;
      g.uc.uc_mcontext.rdi = ctx->sc_rdi;
      g.uc.uc_mcontext.rsi = ctx->sc_rsi;
      g.uc.uc_mcontext.rdx = ctx->sc_rdx;
      g.uc.uc_mcontext.rcx = ctx->sc_rcx;
      g.uc.uc_mcontext.r8 = ctx->sc_r8;
      g.uc.uc_mcontext.r9 = ctx->sc_r9;
      g.uc.uc_mcontext.rax = ctx->sc_rax;
      g.uc.uc_mcontext.rbx = ctx->sc_rbx;
      g.uc.uc_mcontext.rbp = ctx->sc_rbp;
      g.uc.uc_mcontext.r10 = ctx->sc_r10;
      g.uc.uc_mcontext.r11 = ctx->sc_r11;
      g.uc.uc_mcontext.r12 = ctx->sc_r12;
      g.uc.uc_mcontext.r13 = ctx->sc_r13;
      g.uc.uc_mcontext.r14 = ctx->sc_r14;
      g.uc.uc_mcontext.r15 = ctx->sc_r15;
      g.uc.uc_mcontext.trapno = ctx->sc_trapno;
      g.uc.uc_mcontext.fs = ctx->sc_fs;
      g.uc.uc_mcontext.gs = ctx->sc_gs;
      g.uc.uc_mcontext.err = ctx->sc_err;
      g.uc.uc_mcontext.rip = ctx->sc_rip;
      g.uc.uc_mcontext.rsp = ctx->sc_rsp;
      if (ctx->sc_fpstate) {
        *g.uc.uc_mcontext.fpregs = *ctx->sc_fpstate;
      }
      ((sigaction_f)(__executable_start + rva))(sig, &g.si, &g.uc);
      ctx->sc_mask = g.uc.uc_sigmask.__bits[0];
      ctx->sc_rdi = g.uc.uc_mcontext.rdi;
      ctx->sc_rsi = g.uc.uc_mcontext.rsi;
      ctx->sc_rdx = g.uc.uc_mcontext.rdx;
      ctx->sc_rcx = g.uc.uc_mcontext.rcx;
      ctx->sc_r8 = g.uc.uc_mcontext.r8;
      ctx->sc_r9 = g.uc.uc_mcontext.r9;
      ctx->sc_rax = g.uc.uc_mcontext.rax;
      ctx->sc_rbx = g.uc.uc_mcontext.rbx;
      ctx->sc_rbp = g.uc.uc_mcontext.rbp;
      ctx->sc_r10 = g.uc.uc_mcontext.r10;
      ctx->sc_r11 = g.uc.uc_mcontext.r11;
      ctx->sc_r12 = g.uc.uc_mcontext.r12;
      ctx->sc_r13 = g.uc.uc_mcontext.r13;
      ctx->sc_r14 = g.uc.uc_mcontext.r14;
      ctx->sc_r15 = g.uc.uc_mcontext.r15;
      ctx->sc_trapno = g.uc.uc_mcontext.trapno;
      ctx->sc_fs = g.uc.uc_mcontext.fs;
      ctx->sc_gs = g.uc.uc_mcontext.gs;
      ctx->sc_err = g.uc.uc_mcontext.err;
      ctx->sc_rip = g.uc.uc_mcontext.rip;
      ctx->sc_rsp = g.uc.uc_mcontext.rsp;
      if (ctx->sc_fpstate) {
        *ctx->sc_fpstate = *g.uc.uc_mcontext.fpregs;
      }
    }
  }
  /*
   * When the OpenBSD kernel invokes this signal handler it pushes a
   * trampoline on the stack which does two things: 1) it calls this
   * function, and 2) calls sys_sigreturn() once this returns.
   */
}

#endif /* __x86_64__ */
