diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2010-05-07 15:23:17 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2010-05-07 15:23:17 -0300 |
| commit | fa2ddb070acf3c15afe0d721695d7578eeebf4b9 (patch) | |
| tree | c10361ad4cfc28c5eae0baddebf7bbaab3927655 /ltests.c | |
| parent | 0fac33da9eba15464c186c8645d81920c245e944 (diff) | |
| download | lua-fa2ddb070acf3c15afe0d721695d7578eeebf4b9.tar.gz lua-fa2ddb070acf3c15afe0d721695d7578eeebf4b9.tar.bz2 lua-fa2ddb070acf3c15afe0d721695d7578eeebf4b9.zip | |
details (to avoid too long strings in assertions)
Diffstat (limited to 'ltests.c')
| -rw-r--r-- | ltests.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ltests.c,v 2.102 2010/05/06 18:16:57 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 2.103 2010/05/07 18:09:23 roberto Exp roberto $ |
| 3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -415,13 +415,13 @@ int lua_checkmemory (lua_State *L) { | |||
| 415 | global_State *g = G(L); | 415 | global_State *g = G(L); |
| 416 | GCObject *o; | 416 | GCObject *o; |
| 417 | UpVal *uv; | 417 | UpVal *uv; |
| 418 | checkliveness(g, &g->l_registry); | ||
| 419 | checkstack(g, g->mainthread); | ||
| 420 | g->mainthread->marked = resetbit(g->mainthread->marked, TESTGRAYBIT); | ||
| 421 | if (keepinvariant(g)) { | 418 | if (keepinvariant(g)) { |
| 422 | lua_assert(!iswhite(obj2gco(g->mainthread))); | 419 | lua_assert(!iswhite(obj2gco(g->mainthread))); |
| 423 | lua_assert(!iswhite(gcvalue(&g->l_registry))); | 420 | lua_assert(!iswhite(gcvalue(&g->l_registry))); |
| 424 | } | 421 | } |
| 422 | lua_assert(!isdead(g, gcvalue(&g->l_registry))); | ||
| 423 | checkstack(g, g->mainthread); | ||
| 424 | g->mainthread->marked = resetbit(g->mainthread->marked, TESTGRAYBIT); | ||
| 425 | /* check 'allgc' list */ | 425 | /* check 'allgc' list */ |
| 426 | markgrays(g); | 426 | markgrays(g); |
| 427 | checkold(g, g->allgc); | 427 | checkold(g, g->allgc); |