lua

A copy of the Lua development repository
Log | Files | Refs | README

commit 75057dfcedf9fb99660eed490c399ab3143e62c1
parent 345379b5ff7ce6f5a732a6954bfb5e83bce12036
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue,  8 Jun 2004 11:30:38 -0300


Diffstat:
Mlapi.c | 9++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lapi.c b/lapi.c @@ -1,5 +1,5 @@ /* -** $Id: lapi.c,v 2.10 2004/05/31 19:41:52 roberto Exp roberto $ +** $Id: lapi.c,v 2.11 2004/06/04 15:30:53 roberto Exp roberto $ ** Lua API ** See Copyright Notice in lua.h */ @@ -697,10 +697,15 @@ LUA_API int lua_setfenv (lua_State *L, int idx) { { if (nres == LUA_MULTRET && L->top >= L->ci->top) L->ci->top = L->top; } +#define checkresults(L,na,nr) \ + api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na))) + + LUA_API void lua_call (lua_State *L, int nargs, int nresults) { StkId func; lua_lock(L); api_checknelems(L, nargs+1); + checkresults(L, nargs, nresults); func = L->top - (nargs+1); luaD_call(L, func, nresults); adjustresults(L, nresults); @@ -730,6 +735,8 @@ LUA_API int lua_pcall (lua_State *L, int nargs, int nresults, int errfunc) { int status; ptrdiff_t func; lua_lock(L); + api_checknelems(L, nargs+1); + checkresults(L, nargs, nresults); if (errfunc == 0) func = 0; else {