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}, |
