[ViewVC] Diff of: cvs/Coro/Coro/State.xs

Comparing Coro/Coro/State.xs (file contents):
Revision 1.393 by root, Fri Apr 29 17:38:56 2011 UTC vs.
Revision 1.396 by root, Fri May 6 18:01:13 2011 UTC

     struct coro *current = SvSTATE_current;
     assert (("FATAL: tried to destroy currently running coroutine", coro->mainstack != PL_mainstack));
     save_perl (aTHX_ current);
+    SvRV_set (coro_current, (SV *)coro->hv); /* this will cause acroak in transfer_check */
     load_perl (aTHX_ coro);
     coro_unwind_stacks (aTHX);
     coro_destruct_stacks (aTHX);
     svf    [6] = (SV *)GvHV (PL_hintgv);
     svf    [7] =       PL_diehook;
     svf    [8] =       PL_warnhook;
     assert (9 == sizeof (svf) / sizeof (*svf));
+    SvRV_set (coro_current, (SV *)current->hv);
     load_perl (aTHX_ current);
   }
   {
     unsigned int i;
 #define TRANSFER(ta, force_cctx) transfer (aTHX_ (ta).prev, (ta).next, (force_cctx))
 #define TRANSFER_CHECK(ta) transfer_check (aTHX_ (ta).prev, (ta).next)
 /** high level stuff ********************************************************/
-static int
+static void
 coro_state_destroy (pTHX_ struct coro *coro)
 {
   if (coro->flags & CF_DESTROYED)
-    return 0;
+    return;
+  /* this callback is reserved for slf functions needing to do cleanup */
   if (coro->on_destroy && !PL_dirty)
     coro->on_destroy (aTHX_ coro);
   /*
    * The on_destroy above most likely is from an SLF call.
   cctx_destroy (coro->cctx);
   SvREFCNT_dec (coro->startcv);
   SvREFCNT_dec (coro->args);
   SvREFCNT_dec (coro->swap_sv);
   SvREFCNT_dec (CORO_THROW);
-  return 1;
 }
 static int
 coro_state_free (pTHX_ SV *sv, MAGIC *mg)
 {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines