diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2010-02-20 11:13:00 +0100 |
---|---|---|
committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2010-02-20 11:13:00 +0100 |
commit | 749123ff5f0f5da3f3eb842fc225137c6821a6fe (patch) | |
tree | ef934b941a97c307eac63f5f2d966301760feb46 | |
parent | c500e02848ab1c4e57ca96ba7209e093aeac70a6 (diff) | |
download | perl-749123ff5f0f5da3f3eb842fc225137c6821a6fe.tar.gz |
Add some missing dVAR's
Commits c3acb9e0760135dfd888c0ee1b415777d784aabc, 867fa1e2da145229b4db2c6e8d5b51700c15f114
and f0e67a1d29102aa9905aecf2b0f98449697d5af3 added or changed functions that now require a
dVAR declaration to compile with -DPERL_GLOBAL_STRUCT.
-rw-r--r-- | hv.c | 1 | ||||
-rw-r--r-- | op.c | 1 | ||||
-rw-r--r-- | toke.c | 2 |
3 files changed, 4 insertions, 0 deletions
@@ -1346,6 +1346,7 @@ Perl_hv_ksplit(pTHX_ HV *hv, IV newmax) HV * Perl_newHVhv(pTHX_ HV *ohv) { + dVAR; HV * const hv = newHV(); STRLEN hv_max, hv_fill; @@ -8369,6 +8369,7 @@ Perl_ck_each(pTHX_ OP *o) container of the rep_op var */ STATIC OP * S_opt_scalarhv(pTHX_ OP *rep_op) { + dVAR; UNOP *unop; PERL_ARGS_ASSERT_OPT_SCALARHV; @@ -938,6 +938,7 @@ function is more convenient. void Perl_lex_stuff_pvn(pTHX_ char *pv, STRLEN len, U32 flags) { + dVAR; char *bufptr; PERL_ARGS_ASSERT_LEX_STUFF_PVN; if (flags & ~(LEX_STUFF_UTF8)) @@ -1302,6 +1303,7 @@ is encountered, an exception is generated. I32 Perl_lex_peek_unichar(pTHX_ U32 flags) { + dVAR; char *s, *bufend; if (flags & ~(LEX_KEEP_PREVIOUS)) Perl_croak(aTHX_ "Lexing code internal error (%s)", "lex_peek_unichar"); |