1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
commit d6719be4d52ca06e29bc5dd92c98fd03538ecec9
Author: Tomas Guisasola <tomasguisasola@gmail.com>
Date: Sat Sep 21 11:28:50 2013 -0300
Bug correction: the function didn't work with upvalues (thanks to Philipp Janda).
diff --git a/src/compat-5.2.c b/src/compat-5.2.c
index 1a60973..f54caa2 100644
--- a/src/compat-5.2.c
+++ b/src/compat-5.2.c
@@ -7,14 +7,14 @@
** Adapted from Lua 5.2.0
*/
void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) {
- luaL_checkstack(L, nup, "too many upvalues");
+ luaL_checkstack(L, nup+1, "too many upvalues");
for (; l->name != NULL; l++) { /* fill the table with given functions */
int i;
+ lua_pushstring(L, l->name);
for (i = 0; i < nup; i++) /* copy upvalues to the top */
lua_pushvalue(L, -nup);
- lua_pushstring(L, l->name);
lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */
- lua_settable(L, -(nup + 3));
+ lua_settable(L, -3);
}
lua_pop(L, nup); /* remove upvalues */
}
|
