diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-01-06 18:18:53 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-06 15:50:34 +0000 |
commit | 97aff369fa5580e7a888d4fa4c86be74ab000409 (patch) | |
tree | a53a9ed943c43c19b811a8b1776d88cd85667485 /av.c | |
parent | 3edf23ff129b6c5edde184cb3b63953432223591 (diff) | |
download | perl-97aff369fa5580e7a888d4fa4c86be74ab000409.tar.gz |
sprinkle dVAR
Message-ID: <43BE7C4D.1010302@gmail.com>
p4raw-id: //depot/perl@26675
Diffstat (limited to 'av.c')
-rw-r--r-- | av.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -24,6 +24,7 @@ void Perl_av_reify(pTHX_ AV *av) { + dVAR; I32 key; assert(av); @@ -62,6 +63,7 @@ extended. void Perl_av_extend(pTHX_ AV *av, I32 key) { + dVAR; MAGIC *mg; assert(av); @@ -191,6 +193,7 @@ more information on how to use this function on tied arrays. SV** Perl_av_fetch(pTHX_ register AV *av, I32 key, I32 lval) { + dVAR; SV *sv; assert(av); @@ -276,6 +279,7 @@ more information on how to use this function on tied arrays. SV** Perl_av_store(pTHX_ register AV *av, I32 key, SV *val) { + dVAR; SV** ary; assert(av); @@ -415,6 +419,7 @@ array itself. void Perl_av_clear(pTHX_ register AV *av) { + dVAR; register I32 key; assert(av); @@ -769,6 +774,7 @@ and null is returned. SV * Perl_av_delete(pTHX_ AV *av, I32 key, I32 flags) { + dVAR; SV *sv; assert(av); @@ -856,6 +862,7 @@ C<&PL_sv_undef>. bool Perl_av_exists(pTHX_ AV *av, I32 key) { + dVAR; assert(av); if (SvRMAGICAL(av)) { |