Lines Matching +full:- +full:l
1 // SPDX-License-Identifier: MIT
37 local = (intptr_t)&local - (intptr_t)current->stack; in stack_remaining()
44 local = (intptr_t)&local - (intptr_t)curthread->td_kstack; in stack_remaining()
55 ** Error-recovery functions
99 #define LUAI_THROW(L,c) longjmp(&(c)->b) argument
100 #define LUAI_TRY(L,c,a) if (setjmp(&(c)->b) == 0) { a } argument
114 #define LUAI_THROW(L,c) longjmp((c)->b, 1) argument
115 #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } argument
123 #define LUAI_THROW(L,c) throw(c) argument
124 #define LUAI_TRY(L,c,a) \ argument
125 try { a } catch(...) { if ((c)->status == 0) (c)->status = -1; }
130 #define LUAI_THROW(L,c) _longjmp((c)->b, 1) argument
131 #define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } argument
136 #define LUAI_THROW(L,c) longjmp((c)->b, 1) argument
137 #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } argument
155 static void seterrorobj (lua_State *L, int errcode, StkId oldtop) { in seterrorobj() argument
158 setsvalue2s(L, oldtop, G(L)->memerrmsg); /* reuse preregistered msg. */ in seterrorobj()
162 setsvalue2s(L, oldtop, luaS_newliteral(L, "error in error handling")); in seterrorobj()
166 setobjs2s(L, oldtop, L->top - 1); /* error message on current top */ in seterrorobj()
170 L->top = oldtop + 1; in seterrorobj()
174 * Silence infinite recursion warning which was added to -Wall in gcc 12.1
179 #pragma GCC diagnostic ignored "-Winfinite-recursion"
182 l_noret luaD_throw (lua_State *L, int errcode) { in luaD_throw() argument
183 if (L->errorJmp) { /* thread has an error handler? */ in luaD_throw()
184 L->errorJmp->status = errcode; /* set status */ in luaD_throw()
185 LUAI_THROW(L, L->errorJmp); /* jump to it */ in luaD_throw()
188 L->status = cast_byte(errcode); /* mark it as dead */ in luaD_throw()
189 if (G(L)->mainthread->errorJmp) { /* main thread has a handler? */ in luaD_throw()
190 setobjs2s(L, G(L)->mainthread->top++, L->top - 1); /* copy error obj. */ in luaD_throw()
191 luaD_throw(G(L)->mainthread, errcode); /* re-throw in main thread */ in luaD_throw()
194 if (G(L)->panic) { /* panic function? */ in luaD_throw()
195 lua_unlock(L); in luaD_throw()
196 G(L)->panic(L); /* call it (last chance to jump out) */ in luaD_throw()
209 int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud) { in luaD_rawrunprotected() argument
210 unsigned short oldnCcalls = L->nCcalls; in luaD_rawrunprotected()
213 lj.previous = L->errorJmp; /* chain new error handler */ in luaD_rawrunprotected()
214 L->errorJmp = &lj; in luaD_rawrunprotected()
215 LUAI_TRY(L, &lj, in luaD_rawrunprotected()
216 (*f)(L, ud); in luaD_rawrunprotected()
218 L->errorJmp = lj.previous; /* restore old error handler */ in luaD_rawrunprotected()
219 L->nCcalls = oldnCcalls; in luaD_rawrunprotected()
226 static void correctstack (lua_State *L, TValue *oldstack) { in correctstack() argument
229 L->top = (L->top - oldstack) + L->stack; in correctstack()
230 for (up = L->openupval; up != NULL; up = up->gch.next) in correctstack()
231 gco2uv(up)->v = (gco2uv(up)->v - oldstack) + L->stack; in correctstack()
232 for (ci = L->ci; ci != NULL; ci = ci->previous) { in correctstack()
233 ci->top = (ci->top - oldstack) + L->stack; in correctstack()
234 ci->func = (ci->func - oldstack) + L->stack; in correctstack()
236 ci->u.l.base = (ci->u.l.base - oldstack) + L->stack; in correctstack()
245 void luaD_reallocstack (lua_State *L, int newsize) { in luaD_reallocstack() argument
246 TValue *oldstack = L->stack; in luaD_reallocstack()
247 int lim = L->stacksize; in luaD_reallocstack()
249 lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK); in luaD_reallocstack()
250 luaM_reallocvector(L, L->stack, L->stacksize, newsize, TValue); in luaD_reallocstack()
252 setnilvalue(L->stack + lim); /* erase new segment */ in luaD_reallocstack()
253 L->stacksize = newsize; in luaD_reallocstack()
254 L->stack_last = L->stack + newsize - EXTRA_STACK; in luaD_reallocstack()
255 correctstack(L, oldstack); in luaD_reallocstack()
259 void luaD_growstack (lua_State *L, int n) { in luaD_growstack() argument
260 int size = L->stacksize; in luaD_growstack()
262 luaD_throw(L, LUA_ERRERR); in luaD_growstack()
264 int needed = cast_int(L->top - L->stack) + n + EXTRA_STACK; in luaD_growstack()
269 luaD_reallocstack(L, ERRORSTACKSIZE); in luaD_growstack()
270 luaG_runerror(L, "stack overflow"); in luaD_growstack()
273 luaD_reallocstack(L, newsize); in luaD_growstack()
278 static int stackinuse (lua_State *L) { in stackinuse() argument
280 StkId lim = L->top; in stackinuse()
281 for (ci = L->ci; ci != NULL; ci = ci->previous) { in stackinuse()
282 lua_assert(ci->top <= L->stack_last); in stackinuse()
283 if (lim < ci->top) lim = ci->top; in stackinuse()
285 return cast_int(lim - L->stack) + 1; /* part of stack in use */ in stackinuse()
289 void luaD_shrinkstack (lua_State *L) { in luaD_shrinkstack() argument
290 int inuse = stackinuse(L); in luaD_shrinkstack()
294 goodsize >= L->stacksize) /* would grow instead of shrink? */ in luaD_shrinkstack()
295 condmovestack(L); /* don't change stack (change only for debugging) */ in luaD_shrinkstack()
297 luaD_reallocstack(L, goodsize); /* shrink it */ in luaD_shrinkstack()
301 void luaD_hook (lua_State *L, int event, int line) { in luaD_hook() argument
302 lua_Hook hook = L->hook; in luaD_hook()
303 if (hook && L->allowhook) { in luaD_hook()
304 CallInfo *ci = L->ci; in luaD_hook()
305 ptrdiff_t top = savestack(L, L->top); in luaD_hook()
306 ptrdiff_t ci_top = savestack(L, ci->top); in luaD_hook()
311 luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ in luaD_hook()
312 ci->top = L->top + LUA_MINSTACK; in luaD_hook()
313 lua_assert(ci->top <= L->stack_last); in luaD_hook()
314 L->allowhook = 0; /* cannot call hooks inside a hook */ in luaD_hook()
315 ci->callstatus |= CIST_HOOKED; in luaD_hook()
316 lua_unlock(L); in luaD_hook()
317 (*hook)(L, &ar); in luaD_hook()
318 lua_lock(L); in luaD_hook()
319 lua_assert(!L->allowhook); in luaD_hook()
320 L->allowhook = 1; in luaD_hook()
321 ci->top = restorestack(L, ci_top); in luaD_hook()
322 L->top = restorestack(L, top); in luaD_hook()
323 ci->callstatus &= ~CIST_HOOKED; in luaD_hook()
328 static void callhook (lua_State *L, CallInfo *ci) { in callhook() argument
330 ci->u.l.savedpc++; /* hooks assume 'pc' is already incremented */ in callhook()
331 if (isLua(ci->previous) && in callhook()
332 GET_OPCODE(*(ci->previous->u.l.savedpc - 1)) == OP_TAILCALL) { in callhook()
333 ci->callstatus |= CIST_TAIL; in callhook()
336 luaD_hook(L, hook, -1); in callhook()
337 ci->u.l.savedpc--; /* correct 'pc' */ in callhook()
341 static StkId adjust_varargs (lua_State *L, Proto *p, int actual) { in adjust_varargs() argument
343 int nfixargs = p->numparams; in adjust_varargs()
347 luaD_checkstack(L, p->maxstacksize); /* check again for new 'base' */ in adjust_varargs()
348 fixed = L->top - actual; /* first fixed argument */ in adjust_varargs()
349 base = L->top; /* final position of first argument */ in adjust_varargs()
351 setobjs2s(L, L->top++, fixed + i); in adjust_varargs()
358 static StkId tryfuncTM (lua_State *L, StkId func) { in tryfuncTM() argument
359 const TValue *tm = luaT_gettmbyobj(L, func, TM_CALL); in tryfuncTM()
361 ptrdiff_t funcr = savestack(L, func); in tryfuncTM()
363 luaG_typeerror(L, func, "call"); in tryfuncTM()
365 for (p = L->top; p > func; p--) setobjs2s(L, p, p-1); in tryfuncTM()
366 incr_top(L); in tryfuncTM()
367 func = restorestack(L, funcr); /* previous call may change stack */ in tryfuncTM()
368 setobj2s(L, func, tm); /* tag method is the new function to be called */ in tryfuncTM()
374 #define next_ci(L) (L->ci = (L->ci->next ? L->ci->next : luaE_extendCI(L))) argument
380 int luaD_precall (lua_State *L, StkId func, int nresults) { in luaD_precall() argument
384 ptrdiff_t funcr = savestack(L, func); in luaD_precall()
390 f = clCvalue(func)->f; in luaD_precall()
392 luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ in luaD_precall()
393 ci = next_ci(L); /* now 'enter' new function */ in luaD_precall()
394 ci->nresults = nresults; in luaD_precall()
395 ci->func = restorestack(L, funcr); in luaD_precall()
396 ci->top = L->top + LUA_MINSTACK; in luaD_precall()
397 lua_assert(ci->top <= L->stack_last); in luaD_precall()
398 ci->callstatus = 0; in luaD_precall()
399 luaC_checkGC(L); /* stack grow uses memory */ in luaD_precall()
400 if (L->hookmask & LUA_MASKCALL) in luaD_precall()
401 luaD_hook(L, LUA_HOOKCALL, -1); in luaD_precall()
402 lua_unlock(L); in luaD_precall()
403 n = (*f)(L); /* do the actual call */ in luaD_precall()
404 lua_lock(L); in luaD_precall()
405 api_checknelems(L, n); in luaD_precall()
406 luaD_poscall(L, L->top - n); in luaD_precall()
411 Proto *p = clLvalue(func)->p; in luaD_precall()
412 n = cast_int(L->top - func) - 1; /* number of real arguments */ in luaD_precall()
413 luaD_checkstack(L, p->maxstacksize + p->numparams); in luaD_precall()
414 for (; n < p->numparams; n++) in luaD_precall()
415 setnilvalue(L->top++); /* complete missing arguments */ in luaD_precall()
416 if (!p->is_vararg) { in luaD_precall()
417 func = restorestack(L, funcr); in luaD_precall()
421 base = adjust_varargs(L, p, n); in luaD_precall()
422 func = restorestack(L, funcr); /* previous call can change stack */ in luaD_precall()
424 ci = next_ci(L); /* now 'enter' new function */ in luaD_precall()
425 ci->nresults = nresults; in luaD_precall()
426 ci->func = func; in luaD_precall()
427 ci->u.l.base = base; in luaD_precall()
428 ci->top = base + p->maxstacksize; in luaD_precall()
429 lua_assert(ci->top <= L->stack_last); in luaD_precall()
430 ci->u.l.savedpc = p->code; /* starting point */ in luaD_precall()
431 ci->callstatus = CIST_LUA; in luaD_precall()
432 L->top = ci->top; in luaD_precall()
433 luaC_checkGC(L); /* stack grow uses memory */ in luaD_precall()
434 if (L->hookmask & LUA_MASKCALL) in luaD_precall()
435 callhook(L, ci); in luaD_precall()
439 func = tryfuncTM(L, func); /* retry with 'function' tag method */ in luaD_precall()
440 return luaD_precall(L, func, nresults); /* now it must be a function */ in luaD_precall()
446 int luaD_poscall (lua_State *L, StkId firstResult) { in luaD_poscall() argument
449 CallInfo *ci = L->ci; in luaD_poscall()
450 if (L->hookmask & (LUA_MASKRET | LUA_MASKLINE)) { in luaD_poscall()
451 if (L->hookmask & LUA_MASKRET) { in luaD_poscall()
452 ptrdiff_t fr = savestack(L, firstResult); /* hook may change stack */ in luaD_poscall()
453 luaD_hook(L, LUA_HOOKRET, -1); in luaD_poscall()
454 firstResult = restorestack(L, fr); in luaD_poscall()
456 L->oldpc = ci->previous->u.l.savedpc; /* 'oldpc' for caller function */ in luaD_poscall()
458 res = ci->func; /* res == final position of 1st result */ in luaD_poscall()
459 wanted = ci->nresults; in luaD_poscall()
460 L->ci = ci->previous; /* back to caller */ in luaD_poscall()
462 for (i = wanted; i != 0 && firstResult < L->top; i--) in luaD_poscall()
463 setobjs2s(L, res++, firstResult++); in luaD_poscall()
464 while (i-- > 0) in luaD_poscall()
466 L->top = res; in luaD_poscall()
467 return (wanted - LUA_MULTRET); /* 0 iff wanted == LUA_MULTRET */ in luaD_poscall()
477 void luaD_call (lua_State *L, StkId func, int nResults, int allowyield) { in luaD_call() argument
478 if (++L->nCcalls >= LUAI_MAXCCALLS) { in luaD_call()
479 if (L->nCcalls == LUAI_MAXCCALLS) in luaD_call()
480 luaG_runerror(L, "C stack overflow"); in luaD_call()
481 else if (L->nCcalls >= (LUAI_MAXCCALLS + (LUAI_MAXCCALLS>>3))) in luaD_call()
482 luaD_throw(L, LUA_ERRERR); /* error while handling stack error */ in luaD_call()
485 if (L->runerror == 0 && remaining < LUAI_MINCSTACK) in luaD_call()
486 luaG_runerror(L, "C stack overflow"); in luaD_call()
487 if (L->runerror != 0 && remaining < LUAI_MINCSTACK / 2) in luaD_call()
488 luaD_throw(L, LUA_ERRERR); /* error while handling stack error */ in luaD_call()
489 if (!allowyield) L->nny++; in luaD_call()
490 if (!luaD_precall(L, func, nResults)) /* is a Lua function? */ in luaD_call()
491 luaV_execute(L); /* call it */ in luaD_call()
492 if (!allowyield) L->nny--; in luaD_call()
493 L->nCcalls--; in luaD_call()
497 static void finishCcall (lua_State *L) { in finishCcall() argument
498 CallInfo *ci = L->ci; in finishCcall()
500 lua_assert(ci->u.c.k != NULL); /* must have a continuation */ in finishCcall()
501 lua_assert(L->nny == 0); in finishCcall()
502 if (ci->callstatus & CIST_YPCALL) { /* was inside a pcall? */ in finishCcall()
503 ci->callstatus &= ~CIST_YPCALL; /* finish 'lua_pcall' */ in finishCcall()
504 L->errfunc = ci->u.c.old_errfunc; in finishCcall()
507 adjustresults(L, ci->nresults); in finishCcall()
509 if (!(ci->callstatus & CIST_STAT)) /* no call status? */ in finishCcall()
510 ci->u.c.status = LUA_YIELD; /* 'default' status */ in finishCcall()
511 lua_assert(ci->u.c.status != LUA_OK); in finishCcall()
512 ci->callstatus = (ci->callstatus & ~(CIST_YPCALL | CIST_STAT)) | CIST_YIELDED; in finishCcall()
513 lua_unlock(L); in finishCcall()
514 n = (*ci->u.c.k)(L); in finishCcall()
515 lua_lock(L); in finishCcall()
516 api_checknelems(L, n); in finishCcall()
518 luaD_poscall(L, L->top - n); in finishCcall()
522 static void unroll (lua_State *L, void *ud) { in unroll() argument
525 if (L->ci == &L->base_ci) /* stack is empty? */ in unroll()
527 if (!isLua(L->ci)) /* C function? */ in unroll()
528 finishCcall(L); in unroll()
530 luaV_finishOp(L); /* finish interrupted instruction */ in unroll()
531 luaV_execute(L); /* execute down to higher C 'boundary' */ in unroll()
540 static CallInfo *findpcall (lua_State *L) { in findpcall() argument
542 for (ci = L->ci; ci != NULL; ci = ci->previous) { /* search for a pcall */ in findpcall()
543 if (ci->callstatus & CIST_YPCALL) in findpcall()
550 static int recover (lua_State *L, int status) { in recover() argument
552 CallInfo *ci = findpcall(L); in recover()
555 oldtop = restorestack(L, ci->extra); in recover()
556 luaF_close(L, oldtop); in recover()
557 seterrorobj(L, status, oldtop); in recover()
558 L->ci = ci; in recover()
559 L->allowhook = ci->u.c.old_allowhook; in recover()
560 L->nny = 0; /* should be zero to be yieldable */ in recover()
561 luaD_shrinkstack(L); in recover()
562 L->errfunc = ci->u.c.old_errfunc; in recover()
563 ci->callstatus |= CIST_STAT; /* call has error status */ in recover()
564 ci->u.c.status = status; /* (here it is) */ in recover()
574 static l_noret resume_error (lua_State *L, const char *msg, StkId firstArg) { in resume_error() argument
575 L->top = firstArg; /* remove args from the stack */ in resume_error()
576 setsvalue2s(L, L->top, luaS_new(L, msg)); /* push error message */ in resume_error()
577 api_incr_top(L); in resume_error()
578 luaD_throw(L, -1); /* jump back to 'lua_resume' */ in resume_error()
585 static void resume_cb (lua_State *L, void *ud) { in resume_cb() argument
586 int nCcalls = L->nCcalls; in resume_cb()
588 CallInfo *ci = L->ci; in resume_cb()
590 resume_error(L, "C stack overflow", firstArg); in resume_cb()
591 if (L->status == LUA_OK) { /* may be starting a coroutine */ in resume_cb()
592 if (ci != &L->base_ci) /* not in base level? */ in resume_cb()
593 resume_error(L, "cannot resume non-suspended coroutine", firstArg); in resume_cb()
595 if (!luaD_precall(L, firstArg - 1, LUA_MULTRET)) /* Lua function? */ in resume_cb()
596 luaV_execute(L); /* call it */ in resume_cb()
598 else if (L->status != LUA_YIELD) in resume_cb()
599 resume_error(L, "cannot resume dead coroutine", firstArg); in resume_cb()
601 L->status = LUA_OK; in resume_cb()
602 ci->func = restorestack(L, ci->extra); in resume_cb()
604 luaV_execute(L); /* just continue running Lua code */ in resume_cb()
606 if (ci->u.c.k != NULL) { /* does it have a continuation? */ in resume_cb()
608 ci->u.c.status = LUA_YIELD; /* 'default' status */ in resume_cb()
609 ci->callstatus |= CIST_YIELDED; in resume_cb()
610 lua_unlock(L); in resume_cb()
611 n = (*ci->u.c.k)(L); /* call continuation */ in resume_cb()
612 lua_lock(L); in resume_cb()
613 api_checknelems(L, n); in resume_cb()
614 firstArg = L->top - n; /* yield results come from continuation */ in resume_cb()
616 luaD_poscall(L, firstArg); /* finish 'luaD_precall' */ in resume_cb()
618 unroll(L, NULL); in resume_cb()
620 lua_assert(nCcalls == L->nCcalls); in resume_cb()
624 LUA_API int lua_resume (lua_State *L, lua_State *from, int nargs) { in lua_resume() argument
626 int oldnny = L->nny; /* save 'nny' */ in lua_resume()
627 lua_lock(L); in lua_resume()
628 luai_userstateresume(L, nargs); in lua_resume()
629 L->nCcalls = (from) ? from->nCcalls + 1 : 1; in lua_resume()
630 L->nny = 0; /* allow yields */ in lua_resume()
631 api_checknelems(L, (L->status == LUA_OK) ? nargs + 1 : nargs); in lua_resume()
632 status = luaD_rawrunprotected(L, resume_cb, L->top - nargs); in lua_resume()
633 if (status == -1) /* error calling 'lua_resume'? */ in lua_resume()
637 if (recover(L, status)) /* recover point? */ in lua_resume()
638 status = luaD_rawrunprotected(L, unroll, NULL); /* run continuation */ in lua_resume()
640 L->status = cast_byte(status); /* mark thread as `dead' */ in lua_resume()
641 seterrorobj(L, status, L->top); in lua_resume()
642 L->ci->top = L->top; in lua_resume()
646 lua_assert(status == L->status); in lua_resume()
648 L->nny = oldnny; /* restore 'nny' */ in lua_resume()
649 L->nCcalls--; in lua_resume()
650 lua_assert(L->nCcalls == ((from) ? from->nCcalls : 0)); in lua_resume()
651 lua_unlock(L); in lua_resume()
656 LUA_API int lua_yieldk (lua_State *L, int nresults, int ctx, lua_CFunction k) { in lua_yieldk() argument
657 CallInfo *ci = L->ci; in lua_yieldk()
658 luai_userstateyield(L, nresults); in lua_yieldk()
659 lua_lock(L); in lua_yieldk()
660 api_checknelems(L, nresults); in lua_yieldk()
661 if (L->nny > 0) { in lua_yieldk()
662 if (L != G(L)->mainthread) in lua_yieldk()
663 luaG_runerror(L, "attempt to yield across a C-call boundary"); in lua_yieldk()
665 luaG_runerror(L, "attempt to yield from outside a coroutine"); in lua_yieldk()
667 L->status = LUA_YIELD; in lua_yieldk()
668 ci->extra = savestack(L, ci->func); /* save current 'func' */ in lua_yieldk()
670 api_check(L, k == NULL, "hooks cannot continue after yielding"); in lua_yieldk()
673 if ((ci->u.c.k = k) != NULL) /* is there a continuation? */ in lua_yieldk()
674 ci->u.c.ctx = ctx; /* save context */ in lua_yieldk()
675 ci->func = L->top - nresults - 1; /* protect stack below results */ in lua_yieldk()
676 luaD_throw(L, LUA_YIELD); in lua_yieldk()
678 lua_assert(ci->callstatus & CIST_HOOKED); /* must be inside a hook */ in lua_yieldk()
679 lua_unlock(L); in lua_yieldk()
684 int luaD_pcall (lua_State *L, Pfunc func, void *u, in luaD_pcall() argument
687 CallInfo *old_ci = L->ci; in luaD_pcall()
688 lu_byte old_allowhooks = L->allowhook; in luaD_pcall()
689 unsigned short old_nny = L->nny; in luaD_pcall()
690 ptrdiff_t old_errfunc = L->errfunc; in luaD_pcall()
691 L->errfunc = ef; in luaD_pcall()
692 status = luaD_rawrunprotected(L, func, u); in luaD_pcall()
694 StkId oldtop = restorestack(L, old_top); in luaD_pcall()
695 luaF_close(L, oldtop); /* close possible pending closures */ in luaD_pcall()
696 seterrorobj(L, status, oldtop); in luaD_pcall()
697 L->ci = old_ci; in luaD_pcall()
698 L->allowhook = old_allowhooks; in luaD_pcall()
699 L->nny = old_nny; in luaD_pcall()
700 luaD_shrinkstack(L); in luaD_pcall()
702 L->errfunc = old_errfunc; in luaD_pcall()
720 static void checkmode (lua_State *L, const char *mode, const char *x) { in checkmode() argument
722 luaO_pushfstring(L, in checkmode()
724 luaD_throw(L, LUA_ERRSYNTAX); in checkmode()
729 static void f_parser (lua_State *L, void *ud) { in f_parser() argument
733 int c = zgetc(p->z); /* read first character */ in f_parser()
735 checkmode(L, p->mode, "text"); in f_parser()
736 cl = luaY_parser(L, p->z, &p->buff, &p->dyd, p->name, c); in f_parser()
737 lua_assert(cl->l.nupvalues == cl->l.p->sizeupvalues); in f_parser()
738 for (i = 0; i < cl->l.nupvalues; i++) { /* initialize upvalues */ in f_parser()
739 UpVal *up = luaF_newupval(L); in f_parser()
740 cl->l.upvals[i] = up; in f_parser()
741 luaC_objbarrier(L, cl, up); in f_parser()
746 int luaD_protectedparser (lua_State *L, ZIO *z, const char *name, in luaD_protectedparser() argument
750 L->nny++; /* cannot yield during parsing */ in luaD_protectedparser()
755 luaZ_initbuffer(L, &p.buff); in luaD_protectedparser()
756 status = luaD_pcall(L, f_parser, &p, savestack(L, L->top), L->errfunc); in luaD_protectedparser()
757 luaZ_freebuffer(L, &p.buff); in luaD_protectedparser()
758 luaM_freearray(L, p.dyd.actvar.arr, p.dyd.actvar.size); in luaD_protectedparser()
759 luaM_freearray(L, p.dyd.gt.arr, p.dyd.gt.size); in luaD_protectedparser()
760 luaM_freearray(L, p.dyd.label.arr, p.dyd.label.size); in luaD_protectedparser()
761 L->nny--; in luaD_protectedparser()