aboutsummaryrefslogtreecommitdiff
path: root/ltests.c
diff options
context:
space:
mode:
Diffstat (limited to 'ltests.c')
-rw-r--r--ltests.c21
1 files changed, 1 insertions, 20 deletions
diff --git a/ltests.c b/ltests.c
index ba2f01a1..f27e21bd 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltests.c,v 2.27 2005/07/12 14:32:08 roberto Exp roberto $ 2** $Id: ltests.c,v 2.28 2005/08/15 14:12:32 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*/
@@ -1078,23 +1078,6 @@ static int auxgsub (lua_State *L) {
1078} 1078}
1079 1079
1080 1080
1081static int auxgetf (lua_State *L) {
1082 const char *s = luaL_checkstring(L, 1);
1083 lua_settop(L, 2);
1084 lua_pushstring(L, luaL_getfield(L, 2, s));
1085 lua_assert(lua_gettop(L) == 4);
1086 return 2;
1087}
1088
1089
1090static int auxsetf (lua_State *L) {
1091 const char *s = luaL_checkstring(L, 1);
1092 lua_settop(L, 3);
1093 lua_pushstring(L, luaL_setfield(L, 2, s));
1094 lua_assert(lua_gettop(L) == 3);
1095 return 1;
1096}
1097
1098/* }====================================================== */ 1081/* }====================================================== */
1099 1082
1100 1083
@@ -1107,7 +1090,6 @@ static const struct luaL_reg tests_funcs[] = {
1107 {"doremote", doremote}, 1090 {"doremote", doremote},
1108 {"gccolor", get_gccolor}, 1091 {"gccolor", get_gccolor},
1109 {"gcstate", gcstate}, 1092 {"gcstate", gcstate},
1110 {"getfield", auxgetf},
1111 {"getref", getref}, 1093 {"getref", getref},
1112 {"gsub", auxgsub}, 1094 {"gsub", auxgsub},
1113 {"hash", hash_query}, 1095 {"hash", hash_query},
@@ -1127,7 +1109,6 @@ static const struct luaL_reg tests_funcs[] = {
1127 {"ref", tref}, 1109 {"ref", tref},
1128 {"resume", coresume}, 1110 {"resume", coresume},
1129 {"s2d", s2d}, 1111 {"s2d", s2d},
1130 {"setfield", auxsetf},
1131 {"setyhook", setyhook}, 1112 {"setyhook", setyhook},
1132 {"stacklevel", stacklevel}, 1113 {"stacklevel", stacklevel},
1133 {"testC", testC}, 1114 {"testC", testC},