Skip to content

Commit 9aebc8b

Browse files
committed
Change reentr.pl names to be legal
This continues the process started in Perl#23592 to change names with leading underscores to be legal C. See that p.r. or 4bb3572 for extensive discussion. This commit simply moves the leading underscore to be trailing Some of these may actually be legal, and don't need to be moved, as leading underscores are only illegal in symbols with file scope. But it was easier to just do a global substitute, and does no harm to move them all to be trailing.
1 parent 3adffae commit 9aebc8b

File tree

5 files changed

+360
-360
lines changed

5 files changed

+360
-360
lines changed

pp.c

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -4061,15 +4061,15 @@ PP(pp_crypt)
40614061
}
40624062
# ifdef USE_ITHREADS
40634063
# ifdef HAS_CRYPT_R
4064-
if (!PL_reentrant_buffer->_crypt_struct_buffer) {
4064+
if (!PL_reentrant_buffer->crypt_struct_buffer_) {
40654065
/* This should be threadsafe because in ithreads there is only
40664066
* one thread per interpreter. If this would not be true,
40674067
* we would need a mutex to protect this malloc. */
4068-
PL_reentrant_buffer->_crypt_struct_buffer =
4068+
PL_reentrant_buffer->crypt_struct_buffer_ =
40694069
(struct crypt_data *)safemalloc(sizeof(struct crypt_data));
40704070
# if defined(__GLIBC__) || defined(__EMX__)
4071-
if (PL_reentrant_buffer->_crypt_struct_buffer) {
4072-
PL_reentrant_buffer->_crypt_struct_buffer->initialized = 0;
4071+
if (PL_reentrant_buffer->crypt_struct_buffer_) {
4072+
PL_reentrant_buffer->crypt_struct_buffer_->initialized = 0;
40734073
}
40744074
# endif
40754075
}

pp_sys.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -5291,7 +5291,7 @@ PP_wrapped(pp_ghostent,
52915291
if (!hent) {
52925292
#ifdef USE_REENTRANT_API
52935293
# ifdef USE_GETHOSTENT_ERRNO
5294-
h_errno = PL_reentrant_buffer->_gethostent_errno;
5294+
h_errno = PL_reentrant_buffer->gethostent_errno_;
52955295
# endif
52965296
#endif
52975297
STATUS_UNIX_SET(h_errno);
@@ -5382,7 +5382,7 @@ PP_wrapped(pp_gnetent,
53825382
if (!nent) {
53835383
#ifdef USE_REENTRANT_API
53845384
# ifdef USE_GETNETENT_ERRNO
5385-
h_errno = PL_reentrant_buffer->_getnetent_errno;
5385+
h_errno = PL_reentrant_buffer->getnetent_errno_;
53865386
# endif
53875387
#endif
53885388
STATUS_UNIX_SET(h_errno);
@@ -5735,7 +5735,7 @@ PP_wrapped(pp_gpwent,
57355735
# if defined(__CYGWIN__) && defined(USE_REENTRANT_API)
57365736
/* Cygwin 1.5.3-1 has buggy getpwnam_r() and getpwuid_r():
57375737
* the pw_comment is left uninitialized. */
5738-
PL_reentrant_buffer->_pwent_struct.pw_comment = NULL;
5738+
PL_reentrant_buffer->pwent_struct_.pw_comment = NULL;
57395739
# endif
57405740

57415741
switch (which) {

0 commit comments

Comments
 (0)