| 263 | |
| 264 | |
| 265 | int luaD_precall (lua_State *L, StkId func, int nresults) { |
| 266 | LClosure *cl; |
| 267 | ptrdiff_t funcr; |
| 268 | if (!ttisfunction(func)) /* `func' is not a function? */ |
| 269 | func = tryfuncTM(L, func); /* check the `function' tag method */ |
| 270 | funcr = savestack(L, func); |
| 271 | cl = &clvalue(func)->l; |
| 272 | L->ci->savedpc = L->savedpc; |
| 273 | if (!cl->isC) { /* Lua function? prepare its call */ |
| 274 | CallInfo *ci; |
| 275 | StkId st, base; |
| 276 | Proto *p = cl->p; |
| 277 | luaD_checkstack(L, p->maxstacksize); |
| 278 | func = restorestack(L, funcr); |
| 279 | if (!p->is_vararg) { /* no varargs? */ |
| 280 | base = func + 1; |
| 281 | if (L->top > base + p->numparams) |
| 282 | L->top = base + p->numparams; |
| 283 | } |
| 284 | else { /* vararg function */ |
| 285 | int nargs = cast_int(L->top - func) - 1; |
| 286 | base = adjust_varargs(L, p, nargs); |
| 287 | func = restorestack(L, funcr); /* previous call may change the stack */ |
| 288 | } |
| 289 | ci = inc_ci(L); /* now `enter' new function */ |
| 290 | ci->func = func; |
| 291 | L->base = ci->base = base; |
| 292 | ci->top = L->base + p->maxstacksize; |
| 293 | lua_assert(ci->top <= L->stack_last); |
| 294 | L->savedpc = p->code; /* starting point */ |
| 295 | ci->tailcalls = 0; |
| 296 | ci->nresults = nresults; |
| 297 | for (st = L->top; st < ci->top; st++) |
| 298 | setnilvalue(st); |
| 299 | L->top = ci->top; |
| 300 | if (L->hookmask & LUA_MASKCALL) { |
| 301 | L->savedpc++; /* hooks assume 'pc' is already incremented */ |
| 302 | luaD_callhook(L, LUA_HOOKCALL, -1); |
| 303 | L->savedpc--; /* correct 'pc' */ |
| 304 | } |
| 305 | return PCRLUA; |
| 306 | } |
| 307 | else { /* if is a C function, call it */ |
| 308 | CallInfo *ci; |
| 309 | int n; |
| 310 | luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ |
| 311 | ci = inc_ci(L); /* now `enter' new function */ |
| 312 | ci->func = restorestack(L, funcr); |
| 313 | L->base = ci->base = ci->func + 1; |
| 314 | ci->top = L->top + LUA_MINSTACK; |
| 315 | lua_assert(ci->top <= L->stack_last); |
| 316 | ci->nresults = nresults; |
| 317 | if (L->hookmask & LUA_MASKCALL) |
| 318 | luaD_callhook(L, LUA_HOOKCALL, -1); |
| 319 | lua_unlock(L); |
| 320 | n = (*curr_func(L)->c.f)(L); /* do the actual call */ |
| 321 | lua_lock(L); |
| 322 | if (n < 0) /* yielding? */ |
no test coverage detected