diff options
| author | Andy Lester <andy@petdance.com> | 2005-11-17 01:53:38 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-17 14:09:10 +0000 |
| commit | f0f5dc9dd6402292e51fb413bf662b3e54145006 (patch) | |
| tree | 66d1af59974b03ada9283eeb01e1e7eec3af33e9 /embed.h | |
| parent | bfc44f79c8382df2655da380f044c9068132d2ec (diff) | |
| download | perl-f0f5dc9dd6402292e51fb413bf662b3e54145006.tar.gz | |
Sort subs now in embed.fnc
Message-ID: <20051117135338.GA31715@petdance.com>
p4raw-id: //depot/perl@26147
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 26 |
1 files changed, 26 insertions, 0 deletions
@@ -1207,6 +1207,19 @@ #define method_common S_method_common #endif #endif +#if defined(PERL_IN_PP_SORT_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define sv_ncmp S_sv_ncmp +#define sv_i_ncmp S_sv_i_ncmp +#define amagic_ncmp S_amagic_ncmp +#define amagic_i_ncmp S_amagic_i_ncmp +#define amagic_cmp S_amagic_cmp +#define amagic_cmp_locale S_amagic_cmp_locale +#define sortcv S_sortcv +#define sortcv_xsub S_sortcv_xsub +#define sortcv_stacked S_sortcv_stacked +#endif +#endif #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define doform S_doform @@ -3198,6 +3211,19 @@ #define method_common(a,b) S_method_common(aTHX_ a,b) #endif #endif +#if defined(PERL_IN_PP_SORT_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define sv_ncmp(a,b) S_sv_ncmp(aTHX_ a,b) +#define sv_i_ncmp(a,b) S_sv_i_ncmp(aTHX_ a,b) +#define amagic_ncmp(a,b) S_amagic_ncmp(aTHX_ a,b) +#define amagic_i_ncmp(a,b) S_amagic_i_ncmp(aTHX_ a,b) +#define amagic_cmp(a,b) S_amagic_cmp(aTHX_ a,b) +#define amagic_cmp_locale(a,b) S_amagic_cmp_locale(aTHX_ a,b) +#define sortcv(a,b) S_sortcv(aTHX_ a,b) +#define sortcv_xsub(a,b) S_sortcv_xsub(aTHX_ a,b) +#define sortcv_stacked(a,b) S_sortcv_stacked(aTHX_ a,b) +#endif +#endif #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define doform(a,b,c) S_doform(aTHX_ a,b,c) |