With the demise of PERL_FLEXIBLE_EXCEPTIONS, S_docatch_body() can be

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index 8586650..a69969d 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2137,8 +2137,8 @@ PERL_CALLCONV HEK*        Perl_share_hek(pTHX_ const char* str, I32 len, U32 hash)
                        __attribute__nonnull__(pTHX_1);
 
 #if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
-PERL_CALLCONV Signal_t Perl_sighandler(int sig, ...);
-PERL_CALLCONV Signal_t Perl_csighandler(int sig, ...);
+PERL_CALLCONV Signal_t Perl_sighandler(int sig, siginfo_t *info, void *uap);
+PERL_CALLCONV Signal_t Perl_csighandler(int sig, siginfo_t *info, void *uap);
 #else
 PERL_CALLCONV Signal_t Perl_sighandler(int sig);
 PERL_CALLCONV Signal_t Perl_csighandler(int sig);
@@ -3497,7 +3497,6 @@ STATIC char *     S_bytes_to_uni(const U8 *start, STRLEN len, char *dest)
 STATIC OP*     S_docatch(pTHX_ OP *o)
                        __attribute__warn_unused_result__;
 
-STATIC void    S_docatch_body(pTHX);
 STATIC OP*     S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1)
@@ -3525,9 +3524,6 @@ STATIC I32        S_dopoptolabel(pTHX_ const char *label)
 STATIC I32     S_dopoptoloop(pTHX_ I32 startingblock)
                        __attribute__warn_unused_result__;
 
-STATIC I32     S_dopoptosub(pTHX_ I32 startingblock)
-                       __attribute__warn_unused_result__;
-
 STATIC I32     S_dopoptosub_at(pTHX_ const PERL_CONTEXT* cxstk, I32 startingblock)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);