Bug when growing a stack
When a stack grows, its extra area can be in use, and it becomes part
of the common area. So, the extra area must be kept correct all the
times. (Bug introduced by commit 5aa36e894f5.)
diff --git a/ldo.c b/ldo.c
index a60972b..4b55c31 100644
--- a/ldo.c
+++ b/ldo.c
@@ -192,7 +192,7 @@
else return 0; /* do not raise an error */
}
for (; lim < newsize; lim++)
- setnilvalue(s2v(newstack + lim)); /* erase new segment */
+ setnilvalue(s2v(newstack + lim + EXTRA_STACK)); /* erase new segment */
correctstack(L, L->stack, newstack);
L->stack = newstack;
L->stack_last = L->stack + newsize;
diff --git a/lgc.c b/lgc.c
index 5dba56f..bab9beb 100644
--- a/lgc.c
+++ b/lgc.c
@@ -632,8 +632,8 @@
for (uv = th->openupval; uv != NULL; uv = uv->u.open.next)
markobject(g, uv); /* open upvalues cannot be collected */
if (g->gcstate == GCSatomic) { /* final traversal? */
- for (; o < th->stack_last; o++) /* clear not-marked stack slice */
- setnilvalue(s2v(o));
+ for (; o < th->stack_last + EXTRA_STACK; o++)
+ setnilvalue(s2v(o)); /* clear dead stack slice */
/* 'remarkupvals' may have removed thread from 'twups' list */
if (!isintwups(th) && th->openupval != NULL) {
th->twups = g->twups; /* link it back to the list */
diff --git a/lstate.c b/lstate.c
index 4227429..1c7b879 100644
--- a/lstate.c
+++ b/lstate.c
@@ -181,7 +181,7 @@
int i; CallInfo *ci;
/* initialize stack array */
L1->stack = luaM_newvector(L, BASIC_STACK_SIZE + EXTRA_STACK, StackValue);
- for (i = 0; i < BASIC_STACK_SIZE; i++)
+ for (i = 0; i < BASIC_STACK_SIZE + EXTRA_STACK; i++)
setnilvalue(s2v(L1->stack + i)); /* erase new stack */
L1->top = L1->stack;
L1->stack_last = L1->stack + BASIC_STACK_SIZE;
