diff options
Diffstat (limited to 'ldebug.c')
-rw-r--r-- | ldebug.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldebug.c,v 2.150 2017/12/20 14:58:05 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.151 2017/12/28 15:42:57 roberto Exp roberto $ |
3 | ** Debug Interface | 3 | ** Debug Interface |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -722,10 +722,10 @@ const char *luaG_addinfo (lua_State *L, const char *msg, TString *src, | |||
722 | l_noret luaG_errormsg (lua_State *L) { | 722 | l_noret luaG_errormsg (lua_State *L) { |
723 | if (L->errfunc != 0) { /* is there an error handling function? */ | 723 | if (L->errfunc != 0) { /* is there an error handling function? */ |
724 | StkId errfunc = restorestack(L, L->errfunc); | 724 | StkId errfunc = restorestack(L, L->errfunc); |
725 | lua_assert(ttisfunction(s2v(errfunc))); | ||
725 | setobjs2s(L, L->top, L->top - 1); /* move argument */ | 726 | setobjs2s(L, L->top, L->top - 1); /* move argument */ |
726 | setobjs2s(L, L->top - 1, errfunc); /* push function */ | 727 | setobjs2s(L, L->top - 1, errfunc); /* push function */ |
727 | L->top++; /* assume EXTRA_STACK */ | 728 | L->top++; /* assume EXTRA_STACK */ |
728 | luaE_incCcalls(L); | ||
729 | luaD_callnoyield(L, L->top - 2, 1); /* call it */ | 729 | luaD_callnoyield(L, L->top - 2, 1); /* call it */ |
730 | } | 730 | } |
731 | luaD_throw(L, LUA_ERRRUN); | 731 | luaD_throw(L, LUA_ERRRUN); |