From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 1 Apr 2006 12:32:23 +0000 (+0000)
Subject: Inconsistencies in paramter const-ness noticed by SADAHIRO Tomoyuki.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b2c10f1c598e1e6a0db9d0b301c9559b079b129;p=p5sagit%2Fp5-mst-13.2.git

Inconsistencies in paramter const-ness noticed by SADAHIRO Tomoyuki.

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

diff --git a/embed.fnc b/embed.fnc
index dfd3d5a..1e3c562 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -310,7 +310,7 @@ dpoM|struct refcounted_he *|refcounted_he_dup \
 dpoM	|HV *	|refcounted_he_chain_2hv|NULLOK const struct refcounted_he *c
 dpoM	|void	|refcounted_he_free|NULLOK struct refcounted_he *he
 dpoM	|struct refcounted_he *|refcounted_he_new \
-				|NULLOK struct refcounted_he *parent \
+				|NULLOK struct refcounted_he *const parent \
 				|NULLOK SV *key|NULLOK SV *value
 Apd	|SV**	|hv_store	|NULLOK HV* tb|NULLOK const char* key|I32 klen|NULLOK SV* val \
 				|U32 hash
@@ -1370,7 +1370,7 @@ sR	|I32	|expect_number	|NN char** pattern
 s	|STRLEN	|sv_pos_u2b_forwards|NN const U8 *const start \
 		|NN const U8 *const send|STRLEN uoffset
 s	|STRLEN	|sv_pos_u2b_midway|NN const U8 *const start \
-		|NN const U8 *const send|STRLEN uoffset|STRLEN uend
+		|NN const U8 *send|STRLEN uoffset|STRLEN uend
 s	|STRLEN	|sv_pos_u2b_cached|NN SV *sv|NN MAGIC **mgp \
 		|NN const U8 *const start|NN const U8 *const send \
 		|STRLEN uoffset|STRLEN uoffset0|STRLEN boffset0
diff --git a/proto.h b/proto.h
index 5bbd521..9a7ab7f 100644
--- a/proto.h
+++ b/proto.h
@@ -727,7 +727,7 @@ PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_dup(pTHX_ const struct r
 #endif
 PERL_CALLCONV HV *	Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *c);
 PERL_CALLCONV void	Perl_refcounted_he_free(pTHX_ struct refcounted_he *he);
-PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_new(pTHX_ struct refcounted_he *parent, SV *key, SV *value);
+PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_new(pTHX_ struct refcounted_he *const parent, SV *key, SV *value);
 PERL_CALLCONV SV**	Perl_hv_store(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash);
 PERL_CALLCONV HE*	Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash);
 PERL_CALLCONV SV**	Perl_hv_store_flags(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash, int flags);
@@ -3733,7 +3733,7 @@ STATIC STRLEN	S_sv_pos_u2b_forwards(pTHX_ const U8 *const start, const U8 *const
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);
 
-STATIC STRLEN	S_sv_pos_u2b_midway(pTHX_ const U8 *const start, const U8 *const send, STRLEN uoffset, STRLEN uend)
+STATIC STRLEN	S_sv_pos_u2b_midway(pTHX_ const U8 *const start, const U8 *send, STRLEN uoffset, STRLEN uend)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);
 
diff --git a/sv.c b/sv.c
index 7348876..3eb5c32 100644
--- a/sv.c
+++ b/sv.c
@@ -10869,7 +10869,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     if (!specialCopIO(PL_compiling.cop_io))
 	PL_compiling.cop_io = sv_dup_inc(PL_compiling.cop_io, param);
     PL_compiling.cop_hints
-	= Perl_refcounted_he_dup(aTHX_ PL_compiling.cop_hints, proto_perl);
+	= Perl_refcounted_he_dup(aTHX_ PL_compiling.cop_hints, param);
     PL_curcop		= (COP*)any_dup(proto_perl->Tcurcop, proto_perl);
 
     /* pseudo environmental stuff */