diff options
| -rw-r--r-- | lapi.c | 6 | ||||
| -rw-r--r-- | ldblib.c | 14 | ||||
| -rw-r--r-- | lua.h | 8 |
3 files changed, 14 insertions, 14 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lapi.c,v 2.98 2009/11/09 18:29:21 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 2.99 2009/11/09 18:55:17 roberto Exp roberto $ |
| 3 | ** Lua API | 3 | ** Lua API |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -1108,7 +1108,7 @@ static UpVal **getupvalref (lua_State *L, int fidx, int n, Closure **pf) { | |||
| 1108 | } | 1108 | } |
| 1109 | 1109 | ||
| 1110 | 1110 | ||
| 1111 | LUA_API void *(lua_upvaladdr) (lua_State *L, int fidx, int n) { | 1111 | LUA_API void *(lua_upvalueid) (lua_State *L, int fidx, int n) { |
| 1112 | Closure *f; | 1112 | Closure *f; |
| 1113 | StkId fi = index2addr(L, fidx); | 1113 | StkId fi = index2addr(L, fidx); |
| 1114 | api_check(L, ttisfunction(fi), "function expected"); | 1114 | api_check(L, ttisfunction(fi), "function expected"); |
| @@ -1121,7 +1121,7 @@ LUA_API void *(lua_upvaladdr) (lua_State *L, int fidx, int n) { | |||
| 1121 | } | 1121 | } |
| 1122 | 1122 | ||
| 1123 | 1123 | ||
| 1124 | LUA_API void (lua_upvaljoin) (lua_State *L, int fidx1, int n1, | 1124 | LUA_API void (lua_upvaluejoin) (lua_State *L, int fidx1, int n1, |
| 1125 | int fidx2, int n2) { | 1125 | int fidx2, int n2) { |
| 1126 | Closure *f1; | 1126 | Closure *f1; |
| 1127 | UpVal **up1 = getupvalref(L, fidx1, n1, &f1); | 1127 | UpVal **up1 = getupvalref(L, fidx1, n1, &f1); |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldblib.c,v 1.113 2009/11/05 16:48:31 roberto Exp roberto $ | 2 | ** $Id: ldblib.c,v 1.114 2009/11/05 17:26:00 roberto Exp roberto $ |
| 3 | ** Interface from Lua to its debug API | 3 | ** Interface from Lua to its debug API |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -210,19 +210,19 @@ static int checkupval (lua_State *L, int argf, int argnup) { | |||
| 210 | } | 210 | } |
| 211 | 211 | ||
| 212 | 212 | ||
| 213 | static int db_upvaladdr (lua_State *L) { | 213 | static int db_upvalueid (lua_State *L) { |
| 214 | int n = checkupval(L, 1, 2); | 214 | int n = checkupval(L, 1, 2); |
| 215 | lua_pushlightuserdata(L, lua_upvaladdr(L, 1, n)); | 215 | lua_pushlightuserdata(L, lua_upvalueid(L, 1, n)); |
| 216 | return 1; | 216 | return 1; |
| 217 | } | 217 | } |
| 218 | 218 | ||
| 219 | 219 | ||
| 220 | static int db_joinupval (lua_State *L) { | 220 | static int db_joinupvalue (lua_State *L) { |
| 221 | int n1 = checkupval(L, 1, 2); | 221 | int n1 = checkupval(L, 1, 2); |
| 222 | int n2 = checkupval(L, 3, 4); | 222 | int n2 = checkupval(L, 3, 4); |
| 223 | luaL_argcheck(L, !lua_iscfunction(L, 1), 1, "Lua function expected"); | 223 | luaL_argcheck(L, !lua_iscfunction(L, 1), 1, "Lua function expected"); |
| 224 | luaL_argcheck(L, !lua_iscfunction(L, 3), 3, "Lua function expected"); | 224 | luaL_argcheck(L, !lua_iscfunction(L, 3), 3, "Lua function expected"); |
| 225 | lua_upvaljoin(L, 1, n1, 3, n2); | 225 | lua_upvaluejoin(L, 1, n1, 3, n2); |
| 226 | return 0; | 226 | return 0; |
| 227 | } | 227 | } |
| 228 | 228 | ||
| @@ -365,8 +365,8 @@ static const luaL_Reg dblib[] = { | |||
| 365 | {"getregistry", db_getregistry}, | 365 | {"getregistry", db_getregistry}, |
| 366 | {"getmetatable", db_getmetatable}, | 366 | {"getmetatable", db_getmetatable}, |
| 367 | {"getupvalue", db_getupvalue}, | 367 | {"getupvalue", db_getupvalue}, |
| 368 | {"joinupval", db_joinupval}, | 368 | {"joinupvalue", db_joinupvalue}, |
| 369 | {"upvaladdr", db_upvaladdr}, | 369 | {"upvalueid", db_upvalueid}, |
| 370 | {"setfenv", db_setfenv}, | 370 | {"setfenv", db_setfenv}, |
| 371 | {"sethook", db_sethook}, | 371 | {"sethook", db_sethook}, |
| 372 | {"setlocal", db_setlocal}, | 372 | {"setlocal", db_setlocal}, |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lua.h,v 1.248 2009/11/05 17:26:00 roberto Exp roberto $ | 2 | ** $Id: lua.h,v 1.249 2009/11/09 18:55:17 roberto Exp roberto $ |
| 3 | ** Lua - A Scripting Language | 3 | ** Lua - A Scripting Language |
| 4 | ** Lua.org, PUC-Rio, Brazil (http://www.lua.org) | 4 | ** Lua.org, PUC-Rio, Brazil (http://www.lua.org) |
| 5 | ** See Copyright Notice at the end of this file | 5 | ** See Copyright Notice at the end of this file |
| @@ -381,9 +381,9 @@ LUA_API const char *(lua_setlocal) (lua_State *L, const lua_Debug *ar, int n); | |||
| 381 | LUA_API const char *(lua_getupvalue) (lua_State *L, int funcindex, int n); | 381 | LUA_API const char *(lua_getupvalue) (lua_State *L, int funcindex, int n); |
| 382 | LUA_API const char *(lua_setupvalue) (lua_State *L, int funcindex, int n); | 382 | LUA_API const char *(lua_setupvalue) (lua_State *L, int funcindex, int n); |
| 383 | 383 | ||
| 384 | LUA_API void *(lua_upvaladdr) (lua_State *L, int fidx, int n); | 384 | LUA_API void *(lua_upvalueid) (lua_State *L, int fidx, int n); |
| 385 | LUA_API void (lua_upvaljoin) (lua_State *L, int fidx1, int n1, | 385 | LUA_API void (lua_upvaluejoin) (lua_State *L, int fidx1, int n1, |
| 386 | int fidx2, int n2); | 386 | int fidx2, int n2); |
| 387 | 387 | ||
| 388 | LUA_API int (lua_sethook) (lua_State *L, lua_Hook func, int mask, int count); | 388 | LUA_API int (lua_sethook) (lua_State *L, lua_Hook func, int mask, int count); |
| 389 | LUA_API lua_Hook (lua_gethook) (lua_State *L); | 389 | LUA_API lua_Hook (lua_gethook) (lua_State *L); |
