lua

commit 44a5484d7305d9ed1ff3811d7476730cb85f0df1
parent 801aaf37b14a1fad5bb49c9a4200d25680152471
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 25 Mar 2002 16:44:44 -0300

small bug (L->ci->top may be larger than L->top...)

Diffstat:
M
ldo.c
 | 
7
++++---

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git 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);
 }