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.fnc | |
| 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.fnc')
| -rw-r--r-- | embed.fnc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -266,6 +266,7 @@ p |OP* |gen_constant_list|NULLOK OP* o #if !defined(HAS_GETENV_LEN) p |char* |getenv_len |NN const char* key|NN unsigned long *len #endif +pox |void |get_db_sub |NULLOK SV **svp|NN CV *cv Ap |void |gp_free |NULLOK GV* gv Ap |GP* |gp_ref |NULLOK GP* gp Ap |GV* |gv_AVadd |NN GV* gv @@ -1277,7 +1278,6 @@ s |OP* |do_smartmatch |NULLOK HV* seen_this|NULLOK HV* seen_other #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) s |void |do_oddball |NN HV *hash|NN SV **relem|NN SV **firstrelem -s |void |get_db_sub |NN SV **svp|NN CV *cv sR |SV* |method_common |NN SV* meth|NULLOK U32* hashp #endif |