diff options
Diffstat (limited to 'ltests.c')
-rw-r--r-- | ltests.c | 21 |
1 files changed, 1 insertions, 20 deletions
@@ -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 | ||
1081 | static 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 | |||
1090 | static 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}, |