On ithreads default to use_reentrant except on naturally

threadsafe platforms.

p4raw-id: //depot/perl@11645

1 files changed, 13 insertions, 2 deletions

diff --git a/perl.h b/perl.h
index cba24be1a4..d224709712 100644
--- a/perl.h
+++ b/perl.h
@@ -438,6 +438,19 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
 #  endif
 #endif
 
+/* Use the reentrant APIs like localtime_r and getpwent_r */
+#if defined(USE_THREADS) && defined(USE_ITHREADS) && !defined(USE_REENTRANT)
+#   define USE_REENTRANT
+#endif
+
+/* Tru64/Digital UNIX/DEC OSF/1 and Win32 have naturally
+ * threadsafe libraries, no need to use any _r variants. */
+#ifdef USE_REENTRANT_API
+#   if (defined(__osf__) && defined(__alpha)) || defined(WIN32)
+#       undef USE_REEENTRANT_API
+#   endif
+#endif
+
 /* HP-UX 10.X CMA (Common Multithreaded Architecure) insists that
    pthread.h must be included before all other header files.
 */
@@ -4016,8 +4029,6 @@ extern void moncontrol(int);
    HAS_STRUCT_MSGHDR
    HAS_STRUCT_CMSGHDR
 
-   USE_REENTRANT_API
-
    HAS_NL_LANGINFO
 
    so that Configure picks them up. */