| 312 | |
| 313 | |
| 314 | static void printobj (global_State *g, GCObject *o) { |
| 315 | printf("||%s(%p)-%c%c(%02X)||", |
| 316 | ttypename(novariant(o->tt)), (void *)o, |
| 317 | isdead(g,o) ? 'd' : isblack(o) ? 'b' : iswhite(o) ? 'w' : 'g', |
| 318 | "ns01oTt"[getage(o)], o->marked); |
| 319 | if (o->tt == LUA_VSHRSTR || o->tt == LUA_VLNGSTR) |
| 320 | printf(" '%s'", getstr(gco2ts(o))); |
| 321 | } |
| 322 | |
| 323 | |
| 324 | void lua_printobj (lua_State *L, struct GCObject *o) { |
no outgoing calls
no test coverage detected