From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 11 Jan 2007 15:37:12 +0000 (+0000)
Subject: Change 29753 messed up do_hv_dump() [my fault]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c31e473d8698ee4d43e3e2b98feb4fae2cdcc94;p=p5sagit%2Fp5-mst-13.2.git

Change 29753 messed up do_hv_dump() [my fault]

p4raw-id: //depot/perl@29758
---

diff --git a/embed.fnc b/embed.fnc
index 85033c3..21378c6 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1009,7 +1009,8 @@ Ap	|void	|do_gv_dump	|I32 level|NN PerlIO *file|NN const char *name\
 				|NULLOK GV *sv
 Ap	|void	|do_gvgv_dump	|I32 level|NN PerlIO *file|NN const char *name\
 				|NULLOK GV *sv
-Ap	|void	|do_hv_dump	|I32 level|NN PerlIO *file|NULLOK const char *name|NN HV *sv
+Ap	|void	|do_hv_dump	|I32 level|NN PerlIO *file|NN const char *name\
+				|NULLOK HV *sv
 Ap	|void	|do_magic_dump	|I32 level|NN PerlIO *file|NN const MAGIC *mg|I32 nest \
 				|I32 maxnest|bool dumpops|STRLEN pvlim
 Ap	|void	|do_op_dump	|I32 level|NN PerlIO *file|NULLOK const OP *o
diff --git a/proto.h b/proto.h
index 5d3f567..5d0f551 100644
--- a/proto.h
+++ b/proto.h
@@ -2728,7 +2728,7 @@ PERL_CALLCONV void	Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *
 
 PERL_CALLCONV void	Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, const char *name, HV *sv)
 			__attribute__nonnull__(pTHX_2)
-			__attribute__nonnull__(pTHX_4);
+			__attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV void	Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
 			__attribute__nonnull__(pTHX_2)