// File: /workspace/github_c_makefile_star2_O0/bhk[P]tooltree/lua/../opensource/lua-5.2.3/src/ldo.c
// Function: luaD_precall
int luaD_precall (lua_State *L, StkId func, int nresults) {
  lua_CFunction f;
  CallInfo *ci;
  int n;  /* number of arguments (Lua) or returns (C) */
  ptrdiff_t funcr = savestack(L, func);
  switch (ttype(func)) {
    case LUA_TLCF:  /* light C function */
      f = fvalue(func);
      goto Cfunc;
    case LUA_TCCL: {  /* C closure */
      f = clCvalue(func)->f;
     Cfunc:
      luaD_checkstack(L, LUA_MINSTACK);  /* ensure minimum stack size */
      ci = next_ci(L);  /* now 'enter' new function */
      ci->nresults = nresults;
      ci->func = restorestack(L, funcr);
      ci->top = L->top + LUA_MINSTACK;
      lua_assert(ci->top <= L->stack_last);
      ci->callstatus = 0;
      luaC_checkGC(L);  /* stack grow uses memory */
      if (L->hookmask & LUA_MASKCALL)
        luaD_hook(L, LUA_HOOKCALL, -1);
      lua_unlock(L);
      n = (*f)(L);  /* do the actual call */
      lua_lock(L);
      api_checknelems(L, n);
      luaD_poscall(L, L->top - n);
      return 1;
    }
    case LUA_TLCL: {  /* Lua function: prepare its call */
      StkId base;
      Proto *p = clLvalue(func)->p;
      n = cast_int(L->top - func) - 1;  /* number of real arguments */
      luaD_checkstack(L, p->maxstacksize);
      for (; n < p->numparams; n++)
        setnilvalue(L->top++);  /* complete missing arguments */
      if (!p->is_vararg) {
        func = restorestack(L, funcr);
        base = func + 1;
      }
      else {
        base = adjust_varargs(L, p, n);
        func = restorestack(L, funcr);  /* previous call can change stack */
      }
      ci = next_ci(L);  /* now 'enter' new function */
      ci->nresults = nresults;
      ci->func = func;
      ci->u.l.base = base;
      ci->top = base + p->maxstacksize;
      lua_assert(ci->top <= L->stack_last);
      ci->u.l.savedpc = p->code;  /* starting point */
      ci->callstatus = CIST_LUA;
      L->top = ci->top;
      luaC_checkGC(L);  /* stack grow uses memory */
      if (L->hookmask & LUA_MASKCALL)
        callhook(L, ci);
      return 0;
    }
    default: {  /* not a function */
      func = tryfuncTM(L, func);  /* retry with 'function' tag method */
      return luaD_precall(L, func, nresults);  /* now it must be a function */
    }
  }
}

