at 22.05-pre 1.1 kB view raw
1diff --git a/src/lxplib.c b/src/lxplib.c 2index 1c972db..5712611 100644 3--- a/src/lxplib.c 4+++ b/src/lxplib.c 5@@ -590,7 +590,7 @@ static void set_info (lua_State *L) { 6 /* 7 ** Adapted from Lua 5.2.0 8 */ 9-static void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { 10+static void compat_luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { 11 luaL_checkstack(L, nup, "too many upvalues"); 12 for (; l->name != NULL; l++) { /* fill the table with given functions */ 13 int i; 14@@ -602,6 +602,8 @@ static void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { 15 } 16 lua_pop(L, nup); /* remove upvalues */ 17 } 18+#else 19+#define compat_luaL_setfuncs(L, reg, nup) luaL_setfuncs(L, reg, nup) 20 #endif 21 22 23@@ -612,11 +614,11 @@ int luaopen_lxp (lua_State *L) { 24 lua_pushvalue(L, -2); 25 lua_rawset(L, -3); 26 27- luaL_setfuncs (L, lxp_meths, 0); 28+ compat_luaL_setfuncs (L, lxp_meths, 0); 29 lua_pop (L, 1); /* remove metatable */ 30 31 lua_newtable (L); 32- luaL_setfuncs (L, lxp_funcs, 0); 33+ compat_luaL_setfuncs (L, lxp_funcs, 0); 34 set_info (L); 35 return 1; 36 }