From 9aebc8b181f5f6d30d61a2d488a24b18e6e73c85 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 14 Oct 2025 10:49:44 -0600 Subject: [PATCH] Change reentr.pl names to be legal This continues the process started in #23592 to change names with leading underscores to be legal C. See that p.r. or 4bb3572f7a1c1f3944b7f58b22b6e7a9ef5faba6 for extensive discussion. This commit simply moves the leading underscore to be trailing Some of these may actually be legal, and don't need to be moved, as leading underscores are only illegal in symbols with file scope. But it was easier to just do a global substitute, and does no harm to move them all to be trailing. --- pp.c | 8 +- pp_sys.c | 6 +- reentr.c | 172 ++++++++++----------- reentr.h | 400 ++++++++++++++++++++++++------------------------ regen/reentr.pl | 134 ++++++++-------- 5 files changed, 360 insertions(+), 360 deletions(-) diff --git a/pp.c b/pp.c index f97b145dd210..394139691356 100644 --- a/pp.c +++ b/pp.c @@ -4061,15 +4061,15 @@ PP(pp_crypt) } # ifdef USE_ITHREADS # ifdef HAS_CRYPT_R - if (!PL_reentrant_buffer->_crypt_struct_buffer) { + if (!PL_reentrant_buffer->crypt_struct_buffer_) { /* This should be threadsafe because in ithreads there is only * one thread per interpreter. If this would not be true, * we would need a mutex to protect this malloc. */ - PL_reentrant_buffer->_crypt_struct_buffer = + PL_reentrant_buffer->crypt_struct_buffer_ = (struct crypt_data *)safemalloc(sizeof(struct crypt_data)); # if defined(__GLIBC__) || defined(__EMX__) - if (PL_reentrant_buffer->_crypt_struct_buffer) { - PL_reentrant_buffer->_crypt_struct_buffer->initialized = 0; + if (PL_reentrant_buffer->crypt_struct_buffer_) { + PL_reentrant_buffer->crypt_struct_buffer_->initialized = 0; } # endif } diff --git a/pp_sys.c b/pp_sys.c index 9a47afd82bc3..c177a07402f1 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -5291,7 +5291,7 @@ PP_wrapped(pp_ghostent, if (!hent) { #ifdef USE_REENTRANT_API # ifdef USE_GETHOSTENT_ERRNO - h_errno = PL_reentrant_buffer->_gethostent_errno; + h_errno = PL_reentrant_buffer->gethostent_errno_; # endif #endif STATUS_UNIX_SET(h_errno); @@ -5382,7 +5382,7 @@ PP_wrapped(pp_gnetent, if (!nent) { #ifdef USE_REENTRANT_API # ifdef USE_GETNETENT_ERRNO - h_errno = PL_reentrant_buffer->_getnetent_errno; + h_errno = PL_reentrant_buffer->getnetent_errno_; # endif #endif STATUS_UNIX_SET(h_errno); @@ -5735,7 +5735,7 @@ PP_wrapped(pp_gpwent, # if defined(__CYGWIN__) && defined(USE_REENTRANT_API) /* Cygwin 1.5.3-1 has buggy getpwnam_r() and getpwuid_r(): * the pw_comment is left uninitialized. */ - PL_reentrant_buffer->_pwent_struct.pw_comment = NULL; + PL_reentrant_buffer->pwent_struct_.pw_comment = NULL; # endif switch (which) { diff --git a/reentr.c b/reentr.c index b41ace97a038..2a8e23855b59 100644 --- a/reentr.c +++ b/reentr.c @@ -54,83 +54,83 @@ Perl_reentrant_size(pTHX) { # define REENTRANTUSUALSIZE 4096 /* Make something up. */ # ifdef HAS_ASCTIME_R - PL_reentrant_buffer->_asctime_size = 26; + PL_reentrant_buffer->asctime_size_ = 26; # endif /* HAS_ASCTIME_R */ # ifdef HAS_CRYPT_R # endif /* HAS_CRYPT_R */ # ifdef HAS_CTIME_R - PL_reentrant_buffer->_ctime_size = 26; + PL_reentrant_buffer->ctime_size_ = 26; # endif /* HAS_CTIME_R */ # ifdef HAS_GETGRNAM_R # if defined(HAS_SYSCONF) && defined(_SC_GETGR_R_SIZE_MAX) && !defined(__GLIBC__) - PL_reentrant_buffer->_grent_size = sysconf(_SC_GETGR_R_SIZE_MAX); - if (PL_reentrant_buffer->_grent_size == (size_t) -1) - PL_reentrant_buffer->_grent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->grent_size_ = sysconf(_SC_GETGR_R_SIZE_MAX); + if (PL_reentrant_buffer->grent_size_ == (size_t) -1) + PL_reentrant_buffer->grent_size_ = REENTRANTUSUALSIZE; # elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) - PL_reentrant_buffer->_grent_size = SIABUFSIZ; + PL_reentrant_buffer->grent_size_ = SIABUFSIZ; # elif defined(__sgi) - PL_reentrant_buffer->_grent_size = BUFSIZ; + PL_reentrant_buffer->grent_size_ = BUFSIZ; # else - PL_reentrant_buffer->_grent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->grent_size_ = REENTRANTUSUALSIZE; # endif # endif /* HAS_GETGRNAM_R */ # ifdef HAS_GETHOSTBYNAME_R # if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - PL_reentrant_buffer->_hostent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->hostent_size_ = REENTRANTUSUALSIZE; # endif # endif /* HAS_GETHOSTBYNAME_R */ # ifdef HAS_GETLOGIN_R - PL_reentrant_buffer->_getlogin_size = REENTRANTSMALLSIZE; + PL_reentrant_buffer->getlogin_size_ = REENTRANTSMALLSIZE; # endif /* HAS_GETLOGIN_R */ # ifdef HAS_GETNETBYNAME_R # if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - PL_reentrant_buffer->_netent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->netent_size_ = REENTRANTUSUALSIZE; # endif # endif /* HAS_GETNETBYNAME_R */ # ifdef HAS_GETPROTOBYNAME_R # if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - PL_reentrant_buffer->_protoent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->protoent_size_ = REENTRANTUSUALSIZE; # endif # endif /* HAS_GETPROTOBYNAME_R */ # ifdef HAS_GETPWNAM_R # if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__) - PL_reentrant_buffer->_pwent_size = sysconf(_SC_GETPW_R_SIZE_MAX); - if (PL_reentrant_buffer->_pwent_size == (size_t) -1) - PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->pwent_size_ = sysconf(_SC_GETPW_R_SIZE_MAX); + if (PL_reentrant_buffer->pwent_size_ == (size_t) -1) + PL_reentrant_buffer->pwent_size_ = REENTRANTUSUALSIZE; # elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) - PL_reentrant_buffer->_pwent_size = SIABUFSIZ; + PL_reentrant_buffer->pwent_size_ = SIABUFSIZ; # elif defined(__sgi) - PL_reentrant_buffer->_pwent_size = BUFSIZ; + PL_reentrant_buffer->pwent_size_ = BUFSIZ; # else - PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->pwent_size_ = REENTRANTUSUALSIZE; # endif # endif /* HAS_GETPWNAM_R */ # ifdef HAS_GETSERVBYNAME_R # if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) - PL_reentrant_buffer->_servent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->servent_size_ = REENTRANTUSUALSIZE; # endif # endif /* HAS_GETSERVBYNAME_R */ # ifdef HAS_GETSPNAM_R # if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__) - PL_reentrant_buffer->_spent_size = sysconf(_SC_GETPW_R_SIZE_MAX); - if (PL_reentrant_buffer->_spent_size == (size_t) -1) - PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->spent_size_ = sysconf(_SC_GETPW_R_SIZE_MAX); + if (PL_reentrant_buffer->spent_size_ == (size_t) -1) + PL_reentrant_buffer->spent_size_ = REENTRANTUSUALSIZE; # elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) - PL_reentrant_buffer->_spent_size = SIABUFSIZ; + PL_reentrant_buffer->spent_size_ = SIABUFSIZ; # elif defined(__sgi) - PL_reentrant_buffer->_spent_size = BUFSIZ; + PL_reentrant_buffer->spent_size_ = BUFSIZ; # else - PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->spent_size_ = REENTRANTUSUALSIZE; # endif # endif /* HAS_GETSPNAM_R */ @@ -143,25 +143,25 @@ Perl_reentrant_size(pTHX) { # ifdef HAS_READDIR_R /* This is the size Solaris recommends. * (though we go static, should use pathconf() instead) */ - PL_reentrant_buffer->_readdir_size = sizeof(struct dirent) + MAXPATHLEN + 1; + PL_reentrant_buffer->readdir_size_ = sizeof(struct dirent) + MAXPATHLEN + 1; # endif /* HAS_READDIR_R */ # ifdef HAS_READDIR64_R /* This is the size Solaris recommends. * (though we go static, should use pathconf() instead) */ - PL_reentrant_buffer->_readdir64_size = sizeof(struct dirent64) + MAXPATHLEN + 1; + PL_reentrant_buffer->readdir64_size_ = sizeof(struct dirent64) + MAXPATHLEN + 1; # endif /* HAS_READDIR64_R */ # ifdef HAS_SETLOCALE_R - PL_reentrant_buffer->_setlocale_size = REENTRANTSMALLSIZE; + PL_reentrant_buffer->setlocale_size_ = REENTRANTSMALLSIZE; # endif /* HAS_SETLOCALE_R */ # ifdef HAS_STRERROR_R - PL_reentrant_buffer->_strerror_size = 1024; + PL_reentrant_buffer->strerror_size_ = 1024; # endif /* HAS_STRERROR_R */ # ifdef HAS_TTYNAME_R - PL_reentrant_buffer->_ttyname_size = REENTRANTSMALLSIZE; + PL_reentrant_buffer->ttyname_size_ = REENTRANTSMALLSIZE; # endif /* HAS_TTYNAME_R */ @@ -181,66 +181,66 @@ Perl_reentrant_init(pTHX) { Perl_reentrant_size(aTHX); # ifdef HAS_ASCTIME_R - Newx(PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size, char); + Newx(PL_reentrant_buffer->asctime_buffer_, PL_reentrant_buffer->asctime_size_, char); # endif /* HAS_ASCTIME_R */ # ifdef HAS_CRYPT_R # if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD - PL_reentrant_buffer->_crypt_struct_buffer = 0; + PL_reentrant_buffer->crypt_struct_buffer_ = 0; # endif # endif /* HAS_CRYPT_R */ # ifdef HAS_CTIME_R - Newx(PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size, char); + Newx(PL_reentrant_buffer->ctime_buffer_, PL_reentrant_buffer->ctime_size_, char); # endif /* HAS_CTIME_R */ # ifdef HAS_GETGRNAM_R # ifdef USE_GRENT_FPTR - PL_reentrant_buffer->_grent_fptr = NULL; + PL_reentrant_buffer->grent_fptr_ = NULL; # endif - Newx(PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, char); + Newx(PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_, char); # endif /* HAS_GETGRNAM_R */ # ifdef HAS_GETHOSTBYNAME_R # if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - Newx(PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, char); + Newx(PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, char); # endif # endif /* HAS_GETHOSTBYNAME_R */ # ifdef HAS_GETLOGIN_R - Newx(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size, char); + Newx(PL_reentrant_buffer->getlogin_buffer_, PL_reentrant_buffer->getlogin_size_, char); # endif /* HAS_GETLOGIN_R */ # ifdef HAS_GETNETBYNAME_R # if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - Newx(PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, char); + Newx(PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_, char); # endif # endif /* HAS_GETNETBYNAME_R */ # ifdef HAS_GETPROTOBYNAME_R # if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - Newx(PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, char); + Newx(PL_reentrant_buffer->protoent_buffer_, PL_reentrant_buffer->protoent_size_, char); # endif # endif /* HAS_GETPROTOBYNAME_R */ # ifdef HAS_GETPWNAM_R # ifdef USE_PWENT_FPTR - PL_reentrant_buffer->_pwent_fptr = NULL; + PL_reentrant_buffer->pwent_fptr_ = NULL; # endif - Newx(PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, char); + Newx(PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_, char); # endif /* HAS_GETPWNAM_R */ # ifdef HAS_GETSERVBYNAME_R # if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) - Newx(PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, char); + Newx(PL_reentrant_buffer->servent_buffer_, PL_reentrant_buffer->servent_size_, char); # endif # endif /* HAS_GETSERVBYNAME_R */ # ifdef HAS_GETSPNAM_R # ifdef USE_SPENT_FPTR - PL_reentrant_buffer->_spent_fptr = NULL; + PL_reentrant_buffer->spent_fptr_ = NULL; # endif - Newx(PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, char); + Newx(PL_reentrant_buffer->spent_buffer_, PL_reentrant_buffer->spent_size_, char); # endif /* HAS_GETSPNAM_R */ # ifdef HAS_GMTIME_R @@ -250,23 +250,23 @@ Perl_reentrant_init(pTHX) { # endif /* HAS_LOCALTIME_R */ # ifdef HAS_READDIR_R - PL_reentrant_buffer->_readdir_struct = (struct dirent*)safemalloc(PL_reentrant_buffer->_readdir_size); + PL_reentrant_buffer->readdir_struct_ = (struct dirent*)safemalloc(PL_reentrant_buffer->readdir_size_); # endif /* HAS_READDIR_R */ # ifdef HAS_READDIR64_R - PL_reentrant_buffer->_readdir64_struct = (struct dirent64*)safemalloc(PL_reentrant_buffer->_readdir64_size); + PL_reentrant_buffer->readdir64_struct_ = (struct dirent64*)safemalloc(PL_reentrant_buffer->readdir64_size_); # endif /* HAS_READDIR64_R */ # ifdef HAS_SETLOCALE_R - Newx(PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size, char); + Newx(PL_reentrant_buffer->setlocale_buffer_, PL_reentrant_buffer->setlocale_size_, char); # endif /* HAS_SETLOCALE_R */ # ifdef HAS_STRERROR_R - Newx(PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size, char); + Newx(PL_reentrant_buffer->strerror_buffer_, PL_reentrant_buffer->strerror_size_, char); # endif /* HAS_STRERROR_R */ # ifdef HAS_TTYNAME_R - Newx(PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size, char); + Newx(PL_reentrant_buffer->ttyname_buffer_, PL_reentrant_buffer->ttyname_size_, char); # endif /* HAS_TTYNAME_R */ @@ -283,57 +283,57 @@ Perl_reentrant_free(pTHX) { #ifdef USE_REENTRANT_API # ifdef HAS_ASCTIME_R - Safefree(PL_reentrant_buffer->_asctime_buffer); + Safefree(PL_reentrant_buffer->asctime_buffer_); # endif /* HAS_ASCTIME_R */ # ifdef HAS_CRYPT_R # if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD - Safefree(PL_reentrant_buffer->_crypt_struct_buffer); + Safefree(PL_reentrant_buffer->crypt_struct_buffer_); # endif # endif /* HAS_CRYPT_R */ # ifdef HAS_CTIME_R - Safefree(PL_reentrant_buffer->_ctime_buffer); + Safefree(PL_reentrant_buffer->ctime_buffer_); # endif /* HAS_CTIME_R */ # ifdef HAS_GETGRNAM_R - Safefree(PL_reentrant_buffer->_grent_buffer); + Safefree(PL_reentrant_buffer->grent_buffer_); # endif /* HAS_GETGRNAM_R */ # ifdef HAS_GETHOSTBYNAME_R # if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - Safefree(PL_reentrant_buffer->_hostent_buffer); + Safefree(PL_reentrant_buffer->hostent_buffer_); # endif # endif /* HAS_GETHOSTBYNAME_R */ # ifdef HAS_GETLOGIN_R - Safefree(PL_reentrant_buffer->_getlogin_buffer); + Safefree(PL_reentrant_buffer->getlogin_buffer_); # endif /* HAS_GETLOGIN_R */ # ifdef HAS_GETNETBYNAME_R # if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - Safefree(PL_reentrant_buffer->_netent_buffer); + Safefree(PL_reentrant_buffer->netent_buffer_); # endif # endif /* HAS_GETNETBYNAME_R */ # ifdef HAS_GETPROTOBYNAME_R # if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) - Safefree(PL_reentrant_buffer->_protoent_buffer); + Safefree(PL_reentrant_buffer->protoent_buffer_); # endif # endif /* HAS_GETPROTOBYNAME_R */ # ifdef HAS_GETPWNAM_R - Safefree(PL_reentrant_buffer->_pwent_buffer); + Safefree(PL_reentrant_buffer->pwent_buffer_); # endif /* HAS_GETPWNAM_R */ # ifdef HAS_GETSERVBYNAME_R # if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) - Safefree(PL_reentrant_buffer->_servent_buffer); + Safefree(PL_reentrant_buffer->servent_buffer_); # endif # endif /* HAS_GETSERVBYNAME_R */ # ifdef HAS_GETSPNAM_R - Safefree(PL_reentrant_buffer->_spent_buffer); + Safefree(PL_reentrant_buffer->spent_buffer_); # endif /* HAS_GETSPNAM_R */ # ifdef HAS_GMTIME_R @@ -343,23 +343,23 @@ Perl_reentrant_free(pTHX) { # endif /* HAS_LOCALTIME_R */ # ifdef HAS_READDIR_R - Safefree(PL_reentrant_buffer->_readdir_struct); + Safefree(PL_reentrant_buffer->readdir_struct_); # endif /* HAS_READDIR_R */ # ifdef HAS_READDIR64_R - Safefree(PL_reentrant_buffer->_readdir64_struct); + Safefree(PL_reentrant_buffer->readdir64_struct_); # endif /* HAS_READDIR64_R */ # ifdef HAS_SETLOCALE_R - Safefree(PL_reentrant_buffer->_setlocale_buffer); + Safefree(PL_reentrant_buffer->setlocale_buffer_); # endif /* HAS_SETLOCALE_R */ # ifdef HAS_STRERROR_R - Safefree(PL_reentrant_buffer->_strerror_buffer); + Safefree(PL_reentrant_buffer->strerror_buffer_); # endif /* HAS_STRERROR_R */ # ifdef HAS_TTYNAME_R - Safefree(PL_reentrant_buffer->_ttyname_buffer); + Safefree(PL_reentrant_buffer->ttyname_buffer_); # endif /* HAS_TTYNAME_R */ @@ -434,11 +434,11 @@ Perl_reentrant_retry(const char *f, ...) int anint; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_hostent_size <= + if (PL_reentrant_buffer->hostent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_hostent_buffer, - &PL_reentrant_buffer->_hostent_size, char); + RenewDouble(PL_reentrant_buffer->hostent_buffer_, + &PL_reentrant_buffer->hostent_size_, char); switch (key) { case KEY_gethostbyaddr: host_addr = va_arg(ap, char *); @@ -469,11 +469,11 @@ Perl_reentrant_retry(const char *f, ...) Gid_t gid; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_grent_size <= + if (PL_reentrant_buffer->grent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_grent_buffer, - &PL_reentrant_buffer->_grent_size, char); + RenewDouble(PL_reentrant_buffer->grent_buffer_, + &PL_reentrant_buffer->grent_size_, char); switch (key) { case KEY_getgrnam: name = va_arg(ap, char *); @@ -506,11 +506,11 @@ Perl_reentrant_retry(const char *f, ...) int anint; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_netent_size <= + if (PL_reentrant_buffer->netent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_netent_buffer, - &PL_reentrant_buffer->_netent_size, char); + RenewDouble(PL_reentrant_buffer->netent_buffer_, + &PL_reentrant_buffer->netent_size_, char); switch (key) { case KEY_getnetbyaddr: net = va_arg(ap, Netdb_net_t); @@ -539,12 +539,12 @@ Perl_reentrant_retry(const char *f, ...) char * name; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_pwent_size <= + if (PL_reentrant_buffer->pwent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_pwent_buffer, - &PL_reentrant_buffer->_pwent_size, char); + RenewDouble(PL_reentrant_buffer->pwent_buffer_, + &PL_reentrant_buffer->pwent_size_, char); switch (key) { case KEY_getpwnam: name = va_arg(ap, char *); @@ -578,12 +578,12 @@ Perl_reentrant_retry(const char *f, ...) char * name; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_spent_size <= + if (PL_reentrant_buffer->spent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_spent_buffer, - &PL_reentrant_buffer->_spent_size, char); + RenewDouble(PL_reentrant_buffer->spent_buffer_, + &PL_reentrant_buffer->spent_size_, char); switch (key) { case KEY_getspnam: name = va_arg(ap, char *); @@ -606,11 +606,11 @@ Perl_reentrant_retry(const char *f, ...) int anint; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_protoent_size <= + if (PL_reentrant_buffer->protoent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_protoent_buffer, - &PL_reentrant_buffer->_protoent_size, char); + RenewDouble(PL_reentrant_buffer->protoent_buffer_, + &PL_reentrant_buffer->protoent_size_, char); switch (key) { case KEY_getprotobyname: name = va_arg(ap, char *); @@ -639,11 +639,11 @@ Perl_reentrant_retry(const char *f, ...) int anint; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_servent_size <= + if (PL_reentrant_buffer->servent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_servent_buffer, - &PL_reentrant_buffer->_servent_size, char); + RenewDouble(PL_reentrant_buffer->servent_buffer_, + &PL_reentrant_buffer->servent_size_, char); switch (key) { case KEY_getservbyname: name = va_arg(ap, char *); diff --git a/reentr.h b/reentr.h index 90f6b6d930bf..b7ed5dd91113 100644 --- a/reentr.h +++ b/reentr.h @@ -655,165 +655,165 @@ typedef struct { # ifdef HAS_ASCTIME_R - char* _asctime_buffer; - size_t _asctime_size; + char* asctime_buffer_; + size_t asctime_size_; # endif /* HAS_ASCTIME_R */ # ifdef HAS_CRYPT_R # if CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD - CRYPTD* _crypt_data; + CRYPTD* crypt_data_; # else - struct crypt_data *_crypt_struct_buffer; + struct crypt_data *crypt_struct_buffer_; # endif # endif /* HAS_CRYPT_R */ # ifdef HAS_CTIME_R - char* _ctime_buffer; - size_t _ctime_size; + char* ctime_buffer_; + size_t ctime_size_; # endif /* HAS_CTIME_R */ # ifdef HAS_GETGRNAM_R - struct group _grent_struct; - char* _grent_buffer; - size_t _grent_size; + struct group grent_struct_; + char* grent_buffer_; + size_t grent_size_; # ifdef USE_GRENT_PTR - struct group* _grent_ptr; + struct group* grent_ptr_; # endif # ifdef USE_GRENT_FPTR - FILE* _grent_fptr; + FILE* grent_fptr_; # endif # endif /* HAS_GETGRNAM_R */ # ifdef HAS_GETHOSTBYNAME_R - struct hostent _hostent_struct; + struct hostent hostent_struct_; # if GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD - struct hostent_data _hostent_data; + struct hostent_data hostent_data_; # else - char* _hostent_buffer; - size_t _hostent_size; + char* hostent_buffer_; + size_t hostent_size_; # endif # ifdef USE_HOSTENT_PTR - struct hostent* _hostent_ptr; + struct hostent* hostent_ptr_; # endif # ifdef USE_HOSTENT_ERRNO - int _hostent_errno; + int hostent_errno_; # endif # endif /* HAS_GETHOSTBYNAME_R */ # ifdef HAS_GETLOGIN_R - char* _getlogin_buffer; - size_t _getlogin_size; + char* getlogin_buffer_; + size_t getlogin_size_; # endif /* HAS_GETLOGIN_R */ # ifdef HAS_GETNETBYNAME_R - struct netent _netent_struct; + struct netent netent_struct_; # if GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD - struct netent_data _netent_data; + struct netent_data netent_data_; # else - char* _netent_buffer; - size_t _netent_size; + char* netent_buffer_; + size_t netent_size_; # endif # ifdef USE_NETENT_PTR - struct netent* _netent_ptr; + struct netent* netent_ptr_; # endif # ifdef USE_NETENT_ERRNO - int _netent_errno; + int netent_errno_; # endif # endif /* HAS_GETNETBYNAME_R */ # ifdef HAS_GETPROTOBYNAME_R - struct protoent _protoent_struct; + struct protoent protoent_struct_; # if GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD - struct protoent_data _protoent_data; + struct protoent_data protoent_data_; # else - char* _protoent_buffer; - size_t _protoent_size; + char* protoent_buffer_; + size_t protoent_size_; # endif # ifdef USE_PROTOENT_PTR - struct protoent* _protoent_ptr; + struct protoent* protoent_ptr_; # endif # ifdef USE_PROTOENT_ERRNO - int _protoent_errno; + int protoent_errno_; # endif # endif /* HAS_GETPROTOBYNAME_R */ # ifdef HAS_GETPWNAM_R - struct passwd _pwent_struct; - char* _pwent_buffer; - size_t _pwent_size; + struct passwd pwent_struct_; + char* pwent_buffer_; + size_t pwent_size_; # ifdef USE_PWENT_PTR - struct passwd* _pwent_ptr; + struct passwd* pwent_ptr_; # endif # ifdef USE_PWENT_FPTR - FILE* _pwent_fptr; + FILE* pwent_fptr_; # endif # endif /* HAS_GETPWNAM_R */ # ifdef HAS_GETSERVBYNAME_R - struct servent _servent_struct; + struct servent servent_struct_; # if GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD - struct servent_data _servent_data; + struct servent_data servent_data_; # else - char* _servent_buffer; - size_t _servent_size; + char* servent_buffer_; + size_t servent_size_; # endif # ifdef USE_SERVENT_PTR - struct servent* _servent_ptr; + struct servent* servent_ptr_; # endif # ifdef USE_SERVENT_ERRNO - int _servent_errno; + int servent_errno_; # endif # endif /* HAS_GETSERVBYNAME_R */ # ifdef HAS_GETSPNAM_R - struct spwd _spent_struct; - char* _spent_buffer; - size_t _spent_size; + struct spwd spent_struct_; + char* spent_buffer_; + size_t spent_size_; # ifdef USE_SPENT_PTR - struct spwd* _spent_ptr; + struct spwd* spent_ptr_; # endif # ifdef USE_SPENT_FPTR - FILE* _spent_fptr; + FILE* spent_fptr_; # endif # endif /* HAS_GETSPNAM_R */ # ifdef HAS_GMTIME_R - struct tm _gmtime_struct; + struct tm gmtime_struct_; # endif /* HAS_GMTIME_R */ # ifdef HAS_LOCALTIME_R - struct tm _localtime_struct; + struct tm localtime_struct_; # endif /* HAS_LOCALTIME_R */ # ifdef HAS_READDIR_R - struct dirent* _readdir_struct; - size_t _readdir_size; + struct dirent* readdir_struct_; + size_t readdir_size_; # if READDIR_R_PROTO == REENTRANT_PROTO_I_TSR - struct dirent* _readdir_ptr; + struct dirent* readdir_ptr_; # endif # endif /* HAS_READDIR_R */ # ifdef HAS_READDIR64_R - struct dirent64* _readdir64_struct; - size_t _readdir64_size; + struct dirent64* readdir64_struct_; + size_t readdir64_size_; # if READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR - struct dirent64* _readdir64_ptr; + struct dirent64* readdir64_ptr_; # endif # endif /* HAS_READDIR64_R */ # ifdef HAS_SETLOCALE_R - char* _setlocale_buffer; - size_t _setlocale_size; + char* setlocale_buffer_; + size_t setlocale_size_; # endif /* HAS_SETLOCALE_R */ # ifdef HAS_STRERROR_R - char* _strerror_buffer; - size_t _strerror_size; + char* strerror_buffer_; + size_t strerror_size_; # endif /* HAS_STRERROR_R */ # ifdef HAS_TTYNAME_R - char* _ttyname_buffer; - size_t _ttyname_size; + char* ttyname_buffer_; + size_t ttyname_size_; # endif /* HAS_TTYNAME_R */ @@ -826,16 +826,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef asctime # if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SB -# define asctime(a) asctime_r(a, PL_reentrant_buffer->_asctime_buffer) +# define asctime(a) asctime_r(a, PL_reentrant_buffer->asctime_buffer_) # endif # if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SBI -# define asctime(a) asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size) +# define asctime(a) asctime_r(a, PL_reentrant_buffer->asctime_buffer_, PL_reentrant_buffer->asctime_size_) # endif # if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_I_SB -# define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0) +# define asctime(a) (asctime_r(a, PL_reentrant_buffer->asctime_buffer_) == 0 ? PL_reentrant_buffer->asctime_buffer_ : 0) # endif # if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_I_SBI -# define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0) +# define asctime(a) (asctime_r(a, PL_reentrant_buffer->asctime_buffer_, PL_reentrant_buffer->asctime_size_) == 0 ? PL_reentrant_buffer->asctime_buffer_ : 0) # endif # if defined(asctime) # define PERL_REENTR_USING_ASCTIME_R @@ -848,10 +848,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef crypt # if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCS -# define crypt(a, b) crypt_r(a, b, PL_reentrant_buffer->_crypt_struct_buffer) +# define crypt(a, b) crypt_r(a, b, PL_reentrant_buffer->crypt_struct_buffer_) # endif # if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD -# define crypt(a, b) crypt_r(a, b, &PL_reentrant_buffer->_crypt_data) +# define crypt(a, b) crypt_r(a, b, &PL_reentrant_buffer->crypt_data_) # endif # if defined(crypt) # define PERL_REENTR_USING_CRYPT_R @@ -877,16 +877,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef ctime # if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SB -# define ctime(a) ctime_r(a, PL_reentrant_buffer->_ctime_buffer) +# define ctime(a) ctime_r(a, PL_reentrant_buffer->ctime_buffer_) # endif # if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SBI -# define ctime(a) ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size) +# define ctime(a) ctime_r(a, PL_reentrant_buffer->ctime_buffer_, PL_reentrant_buffer->ctime_size_) # endif # if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_I_SB -# define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0) +# define ctime(a) (ctime_r(a, PL_reentrant_buffer->ctime_buffer_) == 0 ? PL_reentrant_buffer->ctime_buffer_ : 0) # endif # if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_I_SBI -# define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0) +# define ctime(a) (ctime_r(a, PL_reentrant_buffer->ctime_buffer_, PL_reentrant_buffer->ctime_size_) == 0 ? PL_reentrant_buffer->ctime_buffer_ : 0) # endif # if defined(ctime) # define PERL_REENTR_USING_CTIME_R @@ -899,10 +899,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endgrent # if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H -# define endgrent() (endgrent_r(&PL_reentrant_buffer->_grent_fptr) == 0 ? 1 : 0) +# define endgrent() (endgrent_r(&PL_reentrant_buffer->grent_fptr_) == 0 ? 1 : 0) # endif # if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H -# define endgrent() endgrent_r(&PL_reentrant_buffer->_grent_fptr) +# define endgrent() endgrent_r(&PL_reentrant_buffer->grent_fptr_) # endif # if defined(endgrent) # define PERL_REENTR_USING_ENDGRENT_R @@ -915,10 +915,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endhostent # if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_I_D -# define endhostent() (endhostent_r(&PL_reentrant_buffer->_hostent_data) == 0 ? 1 : 0) +# define endhostent() (endhostent_r(&PL_reentrant_buffer->hostent_data_) == 0 ? 1 : 0) # endif # if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_V_D -# define endhostent() endhostent_r(&PL_reentrant_buffer->_hostent_data) +# define endhostent() endhostent_r(&PL_reentrant_buffer->hostent_data_) # endif # if defined(endhostent) # define PERL_REENTR_USING_ENDHOSTENT_R @@ -931,10 +931,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endnetent # if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_I_D -# define endnetent() (endnetent_r(&PL_reentrant_buffer->_netent_data) == 0 ? 1 : 0) +# define endnetent() (endnetent_r(&PL_reentrant_buffer->netent_data_) == 0 ? 1 : 0) # endif # if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_V_D -# define endnetent() endnetent_r(&PL_reentrant_buffer->_netent_data) +# define endnetent() endnetent_r(&PL_reentrant_buffer->netent_data_) # endif # if defined(endnetent) # define PERL_REENTR_USING_ENDNETENT_R @@ -947,10 +947,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endprotoent # if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_I_D -# define endprotoent() (endprotoent_r(&PL_reentrant_buffer->_protoent_data) == 0 ? 1 : 0) +# define endprotoent() (endprotoent_r(&PL_reentrant_buffer->protoent_data_) == 0 ? 1 : 0) # endif # if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_V_D -# define endprotoent() endprotoent_r(&PL_reentrant_buffer->_protoent_data) +# define endprotoent() endprotoent_r(&PL_reentrant_buffer->protoent_data_) # endif # if defined(endprotoent) # define PERL_REENTR_USING_ENDPROTOENT_R @@ -963,10 +963,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endpwent # if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H -# define endpwent() (endpwent_r(&PL_reentrant_buffer->_pwent_fptr) == 0 ? 1 : 0) +# define endpwent() (endpwent_r(&PL_reentrant_buffer->pwent_fptr_) == 0 ? 1 : 0) # endif # if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H -# define endpwent() endpwent_r(&PL_reentrant_buffer->_pwent_fptr) +# define endpwent() endpwent_r(&PL_reentrant_buffer->pwent_fptr_) # endif # if defined(endpwent) # define PERL_REENTR_USING_ENDPWENT_R @@ -979,10 +979,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endservent # if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_I_D -# define endservent() (endservent_r(&PL_reentrant_buffer->_servent_data) == 0 ? 1 : 0) +# define endservent() (endservent_r(&PL_reentrant_buffer->servent_data_) == 0 ? 1 : 0) # endif # if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_V_D -# define endservent() endservent_r(&PL_reentrant_buffer->_servent_data) +# define endservent() endservent_r(&PL_reentrant_buffer->servent_data_) # endif # if defined(endservent) # define PERL_REENTR_USING_ENDSERVENT_R @@ -995,22 +995,22 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getgrent # if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR -# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) +# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_, &PL_reentrant_buffer->grent_ptr_)) == 0 ? PL_reentrant_buffer->grent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) # endif # if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR -# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) +# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_, &PL_reentrant_buffer->grent_ptr_)) == 0 ? PL_reentrant_buffer->grent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) # endif # if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW -# define getgrent() (getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) +# define getgrent() (getgrent_r(&PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_) ? &PL_reentrant_buffer->grent_struct_ : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) # endif # if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI -# define getgrent() (getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) +# define getgrent() (getgrent_r(&PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_) ? &PL_reentrant_buffer->grent_struct_ : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) # endif # if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI -# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) +# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_)) == 0 ? &PL_reentrant_buffer->grent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) # endif # if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH -# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_fptr)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) +# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_, &PL_reentrant_buffer->grent_fptr_)) == 0 ? &PL_reentrant_buffer->grent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) # endif # if defined(getgrent) # define PERL_REENTR_USING_GETGRENT_R @@ -1023,16 +1023,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getgrgid # if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR -# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) +# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_, &PL_reentrant_buffer->grent_ptr_)) == 0 ? PL_reentrant_buffer->grent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) # endif # if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR -# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) +# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_, &PL_reentrant_buffer->grent_ptr_)) == 0 ? PL_reentrant_buffer->grent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) # endif # if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI -# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) +# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_)) == 0 ? &PL_reentrant_buffer->grent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) # endif # if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI -# define getgrgid(a) (getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) +# define getgrgid(a) (getgrgid_r(a, &PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_) ? &PL_reentrant_buffer->grent_struct_ : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) # endif # if defined(getgrgid) # define PERL_REENTR_USING_GETGRGID_R @@ -1045,19 +1045,19 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getgrnam # if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR -# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) +# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_, &PL_reentrant_buffer->grent_ptr_)) == 0 ? PL_reentrant_buffer->grent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) # endif # if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR -# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) +# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_, &PL_reentrant_buffer->grent_ptr_)) == 0 ? PL_reentrant_buffer->grent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) # endif # if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI -# define getgrnam(a) (getgrnam_r(a, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? PL_reentrant_buffer->_grent_buffer : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) +# define getgrnam(a) (getgrnam_r(a, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_) ? PL_reentrant_buffer->grent_buffer_ : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) # endif # if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI -# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) +# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_)) == 0 ? &PL_reentrant_buffer->grent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) # endif # if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI -# define getgrnam(a) (getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) +# define getgrnam(a) (getgrnam_r(a, &PL_reentrant_buffer->grent_struct_, PL_reentrant_buffer->grent_buffer_, PL_reentrant_buffer->grent_size_) ? &PL_reentrant_buffer->grent_struct_ : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) # endif # if defined(getgrnam) # define PERL_REENTR_USING_GETGRNAM_R @@ -1070,37 +1070,37 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef gethostbyaddr # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE -# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_ptr_, &PL_reentrant_buffer->hostent_errno_)) == 0 ? PL_reentrant_buffer->hostent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE -# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_) ? &PL_reentrant_buffer->hostent_struct_ : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE -# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_) ? &PL_reentrant_buffer->hostent_struct_ : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE -# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_) ? &PL_reentrant_buffer->hostent_struct_ : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE -# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_) ? &PL_reentrant_buffer->hostent_struct_ : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE -# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? 1 : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_) ? 1 : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE -# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? 1 : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_) ? 1 : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISD -# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->hostent_struct_, &PL_reentrant_buffer->hostent_data_)) == 0 ? &PL_reentrant_buffer->hostent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CIISD -# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->hostent_struct_, &PL_reentrant_buffer->hostent_data_)) == 0 ? &PL_reentrant_buffer->hostent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CII # define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c)) == 0 ? 1 : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE -# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) +# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_ptr_, &PL_reentrant_buffer->hostent_errno_)) == 0 ? PL_reentrant_buffer->hostent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # if defined(gethostbyaddr) # define PERL_REENTR_USING_GETHOSTBYADDR_R @@ -1113,13 +1113,13 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef gethostbyname # if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE -# define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0)) +# define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_ptr_, &PL_reentrant_buffer->hostent_errno_)) == 0 ? PL_reentrant_buffer->hostent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0)) # endif # if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE -# define gethostbyname(a) (gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0)) +# define gethostbyname(a) (gethostbyname_r(a, &PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_) ? &PL_reentrant_buffer->hostent_struct_ : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0)) # endif # if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD -# define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0)) +# define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->hostent_struct_, &PL_reentrant_buffer->hostent_data_)) == 0 ? &PL_reentrant_buffer->hostent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0)) # endif # if defined(gethostbyname) # define PERL_REENTR_USING_GETHOSTBYNAME_R @@ -1132,22 +1132,22 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef gethostent # if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE -# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) +# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_ptr_, &PL_reentrant_buffer->hostent_errno_)) == 0 ? PL_reentrant_buffer->hostent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) # endif # if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE -# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) +# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_)) == 0 ? &PL_reentrant_buffer->hostent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) # endif # if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE -# define gethostent() (gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) +# define gethostent() (gethostent_r(&PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_, &PL_reentrant_buffer->hostent_errno_) ? &PL_reentrant_buffer->hostent_struct_ : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) # endif # if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI -# define gethostent() (gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) +# define gethostent() (gethostent_r(&PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_) ? &PL_reentrant_buffer->hostent_struct_ : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) # endif # if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI -# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) +# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->hostent_struct_, PL_reentrant_buffer->hostent_buffer_, PL_reentrant_buffer->hostent_size_)) == 0 ? &PL_reentrant_buffer->hostent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) # endif # if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SD -# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) +# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->hostent_struct_, &PL_reentrant_buffer->hostent_data_)) == 0 ? &PL_reentrant_buffer->hostent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) # endif # if defined(gethostent) # define PERL_REENTR_USING_GETHOSTENT_R @@ -1160,16 +1160,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getlogin # if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BW -# define getlogin() ((PL_reentrant_retint = getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)) == 0 ? PL_reentrant_buffer->_getlogin_buffer : ((PL_reentrant_retint == ERANGE) ? (char *) Perl_reentrant_retry("getlogin") : 0)) +# define getlogin() ((PL_reentrant_retint = getlogin_r(PL_reentrant_buffer->getlogin_buffer_, PL_reentrant_buffer->getlogin_size_)) == 0 ? PL_reentrant_buffer->getlogin_buffer_ : ((PL_reentrant_retint == ERANGE) ? (char *) Perl_reentrant_retry("getlogin") : 0)) # endif # if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BI -# define getlogin() ((PL_reentrant_retint = getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)) == 0 ? PL_reentrant_buffer->_getlogin_buffer : ((PL_reentrant_retint == ERANGE) ? (char *) Perl_reentrant_retry("getlogin") : 0)) +# define getlogin() ((PL_reentrant_retint = getlogin_r(PL_reentrant_buffer->getlogin_buffer_, PL_reentrant_buffer->getlogin_size_)) == 0 ? PL_reentrant_buffer->getlogin_buffer_ : ((PL_reentrant_retint == ERANGE) ? (char *) Perl_reentrant_retry("getlogin") : 0)) # endif # if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_B_BW -# define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size) +# define getlogin() getlogin_r(PL_reentrant_buffer->getlogin_buffer_, PL_reentrant_buffer->getlogin_size_) # endif # if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_B_BI -# define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size) +# define getlogin() getlogin_r(PL_reentrant_buffer->getlogin_buffer_, PL_reentrant_buffer->getlogin_size_) # endif # if defined(getlogin) # define PERL_REENTR_USING_GETLOGIN_R @@ -1182,28 +1182,28 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getnetbyaddr # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE -# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) +# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_, &PL_reentrant_buffer->netent_ptr_, &PL_reentrant_buffer->netent_errno_)) == 0 ? PL_reentrant_buffer->netent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI -# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) +# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI -# define getnetbyaddr(a, b) (getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) +# define getnetbyaddr(a, b) (getnetbyaddr_r(a, b, &PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_) ? &PL_reentrant_buffer->netent_struct_ : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI -# define getnetbyaddr(a, b) (getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) +# define getnetbyaddr(a, b) (getnetbyaddr_r(a, b, &PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_) ? &PL_reentrant_buffer->netent_struct_ : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_TISD -# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) +# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->netent_struct_, &PL_reentrant_buffer->netent_data_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISD -# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) +# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->netent_struct_, &PL_reentrant_buffer->netent_data_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_IISD -# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) +# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->netent_struct_, &PL_reentrant_buffer->netent_data_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE -# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) +# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_, &PL_reentrant_buffer->netent_ptr_, &PL_reentrant_buffer->netent_errno_)) == 0 ? PL_reentrant_buffer->netent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # if defined(getnetbyaddr) # define PERL_REENTR_USING_GETNETBYADDR_R @@ -1216,16 +1216,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getnetbyname # if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE -# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) +# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_, &PL_reentrant_buffer->netent_ptr_, &PL_reentrant_buffer->netent_errno_)) == 0 ? PL_reentrant_buffer->netent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) # endif # if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI -# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) +# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) # endif # if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI -# define getnetbyname(a) (getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) +# define getnetbyname(a) (getnetbyname_r(a, &PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_) ? &PL_reentrant_buffer->netent_struct_ : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) # endif # if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD -# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) +# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->netent_struct_, &PL_reentrant_buffer->netent_data_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) # endif # if defined(getnetbyname) # define PERL_REENTR_USING_GETNETBYNAME_R @@ -1238,22 +1238,22 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getnetent # if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE -# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) +# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_, &PL_reentrant_buffer->netent_ptr_, &PL_reentrant_buffer->netent_errno_)) == 0 ? PL_reentrant_buffer->netent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) # endif # if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE -# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_errno)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) +# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_, &PL_reentrant_buffer->netent_errno_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) # endif # if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE -# define getnetent() (getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_errno) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) +# define getnetent() (getnetent_r(&PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_, &PL_reentrant_buffer->netent_errno_) ? &PL_reentrant_buffer->netent_struct_ : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) # endif # if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI -# define getnetent() (getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) +# define getnetent() (getnetent_r(&PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_) ? &PL_reentrant_buffer->netent_struct_ : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) # endif # if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI -# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) +# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->netent_struct_, PL_reentrant_buffer->netent_buffer_, PL_reentrant_buffer->netent_size_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) # endif # if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SD -# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) +# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->netent_struct_, &PL_reentrant_buffer->netent_data_)) == 0 ? &PL_reentrant_buffer->netent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) # endif # if defined(getnetent) # define PERL_REENTR_USING_GETNETENT_R @@ -1266,13 +1266,13 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getprotobyname # if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR -# define getprotobyname(a) ((PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0)) +# define getprotobyname(a) ((PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->protoent_struct_, PL_reentrant_buffer->protoent_buffer_, PL_reentrant_buffer->protoent_size_, &PL_reentrant_buffer->protoent_ptr_)) == 0 ? PL_reentrant_buffer->protoent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0)) # endif # if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI -# define getprotobyname(a) (getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0)) +# define getprotobyname(a) (getprotobyname_r(a, &PL_reentrant_buffer->protoent_struct_, PL_reentrant_buffer->protoent_buffer_, PL_reentrant_buffer->protoent_size_) ? &PL_reentrant_buffer->protoent_struct_ : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0)) # endif # if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD -# define getprotobyname(a) (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0)) +# define getprotobyname(a) (REENTR_MEMZERO(&PL_reentrant_buffer->protoent_data_, sizeof(PL_reentrant_buffer->protoent_data_)),(PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->protoent_struct_, &PL_reentrant_buffer->protoent_data_)) == 0 ? &PL_reentrant_buffer->protoent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0)) # endif # if defined(getprotobyname) # define PERL_REENTR_USING_GETPROTOBYNAME_R @@ -1285,13 +1285,13 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getprotobynumber # if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR -# define getprotobynumber(a) ((PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0)) +# define getprotobynumber(a) ((PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->protoent_struct_, PL_reentrant_buffer->protoent_buffer_, PL_reentrant_buffer->protoent_size_, &PL_reentrant_buffer->protoent_ptr_)) == 0 ? PL_reentrant_buffer->protoent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0)) # endif # if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI -# define getprotobynumber(a) (getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0)) +# define getprotobynumber(a) (getprotobynumber_r(a, &PL_reentrant_buffer->protoent_struct_, PL_reentrant_buffer->protoent_buffer_, PL_reentrant_buffer->protoent_size_) ? &PL_reentrant_buffer->protoent_struct_ : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0)) # endif # if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISD -# define getprotobynumber(a) (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0)) +# define getprotobynumber(a) (REENTR_MEMZERO(&PL_reentrant_buffer->protoent_data_, sizeof(PL_reentrant_buffer->protoent_data_)),(PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->protoent_struct_, &PL_reentrant_buffer->protoent_data_)) == 0 ? &PL_reentrant_buffer->protoent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0)) # endif # if defined(getprotobynumber) # define PERL_REENTR_USING_GETPROTOBYNUMBER_R @@ -1304,16 +1304,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getprotoent # if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR -# define getprotoent() ((PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) +# define getprotoent() ((PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->protoent_struct_, PL_reentrant_buffer->protoent_buffer_, PL_reentrant_buffer->protoent_size_, &PL_reentrant_buffer->protoent_ptr_)) == 0 ? PL_reentrant_buffer->protoent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) # endif # if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI -# define getprotoent() ((PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) +# define getprotoent() ((PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->protoent_struct_, PL_reentrant_buffer->protoent_buffer_, PL_reentrant_buffer->protoent_size_)) == 0 ? &PL_reentrant_buffer->protoent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) # endif # if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI -# define getprotoent() (getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) +# define getprotoent() (getprotoent_r(&PL_reentrant_buffer->protoent_struct_, PL_reentrant_buffer->protoent_buffer_, PL_reentrant_buffer->protoent_size_) ? &PL_reentrant_buffer->protoent_struct_ : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) # endif # if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SD -# define getprotoent() (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) +# define getprotoent() (REENTR_MEMZERO(&PL_reentrant_buffer->protoent_data_, sizeof(PL_reentrant_buffer->protoent_data_)),(PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->protoent_struct_, &PL_reentrant_buffer->protoent_data_)) == 0 ? &PL_reentrant_buffer->protoent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) # endif # if defined(getprotoent) # define PERL_REENTR_USING_GETPROTOENT_R @@ -1326,22 +1326,22 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getpwent # if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR -# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) +# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_, &PL_reentrant_buffer->pwent_ptr_)) == 0 ? PL_reentrant_buffer->pwent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) # endif # if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR -# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) +# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_, &PL_reentrant_buffer->pwent_ptr_)) == 0 ? PL_reentrant_buffer->pwent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) # endif # if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW -# define getpwent() (getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) +# define getpwent() (getpwent_r(&PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_) ? &PL_reentrant_buffer->pwent_struct_ : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) # endif # if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI -# define getpwent() (getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) +# define getpwent() (getpwent_r(&PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_) ? &PL_reentrant_buffer->pwent_struct_ : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) # endif # if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI -# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) +# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_)) == 0 ? &PL_reentrant_buffer->pwent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) # endif # if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH -# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_fptr)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) +# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_, &PL_reentrant_buffer->pwent_fptr_)) == 0 ? &PL_reentrant_buffer->pwent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) # endif # if defined(getpwent) # define PERL_REENTR_USING_GETPWENT_R @@ -1354,16 +1354,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getpwnam # if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR -# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) +# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_, &PL_reentrant_buffer->pwent_ptr_)) == 0 ? PL_reentrant_buffer->pwent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) # endif # if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR -# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) +# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_, &PL_reentrant_buffer->pwent_ptr_)) == 0 ? PL_reentrant_buffer->pwent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) # endif # if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI -# define getpwnam(a) (getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) +# define getpwnam(a) (getpwnam_r(a, &PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_) ? &PL_reentrant_buffer->pwent_struct_ : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) # endif # if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI -# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) +# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_)) == 0 ? &PL_reentrant_buffer->pwent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) # endif # if defined(getpwnam) # define PERL_REENTR_USING_GETPWNAM_R @@ -1376,16 +1376,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getpwuid # if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR -# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) +# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_, &PL_reentrant_buffer->pwent_ptr_)) == 0 ? PL_reentrant_buffer->pwent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) # endif # if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR -# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) +# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_, &PL_reentrant_buffer->pwent_ptr_)) == 0 ? PL_reentrant_buffer->pwent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) # endif # if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBI -# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) +# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_)) == 0 ? &PL_reentrant_buffer->pwent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) # endif # if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_S_TSBI -# define getpwuid(a) (getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) +# define getpwuid(a) (getpwuid_r(a, &PL_reentrant_buffer->pwent_struct_, PL_reentrant_buffer->pwent_buffer_, PL_reentrant_buffer->pwent_size_) ? &PL_reentrant_buffer->pwent_struct_ : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) # endif # if defined(getpwuid) # define PERL_REENTR_USING_GETPWUID_R @@ -1398,13 +1398,13 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getservbyname # if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR -# define getservbyname(a, b) ((PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0)) +# define getservbyname(a, b) ((PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->servent_struct_, PL_reentrant_buffer->servent_buffer_, PL_reentrant_buffer->servent_size_, &PL_reentrant_buffer->servent_ptr_)) == 0 ? PL_reentrant_buffer->servent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0)) # endif # if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI -# define getservbyname(a, b) (getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0)) +# define getservbyname(a, b) (getservbyname_r(a, b, &PL_reentrant_buffer->servent_struct_, PL_reentrant_buffer->servent_buffer_, PL_reentrant_buffer->servent_size_) ? &PL_reentrant_buffer->servent_struct_ : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0)) # endif # if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD -# define getservbyname(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0)) +# define getservbyname(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->servent_data_, sizeof(PL_reentrant_buffer->servent_data_)),(PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->servent_struct_, &PL_reentrant_buffer->servent_data_)) == 0 ? &PL_reentrant_buffer->servent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0)) # endif # if defined(getservbyname) # define PERL_REENTR_USING_GETSERVBYNAME_R @@ -1417,13 +1417,13 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getservbyport # if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR -# define getservbyport(a, b) ((PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0)) +# define getservbyport(a, b) ((PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->servent_struct_, PL_reentrant_buffer->servent_buffer_, PL_reentrant_buffer->servent_size_, &PL_reentrant_buffer->servent_ptr_)) == 0 ? PL_reentrant_buffer->servent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0)) # endif # if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI -# define getservbyport(a, b) (getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0)) +# define getservbyport(a, b) (getservbyport_r(a, b, &PL_reentrant_buffer->servent_struct_, PL_reentrant_buffer->servent_buffer_, PL_reentrant_buffer->servent_size_) ? &PL_reentrant_buffer->servent_struct_ : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0)) # endif # if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSD -# define getservbyport(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0)) +# define getservbyport(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->servent_data_, sizeof(PL_reentrant_buffer->servent_data_)),(PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->servent_struct_, &PL_reentrant_buffer->servent_data_)) == 0 ? &PL_reentrant_buffer->servent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0)) # endif # if defined(getservbyport) # define PERL_REENTR_USING_GETSERVBYPORT_R @@ -1436,16 +1436,16 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getservent # if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR -# define getservent() ((PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) +# define getservent() ((PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->servent_struct_, PL_reentrant_buffer->servent_buffer_, PL_reentrant_buffer->servent_size_, &PL_reentrant_buffer->servent_ptr_)) == 0 ? PL_reentrant_buffer->servent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) # endif # if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI -# define getservent() ((PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) +# define getservent() ((PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->servent_struct_, PL_reentrant_buffer->servent_buffer_, PL_reentrant_buffer->servent_size_)) == 0 ? &PL_reentrant_buffer->servent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) # endif # if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI -# define getservent() (getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) +# define getservent() (getservent_r(&PL_reentrant_buffer->servent_struct_, PL_reentrant_buffer->servent_buffer_, PL_reentrant_buffer->servent_size_) ? &PL_reentrant_buffer->servent_struct_ : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) # endif # if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SD -# define getservent() (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) +# define getservent() (REENTR_MEMZERO(&PL_reentrant_buffer->servent_data_, sizeof(PL_reentrant_buffer->servent_data_)),(PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->servent_struct_, &PL_reentrant_buffer->servent_data_)) == 0 ? &PL_reentrant_buffer->servent_struct_ : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) # endif # if defined(getservent) # define PERL_REENTR_USING_GETSERVENT_R @@ -1458,10 +1458,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getspnam # if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR -# define getspnam(a) ((PL_reentrant_retint = getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, &PL_reentrant_buffer->_spent_ptr)) == 0 ? PL_reentrant_buffer->_spent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0)) +# define getspnam(a) ((PL_reentrant_retint = getspnam_r(a, &PL_reentrant_buffer->spent_struct_, PL_reentrant_buffer->spent_buffer_, PL_reentrant_buffer->spent_size_, &PL_reentrant_buffer->spent_ptr_)) == 0 ? PL_reentrant_buffer->spent_ptr_ : ((PL_reentrant_retint == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0)) # endif # if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_S_CSBI -# define getspnam(a) (getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size) ? &PL_reentrant_buffer->_spent_struct : ((errno == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0)) +# define getspnam(a) (getspnam_r(a, &PL_reentrant_buffer->spent_struct_, PL_reentrant_buffer->spent_buffer_, PL_reentrant_buffer->spent_size_) ? &PL_reentrant_buffer->spent_struct_ : ((errno == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0)) # endif # if defined(getspnam) # define PERL_REENTR_USING_GETSPNAM_R @@ -1474,7 +1474,7 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef gmtime # if !defined(gmtime) && GMTIME_R_PROTO == REENTRANT_PROTO_S_TS -# define gmtime(a) (gmtime_r(a, &PL_reentrant_buffer->_gmtime_struct) ? &PL_reentrant_buffer->_gmtime_struct : 0) +# define gmtime(a) (gmtime_r(a, &PL_reentrant_buffer->gmtime_struct_) ? &PL_reentrant_buffer->gmtime_struct_ : 0) # endif # if defined(gmtime) # define PERL_REENTR_USING_GMTIME_R @@ -1487,7 +1487,7 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef localtime # if !defined(localtime) && LOCALTIME_R_PROTO == REENTRANT_PROTO_S_TS -# define localtime(a) (L_R_TZSET localtime_r(a, &PL_reentrant_buffer->_localtime_struct) ? &PL_reentrant_buffer->_localtime_struct : 0) +# define localtime(a) (L_R_TZSET localtime_r(a, &PL_reentrant_buffer->localtime_struct_) ? &PL_reentrant_buffer->localtime_struct_ : 0) # endif # if defined(localtime) # define PERL_REENTR_USING_LOCALTIME_R @@ -1500,10 +1500,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef readdir # if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TSR -# define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct, &PL_reentrant_buffer->_readdir_ptr) == 0 ? PL_reentrant_buffer->_readdir_ptr : 0) +# define readdir(a) (readdir_r(a, PL_reentrant_buffer->readdir_struct_, &PL_reentrant_buffer->readdir_ptr_) == 0 ? PL_reentrant_buffer->readdir_ptr_ : 0) # endif # if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TS -# define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct) == 0 ? PL_reentrant_buffer->_readdir_struct : 0) +# define readdir(a) (readdir_r(a, PL_reentrant_buffer->readdir_struct_) == 0 ? PL_reentrant_buffer->readdir_struct_ : 0) # endif # if defined(readdir) # define PERL_REENTR_USING_READDIR_R @@ -1516,10 +1516,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef readdir64 # if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR -# define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct, &PL_reentrant_buffer->_readdir64_ptr) == 0 ? PL_reentrant_buffer->_readdir64_ptr : 0) +# define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->readdir64_struct_, &PL_reentrant_buffer->readdir64_ptr_) == 0 ? PL_reentrant_buffer->readdir64_ptr_ : 0) # endif # if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TS -# define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct) == 0 ? PL_reentrant_buffer->_readdir64_struct : 0) +# define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->readdir64_struct_) == 0 ? PL_reentrant_buffer->readdir64_struct_ : 0) # endif # if defined(readdir64) # define PERL_REENTR_USING_READDIR64_R @@ -1532,10 +1532,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setgrent # if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_I_H -# define setgrent() (setgrent_r(&PL_reentrant_buffer->_grent_fptr) == 0 ? 1 : 0) +# define setgrent() (setgrent_r(&PL_reentrant_buffer->grent_fptr_) == 0 ? 1 : 0) # endif # if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_V_H -# define setgrent() setgrent_r(&PL_reentrant_buffer->_grent_fptr) +# define setgrent() setgrent_r(&PL_reentrant_buffer->grent_fptr_) # endif # if defined(setgrent) # define PERL_REENTR_USING_SETGRENT_R @@ -1548,10 +1548,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef sethostent # if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_I_ID -# define sethostent(a) (sethostent_r(a, &PL_reentrant_buffer->_hostent_data) == 0 ? 1 : 0) +# define sethostent(a) (sethostent_r(a, &PL_reentrant_buffer->hostent_data_) == 0 ? 1 : 0) # endif # if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_V_ID -# define sethostent(a) sethostent_r(a, &PL_reentrant_buffer->_hostent_data) +# define sethostent(a) sethostent_r(a, &PL_reentrant_buffer->hostent_data_) # endif # if defined(sethostent) # define PERL_REENTR_USING_SETHOSTENT_R @@ -1564,7 +1564,7 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setlocale # if !defined(setlocale) && SETLOCALE_R_PROTO == REENTRANT_PROTO_I_ICBI -# define setlocale(a, b) (setlocale_r(a, b, PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size) == 0 ? PL_reentrant_buffer->_setlocale_buffer : 0) +# define setlocale(a, b) (setlocale_r(a, b, PL_reentrant_buffer->setlocale_buffer_, PL_reentrant_buffer->setlocale_size_) == 0 ? PL_reentrant_buffer->setlocale_buffer_ : 0) # endif # if defined(setlocale) # define PERL_REENTR_USING_SETLOCALE_R @@ -1577,10 +1577,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setnetent # if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_I_ID -# define setnetent(a) (setnetent_r(a, &PL_reentrant_buffer->_netent_data) == 0 ? 1 : 0) +# define setnetent(a) (setnetent_r(a, &PL_reentrant_buffer->netent_data_) == 0 ? 1 : 0) # endif # if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_V_ID -# define setnetent(a) setnetent_r(a, &PL_reentrant_buffer->_netent_data) +# define setnetent(a) setnetent_r(a, &PL_reentrant_buffer->netent_data_) # endif # if defined(setnetent) # define PERL_REENTR_USING_SETNETENT_R @@ -1593,10 +1593,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setprotoent # if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_I_ID -# define setprotoent(a) (setprotoent_r(a, &PL_reentrant_buffer->_protoent_data) == 0 ? 1 : 0) +# define setprotoent(a) (setprotoent_r(a, &PL_reentrant_buffer->protoent_data_) == 0 ? 1 : 0) # endif # if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_V_ID -# define setprotoent(a) setprotoent_r(a, &PL_reentrant_buffer->_protoent_data) +# define setprotoent(a) setprotoent_r(a, &PL_reentrant_buffer->protoent_data_) # endif # if defined(setprotoent) # define PERL_REENTR_USING_SETPROTOENT_R @@ -1609,10 +1609,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setpwent # if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_I_H -# define setpwent() (setpwent_r(&PL_reentrant_buffer->_pwent_fptr) == 0 ? 1 : 0) +# define setpwent() (setpwent_r(&PL_reentrant_buffer->pwent_fptr_) == 0 ? 1 : 0) # endif # if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_V_H -# define setpwent() setpwent_r(&PL_reentrant_buffer->_pwent_fptr) +# define setpwent() setpwent_r(&PL_reentrant_buffer->pwent_fptr_) # endif # if defined(setpwent) # define PERL_REENTR_USING_SETPWENT_R @@ -1625,10 +1625,10 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setservent # if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_I_ID -# define setservent(a) (setservent_r(a, &PL_reentrant_buffer->_servent_data) == 0 ? 1 : 0) +# define setservent(a) (setservent_r(a, &PL_reentrant_buffer->servent_data_) == 0 ? 1 : 0) # endif # if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_V_ID -# define setservent(a) setservent_r(a, &PL_reentrant_buffer->_servent_data) +# define setservent(a) setservent_r(a, &PL_reentrant_buffer->servent_data_) # endif # if defined(setservent) # define PERL_REENTR_USING_SETSERVENT_R @@ -1641,13 +1641,13 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef strerror # if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBW -# define strerror(a) (strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) == 0 ? PL_reentrant_buffer->_strerror_buffer : 0) +# define strerror(a) (strerror_r(a, PL_reentrant_buffer->strerror_buffer_, PL_reentrant_buffer->strerror_size_) == 0 ? PL_reentrant_buffer->strerror_buffer_ : 0) # endif # if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBI -# define strerror(a) (strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) == 0 ? PL_reentrant_buffer->_strerror_buffer : 0) +# define strerror(a) (strerror_r(a, PL_reentrant_buffer->strerror_buffer_, PL_reentrant_buffer->strerror_size_) == 0 ? PL_reentrant_buffer->strerror_buffer_ : 0) # endif # if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_B_IBW -# define strerror(a) strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) +# define strerror(a) strerror_r(a, PL_reentrant_buffer->strerror_buffer_, PL_reentrant_buffer->strerror_size_) # endif # if defined(strerror) # define PERL_REENTR_USING_STRERROR_R @@ -1673,13 +1673,13 @@ typedef struct { # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef ttyname # if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBW -# define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) == 0 ? PL_reentrant_buffer->_ttyname_buffer : 0) +# define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->ttyname_buffer_, PL_reentrant_buffer->ttyname_size_) == 0 ? PL_reentrant_buffer->ttyname_buffer_ : 0) # endif # if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBI -# define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) == 0 ? PL_reentrant_buffer->_ttyname_buffer : 0) +# define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->ttyname_buffer_, PL_reentrant_buffer->ttyname_size_) == 0 ? PL_reentrant_buffer->ttyname_buffer_ : 0) # endif # if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_B_IBI -# define ttyname(a) ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) +# define ttyname(a) ttyname_r(a, PL_reentrant_buffer->ttyname_buffer_, PL_reentrant_buffer->ttyname_size_) # endif # if defined(ttyname) # define PERL_REENTR_USING_TTYNAME_R diff --git a/regen/reentr.pl b/regen/reentr.pl index 4b13cc2a8ce7..1c5a34e5900f 100644 --- a/regen/reentr.pl +++ b/regen/reentr.pl @@ -381,10 +381,10 @@ sub pushssif { sub pushinitfree { my $func = shift; push @init, <_${func}_buffer, PL_reentrant_buffer->_${func}_size, char); + Newx(PL_reentrant_buffer->${func}_buffer_, PL_reentrant_buffer->${func}_size_, char); EOF push @free, <_${func}_buffer); + Safefree(PL_reentrant_buffer->${func}_buffer_); EOF } @@ -514,12 +514,12 @@ sub define { if (exists $small_bufsizes{$func}) { pushssif $ifdef; push @struct, <_${func}_size = $size; + PL_reentrant_buffer->${func}_size_ = $size; EOF pushinitfree $func; pushssif $endif; @@ -527,7 +527,7 @@ sub define { elsif ($func =~ /^(gm|local)time$/) { pushssif $ifdef; push @struct, <_${func}_struct_buffer = 0; + PL_reentrant_buffer->${func}_struct_buffer_ = 0; # endif EOF push @free, <_${func}_struct_buffer); + Safefree(PL_reentrant_buffer->${func}_struct_buffer_); # endif EOF pushssif $endif; @@ -561,28 +561,28 @@ sub define { $genfunc =~ s/^get//; my $GENFUNC = uc $genfunc; push @struct, <_${genfunc}_fptr = NULL; + PL_reentrant_buffer->${genfunc}_fptr_ = NULL; # endif EOF my $sc = $genfunc eq 'grent' ? '_SC_GETGR_R_SIZE_MAX' : '_SC_GETPW_R_SIZE_MAX'; - my $sz = "_${genfunc}_size"; + my $sz = "${genfunc}_size_"; push @size, <$sz = sysconf($sc); @@ -609,35 +609,35 @@ sub define { my $d = $seend{$func}; $d =~ s/\*$//; # snip: we need the base type. push @struct, <_${genfunc}_size = REENTRANTUSUALSIZE; + PL_reentrant_buffer->${genfunc}_size_ = REENTRANTUSUALSIZE; # endif EOF push @init, <_${genfunc}_buffer, PL_reentrant_buffer->_${genfunc}_size, char); + Newx(PL_reentrant_buffer->${genfunc}_buffer_, PL_reentrant_buffer->${genfunc}_size_, char); # endif EOF push @free, <_${genfunc}_buffer); + Safefree(PL_reentrant_buffer->${genfunc}_buffer_); # endif EOF pushssif $endif; @@ -646,22 +646,22 @@ sub define { pushssif $ifdef; my $R = ifprotomatch($FUNC, grep {/R/} @p); push @struct, <_${func}_size = sizeof($seent{$func}) + MAXPATHLEN + 1; + PL_reentrant_buffer->${func}_size_ = sizeof($seent{$func}) + MAXPATHLEN + 1; EOF push @init, <_${func}_struct = ($seent{$func}*)safemalloc(PL_reentrant_buffer->_${func}_size); + PL_reentrant_buffer->${func}_struct_ = ($seent{$func}*)safemalloc(PL_reentrant_buffer->${func}_size_); EOF push @free, <_${func}_struct); + Safefree(PL_reentrant_buffer->${func}_struct_); EOF pushssif $endif; } @@ -689,36 +689,36 @@ sub define { my $w = ''; substr($b, 0, $seenu{$func}) = ''; if ($b =~ /R/) { - $true = "PL_reentrant_buffer->_${genfunc}_ptr"; + $true = "PL_reentrant_buffer->${genfunc}_ptr_"; } elsif ($b =~ /S/) { if ($func =~ /^readdir/) { - $true = "PL_reentrant_buffer->_${genfunc}_struct"; + $true = "PL_reentrant_buffer->${genfunc}_struct_"; } else { - $true = "&PL_reentrant_buffer->_${genfunc}_struct"; + $true = "&PL_reentrant_buffer->${genfunc}_struct_"; } } elsif ($b =~ /B/) { - $true = "PL_reentrant_buffer->_${genfunc}_buffer"; + $true = "PL_reentrant_buffer->${genfunc}_buffer_"; } if (length $b) { $w = join ", ", map { $_ eq 'R' - ? "&PL_reentrant_buffer->_${genfunc}_ptr" + ? "&PL_reentrant_buffer->${genfunc}_ptr_" : $_ eq 'E' - ? "&PL_reentrant_buffer->_${genfunc}_errno" + ? "&PL_reentrant_buffer->${genfunc}_errno_" : $_ eq 'B' - ? "PL_reentrant_buffer->_${genfunc}_buffer" + ? "PL_reentrant_buffer->${genfunc}_buffer_" : $_ =~ /^[WI]$/ - ? "PL_reentrant_buffer->_${genfunc}_size" + ? "PL_reentrant_buffer->${genfunc}_size_" : $_ eq 'H' - ? "&PL_reentrant_buffer->_${genfunc}_fptr" + ? "&PL_reentrant_buffer->${genfunc}_fptr_" : $_ eq 'D' - ? "&PL_reentrant_buffer->_${genfunc}_data" + ? "&PL_reentrant_buffer->${genfunc}_data_" : $_ eq 'S' ? ($func =~ /^readdir\d*$/ - ? "PL_reentrant_buffer->_${genfunc}_struct" + ? "PL_reentrant_buffer->${genfunc}_struct_" : $func =~ /^crypt$/ - ? "PL_reentrant_buffer->_${genfunc}_struct_buffer" - : "&PL_reentrant_buffer->_${genfunc}_struct") + ? "PL_reentrant_buffer->${genfunc}_struct_buffer_" + : "&PL_reentrant_buffer->${genfunc}_struct_") : $_ } split '', $b; $w = ", $w" if length $v; @@ -733,7 +733,7 @@ sub define { my $memzero = ''; if($p =~ /D$/ && ($genfunc eq 'protoent' || $genfunc eq 'servent')) { - $memzero = 'REENTR_MEMZERO(&PL_reentrant_buffer->_' . $genfunc . '_data, sizeof(PL_reentrant_buffer->_' . $genfunc . '_data)),'; + $memzero = 'REENTR_MEMZERO(&PL_reentrant_buffer->' . $genfunc . '_data_, sizeof(PL_reentrant_buffer->' . $genfunc . '_data_)),'; } push @wrap, <_hostent_size <= + if (PL_reentrant_buffer->hostent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_hostent_buffer, - &PL_reentrant_buffer->_hostent_size, char); + RenewDouble(PL_reentrant_buffer->hostent_buffer_, + &PL_reentrant_buffer->hostent_size_, char); switch (key) { case KEY_gethostbyaddr: host_addr = va_arg(ap, char *); @@ -990,11 +990,11 @@ sub define { Gid_t gid; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_grent_size <= + if (PL_reentrant_buffer->grent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_grent_buffer, - &PL_reentrant_buffer->_grent_size, char); + RenewDouble(PL_reentrant_buffer->grent_buffer_, + &PL_reentrant_buffer->grent_size_, char); switch (key) { case KEY_getgrnam: name = va_arg(ap, char *); @@ -1027,11 +1027,11 @@ sub define { int anint; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_netent_size <= + if (PL_reentrant_buffer->netent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_netent_buffer, - &PL_reentrant_buffer->_netent_size, char); + RenewDouble(PL_reentrant_buffer->netent_buffer_, + &PL_reentrant_buffer->netent_size_, char); switch (key) { case KEY_getnetbyaddr: net = va_arg(ap, Netdb_net_t); @@ -1060,12 +1060,12 @@ sub define { char * name; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_pwent_size <= + if (PL_reentrant_buffer->pwent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_pwent_buffer, - &PL_reentrant_buffer->_pwent_size, char); + RenewDouble(PL_reentrant_buffer->pwent_buffer_, + &PL_reentrant_buffer->pwent_size_, char); switch (key) { case KEY_getpwnam: name = va_arg(ap, char *); @@ -1099,12 +1099,12 @@ sub define { char * name; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_spent_size <= + if (PL_reentrant_buffer->spent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_spent_buffer, - &PL_reentrant_buffer->_spent_size, char); + RenewDouble(PL_reentrant_buffer->spent_buffer_, + &PL_reentrant_buffer->spent_size_, char); switch (key) { case KEY_getspnam: name = va_arg(ap, char *); @@ -1127,11 +1127,11 @@ sub define { int anint; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_protoent_size <= + if (PL_reentrant_buffer->protoent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_protoent_buffer, - &PL_reentrant_buffer->_protoent_size, char); + RenewDouble(PL_reentrant_buffer->protoent_buffer_, + &PL_reentrant_buffer->protoent_size_, char); switch (key) { case KEY_getprotobyname: name = va_arg(ap, char *); @@ -1160,11 +1160,11 @@ sub define { int anint; # ifdef PERL_REENTRANT_MAXSIZE - if (PL_reentrant_buffer->_servent_size <= + if (PL_reentrant_buffer->servent_size_ <= PERL_REENTRANT_MAXSIZE / 2) # endif - RenewDouble(PL_reentrant_buffer->_servent_buffer, - &PL_reentrant_buffer->_servent_size, char); + RenewDouble(PL_reentrant_buffer->servent_buffer_, + &PL_reentrant_buffer->servent_size_, char); switch (key) { case KEY_getservbyname: name = va_arg(ap, char *);