update

[l4.git] / l4 / pkg / lua / lib / contrib / src / ldo.c

diff --git a/l4/pkg/lua/lib/contrib/src/ldo.c b/l4/pkg/lua/lib/contrib/src/ldo.c
index 241b1d823ae3db5e9b88b86b548bdeb4674cdf4d..b23f3ab0cc29f6ca1dbed5e3bb6dc6eac91e4dc8 100644 (file)
--- a/l4/pkg/lua/lib/contrib/src/ldo.c
+++ b/l4/pkg/lua/lib/contrib/src/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 2.38.1.3 2008/01/18 22:31:22 roberto Exp $
+** $Id: ldo.c,v 2.38.1.4 2012/01/18 02:27:10 roberto Exp $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -217,6 +217,7 @@ static StkId adjust_varargs (lua_State *L, Proto *p, int actual) {
     int nvar = actual - nfixargs;  /* number of extra arguments */
     lua_assert(p->is_vararg & VARARG_HASARG);
     luaC_checkGC(L);
+    luaD_checkstack(L, p->maxstacksize);
     htab = luaH_new(L, nvar, 1);  /* create `arg' table */
     for (i=0; i<nvar; i++)  /* put extra arguments into `arg' table */
       setobj2n(L, luaH_setint(L, htab, i+1), L->top - nvar + i);
@@ -273,7 +274,7 @@ int luaD_precall (lua_State *L, StkId func, int nresults) {
     CallInfo *ci;
     StkId st, base;
     Proto *p = cl->p;
-    luaD_checkstack(L, p->maxstacksize);
+    luaD_checkstack(L, p->maxstacksize + p->numparams);
     func = restorestack(L, funcr);
     if (!p->is_vararg) {  /* no varargs? */
       base = func + 1;