summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lapi.c2
-rw-r--r--lvm.h2
2 files changed, 2 insertions, 2 deletions
diff --git a/lapi.c b/lapi.c
index 1331d4c4..65781254 100644
--- a/lapi.c
+++ b/lapi.c
@@ -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 }
diff --git a/lvm.h b/lvm.h
index ebe15e65..b69c5411 100644
--- a/lvm.h
+++ b/lvm.h
@@ -22,6 +22,6 @@ void luaV_gettable (lua_State *L, StkId t, TObject *key, StkId res);
22void luaV_settable (lua_State *L, StkId t, TObject *key, StkId val); 22void luaV_settable (lua_State *L, StkId t, TObject *key, StkId val);
23StkId luaV_execute (lua_State *L); 23StkId luaV_execute (lua_State *L);
24int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r); 24int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r);
25void luaV_strconc (lua_State *L, int total, StkId top); 25void luaV_strconc (lua_State *L, int total, int last);
26 26
27#endif 27#endif