do_gv_dump, do_gvgv_dump and do_hv_dump call all actually take a NULL

parameter. Patch for do_hv_dump supplied by Brandon L Black, other
two added after code inspection.

p4raw-id: //depot/perl@29753

diff --git a/embed.fnc b/embed.fnc
index 1248f25..85033c3 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1005,9 +1005,11 @@ Apd     |char*  |pv_pretty      |NN SV *dsv|NN char const * const str\
 Afp    |void   |dump_indent    |I32 level|NN PerlIO *file|NN const char* pat|...
 Ap     |void   |dump_vindent   |I32 level|NN PerlIO *file|NN const char* pat \
                                |NULLOK va_list *args
-Ap     |void   |do_gv_dump     |I32 level|NN PerlIO *file|NN const char *name|NN GV *sv
-Ap     |void   |do_gvgv_dump   |I32 level|NN PerlIO *file|NN const char *name|NN GV *sv
-Ap     |void   |do_hv_dump     |I32 level|NN PerlIO *file|NN const char *name|NN HV *sv
+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_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 8b0f8e7..5d3f567 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2720,17 +2720,14 @@ PERL_CALLCONV void      Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char*
 
 PERL_CALLCONV void     Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv)
                        __attribute__nonnull__(pTHX_2)
-                       __attribute__nonnull__(pTHX_3)
-                       __attribute__nonnull__(pTHX_4);
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV void     Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv)
                        __attribute__nonnull__(pTHX_2)
-                       __attribute__nonnull__(pTHX_3)
-                       __attribute__nonnull__(pTHX_4);
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV void     Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, const char *name, HV *sv)
                        __attribute__nonnull__(pTHX_2)
-                       __attribute__nonnull__(pTHX_3)
                        __attribute__nonnull__(pTHX_4);
 
 PERL_CALLCONV void     Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)