Change 34926 by [EMAIL PROTECTED] on 2008/11/26 20:14:02
is_gv_magical() is only called from within gv.c.
Affected files ...
... //depot/perl/embed.fnc#640 edit
... //depot/perl/embed.h#777 edit
... //depot/perl/gv.c#411 edit
... //depot/perl/proto.h#974 edit
Differences ...
==== //depot/perl/embed.fnc#640 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#639~34925~ 2008-11-26 11:58:49.000000000 -0800
+++ perl/embed.fnc 2008-11-26 12:14:02.000000000 -0800
@@ -383,7 +383,9 @@
ApPR |char* |instr |NN const char* big|NN const char* little
p |bool |io_close |NN IO* io|bool not_implicit
pR |OP* |invert |NULLOK OP* cmd
-dpR |bool |is_gv_magical |NN const char *name|STRLEN len|U32 flags
+#if defined(PERL_IN_GV_C)
+sdR |bool |is_gv_magical |NN const char *name|STRLEN len|U32 flags
+#endif
ApR |I32 |is_lvalue_sub
ApPR |U32 |to_uni_upper_lc|U32 c
ApPR |U32 |to_uni_title_lc|U32 c
==== //depot/perl/embed.h#777 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#776~34925~ 2008-11-26 11:58:49.000000000 -0800
+++ perl/embed.h 2008-11-26 12:14:02.000000000 -0800
@@ -329,7 +329,11 @@
#ifdef PERL_CORE
#define io_close Perl_io_close
#define invert Perl_invert
-#define is_gv_magical Perl_is_gv_magical
+#endif
+#if defined(PERL_IN_GV_C)
+#ifdef PERL_CORE
+#define is_gv_magical S_is_gv_magical
+#endif
#endif
#define is_lvalue_sub Perl_is_lvalue_sub
#define to_uni_upper_lc Perl_to_uni_upper_lc
@@ -2663,7 +2667,11 @@
#ifdef PERL_CORE
#define io_close(a,b) Perl_io_close(aTHX_ a,b)
#define invert(a) Perl_invert(aTHX_ a)
-#define is_gv_magical(a,b,c) Perl_is_gv_magical(aTHX_ a,b,c)
+#endif
+#if defined(PERL_IN_GV_C)
+#ifdef PERL_CORE
+#define is_gv_magical(a,b,c) S_is_gv_magical(aTHX_ a,b,c)
+#endif
#endif
#define is_lvalue_sub() Perl_is_lvalue_sub(aTHX)
#define to_uni_upper_lc(a) Perl_to_uni_upper_lc(aTHX_ a)
==== //depot/perl/gv.c#411 (text) ====
Index: perl/gv.c
--- perl/gv.c#410~34896~ 2008-11-20 07:04:08.000000000 -0800
+++ perl/gv.c 2008-11-26 12:14:02.000000000 -0800
@@ -2244,7 +2244,7 @@
=cut
*/
bool
-Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags)
+S_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags)
{
PERL_UNUSED_CONTEXT;
PERL_UNUSED_ARG(flags);
==== //depot/perl/proto.h#974 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#973~34925~ 2008-11-26 11:58:49.000000000 -0800
+++ perl/proto.h 2008-11-26 12:14:02.000000000 -0800
@@ -1148,12 +1148,14 @@
PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd)
__attribute__warn_unused_result__;
-PERL_CALLCONV bool Perl_is_gv_magical(pTHX_ const char *name, STRLEN len,
U32 flags)
+#if defined(PERL_IN_GV_C)
+STATIC bool S_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_IS_GV_MAGICAL \
assert(name)
+#endif
PERL_CALLCONV I32 Perl_is_lvalue_sub(pTHX)
__attribute__warn_unused_result__;
End of Patch.
