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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.343 by root, Mon Dec 15 16:41:43 2008 UTC vs.
Revision 1.345 by root, Wed Dec 17 04:57:07 2008 UTC

 coro_state_destroy (pTHX_ struct coro *coro)
 {
   if (coro->flags & CF_DESTROYED)
     return 0;
-  if (coro->on_destroy)
+  if (coro->on_destroy && !PL_dirty)
     coro->on_destroy (aTHX_ coro);
   coro->flags |= CF_DESTROYED;
   if (coro->flags & CF_READY)
         RETVAL = coro_nready;
 	OUTPUT:
         RETVAL
 void
+suspend (Coro::State self)
+	PROTOTYPE: $
+	CODE:
+        self->flags |= CF_SUSPENDED;
+void
+resume (Coro::State self)
+	PROTOTYPE: $
+	CODE:
+        self->flags &= ~CF_SUSPENDED;
+void
 _pool_handler (...)
 	CODE:
         CORO_EXECUTE_SLF_XS (slf_init_pool_handler);
 void
             for (i = 1; i <= wcount; ++i)
               PUSHs (sv_2mortal (newRV_inc (AvARRAY (av)[i])));
           }
 }
+MODULE = Coro::State                PACKAGE = Coro::SemaphoreSet
+void
+_may_delete (SV *sem, int count, int extra_refs)
+	PPCODE:
+{
+  	AV *av = (AV *)SvRV (sem);
+        if (SvREFCNT ((SV *)av) == 1 + extra_refs
+            && AvFILLp (av) == 0 /* no waiters, just count */
+            && SvIV (AvARRAY (av)[0]) == count)
+          XSRETURN_YES;
+        XSRETURN_NO;
+}
 MODULE = Coro::State                PACKAGE = Coro::Signal
 SV *
 new (SV *klass)
 	CODE:

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