lua

commit f555e493f0a12513f79f999ceed5467085b1c9c4
parent d1ffd1a1c5639d6ad84b695d3c6dae9e37830a0b
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 14 Aug 2000 14:45:45 -0300

lua_state may not exist

Diffstat:
M
lstate.c
 | 
11
+++++------

1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/lstate.c b/lstate.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lstate.c,v 1.31 2000/08/08 20:42:07 roberto Exp roberto $
+** $Id: lstate.c,v 1.32 2000/08/09 19:16:57 roberto Exp roberto $
 ** Global State
 ** See Copyright Notice in lua.h
 */
@@ -70,7 +70,9 @@ lua_State *lua_newstate (int stacksize, int put_builtin) {
 }
 
 
+#ifdef DEBUG
 extern lua_State *lua_state;
+#endif
 
 void lua_close (lua_State *L) {
   luaC_collect(L, 1);  /* collect all elements */
@@ -86,10 +88,7 @@ void lua_close (lua_State *L) {
   LUA_ASSERT(L->numCblocks == 0, "Cblocks still open");
   LUA_ASSERT(L->nblocks == 0, "wrong count for nblocks");
   luaM_free(L, L);
-  if (L == lua_state) {
-    LUA_ASSERT(memdebug_numblocks == 0, "memory leak!");
-    LUA_ASSERT(memdebug_total == 0,"memory leak!");
-    lua_state = NULL;
-  }
+  LUA_ASSERT(L != lua_state || memdebug_numblocks == 0, "memory leak!");
+  LUA_ASSERT(L != lua_state || memdebug_total == 0,"memory leak!");
 }