aboutsummaryrefslogtreecommitdiff
path: root/ldebug.c
diff options
context:
space:
mode:
Diffstat (limited to 'ldebug.c')
-rw-r--r--ldebug.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/ldebug.c b/ldebug.c
index 52335600..3ea6367f 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -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,
722l_noret luaG_errormsg (lua_State *L) { 722l_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);