From c91f661cc54e358485dc7396a166dc08c6867a38 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= Date: Fri, 20 Mar 2020 22:37:06 +0000 Subject: 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 --- pad.c | 3 --- 1 file changed, 3 deletions(-) (limited to 'pad.c') diff --git a/pad.c b/pad.c index 2bbb0563e0..cd23fa8202 100644 --- a/pad.c +++ b/pad.c @@ -1630,7 +1630,6 @@ the kind of subroutine: void Perl_pad_tidy(pTHX_ padtidy_type type) { - dVAR; ASSERT_CURPAD_ACTIVE("pad_tidy"); @@ -2006,7 +2005,6 @@ S_cv_clone_pad(pTHX_ CV *proto, CV *cv, CV *outside, HV *cloned, /* my sub */ /* Just provide a stub, but name it. It will be upgraded to the real thing on scope entry. */ - dVAR; U32 hash; PERL_HASH(hash, PadnamePV(namesv)+1, PadnameLEN(namesv) - 1); @@ -2189,7 +2187,6 @@ static CV * S_cv_clone(pTHX_ CV *proto, CV *cv, CV *outside, HV *cloned) { #ifdef USE_ITHREADS - dVAR; #endif const bool newcv = !cv; -- cgit v1.2.1