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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.452 by root, Tue Jun 30 12:42:45 2015 UTC vs.
Revision 1.453 by root, Tue Jul 7 00:33:25 2015 UTC

     tmp.sv_u = a->sv_u; a->sv_u = b->sv_u; b->sv_u = tmp.sv_u;
     /* if SvANY points to the head, we need to adjust the pointers,
      * as the pointer for a still points to b, and maybe vice versa.
      */
-    #define svany_in_head(type) \
+    U32 svany_in_head_set = (1 << SVt_NULL) | (1 << SVt_BIND) | (1 << SVt_IV) | (1 << SVt_RV);
-       (((1 << SVt_NULL) | (1 << SVt_BIND) | (1 << SVt_IV) | (1 << SVt_RV)) & (1 << (type)))
+    #if NVSIZE <= IVSIZE && PERL_VERSION_ATLEAST(5,20,0)
+      svany_in_head_set |= 1 << SVt_NV;
+    #endif
+    #define svany_in_head(type) (svany_in_head_set & (1 << (type)))
     if (svany_in_head (SvTYPE (a)))
       SvANY (a) = (void *)((PTRV)SvANY (a) - (PTRV)b + (PTRV)a);
     if (svany_in_head (SvTYPE (b)))
 MODULE = Coro::State                PACKAGE = Coro
 BOOT:
 {
+	if (SVt_LAST > 32)
+          croak ("Coro internal error: SVt_LAST > 32, swap_sv might need adjustment");
         sv_pool_rss        = coro_get_sv (aTHX_ "Coro::POOL_RSS"  , TRUE);
         sv_pool_size       = coro_get_sv (aTHX_ "Coro::POOL_SIZE" , TRUE);
         cv_coro_run        =      get_cv (      "Coro::_coro_run" , GV_ADD);
         coro_current       = coro_get_sv (aTHX_ "Coro::current"   , FALSE); SvREADONLY_on (coro_current);
         av_async_pool      = coro_get_av (aTHX_ "Coro::async_pool", TRUE);

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