diff options
Diffstat (limited to 'table.c')
| -rw-r--r-- | table.c | 14 |
1 files changed, 7 insertions, 7 deletions
| @@ -3,7 +3,7 @@ | |||
| 3 | ** Module to control static tables | 3 | ** Module to control static tables |
| 4 | */ | 4 | */ |
| 5 | 5 | ||
| 6 | char *rcs_table="$Id: table.c,v 2.62 1997/03/21 21:39:57 roberto Exp roberto $"; | 6 | char *rcs_table="$Id: table.c,v 2.63 1997/03/26 22:22:41 roberto Exp roberto $"; |
| 7 | 7 | ||
| 8 | #include "mem.h" | 8 | #include "mem.h" |
| 9 | #include "opcode.h" | 9 | #include "opcode.h" |
| @@ -113,7 +113,7 @@ TaggedString *luaI_createfixedstring (char *name) | |||
| 113 | /* | 113 | /* |
| 114 | ** Traverse symbol table objects | 114 | ** Traverse symbol table objects |
| 115 | */ | 115 | */ |
| 116 | static char *lua_travsymbol (int (*fn)(Object *)) | 116 | static char *lua_travsymbol (int (*fn)(TObject *)) |
| 117 | { | 117 | { |
| 118 | Word i; | 118 | Word i; |
| 119 | for (i=0; i<lua_ntable; i++) | 119 | for (i=0; i<lua_ntable; i++) |
| @@ -126,7 +126,7 @@ static char *lua_travsymbol (int (*fn)(Object *)) | |||
| 126 | /* | 126 | /* |
| 127 | ** Mark an object if it is a string or a unmarked array. | 127 | ** Mark an object if it is a string or a unmarked array. |
| 128 | */ | 128 | */ |
| 129 | int lua_markobject (Object *o) | 129 | int lua_markobject (TObject *o) |
| 130 | {/* if already marked, does not change mark value */ | 130 | {/* if already marked, does not change mark value */ |
| 131 | if (ttype(o) == LUA_T_USERDATA || | 131 | if (ttype(o) == LUA_T_USERDATA || |
| 132 | (ttype(o) == LUA_T_STRING && !tsvalue(o)->marked)) | 132 | (ttype(o) == LUA_T_STRING && !tsvalue(o)->marked)) |
| @@ -142,7 +142,7 @@ int lua_markobject (Object *o) | |||
| 142 | /* | 142 | /* |
| 143 | * returns 0 if the object is going to be (garbage) collected | 143 | * returns 0 if the object is going to be (garbage) collected |
| 144 | */ | 144 | */ |
| 145 | int luaI_ismarked (Object *o) | 145 | int luaI_ismarked (TObject *o) |
| 146 | { | 146 | { |
| 147 | switch (o->ttype) | 147 | switch (o->ttype) |
| 148 | { | 148 | { |
| @@ -160,7 +160,7 @@ int luaI_ismarked (Object *o) | |||
| 160 | 160 | ||
| 161 | static void call_nilIM (void) | 161 | static void call_nilIM (void) |
| 162 | { /* signals end of garbage collection */ | 162 | { /* signals end of garbage collection */ |
| 163 | Object t; | 163 | TObject t; |
| 164 | ttype(&t) = LUA_T_NIL; | 164 | ttype(&t) = LUA_T_NIL; |
| 165 | luaI_gcIM(&t); /* end of list */ | 165 | luaI_gcIM(&t); /* end of list */ |
| 166 | } | 166 | } |
| @@ -227,8 +227,8 @@ void luaI_nextvar (void) | |||
| 227 | } | 227 | } |
| 228 | 228 | ||
| 229 | 229 | ||
| 230 | static Object *functofind; | 230 | static TObject *functofind; |
| 231 | static int checkfunc (Object *o) | 231 | static int checkfunc (TObject *o) |
| 232 | { | 232 | { |
| 233 | if (o->ttype == LUA_T_FUNCTION) | 233 | if (o->ttype == LUA_T_FUNCTION) |
| 234 | return | 234 | return |