From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 21 Nov 2009 17:13:01 +0000 (-0600)
Subject: Perl_pad_sv and Perl_hv_assert don't exist without -DDEBUGGING.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c35076938c7236fb2aaabecd40e3a5a444c3be77;p=p5sagit%2Fp5-mst-13.2.git

Perl_pad_sv and Perl_hv_assert don't exist without -DDEBUGGING.

So let's not make them part of the API when they don't exist.
---

diff --git a/proto.h b/proto.h
index fd2eb36..f55379d 100644
--- a/proto.h
+++ b/proto.h
@@ -2418,7 +2418,9 @@ PERL_CALLCONV OP*	Perl_oopsHV(pTHX_ OP* o)
 	assert(o)
 
 PERL_CALLCONV void	Perl_pad_leavemy(pTHX);
+#ifdef DEBUGGING
 PERL_CALLCONV SV*	Perl_pad_sv(pTHX_ PADOFFSET po);
+#endif
 PERL_CALLCONV void	Perl_pad_free(pTHX_ PADOFFSET po);
 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
 STATIC void	S_pad_reset(pTHX);
@@ -6225,10 +6227,12 @@ PERL_CALLCONV void	Perl_save_set_svflags(pTHX_ SV *sv, U32 mask, U32 val)
 #define PERL_ARGS_ASSERT_SAVE_SET_SVFLAGS	\
 	assert(sv)
 
+#ifdef DEBUGGING
 PERL_CALLCONV void	Perl_hv_assert(pTHX_ HV *hv)
 			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_HV_ASSERT	\
 	assert(hv)
+#endif
 
 
 PERL_CALLCONV SV*	Perl_hv_scalar(pTHX_ HV *hv)