From: Yves Orton <demerphq@gmail.com>
Date: Wed, 6 Dec 2006 17:52:08 +0000 (+0100)
Subject: Re: [PATCH] User pragmas now accessible from B
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38d458223cba6a811392b6c55c78b12d7fae269e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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>