diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-26 19:58:49 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-26 19:58:49 +0000 |
| commit | 0da8eb3af06fe58c4c8c297ae7e9457946d4f195 (patch) | |
| tree | bae3328a4ca4182301dbc59369d30f16ac8d2009 /embed.h | |
| parent | b7783a124ffeaab87679eba041dd9997f4d5372a (diff) | |
| download | perl-0da8eb3af06fe58c4c8c297ae7e9457946d4f195.tar.gz | |
ingroup() is only used in doio.c.
Wrap gen_constant_list in #if defined(PERL_IN_OP_C)
p4raw-id: //depot/perl@34925
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 16 |
1 files changed, 14 insertions, 2 deletions
@@ -257,9 +257,11 @@ #define form Perl_form #define vform Perl_vform #define free_tmps Perl_free_tmps +#if defined(PERL_IN_OP_C) #ifdef PERL_CORE #define gen_constant_list S_gen_constant_list #endif +#endif #if !defined(HAS_GETENV_LEN) #ifdef PERL_CORE #define getenv_len Perl_getenv_len @@ -309,8 +311,12 @@ #define ibcmp Perl_ibcmp #define ibcmp_locale Perl_ibcmp_locale #define ibcmp_utf8 Perl_ibcmp_utf8 +#if defined(PERL_IN_DOIO_C) +#ifdef PERL_CORE +#define ingroup S_ingroup +#endif +#endif #ifdef PERL_CORE -#define ingroup Perl_ingroup #define init_argv_symbols Perl_init_argv_symbols #define init_debugger Perl_init_debugger #endif @@ -2573,9 +2579,11 @@ #endif #define vform(a,b) Perl_vform(aTHX_ a,b) #define free_tmps() Perl_free_tmps(aTHX) +#if defined(PERL_IN_OP_C) #ifdef PERL_CORE #define gen_constant_list(a) S_gen_constant_list(aTHX_ a) #endif +#endif #if !defined(HAS_GETENV_LEN) #ifdef PERL_CORE #define getenv_len(a,b) Perl_getenv_len(aTHX_ a,b) @@ -2637,8 +2645,12 @@ #define ibcmp(a,b,c) Perl_ibcmp(aTHX_ a,b,c) #define ibcmp_locale(a,b,c) Perl_ibcmp_locale(aTHX_ a,b,c) #define ibcmp_utf8(a,b,c,d,e,f,g,h) Perl_ibcmp_utf8(aTHX_ a,b,c,d,e,f,g,h) +#if defined(PERL_IN_DOIO_C) +#ifdef PERL_CORE +#define ingroup(a,b) S_ingroup(aTHX_ a,b) +#endif +#endif #ifdef PERL_CORE -#define ingroup(a,b) Perl_ingroup(aTHX_ a,b) #define init_argv_symbols(a,b) Perl_init_argv_symbols(aTHX_ a,b) #define init_debugger() Perl_init_debugger(aTHX) #endif |