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

Comparing Coro-Multicore/Multicore.xs (file contents):
Revision 1.19 by root, Mon Aug 13 10:39:45 2018 UTC vs.
Revision 1.21 by root, Sun Aug 26 15:30:55 2018 UTC

 /* most win32 perls are beyond fixing, requiring dTHX */
 /* even for ISO-C functions such as malloc. avoid! avoid! avoid! */
-/* and fial to define numerous symbols, but still overrwide them */
+/* and fail to define numerous symbols, but still overrwide them */
 /* with non-working versions (e.g. setjmp). */
 #ifdef _WIN32
-# define PERL_CORE 1
+/*# define PERL_CORE 1 fixes some, breaks others */
 #else
 # define PERL_NO_GET_CONTEXT
 #endif
 #include "EXTERN.h"
       X_TLS_SET (current_key, 0);
       return;
     }
   struct tctx *ctx = tctx_get ();
-  ctx->coro = SvREFCNT_inc_NN (CORO_CURRENT);
+  ctx->coro = SvREFCNT_inc_simple_NN (CORO_CURRENT);
   ctx->wait_f = 0;
   X_TLS_SET (current_key, ctx);
   pthread_sigmask (SIG_SETMASK, &fullsigset, &cursigset);
 void
 sleep (NV seconds)
 	CODE:
         perlinterp_release ();
-        usleep (seconds * 1e6);
+	{
+          int nsec = seconds;
+          if (nsec) sleep (nsec);
+          nsec = (seconds - nsec) * 1e9;
+          if (nsec) usleep (nsec);
+        }
         perlinterp_acquire ();

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