diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-26 20:14:02 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-26 20:14:02 +0000 |
| commit | c8aa86e11144b22a034d68da930a681a5a5fb4f5 (patch) | |
| tree | 58fd0f18f30a84b8487a3f6815c3c3860fd34832 /embed.h | |
| parent | 0da8eb3af06fe58c4c8c297ae7e9457946d4f195 (diff) | |
| download | perl-c8aa86e11144b22a034d68da930a681a5a5fb4f5.tar.gz | |
is_gv_magical() is only called from within gv.c.
p4raw-id: //depot/perl@34926
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -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) |