diff options
-rw-r--r-- | src/compat.c | 5 | ||||
-rw-r--r-- | src/compat.h | 18 |
2 files changed, 14 insertions, 9 deletions
diff --git a/src/compat.c b/src/compat.c index 1290f70..34ffdaf 100644 --- a/src/compat.c +++ b/src/compat.c | |||
@@ -2,10 +2,11 @@ | |||
2 | #include "compat.h" | 2 | #include "compat.h" |
3 | 3 | ||
4 | #if LUA_VERSION_NUM==501 | 4 | #if LUA_VERSION_NUM==501 |
5 | |||
5 | /* | 6 | /* |
6 | ** Adapted from Lua 5.2 | 7 | ** Adapted from Lua 5.2 |
7 | */ | 8 | */ |
8 | LUASOCKET_PRIVATE void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { | 9 | void luasocket_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { |
9 | luaL_checkstack(L, nup+1, "too many upvalues"); | 10 | luaL_checkstack(L, nup+1, "too many upvalues"); |
10 | for (; l->name != NULL; l++) { /* fill the table with given functions */ | 11 | for (; l->name != NULL; l++) { /* fill the table with given functions */ |
11 | int i; | 12 | int i; |
@@ -21,7 +22,7 @@ LUASOCKET_PRIVATE void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) | |||
21 | /* | 22 | /* |
22 | ** Duplicated from Lua 5.2 | 23 | ** Duplicated from Lua 5.2 |
23 | */ | 24 | */ |
24 | LUASOCKET_PRIVATE void *luaL_testudata (lua_State *L, int ud, const char *tname) { | 25 | void *luasocket_testudata (lua_State *L, int ud, const char *tname) { |
25 | void *p = lua_touserdata(L, ud); | 26 | void *p = lua_touserdata(L, ud); |
26 | if (p != NULL) { /* value is a userdata? */ | 27 | if (p != NULL) { /* value is a userdata? */ |
27 | if (lua_getmetatable(L, ud)) { /* does it have a metatable? */ | 28 | if (lua_getmetatable(L, ud)) { /* does it have a metatable? */ |
diff --git a/src/compat.h b/src/compat.h index 49e83f9..8c32b07 100644 --- a/src/compat.h +++ b/src/compat.h | |||
@@ -1,14 +1,18 @@ | |||
1 | #ifndef COMPAT_H | 1 | #ifndef COMPAT_H |
2 | #define COMPAT_H | 2 | #define COMPAT_H |
3 | 3 | ||
4 | #include "lua.h" | ||
5 | #include "lauxlib.h" | ||
6 | |||
7 | #if LUA_VERSION_NUM==501 | 4 | #if LUA_VERSION_NUM==501 |
8 | #define luaL_setfuncs socket_setfuncs | 5 | |
9 | #define luaL_testudata socket_testudata | 6 | #pragma GCC visibility push(hidden) |
10 | void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup); | 7 | |
11 | void *luaL_testudata ( lua_State *L, int arg, const char *tname); | 8 | void luasocket_setfuncs (lua_State *L, const luaL_Reg *l, int nup); |
9 | void *luasocket_testudata ( lua_State *L, int arg, const char *tname); | ||
10 | |||
11 | #pragma GCC visibility pop | ||
12 | |||
13 | #define luaL_setfuncs luasocket_setfuncs | ||
14 | #define luaL_testudata luasocket_testudata | ||
15 | |||
12 | #endif | 16 | #endif |
13 | 17 | ||
14 | #endif | 18 | #endif |