From dea98702c97df5047567914fc68a7ceffcdca810 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 16 Jan 2002 20:04:50 -0200
Subject: [PATCH] preparations for stack reallocation

---
 lapi.c | 2 +-
 lvm.h  | 2 +-
 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) {
   lua_lock(L);
   api_checknelems(L, n);
   if (n >= 2) {
-    luaV_strconc(L, n, L->top);
+    luaV_strconc(L, n, L->top - L->ci->base - 1);
     L->top -= (n-1);
     luaC_checkGC(L);
   }
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);
 void luaV_settable (lua_State *L, StkId t, TObject *key, StkId val);
 StkId luaV_execute (lua_State *L);
 int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r);
-void luaV_strconc (lua_State *L, int total, StkId top);
+void luaV_strconc (lua_State *L, int total, int last);
 
 #endif