From 44a5484d7305d9ed1ff3811d7476730cb85f0df1 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 25 Mar 2002 16:45:06 -0300
Subject: small bug (L->ci->top may be larger than L->top...)

---
 ldo.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'ldo.c')

diff --git a/ldo.c b/ldo.c
index 37dac3b5..3e0053f4 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 1.165 2002/03/20 12:52:32 roberto Exp roberto $
+** $Id: ldo.c,v 1.166 2002/03/25 17:47:14 roberto Exp roberto $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -109,15 +109,16 @@ static void luaD_openstack (lua_State *L, StkId pos) {
 
 static void dohook (lua_State *L, lua_Debug *ar, lua_Hook hook) {
   ptrdiff_t top = savestack(L, L->top);
+  ptrdiff_t ci_top = savestack(L, L->ci->top);
   luaD_checkstack(L, LUA_MINSTACK);  /* ensure minimum stack size */
-  L->ci->top += LUA_MINSTACK;
+  L->ci->top = L->top + LUA_MINSTACK;
   L->allowhooks = 0;  /* cannot call hooks inside a hook */
   lua_unlock(L);
   (*hook)(L, ar);
   lua_lock(L);
   lua_assert(L->allowhooks == 0);
   L->allowhooks = 1;
-  L->ci->top -= LUA_MINSTACK;
+  L->ci->top = restorestack(L, ci_top);
   L->top = restorestack(L, top);
 }
 
-- 
cgit v1.2.3-55-g6feb