From 18cfd89a86af550b3c4663def77a5fac46e895ae Mon Sep 17 00:00:00 2001 From: kwolekr Date: Mon, 10 Aug 2015 01:38:09 -0400 Subject: Display Lua memory usage at the time of Out-of-Memory error Also misc. minor cleanups --- src/script/common/c_internal.cpp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src/script/common') diff --git a/src/script/common/c_internal.cpp b/src/script/common/c_internal.cpp index bebf6ee69..0df0a7270 100644 --- a/src/script/common/c_internal.cpp +++ b/src/script/common/c_internal.cpp @@ -113,6 +113,11 @@ void script_error(lua_State *L, int pcall_result, const char *fxn) } err_msg += err_descr; + if (pcall_result == LUA_ERRMEM) { + err_msg += "\nCurrent Lua memory usage: " + + itos(lua_gc(L, LUA_GCCOUNT, 0) >> 10) + " MB"; + } + throw LuaError(err_msg); } @@ -145,7 +150,9 @@ void script_run_callbacks_f(lua_State *L, int nargs, // Stack now looks like this: // ... ... - script_error(L, lua_pcall(L, nargs + 2, 1, errorhandler), fxn); + int result = lua_pcall(L, nargs + 2, 1, errorhandler); + if (result != 0) + script_error(L, result, fxn); lua_remove(L, -2); // Remove error handler } @@ -161,8 +168,7 @@ void log_deprecated(lua_State *L, const std::string &message) std::string value = g_settings->get("deprecated_lua_api_handling"); if (value == "log") { dolog = true; - } - if (value == "error") { + } else if (value == "error") { dolog = true; doerror = true; } -- cgit v1.2.3