This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reentr.[ch]: Add gmtime_r, localtime_r
[perl5.git] / reentr.c
index 5ef55c0..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 */