From d1ed6e4c073c85c5f9a35f5a12adb3fc7c21c2c5 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 7 Mar 2005 13:59:01 -0300
Subject: small bug: must use original (previous) base

---
 lvm.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lvm.c b/lvm.c
index add95d35..a70b3e15 100644
--- 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 */
-- 
cgit v1.2.3-55-g6feb