diff options
Diffstat (limited to 'lapi.c')
-rw-r--r-- | lapi.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lapi.c,v 2.6 2004/04/05 14:43:17 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 2.7 2004/04/30 20:13:38 roberto Exp roberto $ |
3 | ** Lua API | 3 | ** Lua API |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -691,7 +691,7 @@ LUA_API int lua_setfenv (lua_State *L, int idx) { | |||
691 | */ | 691 | */ |
692 | 692 | ||
693 | 693 | ||
694 | #define adjuststack(L,nres) \ | 694 | #define adjustresults(L,nres) \ |
695 | { if (nres == LUA_MULTRET && L->top >= L->ci->top) L->ci->top = L->top; } | 695 | { if (nres == LUA_MULTRET && L->top >= L->ci->top) L->ci->top = L->top; } |
696 | 696 | ||
697 | 697 | ||
@@ -701,7 +701,7 @@ LUA_API void lua_call (lua_State *L, int nargs, int nresults) { | |||
701 | api_checknelems(L, nargs+1); | 701 | api_checknelems(L, nargs+1); |
702 | func = L->top - (nargs+1); | 702 | func = L->top - (nargs+1); |
703 | luaD_call(L, func, nresults); | 703 | luaD_call(L, func, nresults); |
704 | adjuststack(L, nresults); | 704 | adjustresults(L, nresults); |
705 | lua_unlock(L); | 705 | lua_unlock(L); |
706 | } | 706 | } |
707 | 707 | ||
@@ -738,7 +738,7 @@ LUA_API int lua_pcall (lua_State *L, int nargs, int nresults, int errfunc) { | |||
738 | c.func = L->top - (nargs+1); /* function to be called */ | 738 | c.func = L->top - (nargs+1); /* function to be called */ |
739 | c.nresults = nresults; | 739 | c.nresults = nresults; |
740 | status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func); | 740 | status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func); |
741 | adjuststack(L, nresults); | 741 | adjustresults(L, nresults); |
742 | lua_unlock(L); | 742 | lua_unlock(L); |
743 | return status; | 743 | return status; |
744 | } | 744 | } |