This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move change c35076938c7236fb into embed.fnc, from the generated file proto.h
authorNicholas Clark <nick@ccl4.org>
Mon, 23 Nov 2009 15:07:47 +0000 (15:07 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 23 Nov 2009 15:08:41 +0000 (15:08 +0000)
embed.fnc
embed.h
proto.h

index 94d0175..ee37dc0 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -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
diff --git a/embed.h b/embed.h
index 17bf11a..2af070d 100644 (file)
--- a/embed.h
+++ b/embed.h
 #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
 #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)
 #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
 #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
diff --git a/proto.h b/proto.h
index f55379d..14ca6e9 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -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__