// Assembly:
subq $0x68, %rsp
movq %rdi, 0x58(%rsp)
movq %rsi, 0x50(%rsp)
movl %edx, 0x4c(%rsp)
movq 0x50(%rsp), %rax
movq 0x58(%rsp), %rcx
movq 0x38(%rcx), %rcx
subq %rcx, %rax
movq %rax, 0x28(%rsp)
movq 0x50(%rsp), %rax
movl 0x8(%rax), %eax
andl $0x3f, %eax
movl %eax, 0x14(%rsp)
subl $0x6, %eax
je 0x10798
jmp 0x10622
movl 0x14(%rsp), %eax
subl $0x16, %eax
je 0x1063b
jmp 0x1062d
movl 0x14(%rsp), %eax
subl $0x26, %eax
je 0x1064a
jmp 0x10996
movq 0x50(%rsp), %rax
movq (%rax), %rax
movq %rax, 0x40(%rsp)
jmp 0x1065b
movq 0x50(%rsp), %rax
movq (%rax), %rax
movq 0x18(%rax), %rax
movq %rax, 0x40(%rsp)
movq 0x58(%rsp), %rax
movq 0x30(%rax), %rax
movq 0x58(%rsp), %rcx
movq 0x10(%rcx), %rcx
subq %rcx, %rax
sarq $0x4, %rax
cmpq $0x14, %rax
jg 0x1068b
movq 0x58(%rsp), %rdi
movl $0x14, %esi
callq 0x10250
jmp 0x1068d
jmp 0x1068d
movq 0x58(%rsp), %rax
movq 0x20(%rax), %rax
cmpq $0x0, 0x18(%rax)
je 0x106b1
movq 0x58(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x18(%rax), %rax
movq %rax, 0x8(%rsp)
jmp 0x106c0
movq 0x58(%rsp), %rdi
callq 0x1f8c0
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq 0x58(%rsp), %rcx
movq %rax, 0x20(%rcx)
movq %rax, 0x38(%rsp)
movl 0x4c(%rsp), %eax
movw %ax, %cx
movq 0x38(%rsp), %rax
movw %cx, 0x20(%rax)
movq 0x58(%rsp), %rax
movq 0x38(%rax), %rcx
addq 0x28(%rsp), %rcx
movq 0x38(%rsp), %rax
movq %rcx, (%rax)
movq 0x58(%rsp), %rax
movq 0x10(%rax), %rcx
addq $0x140, %rcx            # imm = 0x140
movq 0x38(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movb $0x0, 0x22(%rax)
movq 0x58(%rsp), %rax
movq 0x18(%rax), %rax
cmpq $0x0, 0x18(%rax)
jle 0x10735
movq 0x58(%rsp), %rdi
callq 0x13f90
movq 0x58(%rsp), %rax
movzbl 0x48(%rax), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x10757
movq 0x58(%rsp), %rdi
xorl %esi, %esi
movl $0xffffffff, %edx       # imm = 0xFFFFFFFF
callq 0x10410
movq 0x40(%rsp), %rax
movq 0x58(%rsp), %rdi
callq *%rax
movl %eax, 0x34(%rsp)
movq 0x58(%rsp), %rdi
movq 0x58(%rsp), %rax
movq 0x10(%rax), %rsi
movslq 0x34(%rsp), %rcx
xorl %eax, %eax
subq %rcx, %rax
shlq $0x4, %rax
addq %rax, %rsi
callq 0x109d0
movl $0x1, 0x64(%rsp)
jmp 0x109c1
movq 0x50(%rsp), %rax
movq (%rax), %rax
movq 0x18(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x58(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x50(%rsp), %rcx
subq %rcx, %rax
sarq $0x4, %rax
subl $0x1, %eax
movl %eax, 0x34(%rsp)
movq 0x58(%rsp), %rax
movq 0x30(%rax), %rax
movq 0x58(%rsp), %rcx
movq 0x10(%rcx), %rcx
subq %rcx, %rax
sarq $0x4, %rax
movq 0x18(%rsp), %rcx
movzbl 0x7a(%rcx), %ecx
cmpq %rcx, %rax
jg 0x10801
movq 0x58(%rsp), %rdi
movq 0x18(%rsp), %rax
movzbl 0x7a(%rax), %esi
callq 0x10250
jmp 0x10803
jmp 0x10803
jmp 0x10805
movl 0x34(%rsp), %eax
movq 0x18(%rsp), %rcx
movzbl 0x78(%rcx), %ecx
cmpl %ecx, %eax
jge 0x1083e
movq 0x58(%rsp), %rcx
movq 0x10(%rcx), %rax
movq %rax, %rdx
addq $0x10, %rdx
movq %rdx, 0x10(%rcx)
movl $0x0, 0x8(%rax)
movl 0x34(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x34(%rsp)
jmp 0x10805
movq 0x18(%rsp), %rax
cmpb $0x0, 0x79(%rax)
jne 0x1086c
movq 0x58(%rsp), %rax
movq 0x38(%rax), %rax
addq 0x28(%rsp), %rax
movq %rax, 0x50(%rsp)
movq 0x50(%rsp), %rax
addq $0x10, %rax
movq %rax, 0x20(%rsp)
jmp 0x10897
movq 0x58(%rsp), %rdi
movq 0x18(%rsp), %rsi
movl 0x34(%rsp), %edx
callq 0x10b70
movq %rax, 0x20(%rsp)
movq 0x58(%rsp), %rax
movq 0x38(%rax), %rax
addq 0x28(%rsp), %rax
movq %rax, 0x50(%rsp)
movq 0x58(%rsp), %rax
movq 0x20(%rax), %rax
cmpq $0x0, 0x18(%rax)
je 0x108ba
movq 0x58(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x18(%rax), %rax
movq %rax, (%rsp)
jmp 0x108c8
movq 0x58(%rsp), %rdi
callq 0x1f8c0
movq %rax, (%rsp)
movq (%rsp), %rax
movq 0x58(%rsp), %rcx
movq %rax, 0x20(%rcx)
movq %rax, 0x38(%rsp)
movl 0x4c(%rsp), %eax
movw %ax, %cx
movq 0x38(%rsp), %rax
movw %cx, 0x20(%rax)
movq 0x50(%rsp), %rcx
movq 0x38(%rsp), %rax
movq %rcx, (%rax)
movq 0x20(%rsp), %rcx
movq 0x38(%rsp), %rax
movq %rcx, 0x30(%rax)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rax
movzbl 0x7a(%rax), %eax
cltq
shlq $0x4, %rax
addq %rax, %rcx
movq 0x38(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x18(%rsp), %rax
movq 0x18(%rax), %rcx
movq 0x38(%rsp), %rax
movq %rcx, 0x38(%rax)
movq 0x38(%rsp), %rax
movb $0x1, 0x22(%rax)
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x58(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x58(%rsp), %rax
movq 0x18(%rax), %rax
cmpq $0x0, 0x18(%rax)
jle 0x1096c
movq 0x58(%rsp), %rdi
callq 0x13f90
movq 0x58(%rsp), %rax
movzbl 0x48(%rax), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x1098c
movq 0x58(%rsp), %rdi
movq 0x38(%rsp), %rsi
callq 0x10c90
movl $0x0, 0x64(%rsp)
jmp 0x109c1
movq 0x58(%rsp), %rdi
movq 0x50(%rsp), %rsi
callq 0x10d30
movq %rax, 0x50(%rsp)
movq 0x58(%rsp), %rdi
movq 0x50(%rsp), %rsi
movl 0x4c(%rsp), %edx
callq 0x105e0
movl %eax, 0x64(%rsp)
movl 0x64(%rsp), %eax
addq $0x68, %rsp
retq
nopw (%rax,%rax)