lua

A copy of the Lua development repository
Log | Files | Refs | README

commit b6ebbb2fee13aa223fdd12921cd0411e02db9dd0
parent c5fee7615e979e3a39af44614f82938519dedb68
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Thu, 14 Oct 1999 15:53:13 -0200

better assertions.

Diffstat:
Mldo.c | 3++-
Mlstate.c | 12+++++++-----
2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/ldo.c b/ldo.c @@ -1,5 +1,5 @@ /* -** $Id: ldo.c,v 1.47 1999/09/06 15:24:46 roberto Exp roberto $ +** $Id: ldo.c,v 1.48 1999/10/04 17:51:04 roberto Exp roberto $ ** Stack and Call structure of Lua ** See Copyright Notice in lua.h */ @@ -236,6 +236,7 @@ void lua_error (const char *s) { if (L->errorJmp) longjmp(L->errorJmp->b, 1); else { + LUA_INTERNALERROR("exit!!"); message("exit(1). Unable to recover.\n"); exit(1); } diff --git a/lstate.c b/lstate.c @@ -1,5 +1,5 @@ /* -** $Id: lstate.c,v 1.13 1999/08/16 20:52:00 roberto Exp roberto $ +** $Id: lstate.c,v 1.14 1999/10/04 17:51:04 roberto Exp $ ** Global State ** See Copyright Notice in lua.h */ @@ -53,6 +53,10 @@ void lua_open (void) { void lua_close (void) { luaC_collect(1); /* collect all elements */ + LUA_ASSERT(L->rootproto == NULL, "list should be empty"); + LUA_ASSERT(L->rootcl == NULL, "list should be empty"); + LUA_ASSERT(L->rootglobal == NULL, "list should be empty"); + LUA_ASSERT(L->roottable == NULL, "list should be empty"); luaS_freeall(); luaM_free(L->stack.stack); luaM_free(L->IMtable); @@ -61,11 +65,9 @@ void lua_close (void) { luaM_free(L->Cblocks); LUA_ASSERT(L->nblocks == 0, "wrong count for nblocks"); luaM_free(L); + LUA_ASSERT(numblocks == 0, "memory leak!"); + LUA_ASSERT(totalmem == 0,"memory leak!"); L = NULL; -#ifdef DEBUG - printf("total de blocos: %ld\n", numblocks); - printf("total de memoria: %ld\n", totalmem); -#endif }