From 808525e4173d9f8ec1d1f2665cb4d551d0f4075b Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 29 Aug 2000 16:01:34 -0300
Subject: [PATCH] new asserts for hooks

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

diff --git a/ldo.c b/ldo.c
index 312c995c..907e62a6 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 1.88 2000/08/29 14:48:16 roberto Exp roberto $
+** $Id: ldo.c,v 1.89 2000/08/29 14:57:23 roberto Exp roberto $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -109,6 +109,7 @@ void luaD_lineHook (lua_State *L, StkId func, int line, lua_Hook linehook) {
     ar.currentline = line;
     L->allowhooks = 0;  /* cannot call hooks inside a hook */
     (*linehook)(L, &ar);
+    LUA_ASSERT(L->allowhooks == 0, "invalid allow");
     L->allowhooks = 1;
     L->top = old_top;
     L->Cbase = old_Cbase;
@@ -126,6 +127,7 @@ static void luaD_callHook (lua_State *L, StkId func, lua_Hook callhook,
     ar.event = event;
     L->allowhooks = 0;  /* cannot call hooks inside a hook */
     (*callhook)(L, &ar);
+    LUA_ASSERT(L->allowhooks == 0, "invalid allow");
     L->allowhooks = 1;
     L->top = old_top;
     L->Cbase = old_Cbase;