reentr.pl is not defining _srandom_struct

Message-Id: <45igqvsus3hr8bno3si087j5qnrqvn79bf@4ax.com>

p4raw-id: //depot/perl@21660

diff --git a/reentr.c b/reentr.c
index 881bd87..493a3b5 100644 (file)
--- a/reentr.c
+++ b/reentr.c
@@ -127,6 +127,8 @@ Perl_reentrant_size(pTHX) {
 #ifdef HAS_SETLOCALE_R
        PL_reentrant_buffer->_setlocale_size = REENTRANTSMALLSIZE;
 #endif /* HAS_SETLOCALE_R */
+#ifdef HAS_SRANDOM_R
+#endif /* HAS_SRANDOM_R */
 #ifdef HAS_STRERROR_R
        PL_reentrant_buffer->_strerror_size = REENTRANTSMALLSIZE;
 #endif /* HAS_STRERROR_R */
@@ -211,6 +213,8 @@ Perl_reentrant_init(pTHX) {
 #ifdef HAS_SETLOCALE_R
        New(31338, PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size, char);
 #endif /* HAS_SETLOCALE_R */
+#ifdef HAS_SRANDOM_R
+#endif /* HAS_SRANDOM_R */
 #ifdef HAS_STRERROR_R
        New(31338, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size, char);
 #endif /* HAS_STRERROR_R */
@@ -284,6 +288,8 @@ Perl_reentrant_free(pTHX) {
 #ifdef HAS_SETLOCALE_R
        Safefree(PL_reentrant_buffer->_setlocale_buffer);
 #endif /* HAS_SETLOCALE_R */
+#ifdef HAS_SRANDOM_R
+#endif /* HAS_SRANDOM_R */
 #ifdef HAS_STRERROR_R
        Safefree(PL_reentrant_buffer->_strerror_buffer);
 #endif /* HAS_STRERROR_R */

diff --git a/reentr.h b/reentr.h
index 6dbfc22..5e6e274 100644 (file)
--- a/reentr.h
+++ b/reentr.h
@@ -748,6 +748,9 @@ typedef struct {
        char*   _setlocale_buffer;
        size_t  _setlocale_size;
 #endif /* HAS_SETLOCALE_R */
+#ifdef HAS_SRANDOM_R
+       struct random_data _srandom_struct;
+#endif /* HAS_SRANDOM_R */
 #ifdef HAS_STRERROR_R
        char*   _strerror_buffer;
        size_t  _strerror_size;

diff --git a/reentr.pl b/reentr.pl
index ef18bfa..0622a80 100644 (file)
--- a/reentr.pl
+++ b/reentr.pl
@@ -469,7 +469,7 @@ EOF
 EOF
            pushssif $endif;
        }
-        elsif ($func =~ /^(drand48|gmtime|localtime|random)$/) {
+        elsif ($func =~ /^(drand48|gmtime|localtime|random|srandom)$/) {
            pushssif $ifdef;
            push @struct, <<EOF;
        $seent{$func} _${func}_struct;