diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-25 11:14:09 -0600 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-03-25 23:46:22 +0000 |
| commit | dd374669df59cc2457708a01ea0f6d332912530b (patch) | |
| tree | c085cf838d250f49dfc8f9bc949862489e3b3ad8 /av.c | |
| parent | bd5f3bc473acbb69a352d57b0baf5d694577ad8e (diff) | |
| download | perl-dd374669df59cc2457708a01ea0f6d332912530b.tar.gz | |
Consting five
Message-ID: <20050325231409.GB17660@petdance.com>
[with modification - the extra argument to incpush was supposed to
be being used]
p4raw-id: //depot/perl@24081
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -380,13 +380,13 @@ AV * Perl_av_make(pTHX_ register I32 size, register SV **strp) { register AV *av; - register I32 i; - register SV** ary; av = (AV*)NEWSV(8,0); sv_upgrade((SV *) av,SVt_PVAV); AvFLAGS(av) = AVf_REAL; if (size) { /* `defined' was returning undef for size==0 anyway. */ + register SV** ary; + register I32 i; New(4,ary,size,SV*); AvALLOC(av) = ary; SvPVX(av) = (char*)ary; @@ -438,7 +438,6 @@ void Perl_av_clear(pTHX_ register AV *av) { register I32 key; - SV** ary; #ifdef DEBUGGING if (SvREFCNT(av) == 0 && ckWARN_d(WARN_DEBUGGING)) { @@ -460,7 +459,7 @@ Perl_av_clear(pTHX_ register AV *av) return; if (AvREAL(av)) { - ary = AvARRAY(av); + SV** ary = AvARRAY(av); key = AvFILLp(av) + 1; while (key) { SV * sv = ary[--key]; |