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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.171 by root, Sat Sep 29 19:42:10 2007 UTC vs.
Revision 1.172 by root, Sun Sep 30 13:15:01 2007 UTC

 #define VAR(name,type) type name;
 # include "state.h"
 #undef VAR
+  /* statistics */
+  int usecount; /* number of switches to this coro */
   /* coro process data */
   int prio;
   /* linked list */
   struct coro *next, *prev;
   HV *stash;
   MAGIC *mg;
   if (SvROK (coro))
     coro = SvRV (coro);
+  if (SvTYPE (coro) != SVt_PVHV)
+    croak ("Coro::State object required");
   stash = SvSTASH (coro);
   if (stash != coro_stash && stash != coro_state_stash)
     {
       /* very slow, but rare, check */
           prev->cctx = 0;
           cctx_put (prev__cctx);
         }
+      ++next->usecount;
       if (!next->cctx)
         next->cctx = cctx_get (aTHX);
       if (prev__cctx != next->cctx)
         {
                 save_perl (aTHX_ coro);
                 load_perl (aTHX_ &temp);
               }
           }
 }
 SV *
 is_ready (Coro::State coro)
         PROTOTYPE: $
         ALIAS:
         is_ready     = CF_READY
         RETVAL
 IV
 rss (Coro::State coro)
         PROTOTYPE: $
+        ALIAS:
+        usecount = 1
         CODE:
+        switch (ix)
+	  {
-        RETVAL = coro_rss (aTHX_ coro);
+            case 0: RETVAL = coro_rss (aTHX_ coro); break;
+            case 1: RETVAL = coro->usecount;        break;
+          }
 	OUTPUT:
         RETVAL
 MODULE = Coro::State                PACKAGE = Coro

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