aboutsummaryrefslogtreecommitdiff
path: root/lref.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2000-03-10 15:37:44 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2000-03-10 15:37:44 -0300
commit73aa465a8ed8dee6c6a27a6f8b2f51227b70789d (patch)
tree496a63ffffe0312f1d0b9882d97944fa38ed7801 /lref.c
parent3d0577f4b98908be3f2d697ab75c5fbbd3f6999b (diff)
downloadlua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.tar.gz
lua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.tar.bz2
lua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.zip
some name changes
Diffstat (limited to 'lref.c')
-rw-r--r--lref.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/lref.c b/lref.c
index eeb720a2..b401a1b5 100644
--- a/lref.c
+++ b/lref.c
@@ -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 @@
17int lua_ref (lua_State *L, int lock) { 17int 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) {
82static int ismarked (const TObject *o) { 82static 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;