Change 29479 by [EMAIL PROTECTED] on 2006/12/06 17:05:18
Subject: Re: [PATCH] User pragmas now accessible from B
From: demerphq <[EMAIL PROTECTED]>
Date: Wed, 6 Dec 2006 17:52:08 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/embed.fnc#435 edit
... //depot/perl/embed.h#645 edit
... //depot/perl/ext/B/B.xs#121 edit
... //depot/perl/global.sym#315 edit
... //depot/perl/pod/perlapi.pod#272 edit
... //depot/perl/pod/perlintern.pod#57 edit
Differences ...
==== //depot/perl/embed.fnc#435 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#434~29457~ 2006-12-04 08:24:09.000000000 -0800
+++ perl/embed.fnc 2006-12-06 09:05:18.000000000 -0800
@@ -311,7 +311,7 @@
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
==== //depot/perl/embed.h#645 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#644~29457~ 2006-12-04 08:24:09.000000000 -0800
+++ perl/embed.h 2006-12-06 09:05:18.000000000 -0800
@@ -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
==== //depot/perl/ext/B/B.xs#121 (text) ====
Index: perl/ext/B/B.xs
--- perl/ext/B/B.xs#120~29475~ 2006-12-06 04:51:34.000000000 -0800
+++ perl/ext/B/B.xs 2006-12-06 09:05:18.000000000 -0800
@@ -1861,6 +1861,6 @@
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
==== //depot/perl/global.sym#315 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#314~29457~ 2006-12-04 08:24:09.000000000 -0800
+++ perl/global.sym 2006-12-06 09:05:18.000000000 -0800
@@ -164,6 +164,7 @@
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
==== //depot/perl/pod/perlapi.pod#272 (text+w) ====
Index: perl/pod/perlapi.pod
--- perl/pod/perlapi.pod#271~29169~ 2006-10-31 05:49:26.000000000 -0800
+++ perl/pod/perlapi.pod 2006-12-06 09:05:18.000000000 -0800
@@ -1913,6 +1913,20 @@
=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
==== //depot/perl/pod/perlintern.pod#57 (text+w) ====
Index: perl/pod/perlintern.pod
--- perl/pod/perlintern.pod#56~29146~ 2006-10-30 01:33:33.000000000 -0800
+++ perl/pod/perlintern.pod 2006-12-06 09:05:18.000000000 -0800
@@ -480,17 +480,6 @@
=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>
End of Patch.
