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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.25 by root, Wed Aug 15 03:24:07 2001 UTC vs.
Revision 1.26 by root, Fri Aug 17 01:45:39 2001 UTC

 	if (!padlist_cache)
 	  padlist_cache = newHV ();
         main_mainstack = PL_mainstack;
-        {
-          SV *sv = perl_get_sv("Coro::API", 1);
-          coroapi.ver      = CORO_API_VERSION - 1;
+        coroapi.ver      = CORO_API_VERSION;
-          coroapi.transfer = api_transfer;
+        coroapi.transfer = api_transfer;
-          coroapi.schedule = api_schedule;
-          coroapi.ready    = api_ready;
-          coroapi.nready   = &coro_nready;
-          GCoroAPI = &coroapi;
-          sv_setiv(sv, (IV)&coroapi);
-          SvREADONLY_on(sv);
-        }
 }
 Coro::State
 _newprocess(args)
         SV *	args
         coro_current = gv_fetchpv ("Coro::current", TRUE, SVt_PV);
         coro_idle    = gv_fetchpv ("Coro::idle"   , TRUE, SVt_PV);
         for (i = PRIO_MAX - PRIO_MIN + 1; i--; )
           coro_ready[i] = newAV ();
+        {
+          SV *sv = perl_get_sv("Coro::API", 1);
+          coroapi.schedule = api_schedule;
+          coroapi.ready    = api_ready;
+          coroapi.nready   = &coro_nready;
+          coroapi.current  = coro_current;
+          GCoroAPI = &coroapi;
+          sv_setiv(sv, (IV)&coroapi);
+          SvREADONLY_on(sv);
+        }
 }
 void
 ready(self)
 	SV *	self

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