lua

commit aff97fffc4a63cd25af313b4790409477c13d68a
parent 1648674653bd33775a6ab31539f9d9490b3282ae
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Thu, 21 Nov 2002 12:16:53 -0200

C functions cannot increase its top without filling the stack

Diffstat:
M
lgc.c
 | 
14
++++++++------

1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/lgc.c b/lgc.c
@@ -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
 ** See Copyright Notice in lua.h
 */
@@ -234,14 +234,16 @@ static void traversestack (GCState *st, lua_State *L1) {
   StkId o, lim;
   CallInfo *ci;
   markobject(st, gt(L1));
-  for (o=L1->stack; o<L1->top; o++)
-    markobject(st, o);
-  lim = o;
+  lim = L1->top;
   for (ci = L1->base_ci; ci <= L1->ci; ci++) {
     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);
 }