diff options
| author | Andy Lester <andy@petdance.com> | 2005-12-22 04:57:17 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-22 17:09:59 +0000 |
| commit | c445ea15829fa1ef23c4453a817f9c096a56a192 (patch) | |
| tree | b82a090e6005af218bbc846b84e47ce12b81d39e /embed.h | |
| parent | efa32bb49fad39e670c055d4b6f557a0d2e1a8a2 (diff) | |
| download | perl-c445ea15829fa1ef23c4453a817f9c096a56a192.tar.gz | |
Ho! Ho! Ho! Santa brings consting!
Message-ID: <20051222165717.GA2874@petdance.com>
p4raw-id: //depot/perl@26450
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 30 |
1 files changed, 14 insertions, 16 deletions
@@ -1354,6 +1354,8 @@ #ifdef PERL_CORE #define utf8_mg_pos S_utf8_mg_pos #define utf8_mg_pos_init S_utf8_mg_pos_init +#define stringify_regexp S_stringify_regexp +#define F0convert S_F0convert #endif #if defined(PERL_OLD_COPY_ON_WRITE) #ifdef PERL_CORE @@ -1398,15 +1400,7 @@ #define find_in_my_stash S_find_in_my_stash #define tokenize_use S_tokenize_use #define new_constant S_new_constant -#endif -# if defined(DEBUGGING) -#ifdef PERL_CORE -#define tokereport S_tokereport -#endif -# endif -#ifdef PERL_CORE #define ao S_ao -#define depcom S_depcom #define incl_perldb S_incl_perldb #endif # if defined(PERL_CR_FILTER) @@ -1415,6 +1409,11 @@ #define strip_return S_strip_return #endif # endif +# if defined(DEBUGGING) +#ifdef PERL_CORE +#define tokereport S_tokereport +#endif +# endif #endif #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE @@ -3391,6 +3390,8 @@ #ifdef PERL_CORE #define utf8_mg_pos(a,b,c,d,e,f,g,h,i) S_utf8_mg_pos(aTHX_ a,b,c,d,e,f,g,h,i) #define utf8_mg_pos_init(a,b,c,d,e,f,g) S_utf8_mg_pos_init(aTHX_ a,b,c,d,e,f,g) +#define stringify_regexp(a,b,c) S_stringify_regexp(aTHX_ a,b,c) +#define F0convert S_F0convert #endif #if defined(PERL_OLD_COPY_ON_WRITE) #ifdef PERL_CORE @@ -3435,15 +3436,7 @@ #define find_in_my_stash(a,b) S_find_in_my_stash(aTHX_ a,b) #define tokenize_use(a,b) S_tokenize_use(aTHX_ a,b) #define new_constant(a,b,c,d,e,f) S_new_constant(aTHX_ a,b,c,d,e,f) -#endif -# if defined(DEBUGGING) -#ifdef PERL_CORE -#define tokereport(a) S_tokereport(aTHX_ a) -#endif -# endif -#ifdef PERL_CORE #define ao(a) S_ao(aTHX_ a) -#define depcom() S_depcom(aTHX) #define incl_perldb() S_incl_perldb(aTHX) #endif # if defined(PERL_CR_FILTER) @@ -3452,6 +3445,11 @@ #define strip_return(a) S_strip_return(aTHX_ a) #endif # endif +# if defined(DEBUGGING) +#ifdef PERL_CORE +#define tokereport(a) S_tokereport(aTHX_ a) +#endif +# endif #endif #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE |