nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

preparations for stack reallocation

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-01-16 20:04:50 -02:00
parent 7ab7703b53
commit dea98702c9
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lapi.c
View File

@@ -654,7 +654,7 @@ LUA_API void lua_concat (lua_State *L, int n) {
lua_lock(L); lua_lock(L);
api_checknelems(L, n); api_checknelems(L, n);
if (n >= 2) { if (n >= 2) {
luaV_strconc(L, n, L->top); luaV_strconc(L, n, L->top - L->ci->base - 1);
L->top -= (n-1); L->top -= (n-1);
luaC_checkGC(L); luaC_checkGC(L);
} }

2
lvm.h
View File

@@ -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); void luaV_settable (lua_State *L, StkId t, TObject *key, StkId val);
StkId luaV_execute (lua_State *L); StkId luaV_execute (lua_State *L);
int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r); 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 #endif