From: SADAHIRO Tomoyuki <BQW10602@nifty.com>
Date: Sun, 2 Apr 2006 12:32:53 +0000 (+0900)
Subject: Re: recent changes have some unmatching of parameters and types
X-Git-Tag: accepted/trunk/20130322.191538~18079
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b46c265e1c7be806909b175542caf783131695f4;p=platform%2Fupstream%2Fperl.git

Re: recent changes have some unmatching of parameters and types
Message-Id: <20060402122547.0037.BQW10602@nifty.com>
Date: Sun, 02 Apr 2006 12:32:53 +0900

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

diff --git a/embed.fnc b/embed.fnc
index d3cb75d..6d46098 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -314,7 +314,7 @@ 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 *const parent \
-				|NULLOK SV *key|NULLOK SV *value
+				|NULLOK SV *const key|NULLOK SV *const value
 Apd	|SV**	|hv_store	|NULLOK HV* tb|NULLOK const char* key|I32 klen|NULLOK SV* val \
 				|U32 hash
 Apd	|HE*	|hv_store_ent	|NULLOK HV* tb|NULLOK SV* key|NULLOK SV* val|U32 hash
diff --git a/pod/perlintern.pod b/pod/perlintern.pod
index 77fced8..402befd 100644
--- a/pod/perlintern.pod
+++ b/pod/perlintern.pod
@@ -525,7 +525,7 @@ to I<value>. As S<key> is copied into a shared hash key, all references remain
 the property of the caller. The C<struct refcounted_he> is returned with a
 reference count of 1.
 
-	struct refcounted_he *	refcounted_he_new(struct refcounted_he *const parent, SV *key, SV *value)
+	struct refcounted_he *	refcounted_he_new(struct refcounted_he *const parent, SV *const key, SV *const value)
 
 =for hackers
 Found in file hv.c
diff --git a/proto.h b/proto.h
index e9a2a7b..dc95b03 100644
--- a/proto.h
+++ b/proto.h
@@ -731,7 +731,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 *const parent, SV *key, SV *value);
+PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_new(pTHX_ struct refcounted_he *const parent, SV *const key, SV *const 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);