diff options
Diffstat (limited to 'lgc.c')
-rw-r--r-- | lgc.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lgc.c,v 1.13 1997/12/15 16:17:20 roberto Exp roberto $ | 2 | ** $Id: lgc.c,v 1.14 1997/12/17 20:48:58 roberto Exp roberto $ |
3 | ** Garbage Collector | 3 | ** Garbage Collector |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -87,12 +87,12 @@ static int ismarked (TObject *o) | |||
87 | switch (o->ttype) { | 87 | switch (o->ttype) { |
88 | case LUA_T_STRING: case LUA_T_USERDATA: | 88 | case LUA_T_STRING: case LUA_T_USERDATA: |
89 | return o->value.ts->head.marked; | 89 | return o->value.ts->head.marked; |
90 | case LUA_T_ARRAY: | ||
91 | return o->value.a->head.marked; | ||
90 | case LUA_T_CLOSURE: | 92 | case LUA_T_CLOSURE: |
91 | return o->value.cl->head.marked; | 93 | return o->value.cl->head.marked; |
92 | case LUA_T_PROTO: | 94 | case LUA_T_PROTO: |
93 | return o->value.tf->head.marked; | 95 | return o->value.tf->head.marked; |
94 | case LUA_T_ARRAY: | ||
95 | return o->value.a->head.marked; | ||
96 | #ifdef DEBUG | 96 | #ifdef DEBUG |
97 | case LUA_T_LINE: case LUA_T_CLMARK: | 97 | case LUA_T_LINE: case LUA_T_CLMARK: |
98 | case LUA_T_CMARK: case LUA_T_PMARK: | 98 | case LUA_T_CMARK: case LUA_T_PMARK: |