Change 29753 messed up do_hv_dump() [my fault]
authorNicholas Clark <nick@ccl4.org>
Thu, 11 Jan 2007 15:37:12 +0000 (15:37 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 11 Jan 2007 15:37:12 +0000 (15:37 +0000)
p4raw-id: //depot/perl@29758

embed.fnc
proto.h

index 85033c3..21378c6 100644 (file)
--- 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 (file)
--- 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)