diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2020-03-20 22:37:06 +0000 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2020-07-20 23:28:13 +0100 |
| commit | c91f661cc54e358485dc7396a166dc08c6867a38 (patch) | |
| tree | 269937c14366d9d6f728023366ed301ecfe36475 /perlio.c | |
| parent | 8c3a0f6ca6a8f3a02c3394507eb4284c1017dba1 (diff) | |
| download | perl-c91f661cc54e358485dc7396a166dc08c6867a38.tar.gz | |
Remove use of dVAR in core
It only does anything under PERL_GLOBAL_STRUCT, which is gone.
Keep the dNOOP defintion for CPAN back-compat
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -2256,7 +2256,6 @@ static void S_more_refcounted_fds(pTHX_ const int new_fd) PERL_TSA_REQUIRES(PL_perlio_mutex) { - dVAR; const int old_max = PL_perlio_fd_refcnt_size; const int new_max = 16 + (new_fd & ~15); int *new_array; @@ -2306,7 +2305,6 @@ PerlIOUnix_refcnt_inc(int fd) { dTHX; if (fd >= 0) { - dVAR; MUTEX_LOCK(&PL_perlio_mutex); if (fd >= PL_perlio_fd_refcnt_size) @@ -2336,7 +2334,6 @@ PerlIOUnix_refcnt_dec(int fd) #ifdef DEBUGGING dTHX; #else - dVAR; #endif MUTEX_LOCK(&PL_perlio_mutex); if (fd >= PL_perlio_fd_refcnt_size) { @@ -2365,7 +2362,6 @@ PerlIOUnix_refcnt(int fd) dTHX; int cnt = 0; if (fd >= 0) { - dVAR; MUTEX_LOCK(&PL_perlio_mutex); if (fd >= PL_perlio_fd_refcnt_size) { /* diag_listed_as: refcnt: fd %d%s */ @@ -2416,7 +2412,6 @@ PerlIO_cleanup(pTHX) void PerlIO_teardown(void) /* Call only from PERL_SYS_TERM(). */ { - dVAR; #if 0 /* XXX we can't rely on an interpreter being present at this late stage, XXX so we can't use a function like PerlLIO_write that relies on one @@ -3263,7 +3258,6 @@ PerlIOStdio_close(pTHX_ PerlIO *f) int dupfd = -1; dSAVEDERRNO; #ifdef USE_ITHREADS - dVAR; #endif #ifdef SOCKS5_VERSION_NAME /* Socks lib overrides close() but stdio isn't linked to |