aboutsummaryrefslogtreecommitdiff
path: root/ltests.c
diff options
context:
space:
mode:
Diffstat (limited to 'ltests.c')
-rw-r--r--ltests.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/ltests.c b/ltests.c
index 90480097..8d712796 100644
--- a/ltests.c
+++ b/ltests.c
@@ -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) {
39static void hash_query (lua_State *L) { 39static 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);