diff options
Diffstat (limited to 'ltests.c')
-rw-r--r-- | ltests.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltests.c,v 1.7 2000/02/08 16:34:31 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 1.8 2000/02/21 18:30:06 roberto Exp roberto $ |
3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -39,7 +39,7 @@ static void mem_query (lua_State *L) { | |||
39 | static void hash_query (lua_State *L) { | 39 | static void hash_query (lua_State *L) { |
40 | lua_Object o = luaL_nonnullarg(L, 1); | 40 | lua_Object o = luaL_nonnullarg(L, 1); |
41 | if (lua_getparam(L, 2) == LUA_NOOBJECT) { | 41 | if (lua_getparam(L, 2) == LUA_NOOBJECT) { |
42 | luaL_arg_check(L, ttype(o) == LUA_T_STRING, 1, "string expected"); | 42 | luaL_arg_check(L, ttype(o) == TAG_STRING, 1, "string expected"); |
43 | lua_pushnumber(L, tsvalue(o)->hash); | 43 | lua_pushnumber(L, tsvalue(o)->hash); |
44 | } | 44 | } |
45 | else { | 45 | else { |
@@ -75,7 +75,7 @@ static void query_strings (lua_State *L) { | |||
75 | } | 75 | } |
76 | } | 76 | } |
77 | else { | 77 | else { |
78 | TaggedString *ts = L->string_root[h].hash[s]; | 78 | TString *ts = L->string_root[h].hash[s]; |
79 | for (ts = L->string_root[h].hash[s]; ts; ts = ts->nexthash) { | 79 | for (ts = L->string_root[h].hash[s]; ts; ts = ts->nexthash) { |
80 | if (ts->constindex == -1) lua_pushstring(L, "<USERDATA>"); | 80 | if (ts->constindex == -1) lua_pushstring(L, "<USERDATA>"); |
81 | else lua_pushstring(L, ts->str); | 81 | else lua_pushstring(L, ts->str); |