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

Comparing Coro-Multicore/Multicore.xs (file contents):
Revision 1.22 by root, Sun Aug 26 15:42:57 2018 UTC vs.
Revision 1.23 by root, Tue Mar 5 12:10:31 2019 UTC

 #ifndef SvREFCNT_inc_NN
   #define SvREFCNT_inc_NN(sv) SvREFCNT_inc (sv)
 #endif
+#ifndef RECURSION_CHECK
-#define RECURSION_CHECK 0
+  #define RECURSION_CHECK 0
+#endif
 static X_TLS_DECLARE(current_key);
 #if RECURSION_CHECK
 static X_TLS_DECLARE(check_key);
 #endif
+static void
+fatal (const char *msg)
+{
+  write (2, msg, strlen (msg));
+  abort ();
+}
 static s_epipe ep;
 static void *perl_thx;
 static sigset_t cursigset, fullsigset;
 static void
 pmapi_release (void)
 {
   #if RECURSION_CHECK
   if (X_TLS_GET (check_key))
-    croak ("perlinterp_release () called without valid perl context");
+    fatal ("perlinterp_release () called without valid perl context");
   X_TLS_SET (check_key, &check_key);
   #endif
   if (! ((thread_enable ? thread_enable : global_enable) & 1))
   int jeret;
   struct tctx *ctx = X_TLS_GET (current_key);
   #if RECURSION_CHECK
   if (X_TLS_GET (check_key) != &check_key)
-    croak ("perlinterp_acquire () called with valid perl context");
+    fatal ("perlinterp_acquire () called with valid perl context");
   X_TLS_SET (check_key, 0);
   #endif
   if (!ctx)

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