diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-23 15:07:47 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-23 15:08:41 +0000 |
| commit | ed7608978145cca2b6883d7c82443bc8f0a79806 (patch) | |
| tree | 7f664b34100209843e24b8d23f674caef7de6f21 | |
| parent | a9ed9b74fd79d60cccbe784b8d7b2eae94ded913 (diff) | |
| download | perl-ed7608978145cca2b6883d7c82443bc8f0a79806.tar.gz | |
Move change c35076938c7236fb into embed.fnc, from the generated file proto.h
| -rw-r--r-- | embed.fnc | 4 | ||||
| -rw-r--r-- | embed.h | 8 | ||||
| -rw-r--r-- | proto.h | 2 |
3 files changed, 13 insertions, 1 deletions
@@ -769,7 +769,9 @@ pR |OP* |oopsAV |NN OP* o pR |OP* |oopsHV |NN OP* o : Defined in pad.c, used only in op.c pd |void |pad_leavemy +#ifdef DEBUGGING Apd |SV* |pad_sv |PADOFFSET po +#endif : Defined in pad.c, used only in op.c pd |void |pad_free |PADOFFSET po #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) @@ -1992,7 +1994,9 @@ p |void |free_tied_hv_pool pR |int |get_debug_opts |NN const char **s|bool givehelp #endif Ap |void |save_set_svflags|NN SV *sv|U32 mask|U32 val +#ifdef DEBUGGING Apod |void |hv_assert |NN HV *hv +#endif ApdR |SV* |hv_scalar |NN HV *hv ApoR |I32* |hv_riter_p |NN HV *hv @@ -659,7 +659,9 @@ #define oopsHV Perl_oopsHV #define pad_leavemy Perl_pad_leavemy #endif +#ifdef DEBUGGING #define pad_sv Perl_pad_sv +#endif #ifdef PERL_CORE #define pad_free Perl_pad_free #endif @@ -1767,6 +1769,8 @@ #endif #endif #define save_set_svflags Perl_save_set_svflags +#ifdef DEBUGGING +#endif #define hv_scalar Perl_hv_scalar #define hv_name_set Perl_hv_name_set #if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) @@ -3045,7 +3049,9 @@ #define oopsHV(a) Perl_oopsHV(aTHX_ a) #define pad_leavemy() Perl_pad_leavemy(aTHX) #endif +#ifdef DEBUGGING #define pad_sv(a) Perl_pad_sv(aTHX_ a) +#endif #ifdef PERL_CORE #define pad_free(a) Perl_pad_free(aTHX_ a) #endif @@ -4160,6 +4166,8 @@ #endif #endif #define save_set_svflags(a,b,c) Perl_save_set_svflags(aTHX_ a,b,c) +#ifdef DEBUGGING +#endif #define hv_scalar(a) Perl_hv_scalar(aTHX_ a) #define hv_name_set(a,b,c,d) Perl_hv_name_set(aTHX_ a,b,c,d) #ifdef PERL_CORE @@ -6232,8 +6232,8 @@ PERL_CALLCONV void Perl_hv_assert(pTHX_ HV *hv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_HV_ASSERT \ assert(hv) -#endif +#endif PERL_CALLCONV SV* Perl_hv_scalar(pTHX_ HV *hv) __attribute__warn_unused_result__ |