diff options
author | Tony Cook <tony@develop-help.com> | 2013-09-10 10:09:43 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2013-09-13 11:33:58 +1000 |
commit | a7f3e46aaac62b4972446c96e4492992cd667756 (patch) | |
tree | b55a7be402244b22d4c4b534fe29d38e16b3406a /regen/reentr.pl | |
parent | 890c2948b68476f972f9648473ed11faf48e159f (diff) | |
download | perl-a7f3e46aaac62b4972446c96e4492992cd667756.tar.gz |
[perl #115928] we don't use drand48_r or random_r any longer
Removing this should mean that metaconfig will remove the units from
the built Configure
Diffstat (limited to 'regen/reentr.pl')
-rw-r--r-- | regen/reentr.pl | 45 |
1 files changed, 1 insertions, 44 deletions
diff --git a/regen/reentr.pl b/regen/reentr.pl index c5e7129f1b..6dac2996ad 100644 --- a/regen/reentr.pl +++ b/regen/reentr.pl @@ -91,13 +91,11 @@ print $h <<EOF; #ifdef __hpux # undef HAS_CRYPT_R -# undef HAS_DRAND48_R # undef HAS_ENDGRENT_R # undef HAS_ENDPWENT_R # undef HAS_GETGRENT_R # undef HAS_GETPWENT_R # undef HAS_SETLOCALE_R -# undef HAS_SRAND48_R # undef HAS_STRERROR_R # define NETDB_R_OBSOLETE #endif @@ -151,9 +149,6 @@ print $h <<EOF; #ifdef I_NETDB # include <netdb.h> #endif -#ifdef I_STDLIB -# include <stdlib.h> /* drand48_data */ -#endif #ifdef I_CRYPT # ifdef I_CRYPT # include <crypt.h> @@ -504,30 +499,6 @@ EOF EOF pushssif $endif; } - elsif ($func =~ /^(drand48|random|srandom)$/) { - pushssif $ifdef; - push @struct, <<EOF; - $seent{$func} _${func}_struct; -EOF - if ($1 eq 'drand48') { - push @struct, <<EOF; - double _${func}_double; -EOF - } elsif ($1 eq 'random') { - push @struct, <<EOF; -# if RANDOM_R_PROTO == REENTRANT_PROTO_I_iS - int _${func}_retval; -# endif -# if RANDOM_R_PROTO == REENTRANT_PROTO_I_lS - long _${func}_retval; -# endif -# if RANDOM_R_PROTO == REENTRANT_PROTO_I_St - int32_t _${func}_retval; -# endif -EOF - } - pushssif $endif; - } elsif ($func =~ /^(getgrnam|getpwnam|getspnam)$/) { pushssif $ifdef; # 'genfunc' can be read either as 'generic' or 'genre', @@ -664,18 +635,12 @@ EOF my $genfunc = $func; if ($genfunc =~ /^(?:get|set|end)(pw|gr|host|net|proto|serv|sp)/) { $genfunc = "${1}ent"; - } elsif ($genfunc eq 'srand48') { - $genfunc = "drand48"; } my $b = $a; my $w = ''; substr($b, 0, $seenu{$func}) = ''; - if ($func =~ /^random$/) { - $true = "PL_reentrant_buffer->_random_retval"; - } elsif ($b =~ /R/) { + if ($b =~ /R/) { $true = "PL_reentrant_buffer->_${genfunc}_ptr"; - } elsif ($b =~ /T/ && $func eq 'drand48') { - $true = "PL_reentrant_buffer->_${genfunc}_double"; } elsif ($b =~ /S/) { if ($func =~ /^readdir/) { $true = "PL_reentrant_buffer->_${genfunc}_struct"; @@ -706,10 +671,6 @@ EOF $func =~ /^crypt$/ ? "PL_reentrant_buffer->_${genfunc}_struct_buffer" : "&PL_reentrant_buffer->_${genfunc}_struct") : - $_ eq 'T' && $func eq 'drand48' ? - "&PL_reentrant_buffer->_${genfunc}_double" : - $_ =~ /^[ilt]$/ && $func eq 'random' ? - "&PL_reentrant_buffer->_random_retval" : $_ } split '', $b; $w = ", $w" if length $v; @@ -1076,7 +1037,6 @@ asctime S |time |const struct tm|B_SB|B_SBI|I_SB|I_SBI crypt CC |crypt |struct crypt_data|B_CCS|B_CCD|D=CRYPTD* ctermid B |stdio | |B_B ctime S |time |const time_t |B_SB|B_SBI|I_SB|I_SBI -drand48 |stdlib |struct drand48_data |I_ST|T=double* endgrent |grp | |I_H|V_H endhostent |netdb | |I_D|V_D|D=struct hostent_data* endnetent |netdb | |I_D|V_D|D=struct netent_data* @@ -1103,7 +1063,6 @@ getservbyname CC|netdb |struct servent |I_CCSBWR|S_CCSBI|I_CCSD|D=struct servent getservbyport IC|netdb |struct servent |I_ICSBWR|S_ICSBI|I_ICSD|D=struct servent_data* getservent |netdb |struct servent |I_SBWR|I_SBI|S_SBI|I_SD|D=struct servent_data* getspnam C |shadow |struct spwd |I_CSBWR|S_CSBI -random |stdlib |struct random_data|I_iS|I_lS|I_St|i=int*|l=long*|t=int32_t* readdir T |dirent |struct dirent |I_TSR|I_TS|T=DIR* readdir64 T |dirent |struct dirent64|I_TSR|I_TS|T=DIR* setgrent |grp | |I_H|V_H @@ -1113,8 +1072,6 @@ setnetent I |netdb | |I_ID|V_ID|D=struct netent_data* setprotoent I |netdb | |I_ID|V_ID|D=struct protoent_data* setpwent |pwd | |I_H|V_H setservent I |netdb | |I_ID|V_ID|D=struct servent_data* -srand48 L |stdlib |struct drand48_data |I_LS -srandom T |stdlib |struct random_data|I_TS|T=unsigned int strerror I |string | |I_IBW|I_IBI|B_IBW tmpnam B |stdio | |B_B ttyname I |unistd | |I_IBW|I_IBI|B_IBI |