From b5e75fde4ec36b7db0a02cc8a353f8d3a769cfed Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 29 Aug 2013 10:34:16 -0300
Subject: bug: local collection must clear rest of stack

---
 lgc.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lgc.c')

diff --git a/lgc.c b/lgc.c
index 8661fe8d..8d273d44 100644
--- a/lgc.c
+++ b/lgc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 2.154 2013/08/27 20:04:00 roberto Exp roberto $
+** $Id: lgc.c,v 2.155 2013/08/28 18:30:26 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -25,7 +25,7 @@
 
 
 /*
-** How memory to allocate before a new local collection
+** How much memory to allocate before a new local collection
 */
 #define GCLOCALPAUSE	8000
 
@@ -894,12 +894,15 @@ void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt) {
 */
 static void localmarkthread (lua_State *l) {
   StkId o = l->stack;
+  StkId lim = l->stack + l->stacksize;  /* real end of stack */
   if (o == NULL)
     return;  /* stack not completely built yet */
   for (; o < l->top; o++) {  /* mark live elements in the stack */
     if (iscollectable(o))
       l_setbit(gcvalue(o)->gch.marked, LOCALMARK);
   }
+  for (; o < lim; o++)  /* clear not-marked stack slice */
+    setnilvalue(o);
 }
 
 
-- 
cgit v1.2.3-55-g6feb