diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-11-26 19:36:06 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-11-26 19:36:06 +0000 |
commit | b7783a124ffeaab87679eba041dd9997f4d5372a (patch) | |
tree | af245ee575199fdd19d5d912348560ee4e2f5f53 /embed.h | |
parent | e3cf49e2e2df78528afdd14c4a3219cf5059e6eb (diff) | |
download | perl-b7783a124ffeaab87679eba041dd9997f4d5372a.tar.gz |
force_list(), fold_constants() and gen_constant_list() can be static.
p4raw-id: //depot/perl@34924
Diffstat (limited to 'embed.h')
-rw-r--r-- | embed.h | 20 |
1 files changed, 14 insertions, 6 deletions
@@ -247,14 +247,18 @@ #define fbm_instr Perl_fbm_instr #ifdef PERL_CORE #define find_script Perl_find_script -#define force_list Perl_force_list -#define fold_constants Perl_fold_constants +#endif +#if defined(PERL_IN_OP_C) +#ifdef PERL_CORE +#define force_list S_force_list +#define fold_constants S_fold_constants +#endif #endif #define form Perl_form #define vform Perl_vform #define free_tmps Perl_free_tmps #ifdef PERL_CORE -#define gen_constant_list Perl_gen_constant_list +#define gen_constant_list S_gen_constant_list #endif #if !defined(HAS_GETENV_LEN) #ifdef PERL_CORE @@ -2560,13 +2564,17 @@ #define fbm_instr(a,b,c,d) Perl_fbm_instr(aTHX_ a,b,c,d) #ifdef PERL_CORE #define find_script(a,b,c,d) Perl_find_script(aTHX_ a,b,c,d) -#define force_list(a) Perl_force_list(aTHX_ a) -#define fold_constants(a) Perl_fold_constants(aTHX_ a) +#endif +#if defined(PERL_IN_OP_C) +#ifdef PERL_CORE +#define force_list(a) S_force_list(aTHX_ a) +#define fold_constants(a) S_fold_constants(aTHX_ a) +#endif #endif #define vform(a,b) Perl_vform(aTHX_ a,b) #define free_tmps() Perl_free_tmps(aTHX) #ifdef PERL_CORE -#define gen_constant_list(a) Perl_gen_constant_list(aTHX_ a) +#define gen_constant_list(a) S_gen_constant_list(aTHX_ a) #endif #if !defined(HAS_GETENV_LEN) #ifdef PERL_CORE |