avoid inefficiency in change#3386 (every longjmp() was followed

by an avoidable call to setjmp())

p4raw-link: @3386 on //depot/perl: 312caa8e97f1c7ee342a9895c2f0e749625b4929

p4raw-id: //depot/perl@4372

1 files changed, 2 insertions, 2 deletions

diff --git a/proto.h b/proto.h
index 6551c31179..787ec137f8 100644
--- a/proto.h
+++ b/proto.h
@@ -724,8 +724,8 @@ VIRTUAL void	Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o);
 VIRTUAL void	Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, PMOP *pm);
 VIRTUAL void	Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
 VIRTUAL void	Perl_magic_dump(pTHX_ MAGIC *mg);
-VIRTUAL void*	Perl_default_protect(pTHX_ int *excpt, protect_body_t body, ...);
-VIRTUAL void*	Perl_vdefault_protect(pTHX_ int *excpt, protect_body_t body, va_list *args);
+VIRTUAL void*	Perl_default_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, ...);
+VIRTUAL void*	Perl_vdefault_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args);
 VIRTUAL void	Perl_reginitcolors(pTHX);
 VIRTUAL char*	Perl_sv_2pv_nolen(pTHX_ SV* sv);
 VIRTUAL char*	Perl_sv_pv(pTHX_ SV *sv);