mirror of https://github.com/rusefi/lua.git
details
This commit is contained in:
parent
98296f6b45
commit
4ff1e5b4e1
6
lgc.c
6
lgc.c
|
@ -1,5 +1,5 @@
|
||||||
/*
|
/*
|
||||||
** $Id: lgc.c,v 2.34 2005/06/07 18:53:45 roberto Exp roberto $
|
** $Id: lgc.c,v 2.35 2005/08/04 13:37:38 roberto Exp roberto $
|
||||||
** Garbage Collector
|
** Garbage Collector
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
|
@ -287,7 +287,6 @@ static l_mem propagatemark (global_State *g) {
|
||||||
black2gray(o); /* keep it gray */
|
black2gray(o); /* keep it gray */
|
||||||
return sizeof(Table) + sizeof(TValue) * h->sizearray +
|
return sizeof(Table) + sizeof(TValue) * h->sizearray +
|
||||||
sizeof(Node) * sizenode(h);
|
sizeof(Node) * sizenode(h);
|
||||||
break;
|
|
||||||
}
|
}
|
||||||
case LUA_TFUNCTION: {
|
case LUA_TFUNCTION: {
|
||||||
Closure *cl = gco2cl(o);
|
Closure *cl = gco2cl(o);
|
||||||
|
@ -295,7 +294,6 @@ static l_mem propagatemark (global_State *g) {
|
||||||
traverseclosure(g, cl);
|
traverseclosure(g, cl);
|
||||||
return (cl->c.isC) ? sizeCclosure(cl->c.nupvalues) :
|
return (cl->c.isC) ? sizeCclosure(cl->c.nupvalues) :
|
||||||
sizeLclosure(cl->l.nupvalues);
|
sizeLclosure(cl->l.nupvalues);
|
||||||
break;
|
|
||||||
}
|
}
|
||||||
case LUA_TTHREAD: {
|
case LUA_TTHREAD: {
|
||||||
lua_State *th = gco2th(o);
|
lua_State *th = gco2th(o);
|
||||||
|
@ -306,7 +304,6 @@ static l_mem propagatemark (global_State *g) {
|
||||||
traversestack(g, th);
|
traversestack(g, th);
|
||||||
return sizeof(lua_State) + sizeof(TValue) * th->stacksize +
|
return sizeof(lua_State) + sizeof(TValue) * th->stacksize +
|
||||||
sizeof(CallInfo) * th->size_ci;
|
sizeof(CallInfo) * th->size_ci;
|
||||||
break;
|
|
||||||
}
|
}
|
||||||
case LUA_TPROTO: {
|
case LUA_TPROTO: {
|
||||||
Proto *p = gco2p(o);
|
Proto *p = gco2p(o);
|
||||||
|
@ -318,7 +315,6 @@ static l_mem propagatemark (global_State *g) {
|
||||||
sizeof(int) * p->sizelineinfo +
|
sizeof(int) * p->sizelineinfo +
|
||||||
sizeof(LocVar) * p->sizelocvars +
|
sizeof(LocVar) * p->sizelocvars +
|
||||||
sizeof(TString *) * p->sizeupvalues;
|
sizeof(TString *) * p->sizeupvalues;
|
||||||
break;
|
|
||||||
}
|
}
|
||||||
default: lua_assert(0); return 0;
|
default: lua_assert(0); return 0;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue