From 4c31e473d8698ee4d43e3e2b98feb4fae2cdcc94 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 11 Jan 2007 15:37:12 +0000 Subject: [PATCH] Change 29753 messed up do_hv_dump() [my fault] p4raw-id: //depot/perl@29758 --- embed.fnc | 3 ++- proto.h | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) 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) -- 1.8.3.1