// File: /workspace/github_c_makefile_star2_O2/RodionGork[P]tinyscheme/scheme.c
// Function: Error_1
static pointer _Error_1(scheme * sc, const char *s, pointer a) {
  const char *str = s;
#if USE_ERROR_HOOK
  pointer x;
  pointer hdl = sc->ERROR_HOOK;
#endif

#if SHOW_ERROR_LINE
  char sbuf[AUXBUFF_SIZE];

  /* make sure error is not in REPL */
  if (sc->load_stack[sc->file_i].kind & port_file &&
      sc->load_stack[sc->file_i].rep.stdio.file != stdin) {
    int ln = sc->load_stack[sc->file_i].rep.stdio.curr_line;
    const char *fname = sc->load_stack[sc->file_i].rep.stdio.filename;

    /* should never happen */
    if (!fname)
      fname = "<unknown>";

    /* we started from 0 */
    ln++;
    snprintf(sbuf, AUXBUFF_SIZE, "(%s : %i) %s", fname, ln, s);

    str = (const char *) sbuf;
  }
#endif

#if USE_ERROR_HOOK
  x = find_slot_in_env(sc, sc->envir, hdl, 1);
  if (x != sc->NIL) {
    if (a != 0) {
      sc->code =
          cons(sc, cons(sc, sc->QUOTE, cons(sc, (a), sc->NIL)), sc->NIL);
    } else {
      sc->code = sc->NIL;
    }
    sc->code = cons(sc, mk_string(sc, str), sc->code);
    setimmutable(car(sc->code));
    sc->code = cons(sc, slot_value_in_env(x), sc->code);
    sc->op = (int) OP_EVAL;
    return sc->T;
  }
#endif

  if (a != 0) {
    sc->args = cons(sc, (a), sc->NIL);
  } else {
    sc->args = sc->NIL;
  }
  sc->args = cons(sc, mk_string(sc, str), sc->args);
  setimmutable(car(sc->args));
  sc->op = (int) OP_ERR0;
  return sc->T;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x100, %rsp            # imm = 0x100
movq %rdx, %r15
movq %rsi, %r14
movq %rdi, %rbx
movq 0x148(%rdi), %r12
movslq 0xa90(%rdi), %rax
shlq $0x5, %rax
testb $0x1, 0x190(%rdi,%rax)
je 0xa64d
addq %rbx, %rax
addq $0x190, %rax            # imm = 0x190
movq 0x8(%rax), %rcx
movq 0x79c0(%rip), %rdx      # 0x11fd0
cmpq (%rdx), %rcx
je 0xa64d
movl 0x14(%rax), %r8d
movq 0x18(%rax), %rax
testq %rax, %rax
leaq 0x266a(%rip), %rcx      # 0xcc91
cmovneq %rax, %rcx
incl %r8d
leaq 0x2666(%rip), %rdx      # 0xcc9b
movq %rsp, %r13
movl $0x100, %esi            # imm = 0x100
movq %r13, %rdi
movq %r14, %r9
xorl %eax, %eax
callq 0x40e0
movq %r13, %r14
movq 0x38(%rbx), %rsi
pushq $0x1
popq %rcx
movq %rbx, %rdi
movq %r12, %rdx
callq 0x5be4
movq %rax, %r12
movq 0x90(%rbx), %rax
cmpq %rax, %r12
je 0xa6fb
testq %r15, %r15
je 0xa6b2
movq 0x118(%rbx), %r13
movq %rbx, %rdi
movq %r15, %rsi
movq %rax, %rdx
xorl %ecx, %ecx
callq 0x45e8
movq %rbx, %rdi
movq %r13, %rsi
movq %rax, %rdx
xorl %ecx, %ecx
callq 0x45e8
movq 0x90(%rbx), %rdx
movq %rbx, %rdi
movq %rax, %rsi
xorl %ecx, %ecx
callq 0x45e8
movq %rax, 0x40(%rbx)
movq %rbx, %rdi
movq %r14, %rsi
callq 0x46f1
movq 0x40(%rbx), %rdx
movq %rbx, %rdi
movq %rax, %rsi
xorl %ecx, %ecx
callq 0x45e8
movq %rax, 0x40(%rbx)
movq 0x8(%rax), %rcx
orl $0x2000, (%rcx)         # imm = 0x2000
movq 0x10(%r12), %rsi
movq %rbx, %rdi
movq %rax, %rdx
xorl %ecx, %ecx
callq 0x45e8
movq %rax, 0x40(%rbx)
pushq $0x6
popq %rax
jmp 0xa743
testq %r15, %r15
je 0xa710
movq %rbx, %rdi
movq %r15, %rsi
movq %rax, %rdx
xorl %ecx, %ecx
callq 0x45e8
movq %rax, 0x30(%rbx)
movq %rbx, %rdi
movq %r14, %rsi
callq 0x46f1
movq 0x30(%rbx), %rdx
movq %rbx, %rdi
movq %rax, %rsi
xorl %ecx, %ecx
callq 0x45e8
movq %rax, 0x30(%rbx)
movq 0x8(%rax), %rax
orl $0x2000, (%rax)         # imm = 0x2000
movl $0x8c, %eax
movl %eax, 0xec8(%rbx)
movq 0xb0(%rbx), %rax
addq $0x100, %rsp            # imm = 0x100
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq