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 (file)
--- 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 (file)
--- 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 (file)
--- 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);