In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/59dba841c4c022b197056ed7c78ea7d9e7fbb467?hp=945b524a8cdacbf82557d751252e6546f48d21ae>
- Log ----------------------------------------------------------------- commit 59dba841c4c022b197056ed7c78ea7d9e7fbb467 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Jul 24 20:20:56 2014 -0400 Make PERL_GLOBAL_STRUCT_PRIVATE visible in -V. M perl.h commit c0de32e24cb35f30ec0d37406b19fcc377911df7 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Jul 24 19:31:04 2014 -0400 Unused dVARs found by g++ -DPERL_GLOBAL_STRUCT_PRIVATE. M deb.c M op.c M pad.c M regcomp.c M sv.c M taint.c M toke.c ----------------------------------------------------------------------- Summary of changes: deb.c | 4 ---- op.c | 1 - pad.c | 4 ---- perl.h | 3 +++ regcomp.c | 4 ---- sv.c | 4 ---- taint.c | 2 -- toke.c | 2 -- 8 files changed, 3 insertions(+), 21 deletions(-) diff --git a/deb.c b/deb.c index d1c3fe9..b93f120 100644 --- a/deb.c +++ b/deb.c @@ -59,7 +59,6 @@ void Perl_vdeb(pTHX_ const char *pat, va_list *args) { #ifdef DEBUGGING - dVAR; const char* const file = PL_curcop ? OutCopFILE(PL_curcop) : "<null>"; const char* const display_file = file ? file : "<free>"; const long line = PL_curcop ? (long)CopLINE(PL_curcop) : 0; @@ -83,7 +82,6 @@ I32 Perl_debstackptrs(pTHX) { #ifdef DEBUGGING - dVAR; PerlIO_printf(Perl_debug_log, "%8"UVxf" %8"UVxf" %8"IVdf" %8"IVdf" %8"IVdf"\n", PTR2UV(PL_curstack), PTR2UV(PL_stack_base), @@ -115,7 +113,6 @@ S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I32 mark_min, I32 mark_max) { #ifdef DEBUGGING - dVAR; I32 i = stack_max - 30; const I32 *markscan = PL_markstack + mark_min; @@ -205,7 +202,6 @@ void Perl_deb_stack_all(pTHX) { #ifdef DEBUGGING - dVAR; I32 si_ix; const PERL_SI *si; diff --git a/op.c b/op.c index e9de3a2..9ae3392 100644 --- a/op.c +++ b/op.c @@ -1118,7 +1118,6 @@ For example: OP * Perl_op_sibling_splice(OP *parent, OP *start, int del_count, OP* insert) { - dVAR; OP *first = start ? OP_SIBLING(start) : cLISTOPx(parent)->op_first; OP *rest; OP *last_del = NULL; diff --git a/pad.c b/pad.c index 18b6e5c..00a76f2 100644 --- a/pad.c +++ b/pad.c @@ -1402,7 +1402,6 @@ Use macro PAD_SV instead of calling this function directly. SV * Perl_pad_sv(pTHX_ PADOFFSET po) { - dVAR; ASSERT_CURPAD_ACTIVE("pad_sv"); if (!po) @@ -1426,8 +1425,6 @@ Use the macro PAD_SETSV() rather than calling this function directly. void Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv) { - dVAR; - PERL_ARGS_ASSERT_PAD_SETSV; ASSERT_CURPAD_ACTIVE("pad_setsv"); @@ -1918,7 +1915,6 @@ dump the contents of a CV STATIC void S_cv_dump(pTHX_ const CV *cv, const char *title) { - dVAR; const CV * const outside = CvOUTSIDE(cv); PADLIST* const padlist = CvPADLIST(cv); diff --git a/perl.h b/perl.h index 202e55e..0ad3eea 100644 --- a/perl.h +++ b/perl.h @@ -4643,6 +4643,9 @@ EXTCONST char PL_bincompat_options[] = # ifdef PERL_GLOBAL_STRUCT " PERL_GLOBAL_STRUCT" # endif +# ifdef PERL_GLOBAL_STRUCT_PRIVATE + " PERL_GLOBAL_STRUCT_PRIVATE" +# endif # ifdef PERL_IMPLICIT_CONTEXT " PERL_IMPLICIT_CONTEXT" # endif diff --git a/regcomp.c b/regcomp.c index 0f70a9e..24fb0a7 100644 --- a/regcomp.c +++ b/regcomp.c @@ -15356,7 +15356,6 @@ STATIC U8 S_regtail_study(pTHX_ RExC_state_t *pRExC_state, regnode *p, const regnode *val,U32 depth) { - dVAR; regnode *scan; U8 exact = PSEUDO; #ifdef EXPERIMENTAL_INPLACESCAN @@ -15519,7 +15518,6 @@ void Perl_regdump(pTHX_ const regexp *r) { #ifdef DEBUGGING - dVAR; SV * const sv = sv_newmortal(); SV *dsv= sv_newmortal(); RXi_GET_DECL(r,ri); @@ -15618,7 +15616,6 @@ void Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_info *reginfo) { #ifdef DEBUGGING - dVAR; int k; /* Should be synchronized with * ANYOF_ #xdefines in regcomp.h */ @@ -16719,7 +16716,6 @@ S_dumpuntil(pTHX_ const regexp *r, const regnode *start, const regnode *node, const regnode *last, const regnode *plast, SV* sv, I32 indent, U32 depth) { - dVAR; U8 op = PSEUDO; /* Arbitrary non-END op. */ const regnode *next; const regnode *optstart= NULL; diff --git a/sv.c b/sv.c index b02ef28..afd4376 100644 --- a/sv.c +++ b/sv.c @@ -385,8 +385,6 @@ S_new_SV(pTHX_ const char *file, int line, const char *func) STATIC void S_del_sv(pTHX_ SV *p) { - dVAR; - PERL_ARGS_ASSERT_DEL_SV; if (DEBUG_D_TEST) { @@ -1855,7 +1853,6 @@ S_sv_display(pTHX_ SV *const sv, char *tmpbuf, STRLEN tmpbuf_size) { STATIC void S_not_a_number(pTHX_ SV *const sv) { - dVAR; char tmpbuf[64]; const char *pv; @@ -1876,7 +1873,6 @@ S_not_a_number(pTHX_ SV *const sv) STATIC void S_not_incrementable(pTHX_ SV *const sv) { - dVAR; char tmpbuf[64]; const char *pv; diff --git a/taint.c b/taint.c index a5194f4..60a9a54 100644 --- a/taint.c +++ b/taint.c @@ -27,8 +27,6 @@ void Perl_taint_proper(pTHX_ const char *f, const char *const s) { #if defined(HAS_SETEUID) && defined(DEBUGGING) - dVAR; - PERL_ARGS_ASSERT_TAINT_PROPER; { diff --git a/toke.c b/toke.c index 745a451..b0997ef 100644 --- a/toke.c +++ b/toke.c @@ -378,8 +378,6 @@ static struct debug_tokens { STATIC int S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp) { - dVAR; - PERL_ARGS_ASSERT_TOKEREPORT; if (DEBUG_T_TEST) { -- Perl5 Master Repository
