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 *);