Fixes crash when Eluna.TraceBack is true (#501)

This reverts commit 24cae10.

Fixes crash with hook calls nested within method calls when
Eluna.TraceBack is true

Author: Rochet2

LuaEngine.cpp

@@ -103,7 +103,6 @@ void Eluna::CloseLua()
     if (L)
         lua_close(L);
     L = NULL;
-    stacktraceFunctionStackIndex = 0;
 
     instanceDataRefs.clear();
     continentDataRefs.clear();
@@ -174,10 +173,6 @@ void Eluna::OpenLua()
     lua_pushcfunction(L, &PrecompiledLoader);
     lua_rawseti(L, -2, newLoaderIndex);
     lua_pop(L, 2); // pop loaders/searchers table, pop package table
-
-    // Leave StackTrace function on stack and save reference to it
-    lua_pushcfunction(L, &StackTrace);
-    stacktraceFunctionStackIndex = lua_gettop(L);
 }
 
 void Eluna::CreateBindStores()
@@ -370,16 +365,24 @@ bool Eluna::ExecuteCall(int params, int res)
     }
 
     bool usetrace = sElunaConfig->GetConfig(CONFIG_ELUNA_TRACEBACK);
-    if (usetrace && !lua_iscfunction(L, stacktraceFunctionStackIndex))
+    if (usetrace)
     {
-        ELUNA_LOG_ERROR("[Eluna]: Cannot execute call: registered value is %s, not a c-function.", luaL_tolstring(L, stacktraceFunctionStackIndex, NULL));
-        ASSERT(false); // stack probably corrupt
+        lua_pushcfunction(L, &StackTrace);
+        // Stack: function, [parameters], traceback
+        lua_insert(L, base);
+        // Stack: traceback, function, [parameters]
     }
 
     // Objects are invalidated when event_level hits 0
     ++event_level;
-    int result = lua_pcall(L, params, res, usetrace ? stacktraceFunctionStackIndex : 0);
+    int result = lua_pcall(L, params, res, usetrace ? base : 0);
     --event_level;
+
+    if (usetrace)
+    {
+        // Stack: traceback, [results or errmsg]
+        lua_remove(L, base);
+    }
     // Stack: [results or errmsg]
 
     // lua_pcall returns 0 on success.

LuaEngine.h

@@ -174,10 +174,6 @@ class ELUNA_GAME_API Eluna
     // Whether or not Eluna is in compatibility mode. Used in some method wrappers.
     bool compatibilityMode;
 
-    // Index of the Eluna::StackTrace function pushed to the lua state stack when lua is opened
-    // We store the function to stack on lua open because it cannot be a pseudo-index (must be on stack) and we want access it on every call
-    int stacktraceFunctionStackIndex = 0;
-
     // Map from instance ID -> Lua table ref
     std::unordered_map<uint32, int> instanceDataRefs;
     // Map from map ID -> Lua table ref