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
[perl5.git] / dist / threads / threads.xs
index f5395cf..3b38367 100644 (file)
 
 #ifdef USE_ITHREADS
 
+#if defined(__amigaos4__)
+#  undef YIELD
+#  define YIELD sleep(0)
+#endif
 #ifdef WIN32
 #  include <windows.h>
    /* Supposed to be in Winbase.h */