From: Dave Mitchell Date: Tue, 13 Aug 2002 14:42:15 +0000 (+0100) Subject: Re: deb.c compile time error (patchlevel 17721) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f46c5a680add71a59e98e23e39ddf15f24fffcb;p=p5sagit%2Fp5-mst-13.2.git Re: deb.c compile time error (patchlevel 17721) Message-ID: <20020813144215.G11939@fdgroup.com> p4raw-id: //depot/perl@17723 --- diff --git a/embed.fnc b/embed.fnc index af9961e..314d134 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1361,8 +1361,8 @@ Ap |PerlIO *|PerlIO_stderr p |void |deb_stack_all #ifdef PERL_IN_DEB_C -s |void |deb_stack_n |SV** stack_base, I32 stack_min, \ - I32 stack_max, I32 mark_min, I32 mark_max +s |void |deb_stack_n |SV** stack_base|I32 stack_min \ + |I32 stack_max|I32 mark_min|I32 mark_max #endif diff --git a/embed.h b/embed.h index d6c74f5..95e7d96 100644 --- a/embed.h +++ b/embed.h @@ -2786,7 +2786,7 @@ #endif /* PERLIO_LAYERS */ #define deb_stack_all() Perl_deb_stack_all(aTHX) #ifdef PERL_IN_DEB_C -#define deb_stack_n(a) S_deb_stack_n(aTHX_ a) +#define deb_stack_n(a,b,c,d,e) S_deb_stack_n(aTHX_ a,b,c,d,e) #endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) diff --git a/proto.h b/proto.h index 9dabf81..2afc6e9 100644 --- a/proto.h +++ b/proto.h @@ -1390,7 +1390,7 @@ PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX); PERL_CALLCONV void Perl_deb_stack_all(pTHX); #ifdef PERL_IN_DEB_C -STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I32 mark_min, I32 mark_max); +STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I32 mark_min, I32 mark_max); #endif