diff options
-rw-r--r-- | lapi.c | 2 | ||||
-rw-r--r-- | lvm.h | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -654,7 +654,7 @@ LUA_API void lua_concat (lua_State *L, int n) { | |||
654 | lua_lock(L); | 654 | lua_lock(L); |
655 | api_checknelems(L, n); | 655 | api_checknelems(L, n); |
656 | if (n >= 2) { | 656 | if (n >= 2) { |
657 | luaV_strconc(L, n, L->top); | 657 | luaV_strconc(L, n, L->top - L->ci->base - 1); |
658 | L->top -= (n-1); | 658 | L->top -= (n-1); |
659 | luaC_checkGC(L); | 659 | luaC_checkGC(L); |
660 | } | 660 | } |
@@ -22,6 +22,6 @@ void luaV_gettable (lua_State *L, StkId t, TObject *key, StkId res); | |||
22 | void luaV_settable (lua_State *L, StkId t, TObject *key, StkId val); | 22 | void luaV_settable (lua_State *L, StkId t, TObject *key, StkId val); |
23 | StkId luaV_execute (lua_State *L); | 23 | StkId luaV_execute (lua_State *L); |
24 | int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r); | 24 | int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r); |
25 | void luaV_strconc (lua_State *L, int total, StkId top); | 25 | void luaV_strconc (lua_State *L, int total, int last); |
26 | 26 | ||
27 | #endif | 27 | #endif |