diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-04 23:55:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-07 17:15:45 +0000 |
| commit | 4373e329bbd25cac77cfe128757db8cbb63c47bb (patch) | |
| tree | 0f56bb79f020f97f6f453ae711bed9154d9608e6 /av.c | |
| parent | 892b45be8fb48b672b1d646c00fb1b9bac292d07 (diff) | |
| download | perl-4373e329bbd25cac77cfe128757db8cbb63c47bb.tar.gz | |
GCC attributes!
Message-ID: <20050504215540.GA20413@petdance.com>
p4raw-id: //depot/perl@24414
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -25,7 +25,6 @@ void Perl_av_reify(pTHX_ AV *av) { I32 key; - SV* sv; if (AvREAL(av)) return; @@ -37,7 +36,7 @@ Perl_av_reify(pTHX_ AV *av) while (key > AvFILLp(av) + 1) AvARRAY(av)[--key] = &PL_sv_undef; while (key) { - sv = AvARRAY(av)[--key]; + SV * const sv = AvARRAY(av)[--key]; assert(sv); if (sv != &PL_sv_undef) (void)SvREFCNT_inc(sv); |