diff --git a/luprex/eris-master/src/lbaselib.c b/luprex/eris-master/src/lbaselib.c index 7c890bc0..8c5675d6 100644 --- a/luprex/eris-master/src/lbaselib.c +++ b/luprex/eris-master/src/lbaselib.c @@ -20,11 +20,6 @@ #include "lualib.h" -static int luaB_printaddr (lua_State *L) { - int n = lua_gettop(L); - -} - static int luaB_print (lua_State *L) { int n = lua_gettop(L); /* number of arguments */ int i; diff --git a/luprex/eris-master/src/ldebug.c b/luprex/eris-master/src/ldebug.c index 66a9c956..c72ab4cf 100644 --- a/luprex/eris-master/src/ldebug.c +++ b/luprex/eris-master/src/ldebug.c @@ -571,24 +571,20 @@ l_noret luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) { } -static void addinfo (lua_State *L, const char *msg) { - CallInfo *ci = L->ci; - if (isLua(ci)) { /* is Lua code? */ - char buff[LUA_IDSIZE]; /* add file:line information */ - int line = currentline(ci); - TString *src = ci_func(ci)->p->source; - if (src) - luaO_chunkid(buff, getstr(src), LUA_IDSIZE); - else { /* no source available; use "?" instead */ - buff[0] = '?'; buff[1] = '\0'; - } - luaO_pushfstring(L, "%s:%d: %s", buff, line, msg); - } -} - -static void no_addinfo (lua_State *L, const char *msg) { - // do nothing. -} +// static void addinfo (lua_State *L, const char *msg) { +// CallInfo *ci = L->ci; +// if (isLua(ci)) { /* is Lua code? */ +// char buff[LUA_IDSIZE]; /* add file:line information */ +// int line = currentline(ci); +// TString *src = ci_func(ci)->p->source; +// if (src) +// luaO_chunkid(buff, getstr(src), LUA_IDSIZE); +// else { /* no source available; use "?" instead */ +// buff[0] = '?'; buff[1] = '\0'; +// } +// luaO_pushfstring(L, "%s:%d: %s", buff, line, msg); +// } +// } l_noret luaG_errormsg (lua_State *L) { if (L->errfunc != 0) { /* is there an error handling function? */ @@ -606,7 +602,7 @@ l_noret luaG_errormsg (lua_State *L) { l_noret luaG_runerror (lua_State *L, const char *fmt, ...) { va_list argp; va_start(argp, fmt); - no_addinfo(L, luaO_pushvfstring(L, fmt, argp)); + // addinfo(L, luaO_pushvfstring(L, fmt, argp)); va_end(argp); luaG_errormsg(L); } diff --git a/luprex/eris-master/src/lgc.c b/luprex/eris-master/src/lgc.c index e1f58441..153ff24a 100644 --- a/luprex/eris-master/src/lgc.c +++ b/luprex/eris-master/src/lgc.c @@ -647,7 +647,6 @@ static void clearvalues (global_State *g, GCObject *l, GCObject *f) { int i; for (i = 0; i < h->sizearray; i++) { ANode *anode = h->array + i; - TValue *o = &h->array[i].i_val; if (iscleared(g, &anode->i_val)) /* value was collected? */ luaH_setnil(h, anode); }