From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 23 Nov 2009 15:07:47 +0000 (+0000)
Subject: Move change c35076938c7236fb into embed.fnc, from the generated file proto.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed7608978145cca2b6883d7c82443bc8f0a79806;p=p5sagit%2Fp5-mst-13.2.git

Move change c35076938c7236fb into embed.fnc, from the generated file proto.h
---

diff --git a/embed.fnc b/embed.fnc
index 94d0175..ee37dc0 100644
--- 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
--- a/embed.h
+++ b/embed.h
@@ -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
diff --git a/proto.h b/proto.h
index f55379d..14ca6e9 100644
--- 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__