From: Nicholas Clark Date: Thu, 11 Jan 2007 13:23:40 +0000 (+0000) Subject: do_gv_dump, do_gvgv_dump and do_hv_dump call all actually take a NULL X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4390064818aaae08b8f53f740ea62f7dd8517a1;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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 --- 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)