diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-12-01 22:51:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-12-01 22:51:22 +0000 |
| commit | 005a8a35ce5b6191102f848d17a5c617740a685c (patch) | |
| tree | e37187ba38761daa9b8ddf12d4e36cecd9ab07ab /embed.h | |
| parent | a9ef256d686ebab6464dfd2ad06eb0aff1240f34 (diff) | |
| download | perl-005a8a35ce5b6191102f848d17a5c617740a685c.tar.gz | |
Make get_db_sub non-static, and call it from pp_goto, which allows the
removal of duplicate code. (The conversion of GvSV(PL_DBsub) to
GvSVn(PL_DBsub) implicit in this change should fix a failure with
Devel::SmallProf.)
p4raw-id: //depot/perl@29434
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1274,7 +1274,6 @@ #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define do_oddball S_do_oddball -#define get_db_sub S_get_db_sub #define method_common S_method_common #endif #endif @@ -2458,6 +2457,8 @@ #define getenv_len(a,b) Perl_getenv_len(aTHX_ a,b) #endif #endif +#ifdef PERL_CORE +#endif #define gp_free(a) Perl_gp_free(aTHX_ a) #define gp_ref(a) Perl_gp_ref(aTHX_ a) #define gv_AVadd(a) Perl_gv_AVadd(aTHX_ a) @@ -3477,7 +3478,6 @@ #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define do_oddball(a,b,c) S_do_oddball(aTHX_ a,b,c) -#define get_db_sub(a,b) S_get_db_sub(aTHX_ a,b) #define method_common(a,b) S_method_common(aTHX_ a,b) #endif #endif |