diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-03-10 15:37:44 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-03-10 15:37:44 -0300 |
commit | 73aa465a8ed8dee6c6a27a6f8b2f51227b70789d (patch) | |
tree | 496a63ffffe0312f1d0b9882d97944fa38ed7801 /lref.c | |
parent | 3d0577f4b98908be3f2d697ab75c5fbbd3f6999b (diff) | |
download | lua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.tar.gz lua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.tar.bz2 lua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.zip |
some name changes
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; |