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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.336 by root, Thu Dec 4 17:29:40 2008 UTC vs.
Revision 1.337 by root, Fri Dec 5 18:26:10 2008 UTC

   /* copy throw, in case it was set before coro_setup */
   CORO_THROW = coro->except;
 }
 static void
-coro_destruct_perl (pTHX_ struct coro *coro)
+coro_unwind_stacks (pTHX)
 {
   if (!IN_DESTRUCT)
     {
       /* restore all saved variables and stuff */
       LEAVE_SCOPE (0);
       POPSTACK_TO (PL_mainstack);
       /* unwind main stack */
       dounwind (-1);
     }
+}
+static void
+coro_destruct_perl (pTHX_ struct coro *coro)
+{
+  coro_unwind_stacks (aTHX);
   SvREFCNT_dec (GvSV (PL_defgv));
   SvREFCNT_dec (GvAV (PL_defgv));
   SvREFCNT_dec (GvSV (PL_errgv));
   SvREFCNT_dec (PL_defoutgv);
   av_push (av_destroy, (SV *)newRV_inc ((SV *)hv)); /* RVinc for perl */
   api_ready (aTHX_ sv_manager);
   frame->prepare = prepare_schedule;
   frame->check   = slf_check_repeat;
+  /* as a minor optimisation, we could unwind all stacks here */
+  /* but that puts extra pressure on pp_slf, and is not worth much */
+  /*coro_unwind_stacks (aTHX);*/
 }
 /*****************************************************************************/
 /* async pool handler */

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