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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.470 by root, Fri Jul 14 13:14:32 2017 UTC vs.
Revision 1.472 by root, Thu Aug 31 16:24:19 2017 UTC

 # ifdef SYS_clock_gettime
 #  define coro_clock_gettime(id, ts) syscall (SYS_clock_gettime, (id), (ts))
 #  define CORO_CLOCK_MONOTONIC         1
 #  define CORO_CLOCK_THREAD_CPUTIME_ID 3
 # endif
+#endif
+/* one off bugfix for perl 5.22 */
+#if PERL_VERSION_ATLEAST(5,22,0) && !PERL_VERSION_ATLEAST(5,24,0)
+# undef PadlistNAMES
+# define PadlistNAMES(pl) *((PADNAMELIST **)PadlistARRAY (pl))
 #endif
 #if PERL_VERSION_ATLEAST(5,24,0)
 # define SUB_ARGARRAY PL_curpad[0]
 #else
 safe_cancel (pTHX_ struct coro *coro, SV **arg, int items)
 {
   if (coro->cctx)
     croak ("coro inside C callback, unable to cancel at this time, caught");
-  if (coro->flags & CF_NEW)
+  if (coro->flags & (CF_NEW | CF_ZOMBIE))
     {
       coro_set_status (aTHX_ coro, arg, items);
       coro_state_destroy (aTHX_ coro);
     }
   else
           coroapi.enterleave_hook       = api_enterleave_hook;
           coroapi.enterleave_unhook     = api_enterleave_unhook;
           coroapi.enterleave_scope_hook = api_enterleave_scope_hook;
           /*GCoroAPI = &coroapi;*/
-          sv_setiv (sv, (IV)&coroapi);
+          sv_setiv (sv, PTR2IV (&coroapi));
           SvREADONLY_on (sv);
         }
 }
 SV *

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