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 28cfdef..a69969d 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -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);