diff options
Diffstat (limited to 'lref.c')
-rw-r--r-- | lref.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lref.c,v 1.7 2000/02/08 16:34:31 roberto Exp roberto $ | 2 | ** $Id: lref.c,v 1.8 2000/03/03 14:58:26 roberto Exp roberto $ |
3 | ** reference mechanism | 3 | ** reference mechanism |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -17,7 +17,7 @@ | |||
17 | int lua_ref (lua_State *L, int lock) { | 17 | int lua_ref (lua_State *L, int lock) { |
18 | int ref; | 18 | int ref; |
19 | luaA_checkCargs(L, 1); | 19 | luaA_checkCargs(L, 1); |
20 | if (ttype(L->top-1) == LUA_T_NIL) | 20 | if (ttype(L->top-1) == TAG_NIL) |
21 | ref = LUA_REFNIL; | 21 | ref = LUA_REFNIL; |
22 | else { | 22 | else { |
23 | if (L->refFree != NONEXT) { /* is there a free place? */ | 23 | if (L->refFree != NONEXT) { /* is there a free place? */ |
@@ -82,13 +82,13 @@ void lua_endblock (lua_State *L) { | |||
82 | static int ismarked (const TObject *o) { | 82 | static int ismarked (const TObject *o) { |
83 | /* valid only for locked objects */ | 83 | /* valid only for locked objects */ |
84 | switch (o->ttype) { | 84 | switch (o->ttype) { |
85 | case LUA_T_STRING: case LUA_T_USERDATA: | 85 | case TAG_STRING: case TAG_USERDATA: |
86 | return o->value.ts->marked; | 86 | return o->value.ts->marked; |
87 | case LUA_T_ARRAY: | 87 | case TAG_ARRAY: |
88 | return o->value.a->marked; | 88 | return o->value.a->marked; |
89 | case LUA_T_LCLOSURE: case LUA_T_CCLOSURE: | 89 | case TAG_LCLOSURE: case TAG_CCLOSURE: |
90 | return o->value.cl->marked; | 90 | return o->value.cl->marked; |
91 | case LUA_T_LPROTO: | 91 | case TAG_LPROTO: |
92 | return o->value.tf->marked; | 92 | return o->value.tf->marked; |
93 | default: /* number or cproto */ | 93 | default: /* number or cproto */ |
94 | return 1; | 94 | return 1; |