aboutsummaryrefslogtreecommitdiff
path: root/lgc.c
diff options
context:
space:
mode:
Diffstat (limited to 'lgc.c')
-rw-r--r--lgc.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/lgc.c b/lgc.c
index bf0460d5..c834319b 100644
--- a/lgc.c
+++ b/lgc.c
@@ -832,7 +832,7 @@ static void GCTM (lua_State *L) {
832 lua_assert(!g->gcemergency); 832 lua_assert(!g->gcemergency);
833 setgcovalue(L, &v, udata2finalize(g)); 833 setgcovalue(L, &v, udata2finalize(g));
834 tm = luaT_gettmbyobj(L, &v, TM_GC); 834 tm = luaT_gettmbyobj(L, &v, TM_GC);
835 if (tm != NULL && ttisfunction(tm)) { /* is there a finalizer? */ 835 if (ttisfunction(tm)) { /* is the finalizer a function? */
836 int status; 836 int status;
837 lu_byte oldah = L->allowhook; 837 lu_byte oldah = L->allowhook;
838 int running = g->gcrunning; 838 int running = g->gcrunning;
@@ -850,9 +850,9 @@ static void GCTM (lua_State *L) {
850 const char *msg = (ttisstring(s2v(L->top - 1))) 850 const char *msg = (ttisstring(s2v(L->top - 1)))
851 ? svalue(s2v(L->top - 1)) 851 ? svalue(s2v(L->top - 1))
852 : "error object is not a string"; 852 : "error object is not a string";
853 luaE_warning(L, "error in __gc metamethod ("); 853 luaE_warning(L, "error in __gc metamethod (", 1);
854 luaE_warning(L, msg); 854 luaE_warning(L, msg, 1);
855 luaE_warning(L, ")\n"); 855 luaE_warning(L, ")", 0);
856 } 856 }
857 } 857 }
858} 858}