aboutsummaryrefslogtreecommitdiff
path: root/ltests.c
diff options
context:
space:
mode:
Diffstat (limited to 'ltests.c')
-rw-r--r--ltests.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/ltests.c b/ltests.c
index 5ce089b9..03baa6e6 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltests.c,v 1.15 2000/04/13 16:51:01 roberto Exp roberto $ 2** $Id: ltests.c,v 1.16 2000/04/14 17:46:15 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*/
@@ -167,7 +167,7 @@ static void hash_query (lua_State *L) {
167 lua_Object o = luaL_nonnullarg(L, 1); 167 lua_Object o = luaL_nonnullarg(L, 1);
168 if (lua_getparam(L, 2) == LUA_NOOBJECT) { 168 if (lua_getparam(L, 2) == LUA_NOOBJECT) {
169 luaL_arg_check(L, ttype(o) == TAG_STRING, 1, "string expected"); 169 luaL_arg_check(L, ttype(o) == TAG_STRING, 1, "string expected");
170 lua_pushnumber(L, tsvalue(o)->hash); 170 lua_pushnumber(L, tsvalue(o)->u.s.hash);
171 } 171 }
172 else { 172 else {
173 const Hash *t = avalue(luaL_tablearg(L, 2)); 173 const Hash *t = avalue(luaL_tablearg(L, 2));
@@ -334,9 +334,6 @@ static void testC (lua_State *L) {
334 else if EQ("type") { 334 else if EQ("type") {
335 lua_pushstring(L, lua_type(L, reg[getreg(L, &pc)])); 335 lua_pushstring(L, lua_type(L, reg[getreg(L, &pc)]));
336 } 336 }
337 else if EQ("nextvar") {
338 lua_pushstring(L, lua_nextvar(L, lua_getstring(L, reg[getreg(L, &pc)])));
339 }
340 else if EQ("next") { 337 else if EQ("next") {
341 int n = getreg(L, &pc); 338 int n = getreg(L, &pc);
342 n = lua_next(L, reg[n], (int)lua_getnumber(L, reg[getreg(L, &pc)])); 339 n = lua_next(L, reg[n], (int)lua_getnumber(L, reg[getreg(L, &pc)]));