Re: [PATCH] User pragmas now accessible from B

Message-ID: <9b18b3110612060852s7cfbba66id5aae25e5bb20ae0@mail.gmail.com>

p4raw-id: //depot/perl@29479

diff --git a/embed.fnc b/embed.fnc
index 4e8e2a4..bb1d96d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -311,7 +311,7 @@ ApMdR       |HE*    |hv_iternext_flags|NN HV* tb|I32 flags
 ApdR   |SV*    |hv_iterval     |NN HV* tb|NN HE* entry
 Ap     |void   |hv_ksplit      |NN HV* hv|IV newmax
 Apdbm  |void   |hv_magic       |NN HV* hv|NULLOK GV* gv|int how
-dpoM   |HV *   |refcounted_he_chain_2hv|NULLOK const struct refcounted_he *c
+AdpoM  |HV *   |refcounted_he_chain_2hv|NULLOK const struct refcounted_he *c
 XEpoM  |SV *   |refcounted_he_fetch|NN const struct refcounted_he *chain \
                                |NULLOK SV *keysv|NULLOK const char *key \
                                |STRLEN klen, int flags, U32 hash

diff --git a/embed.h b/embed.h
index 5493bfa..f82e043 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -2501,8 +2501,6 @@
 #define hv_iternext_flags(a,b) Perl_hv_iternext_flags(aTHX_ a,b)
 #define hv_iterval(a,b)                Perl_hv_iterval(aTHX_ a,b)
 #define hv_ksplit(a,b)         Perl_hv_ksplit(aTHX_ a,b)
-#ifdef PERL_CORE
-#endif
 #if defined(PERL_CORE) || defined(PERL_EXT)
 #endif
 #ifdef PERL_CORE

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 3079f85..b2627aa 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1861,6 +1861,6 @@ SV*
 RHE_HASH(h)
        B::RHE h
     CODE:
-       RETVAL = newRV( (SV*)Perl_refcounted_he_chain_2hv(h) );
+       RETVAL = newRV( (SV*)Perl_refcounted_he_chain_2hv(aTHX_ h) );
     OUTPUT:
        RETVAL

diff --git a/global.sym b/global.sym
index c50db9e..281ab12 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -164,6 +164,7 @@ Perl_hv_iternext_flags
 Perl_hv_iterval
 Perl_hv_ksplit
 Perl_hv_magic
+Perl_refcounted_he_chain_2hv
 Perl_refcounted_he_fetch
 Perl_refcounted_he_new
 Perl_hv_store

diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index 3ea050e..6471081 100644 (file)
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -1913,6 +1913,20 @@ Creates a new HV.  The reference count is set to 1.
 =for hackers
 Found in file hv.c
 
+=item refcounted_he_chain_2hv
+X<refcounted_he_chain_2hv>
+
+Generates an returns a C<HV *> by walking up the tree starting at the passed
+in C<struct refcounted_he *>.
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+       HV *    refcounted_he_chain_2hv(const struct refcounted_he *c)
+
+=for hackers
+Found in file hv.c
+
 
 =back
 

diff --git a/pod/perlintern.pod b/pod/perlintern.pod
index 5c901cd..3f5bcfc 100644 (file)
--- a/pod/perlintern.pod
+++ b/pod/perlintern.pod
@@ -480,17 +480,6 @@ Found in file gv.c
 
 =over 8
 
-=item refcounted_he_chain_2hv
-X<refcounted_he_chain_2hv>
-
-Generates an returns a C<HV *> by walking up the tree starting at the passed
-in C<struct refcounted_he *>.
-
-       HV *    refcounted_he_chain_2hv(const struct refcounted_he *c)
-
-=for hackers
-Found in file hv.c
-
 =item refcounted_he_free
 X<refcounted_he_free>