hints/os390.sh: Handle no C optimizations

[perl5.git] / reentr.c

diff --git a/reentr.c b/reentr.c
index d662981..8ddda7b 100644 (file)
--- a/reentr.c
+++ b/reentr.c
@@ -132,6 +132,12 @@ Perl_reentrant_size(pTHX) {
 #    endif
 #  endif /* HAS_GETSPNAM_R */
 
+#  ifdef HAS_GMTIME_R
+#  endif /* HAS_GMTIME_R */
+
+#  ifdef HAS_LOCALTIME_R
+#  endif /* HAS_LOCALTIME_R */
+
 #  ifdef HAS_READDIR_R
        /* This is the size Solaris recommends.
         * (though we go static, should use pathconf() instead) */
@@ -235,6 +241,12 @@ Perl_reentrant_init(pTHX) {
        Newx(PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, char);
 #  endif /* HAS_GETSPNAM_R */
 
+#  ifdef HAS_GMTIME_R
+#  endif /* HAS_GMTIME_R */
+
+#  ifdef HAS_LOCALTIME_R
+#  endif /* HAS_LOCALTIME_R */
+
 #  ifdef HAS_READDIR_R
        PL_reentrant_buffer->_readdir_struct = (struct dirent*)safemalloc(PL_reentrant_buffer->_readdir_size);
 #  endif /* HAS_READDIR_R */
@@ -322,6 +334,12 @@ Perl_reentrant_free(pTHX) {
        Safefree(PL_reentrant_buffer->_spent_buffer);
 #  endif /* HAS_GETSPNAM_R */
 
+#  ifdef HAS_GMTIME_R
+#  endif /* HAS_GMTIME_R */
+
+#  ifdef HAS_LOCALTIME_R
+#  endif /* HAS_LOCALTIME_R */
+
 #  ifdef HAS_READDIR_R
        Safefree(PL_reentrant_buffer->_readdir_struct);
 #  endif /* HAS_READDIR_R */
@@ -424,6 +442,7 @@ Perl_reentrant_retry(const char *f, ...)
                    host_addr = va_arg(ap, char *);
                    asize = va_arg(ap, Size_t);
                    anint  = va_arg(ap, int);
+                    /* socklen_t is what Posix 2001 says this should be */
                    retptr = gethostbyaddr(host_addr, (socklen_t) asize, anint); break;
                case KEY_gethostbyname:
                    host_name = va_arg(ap, char *);