This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: neither sched_yield nor pthread_yield
authorAndy Broad <andy@broad.ology.org.uk>
Fri, 21 Aug 2015 21:07:54 +0000 (17:07 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Sep 2015 15:12:46 +0000 (11:12 -0400)
Emulate using sleep(0).

dist/threads/threads.xs

index f5395cf..3b38367 100644 (file)
 
 #ifdef USE_ITHREADS
 
 
 #ifdef USE_ITHREADS
 
+#if defined(__amigaos4__)
+#  undef YIELD
+#  define YIELD sleep(0)
+#endif
 #ifdef WIN32
 #  include <windows.h>
    /* Supposed to be in Winbase.h */
 #ifdef WIN32
 #  include <windows.h>
    /* Supposed to be in Winbase.h */