diff options
Diffstat (limited to 'ldo.c')
| -rw-r--r-- | ldo.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -406,7 +406,7 @@ static void moveresults (lua_State *L, StkId res, int nres, int wanted) { | |||
| 406 | default: /* multiple results (or to-be-closed variables) */ | 406 | default: /* multiple results (or to-be-closed variables) */ |
| 407 | if (hastocloseCfunc(wanted)) { /* to-be-closed variables? */ | 407 | if (hastocloseCfunc(wanted)) { /* to-be-closed variables? */ |
| 408 | ptrdiff_t savedres = savestack(L, res); | 408 | ptrdiff_t savedres = savestack(L, res); |
| 409 | luaF_close(L, res, CLOSEKTOP); /* may change the stack */ | 409 | luaF_close(L, res, CLOSEKTOP, 0); /* may change the stack */ |
| 410 | res = restorestack(L, savedres); | 410 | res = restorestack(L, savedres); |
| 411 | wanted = codeNresults(wanted); /* correct value */ | 411 | wanted = codeNresults(wanted); /* correct value */ |
| 412 | if (wanted == LUA_MULTRET) | 412 | if (wanted == LUA_MULTRET) |
| @@ -647,7 +647,7 @@ static void recover (lua_State *L, void *ud) { | |||
| 647 | /* "finish" luaD_pcall */ | 647 | /* "finish" luaD_pcall */ |
| 648 | L->ci = ci; | 648 | L->ci = ci; |
| 649 | L->allowhook = getoah(ci->callstatus); /* restore original 'allowhook' */ | 649 | L->allowhook = getoah(ci->callstatus); /* restore original 'allowhook' */ |
| 650 | luaF_close(L, func, status); /* may change the stack */ | 650 | luaF_close(L, func, status, 0); /* may change the stack */ |
| 651 | func = restorestack(L, ci->u2.funcidx); | 651 | func = restorestack(L, ci->u2.funcidx); |
| 652 | luaD_seterrorobj(L, status, func); | 652 | luaD_seterrorobj(L, status, func); |
| 653 | luaD_shrinkstack(L); /* restore stack size in case of overflow */ | 653 | luaD_shrinkstack(L); /* restore stack size in case of overflow */ |
| @@ -803,7 +803,7 @@ struct CloseP { | |||
| 803 | */ | 803 | */ |
| 804 | static void closepaux (lua_State *L, void *ud) { | 804 | static void closepaux (lua_State *L, void *ud) { |
| 805 | struct CloseP *pcl = cast(struct CloseP *, ud); | 805 | struct CloseP *pcl = cast(struct CloseP *, ud); |
| 806 | luaF_close(L, pcl->level, pcl->status); | 806 | luaF_close(L, pcl->level, pcl->status, 0); |
| 807 | } | 807 | } |
| 808 | 808 | ||
| 809 | 809 | ||
