From 38d458223cba6a811392b6c55c78b12d7fae269e Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Wed, 6 Dec 2006 18:52:08 +0100 Subject: [PATCH] Re: [PATCH] User pragmas now accessible from B Message-ID: <9b18b3110612060852s7cfbba66id5aae25e5bb20ae0@mail.gmail.com> p4raw-id: //depot/perl@29479 --- embed.fnc | 2 +- embed.h | 2 -- ext/B/B.xs | 2 +- global.sym | 1 + pod/perlapi.pod | 14 ++++++++++++++ pod/perlintern.pod | 11 ----------- 6 files changed, 17 insertions(+), 15 deletions(-) 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 + +Generates an returns a C by walking up the tree starting at the passed +in C. + +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 - -Generates an returns a C by walking up the tree starting at the passed -in C. - - HV * refcounted_he_chain_2hv(const struct refcounted_he *c) - -=for hackers -Found in file hv.c - =item refcounted_he_free X -- 2.7.4