lua

commit d1ed6e4c073c85c5f9a35f5a12adb3fc7c21c2c5
parent b6a7983b650a572a9f04c1dd8b243cf5e081caa2
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon,  7 Mar 2005 13:58:39 -0300

small bug: must use original (previous) base

Diffstat:
M
lvm.c
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lvm.c b/lvm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 2.25 2005/02/18 12:50:08 roberto Exp roberto $
+** $Id: lvm.c,v 2.26 2005/02/23 17:30:22 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -620,7 +620,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
           int aux;
           StkId func = ci->func;
           StkId pfunc = (ci+1)->func;  /* previous function index */
-          if (L->openupval) luaF_close(L, base);
+          if (L->openupval) luaF_close(L, ci->base);
           base = ci->base = ci->func + ((ci+1)->base - pfunc);
           L->base = base;
           for (aux = 0; pfunc+aux < L->top; aux++)  /* move frame down */