|
@@ -1,5 +1,5 @@
|
|
/*
|
|
/*
|
|
-** $Id: lgc.c,v 2.116 2011/12/02 13:18:41 roberto Exp roberto $
|
|
|
|
|
|
+** $Id: lgc.c,v 2.117 2012/01/20 22:05:50 roberto Exp roberto $
|
|
** Garbage Collector
|
|
** Garbage Collector
|
|
** See Copyright Notice in lua.h
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
*/
|
|
@@ -485,7 +485,7 @@ static int traverseCclosure (global_State *g, CClosure *cl) {
|
|
|
|
|
|
static int traverseLclosure (global_State *g, LClosure *cl) {
|
|
static int traverseLclosure (global_State *g, LClosure *cl) {
|
|
int i;
|
|
int i;
|
|
- assert(cl->nupvalues == cl->p->sizeupvalues);
|
|
|
|
|
|
+ lua_assert(cl->nupvalues == cl->p->sizeupvalues);
|
|
markobject(g, cl->p); /* mark its prototype */
|
|
markobject(g, cl->p); /* mark its prototype */
|
|
for (i = 0; i < cl->nupvalues; i++) /* mark its upvalues */
|
|
for (i = 0; i < cl->nupvalues; i++) /* mark its upvalues */
|
|
markobject(g, cl->upvals[i]);
|
|
markobject(g, cl->upvals[i]);
|