mirror of https://github.com/lua/lua
new tests to check memory consistency (for incremental GC)
This commit is contained in:
parent
a4e1230f95
commit
48a8d78102
202
ltests.c
202
ltests.c
|
@ -1,5 +1,5 @@
|
||||||
/*
|
/*
|
||||||
** $Id: ltests.c,v 2.1 2003/12/10 12:13:36 roberto Exp roberto $
|
** $Id: ltests.c,v 2.2 2004/02/16 19:09:52 roberto Exp roberto $
|
||||||
** Internal Module for Debugging of the Lua Implementation
|
** Internal Module for Debugging of the Lua Implementation
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
|
@ -36,12 +36,15 @@
|
||||||
#ifdef LUA_DEBUG
|
#ifdef LUA_DEBUG
|
||||||
|
|
||||||
|
|
||||||
|
int Trick = 0;
|
||||||
|
|
||||||
|
|
||||||
static lua_State *lua_state = NULL;
|
static lua_State *lua_state = NULL;
|
||||||
|
|
||||||
int islocked = 0;
|
int islocked = 0;
|
||||||
|
|
||||||
|
|
||||||
#define func_at(L,k) (L->ci->base+(k) - 1)
|
#define obj_at(L,k) (L->ci->base+(k) - 1)
|
||||||
|
|
||||||
|
|
||||||
static void setnameval (lua_State *L, const char *name, int val) {
|
static void setnameval (lua_State *L, const char *name, int val) {
|
||||||
|
@ -159,25 +162,24 @@ static int testobjref1 (global_State *g, GCObject *f, GCObject *t) {
|
||||||
|
|
||||||
|
|
||||||
static void printobj (global_State *g, GCObject *o) {
|
static void printobj (global_State *g, GCObject *o) {
|
||||||
int i = 0;
|
int i = 0;
|
||||||
GCObject *p;
|
GCObject *p;
|
||||||
for (p = g->rootgc; p != o && p != NULL; p = p->gch.next) i++;
|
for (p = g->rootgc; p != o && p != NULL; p = p->gch.next) i++;
|
||||||
if (p == NULL) i = -1;
|
if (p == NULL) i = -1;
|
||||||
printf("%d:%s(%p)-%c",
|
printf("%d:%s(%p)-%c(%02X)", i, luaT_typenames[o->gch.tt], (void *)o,
|
||||||
i, luaT_typenames[o->gch.tt], (void *)o,
|
isdead(g,o)?'d':isblack(o)?'b':iswhite(o)?'w':'g', o->gch.marked);
|
||||||
isdead(g,o)?'d':isblack(o)?'b':iswhite(o)?'w':'g');
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
static int testobjref (global_State *g, GCObject *f, GCObject *t) {
|
static int testobjref (global_State *g, GCObject *f, GCObject *t) {
|
||||||
int r = testobjref1(g,f,t);
|
int r = testobjref1(g,f,t);
|
||||||
if (!r) {
|
if (!r) {
|
||||||
printf("%d - ", g->gcstate);
|
printf("%d(%02X) - ", g->gcstate, g->currentwhite);
|
||||||
printobj(g, f);
|
printobj(g, f);
|
||||||
printf("\t-> ");
|
printf("\t-> ");
|
||||||
printobj(g, t);
|
printobj(g, t);
|
||||||
printf("\n");
|
printf("\n");
|
||||||
}
|
}
|
||||||
return r;
|
return r;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -258,8 +260,10 @@ static void checkclosure (global_State *g, Closure *cl) {
|
||||||
checkobjref(g, clgc, hvalue(&cl->l.g));
|
checkobjref(g, clgc, hvalue(&cl->l.g));
|
||||||
checkobjref(g, clgc, cl->l.p);
|
checkobjref(g, clgc, cl->l.p);
|
||||||
for (i=0; i<cl->l.nupvalues; i++) {
|
for (i=0; i<cl->l.nupvalues; i++) {
|
||||||
lua_assert(cl->l.upvals[i]->tt == LUA_TUPVAL);
|
if (cl->l.upvals[i]) {
|
||||||
checkobjref(g, clgc, cl->l.upvals[i]);
|
lua_assert(cl->l.upvals[i]->tt == LUA_TUPVAL);
|
||||||
|
checkobjref(g, clgc, cl->l.upvals[i]);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -270,53 +274,74 @@ static void checkstack (global_State *g, lua_State *L1) {
|
||||||
CallInfo *ci;
|
CallInfo *ci;
|
||||||
lua_assert(!isdead(g, obj2gco(L1)));
|
lua_assert(!isdead(g, obj2gco(L1)));
|
||||||
checkliveness(g, gt(L1));
|
checkliveness(g, gt(L1));
|
||||||
for (ci = L1->base_ci; ci <= L1->ci; ci++)
|
if (L1->base_ci) {
|
||||||
lua_assert(ci->top <= L1->stack_last);
|
for (ci = L1->base_ci; ci <= L1->ci; ci++)
|
||||||
for (o = L1->stack; o < L1->top; o++)
|
lua_assert(ci->top <= L1->stack_last);
|
||||||
checkliveness(g, o);
|
}
|
||||||
|
else lua_assert(L1->size_ci == 0);
|
||||||
|
if (L1->stack) {
|
||||||
|
for (o = L1->stack; o < L1->top; o++)
|
||||||
|
checkliveness(g, o);
|
||||||
|
}
|
||||||
|
else lua_assert(L1->stacksize == 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
void luaC_checkall (lua_State *L) {
|
static void checkobject (global_State *g, GCObject *o) {
|
||||||
|
if (isdead(g, o))
|
||||||
|
lua_assert(g->gcstate == GCSsweepstring || g->gcstate == GCSsweep);
|
||||||
|
else {
|
||||||
|
if (g->gcstate == GCSfinalize)
|
||||||
|
lua_assert(iswhite(o));
|
||||||
|
switch (o->gch.tt) {
|
||||||
|
case LUA_TUPVAL: {
|
||||||
|
UpVal *uv = gco2uv(o);
|
||||||
|
lua_assert(uv->v == &uv->value); /* must be closed */
|
||||||
|
checkvalref(g, o, uv->v);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case LUA_TUSERDATA: {
|
||||||
|
Table *mt = gco2u(o)->metatable;
|
||||||
|
if (mt) checkobjref(g, o, mt);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case LUA_TTABLE: {
|
||||||
|
checktable(g, gco2h(o));
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case LUA_TTHREAD: {
|
||||||
|
checkstack(g, gco2th(o));
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case LUA_TFUNCTION: {
|
||||||
|
checkclosure(g, gco2cl(o));
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case LUA_TPROTO: {
|
||||||
|
checkproto(g, gco2p(o));
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default: lua_assert(0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
int lua_checkmemory (lua_State *L) {
|
||||||
global_State *g = G(L);
|
global_State *g = G(L);
|
||||||
GCObject *o;
|
GCObject *o;
|
||||||
checkstack(g, g->mainthread);
|
checkstack(g, g->mainthread);
|
||||||
for (o = g->rootgc; o; o = o->gch.next) {
|
for (o = g->rootgc; o->gch.tt != LUA_TUSERDATA; o = o->gch.next)
|
||||||
if (isdead(g, o))
|
checkobject(g, o);
|
||||||
lua_assert(g->gcstate == GCSsweepstring || g->gcstate == GCSsweep);
|
lua_assert(o == g->firstudata);
|
||||||
else {
|
for (; o->gch.tt != LUA_TTHREAD; o = o->gch.next)
|
||||||
switch (o->gch.tt) {
|
checkobject(g, o);
|
||||||
case LUA_TUPVAL: {
|
lua_assert(o == obj2gco(g->mainthread));
|
||||||
UpVal *uv = gco2uv(o);
|
for (; o; o = o->gch.next) {
|
||||||
lua_assert(uv->v == &uv->value); /* must be closed */
|
lua_assert(o->gch.tt == LUA_TTHREAD);
|
||||||
checkvalref(g, o, uv->v);
|
checkobject(g, o);
|
||||||
break;
|
|
||||||
}
|
|
||||||
case LUA_TUSERDATA: {
|
|
||||||
Table *mt = gco2u(o)->metatable;
|
|
||||||
if (mt) checkobjref(g, o, mt);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
case LUA_TTABLE: {
|
|
||||||
checktable(g, gco2h(o));
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
case LUA_TTHREAD: {
|
|
||||||
checkstack(g, gco2th(o));
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
case LUA_TFUNCTION: {
|
|
||||||
checkclosure(g, gco2cl(o));
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
case LUA_TPROTO: {
|
|
||||||
checkproto(g, gco2p(o));
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
default: lua_assert(0);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* }====================================================== */
|
/* }====================================================== */
|
||||||
|
@ -369,7 +394,7 @@ static int listcode (lua_State *L) {
|
||||||
Proto *p;
|
Proto *p;
|
||||||
luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1),
|
luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1),
|
||||||
1, "Lua function expected");
|
1, "Lua function expected");
|
||||||
p = clvalue(func_at(L, 1))->l.p;
|
p = clvalue(obj_at(L, 1))->l.p;
|
||||||
lua_newtable(L);
|
lua_newtable(L);
|
||||||
setnameval(L, "maxstack", p->maxstacksize);
|
setnameval(L, "maxstack", p->maxstacksize);
|
||||||
setnameval(L, "numparams", p->numparams);
|
setnameval(L, "numparams", p->numparams);
|
||||||
|
@ -388,7 +413,7 @@ static int listk (lua_State *L) {
|
||||||
int i;
|
int i;
|
||||||
luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1),
|
luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1),
|
||||||
1, "Lua function expected");
|
1, "Lua function expected");
|
||||||
p = clvalue(func_at(L, 1))->l.p;
|
p = clvalue(obj_at(L, 1))->l.p;
|
||||||
lua_createtable(L, p->sizek, 0);
|
lua_createtable(L, p->sizek, 0);
|
||||||
for (i=0; i<p->sizek; i++) {
|
for (i=0; i<p->sizek; i++) {
|
||||||
luaA_pushobject(L, p->k+i);
|
luaA_pushobject(L, p->k+i);
|
||||||
|
@ -405,7 +430,7 @@ static int listlocals (lua_State *L) {
|
||||||
const char *name;
|
const char *name;
|
||||||
luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1),
|
luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1),
|
||||||
1, "Lua function expected");
|
1, "Lua function expected");
|
||||||
p = clvalue(func_at(L, 1))->l.p;
|
p = clvalue(obj_at(L, 1))->l.p;
|
||||||
while ((name = luaF_getlocalname(p, ++i, pc)) != NULL)
|
while ((name = luaF_getlocalname(p, ++i, pc)) != NULL)
|
||||||
lua_pushstring(L, name);
|
lua_pushstring(L, name);
|
||||||
return i-1;
|
return i-1;
|
||||||
|
@ -428,12 +453,6 @@ static int get_limits (lua_State *L) {
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
static int setgcthreshold (lua_State *L) {
|
|
||||||
lua_setgcthreshold(L, luaL_checkint(L, 1));
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
static int mem_query (lua_State *L) {
|
static int mem_query (lua_State *L) {
|
||||||
if (lua_isnone(L, 1)) {
|
if (lua_isnone(L, 1)) {
|
||||||
lua_pushinteger(L, memcontrol.total);
|
lua_pushinteger(L, memcontrol.total);
|
||||||
|
@ -448,16 +467,52 @@ static int mem_query (lua_State *L) {
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
static int settrick (lua_State *L) {
|
||||||
|
Trick = lua_tointeger(L, 1);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*static int set_gcstate (lua_State *L) {
|
||||||
|
static const char *const state[] = {"propagate", "sweep", "finalize"};
|
||||||
|
return 0;
|
||||||
|
}*/
|
||||||
|
|
||||||
|
|
||||||
|
static int get_gccolor (lua_State *L) {
|
||||||
|
TValue *o;
|
||||||
|
luaL_checkany(L, 1);
|
||||||
|
o = obj_at(L, 1);
|
||||||
|
if (!iscollectable(o))
|
||||||
|
lua_pushstring(L, "no collectable");
|
||||||
|
else
|
||||||
|
lua_pushstring(L, iswhite(gcvalue(o)) ? "white" :
|
||||||
|
isblack(gcvalue(o)) ? "black" : "grey");
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
static int gcstate (lua_State *L) {
|
||||||
|
switch(G(L)->gcstate) {
|
||||||
|
case GCSpropagate: lua_pushstring(L, "propagate"); break;
|
||||||
|
case GCSsweepstring: lua_pushstring(L, "sweep strings"); break;
|
||||||
|
case GCSsweep: lua_pushstring(L, "sweep"); break;
|
||||||
|
case GCSfinalize: lua_pushstring(L, "finalize"); break;
|
||||||
|
}
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
static int hash_query (lua_State *L) {
|
static int hash_query (lua_State *L) {
|
||||||
if (lua_isnone(L, 2)) {
|
if (lua_isnone(L, 2)) {
|
||||||
luaL_argcheck(L, lua_type(L, 1) == LUA_TSTRING, 1, "string expected");
|
luaL_argcheck(L, lua_type(L, 1) == LUA_TSTRING, 1, "string expected");
|
||||||
lua_pushinteger(L, tsvalue(func_at(L, 1))->hash);
|
lua_pushinteger(L, tsvalue(obj_at(L, 1))->hash);
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
TValue *o = func_at(L, 1);
|
TValue *o = obj_at(L, 1);
|
||||||
Table *t;
|
Table *t;
|
||||||
luaL_checktype(L, 2, LUA_TTABLE);
|
luaL_checktype(L, 2, LUA_TTABLE);
|
||||||
t = hvalue(func_at(L, 2));
|
t = hvalue(obj_at(L, 2));
|
||||||
lua_pushinteger(L, luaH_mainposition(t, o) - t->node);
|
lua_pushinteger(L, luaH_mainposition(t, o) - t->node);
|
||||||
}
|
}
|
||||||
return 1;
|
return 1;
|
||||||
|
@ -479,7 +534,7 @@ static int table_query (lua_State *L) {
|
||||||
const Table *t;
|
const Table *t;
|
||||||
int i = luaL_optint(L, 2, -1);
|
int i = luaL_optint(L, 2, -1);
|
||||||
luaL_checktype(L, 1, LUA_TTABLE);
|
luaL_checktype(L, 1, LUA_TTABLE);
|
||||||
t = hvalue(func_at(L, 1));
|
t = hvalue(obj_at(L, 1));
|
||||||
if (i == -1) {
|
if (i == -1) {
|
||||||
lua_pushinteger(L, t->sizearray);
|
lua_pushinteger(L, t->sizearray);
|
||||||
lua_pushinteger(L, sizenode(t));
|
lua_pushinteger(L, sizenode(t));
|
||||||
|
@ -979,6 +1034,10 @@ static const struct luaL_reg tests_funcs[] = {
|
||||||
{"querytab", table_query},
|
{"querytab", table_query},
|
||||||
{"doit", test_do},
|
{"doit", test_do},
|
||||||
{"testC", testC},
|
{"testC", testC},
|
||||||
|
{"checkmemory", lua_checkmemory},
|
||||||
|
{"gccolor", get_gccolor},
|
||||||
|
{"gcstate", gcstate},
|
||||||
|
{"trick", settrick},
|
||||||
{"ref", tref},
|
{"ref", tref},
|
||||||
{"getref", getref},
|
{"getref", getref},
|
||||||
{"unref", unref},
|
{"unref", unref},
|
||||||
|
@ -995,7 +1054,6 @@ static const struct luaL_reg tests_funcs[] = {
|
||||||
{"doremote", doremote},
|
{"doremote", doremote},
|
||||||
{"log2", log2_aux},
|
{"log2", log2_aux},
|
||||||
{"int2fb", int2fb_aux},
|
{"int2fb", int2fb_aux},
|
||||||
{"setgcthreshold", setgcthreshold},
|
|
||||||
{"totalmem", mem_query},
|
{"totalmem", mem_query},
|
||||||
{"resume", coresume},
|
{"resume", coresume},
|
||||||
{"setyhook", setyhook},
|
{"setyhook", setyhook},
|
||||||
|
|
11
ltests.h
11
ltests.h
|
@ -1,5 +1,5 @@
|
||||||
/*
|
/*
|
||||||
** $Id: ltests.h,v 2.1 2003/12/10 12:13:36 roberto Exp roberto $
|
** $Id: ltests.h,v 2.2 2004/02/16 19:09:52 roberto Exp roberto $
|
||||||
** Internal Header for Debugging of the Lua Implementation
|
** Internal Header for Debugging of the Lua Implementation
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
|
@ -35,6 +35,13 @@ typedef struct Memcontrol {
|
||||||
|
|
||||||
extern Memcontrol memcontrol;
|
extern Memcontrol memcontrol;
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** generic variable for debug tricks
|
||||||
|
*/
|
||||||
|
extern int Trick;
|
||||||
|
|
||||||
|
|
||||||
void *debug_realloc (void *ud, void *block, size_t osize, size_t nsize);
|
void *debug_realloc (void *ud, void *block, size_t osize, size_t nsize);
|
||||||
|
|
||||||
#ifdef lua_c
|
#ifdef lua_c
|
||||||
|
@ -42,7 +49,7 @@ void *debug_realloc (void *ud, void *block, size_t osize, size_t nsize);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
void luaC_checkall (lua_State *L);
|
int lua_checkmemory (lua_State *L);
|
||||||
|
|
||||||
|
|
||||||
/* test for lock/unlock */
|
/* test for lock/unlock */
|
||||||
|
|
Loading…
Reference in New Issue