rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

C functions cannot increase its top without filling the stack

This commit is contained in:
Roberto Ierusalimschy 2002-11-21 12:17:15 -02:00
parent 1648674653
commit aff97fffc4
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lgc.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lgc.c,v 1.158 2002/11/14 11:51:50 roberto Exp roberto $ ** $Id: lgc.c,v 1.159 2002/11/18 11:01:55 roberto Exp roberto $
** Garbage Collector ** Garbage Collector
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -234,14 +234,16 @@ static void traversestack (GCState *st, lua_State *L1) {
StkId o, lim; StkId o, lim;
CallInfo *ci; CallInfo *ci;
markobject(st, gt(L1)); markobject(st, gt(L1));
for (o=L1->stack; o<L1->top; o++) lim = L1->top;
markobject(st, o);
lim = o;
for (ci = L1->base_ci; ci <= L1->ci; ci++) { for (ci = L1->base_ci; ci <= L1->ci; ci++) {
lua_assert(ci->top <= L1->stack_last); lua_assert(ci->top <= L1->stack_last);
if (lim < ci->top) lim = ci->top; if (!(ci->state & CI_C) && lim < ci->top)
lim = ci->top;
} }
for (; o<=lim; o++) setnilvalue(o); for (o = L1->stack; o < L1->top; o++)
markobject(st, o);
for (; o <= lim; o++)
setnilvalue(o);
checkstacksizes(L1, lim); checkstacksizes(L1, lim);
} }