From 7a89be6672adca2e4f7bec719e7d9e358c540ce5 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 28 Apr 2006 00:18:30 +0300 Subject: [PATCH] dVAR (-DPERL_GLOBAL_STRUCT_PRIVATE) update Message-ID: <44510AF6.6040603@gmail.com> p4raw-id: //depot/perl@27990 --- hv.c | 2 ++ perl.h | 2 +- perlio.c | 1 + sv.c | 1 + 4 files changed, 5 insertions(+), 1 deletion(-) diff --git a/hv.c b/hv.c index d7b7f4025c..cc2a384774 100644 --- a/hv.c +++ b/hv.c @@ -2564,6 +2564,7 @@ in C. HV * Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *chain) { + dVAR; HV *hv = newHV(); U32 placeholders = 0; /* We could chase the chain once to get an idea of the number of keys, @@ -2685,6 +2686,7 @@ reference count of 1. struct refcounted_he * Perl_refcounted_he_new(pTHX_ struct refcounted_he *const parent, SV *const key, SV *const value) { + dVAR; struct refcounted_he *he; STRLEN key_len; const char *key_p = SvPV_const(key, key_len); diff --git a/perl.h b/perl.h index 7c2ec66432..6640cf00b7 100644 --- a/perl.h +++ b/perl.h @@ -137,7 +137,7 @@ # endif #endif -#define pVAR register struct perl_vars* const my_vars PERL_UNUSED_DECL +#define pVAR register struct perl_vars* my_vars PERL_UNUSED_DECL #ifdef PERL_GLOBAL_STRUCT # define dVAR pVAR = (struct perl_vars*)PERL_GET_VARS() diff --git a/perlio.c b/perlio.c index 1921d0a5be..f65cc1114b 100644 --- a/perlio.c +++ b/perlio.c @@ -2271,6 +2271,7 @@ perl_mutex PerlIO_mutex; /* Must be called with PerlIO_mutex locked. */ static void S_more_refcounted_fds(pTHX_ const int new_fd) { + dVAR; const int old_max = PL_perlio_fd_refcnt_size; const int new_max = 16 + (new_fd & ~15); int *new_array; diff --git a/sv.c b/sv.c index 58bbad672a..3189cd9fc5 100644 --- a/sv.c +++ b/sv.c @@ -678,6 +678,7 @@ Perl_sv_free_arenas(pTHX) void* Perl_get_arena(pTHX_ int arena_size) { + dVAR; struct arena_desc* adesc; struct arena_set *newroot, **aroot = (struct arena_set**) &PL_body_arenas; int curr; -- 2.34.1