rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

new function 'isgclocal' + test for GC consistency of prototype's caches

This commit is contained in:
Roberto Ierusalimschy 2013-08-19 11:16:33 -03:00
parent caceeab750
commit 8e6b7ef9ab
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ltests.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 2.143 2013/08/16 19:02:31 roberto Exp roberto $ ** $Id: ltests.c,v 2.144 2013/08/18 16:12:18 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
*/ */
@ -203,6 +203,8 @@ static int testobjref2 (GCObject *f, GCObject *t) {
UpVal *uv = gco2uv(f); UpVal *uv = gco2uv(f);
return (uv->v != &uv->value); /* open upvalue can point to local stuff */ return (uv->v != &uv->value); /* open upvalue can point to local stuff */
} }
if (gch(f)->tt == LUA_TPROTO && gch(t)->tt == LUA_TLCL)
return 1; /* cache from a prototype */
return 0; return 0;
} }
@ -274,6 +276,7 @@ static void checktable (global_State *g, Table *h) {
static void checkproto (global_State *g, Proto *f) { static void checkproto (global_State *g, Proto *f) {
int i; int i;
GCObject *fgc = obj2gco(f); GCObject *fgc = obj2gco(f);
if (f->cache) checkobjref(g, fgc, f->cache);
if (f->source) checkobjref(g, fgc, f->source); if (f->source) checkobjref(g, fgc, f->source);
for (i=0; i<f->sizek; i++) { for (i=0; i<f->sizek; i++) {
if (ttisstring(f->k+i)) if (ttisstring(f->k+i))
@ -634,7 +637,7 @@ static int settrick (lua_State *L) {
} }
static int get_gccolor (lua_State *L) { static int gc_color (lua_State *L) {
TValue *o; TValue *o;
luaL_checkany(L, 1); luaL_checkany(L, 1);
o = obj_at(L, 1); o = obj_at(L, 1);
@ -647,6 +650,15 @@ static int get_gccolor (lua_State *L) {
} }
static int gc_local (lua_State *L) {
TValue *o;
luaL_checkany(L, 1);
o = obj_at(L, 1);
lua_pushboolean(L, !iscollectable(o) || islocal(gcvalue(o)));
return 1;
}
static int gc_state (lua_State *L) { static int gc_state (lua_State *L) {
static const char *statenames[] = {"propagate", "atomic", static const char *statenames[] = {"propagate", "atomic",
"sweepstring", "sweepudata", "sweep", "pause", ""}; "sweepstring", "sweepudata", "sweep", "pause", ""};
@ -1447,7 +1459,8 @@ static const struct luaL_Reg tests_funcs[] = {
{"d2s", d2s}, {"d2s", d2s},
{"doonnewstack", doonnewstack}, {"doonnewstack", doonnewstack},
{"doremote", doremote}, {"doremote", doremote},
{"gccolor", get_gccolor}, {"gccolor", gc_color},
{"isgclocal", gc_local},
{"gcstate", gc_state}, {"gcstate", gc_state},
{"getref", getref}, {"getref", getref},
{"hash", hash_query}, {"hash", hash_query},