This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl_save_aelem can't be const
authorAndy Lester <andy@petdance.com>
Thu, 23 Feb 2006 22:53:40 +0000 (16:53 -0600)
committerSteve Peters <steve@fisharerojo.org>
Fri, 24 Feb 2006 10:54:14 +0000 (10:54 +0000)
Message-ID: <20060224045340.GA6318@petdance.com>

p4raw-id: //depot/perl@27301

embed.fnc
proto.h
scope.c

index 2021419..f263361 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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;