Change 34618 by [EMAIL PROTECTED] on 2008/10/28 18:29:36
Perl_hv_placeholders_get() actually takes a const HV *hv.
Affected files ...
... //depot/perl/embed.fnc#624 edit
... //depot/perl/hv.c#382 edit
... //depot/perl/proto.h#959 edit
Differences ...
==== //depot/perl/embed.fnc#624 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#623~34604~ 2008-10-27 13:22:36.000000000 -0700
+++ perl/embed.fnc 2008-10-28 11:29:36.000000000 -0700
@@ -1797,7 +1797,7 @@
#endif
Apd |void |hv_clear_placeholders |NN HV *hv
ApoR |I32* |hv_placeholders_p |NN HV *hv
-ApoR |I32 |hv_placeholders_get |NN HV *hv
+ApoR |I32 |hv_placeholders_get |NN const HV *hv
Apo |void |hv_placeholders_set |NN HV *hv|I32 ph
p |SV* |magic_scalarpack|NN HV *hv|NN MAGIC *mg
==== //depot/perl/hv.c#382 (text) ====
Index: perl/hv.c
--- perl/hv.c#381~34585~ 2008-10-25 05:23:01.000000000 -0700
+++ perl/hv.c 2008-10-28 11:29:36.000000000 -0700
@@ -2506,10 +2506,10 @@
I32
-Perl_hv_placeholders_get(pTHX_ HV *hv)
+Perl_hv_placeholders_get(pTHX_ const HV *hv)
{
dVAR;
- MAGIC * const mg = mg_find((SV*)hv, PERL_MAGIC_rhash);
+ MAGIC * const mg = mg_find((const SV *)hv, PERL_MAGIC_rhash);
PERL_ARGS_ASSERT_HV_PLACEHOLDERS_GET;
==== //depot/perl/proto.h#959 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#958~34604~ 2008-10-27 13:22:36.000000000 -0700
+++ perl/proto.h 2008-10-28 11:29:36.000000000 -0700
@@ -6189,7 +6189,7 @@
#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_P \
assert(hv)
-PERL_CALLCONV I32 Perl_hv_placeholders_get(pTHX_ HV *hv)
+PERL_CALLCONV I32 Perl_hv_placeholders_get(pTHX_ const HV *hv)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_GET \
End of Patch.
