Perl_save_aelem can't be const

Message-ID: <20060224045340.GA6318@petdance.com>

p4raw-id: //depot/perl@27301

3 files changed, 3 insertions, 3 deletions

diff --git a/embed.fnc b/embed.fnc
index 20214199a0..f2633619f9 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 b2d6a93dcb..4199bd9dca 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 ff15c35de4..8f7383a21d 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;