lihao/skynet
1
0
Fork 0
mirror of https://github.com/cloudwu/skynet.git synced 2026-07-25 04:33:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

remove luaL_traceback & fix lua_tounsignedx

Browse Source
This commit is contained in:
云风
2013-07-13 18:48:39 +08:00
parent fce4b6fee8
commit 9d231e4dd6
2 changed files with 1 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
luacompat/compat52.c
View File

@@ -113,7 +113,7 @@ lua_tonumberx(lua_State *L, int index, int *isnum) {
LUA_API lua_Unsigned LUA_API lua_Unsigned
lua_tounsignedx(lua_State *L, int idx, int *isnum) { lua_tounsignedx(lua_State *L, int idx, int *isnum) {
lua_Number n = lua_tonumberx(L, idx, isnum); lua_Number n = lua_tonumberx(L, idx, isnum);
return (lua_Unsigned)n; return return (lua_Unsigned)(int)n;
} }
LUA_API lua_Integer LUA_API lua_Integer
@@ -336,32 +336,6 @@ static int countlevels (lua_State *L) {
} }
LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1,
const char *msg, int level) {
lua_Debug ar;
int top = lua_gettop(L);
int numlevels = countlevels(L1);
int mark = (numlevels > LEVELS1 + LEVELS2) ? LEVELS1 : 0;
if (msg) lua_pushfstring(L, "%s\n", msg);
lua_pushliteral(L, "stack traceback:");
while (lua_getstack(L1, level++, &ar)) {
if (level == mark) { /* too many levels? */
lua_pushliteral(L, "\n\t..."); /* add a '...' */
level = numlevels - LEVELS2; /* and skip to last ones */
}
else {
lua_getinfo(L1, "Slnt", &ar);
lua_pushfstring(L, "\n\t%s:", ar.short_src);
if (ar.currentline > 0)
lua_pushfstring(L, "%d:", ar.currentline);
lua_pushliteral(L, " in ");
pushfuncname(L, &ar);
lua_concat(L, lua_gettop(L) - top);
}
}
lua_concat(L, lua_gettop(L) - top);
}
/* }====================================================== */ /* }====================================================== */
#else #else

3
luacompat/luacompat52.h
View File

@@ -80,9 +80,6 @@ LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname);
LUALIB_API const char *(luaL_tolstring) (lua_State *L, int idx, size_t *len); LUALIB_API const char *(luaL_tolstring) (lua_State *L, int idx, size_t *len);
LUALIB_API void (luaL_traceback) (lua_State *L, lua_State *L1,
const char *msg, int level);
#endif #endif
#endif #endif