[ViewVC] Diff of: cvs/Coro-Multicore/Multicore.xs

Comparing Coro-Multicore/Multicore.xs (file contents):
Revision 1.24 by root, Tue Mar 5 12:31:27 2019 UTC vs.
Revision 1.25 by root, Wed Mar 6 16:39:45 2019 UTC

 }
 static void
 pmapi_release (void)
 {
+  if (! ((thread_enable ? thread_enable : global_enable) & 1))
+    {
+      X_TLS_SET (current_key, 0);
+      return;
+    }
   #if RECURSION_CHECK
   if (X_TLS_GET (check_key))
     fatal ("FATAL: perlinterp_release () called without valid perl context");
   X_TLS_SET (check_key, &check_key);
   #endif
-  if (! ((thread_enable ? thread_enable : global_enable) & 1))
-    {
-      X_TLS_SET (current_key, 0);
-      return;
-    }
   struct tctx *ctx = tctx_get ();
   ctx->coro = SvREFCNT_inc_simple_NN (CORO_CURRENT);
   ctx->wait_f = 0;
   X_TLS_SET (current_key, ctx);
 pmapi_acquire (void)
 {
   int jeret;
   struct tctx *ctx = X_TLS_GET (current_key);
+  if (!ctx)
+    return;
   #if RECURSION_CHECK
   if (X_TLS_GET (check_key) != &check_key)
     fatal ("FATAL: perlinterp_acquire () called with valid perl context");
   X_TLS_SET (check_key, 0);
   #endif
-  if (!ctx)
-    return;
   X_LOCK (acquire_m);
   tctxs_put (&acquirers, ctx);
 scoped_disable ()
 	CODE:
         LEAVE; /* see Guard.xs */
         CORO_ENTERLEAVE_SCOPE_HOOK (set_thread_enable, (void *)2, set_thread_enable, (void *)0);
         ENTER; /* see Guard.xs */
+#if 0
 U32
 min_idle_threads (U32 min = NO_INIT)
 	CODE:
         X_LOCK (acquire_m);
         if (items)
 	  min_idle = min;
         X_UNLOCK (acquire_m);
         OUTPUT:
         RETVAL
+#endif
 int
 fd ()
 	CODE:
         RETVAL = s_epipe_fd (&ep);

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