Fix VM event error handling for finalizers.

Reported by Sergey Kaplun. #1445

diff --git a/src/lj_gc.c b/src/lj_gc.c
index 08972dc52dd2e8bda9780c370a5b10cebc66fe6d..1fed0b54f73e88a19ed01103444c5872d265ccfb 100644 (file)
--- a/src/lj_gc.c
+++ b/src/lj_gc.c
@@ -525,10 +525,12 @@ static void gc_call_finalizer(global_State *g, lua_State *L,
   if (LJ_HASPROFILE && (oldh & HOOK_PROFILE)) lj_dispatch_update(g);
   g->gc.threshold = oldt;  /* Restore GC threshold. */
   if (errcode) {
+    TValue tmp;
+    copyTV(VL, &tmp, VL->top-1);
+    VL->top--;
     lj_vmevent_send(g, ERRFIN,
-      copyTV(V, V->top++, L->top-1);
+      copyTV(V, V->top++, &tmp);
     );
-    L->top--;
   }
 }