From: Andy Lester <andy@petdance.com>
Date: Thu, 23 Feb 2006 22:53:40 +0000 (-0600)
Subject: Perl_save_aelem can't be const
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59413342262576e4c1bd4ea92734bcc3506df959;p=p5sagit%2Fp5-mst-13.2.git

Perl_save_aelem can't be const
Message-ID: <20060224045340.GA6318@petdance.com>

p4raw-id: //depot/perl@27301
---

diff --git a/embed.fnc b/embed.fnc
index 2021419..f263361 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -665,7 +665,7 @@ Apda	|char*	|savesharedpv	|NULLOK const char* pv
 Apda	|char*	|savesvpv	|NN SV* sv
 Ap	|void	|savestack_grow
 Ap	|void	|savestack_grow_cnt	|I32 need
-Ap	|void	|save_aelem	|NN const AV* av|I32 idx|NN SV **sptr
+Ap	|void	|save_aelem	|NN AV* av|I32 idx|NN SV **sptr
 Ap	|I32	|save_alloc	|I32 size|I32 pad
 Ap	|void	|save_aptr	|NN AV** aptr
 Ap	|AV*	|save_ary	|NN GV* gv
diff --git a/proto.h b/proto.h
index b2d6a93..4199bd9 100644
--- a/proto.h
+++ b/proto.h
@@ -1866,7 +1866,7 @@ PERL_CALLCONV char*	Perl_savesvpv(pTHX_ SV* sv)
 
 PERL_CALLCONV void	Perl_savestack_grow(pTHX);
 PERL_CALLCONV void	Perl_savestack_grow_cnt(pTHX_ I32 need);
-PERL_CALLCONV void	Perl_save_aelem(pTHX_ const AV* av, I32 idx, SV **sptr)
+PERL_CALLCONV void	Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_3);
 
diff --git a/scope.c b/scope.c
index ff15c35..8f7383a 100644
--- a/scope.c
+++ b/scope.c
@@ -497,7 +497,7 @@ Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p)
 }
 
 void
-Perl_save_aelem(pTHX_ const AV *av, I32 idx, SV **sptr)
+Perl_save_aelem(pTHX_ AV *av, I32 idx, SV **sptr)
 {
     dVAR;
     SV *sv;