Perl_oopsCV() is not part of the public API, not used anywhere, so can

go.

p4raw-id: //depot/perl@34937

diff --git a/embed.fnc b/embed.fnc
index 1b3fde0..68cbe32 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -652,7 +652,6 @@ Apd |int    |vcmp           |NN SV *lhv|NN SV *rhv
 p      |PerlIO*|nextargv       |NN GV* gv
 ApP    |char*  |ninstr         |NN const char* big|NN const char* bigend \
                                |NN const char* little|NN const char* lend
-pr     |OP*    |oopsCV         |NN OP* o
 Ap     |void   |op_free        |NULLOK OP* arg
 #ifdef PERL_MAD
 p      |OP*    |package        |NN OP* o

diff --git a/embed.h b/embed.h
index 1884770..7fbec38 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -618,9 +618,6 @@
 #define nextargv               Perl_nextargv
 #endif
 #define ninstr                 Perl_ninstr
-#ifdef PERL_CORE
-#define oopsCV                 Perl_oopsCV
-#endif
 #define op_free                        Perl_op_free
 #ifdef PERL_MAD
 #ifdef PERL_CORE
@@ -2967,9 +2964,6 @@
 #define nextargv(a)            Perl_nextargv(aTHX_ a)
 #endif
 #define ninstr(a,b,c,d)                Perl_ninstr(aTHX_ a,b,c,d)
-#ifdef PERL_CORE
-#define oopsCV(a)              Perl_oopsCV(aTHX_ a)
-#endif
 #define op_free(a)             Perl_op_free(aTHX_ a)
 #ifdef PERL_MAD
 #ifdef PERL_CORE

diff --git a/mathoms.c b/mathoms.c
index a65a99f..179c608 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -697,17 +697,6 @@ Perl_init_i18nl14n(pTHX_ int printwarn)
     return init_i18nl10n(printwarn);
 }
 
-OP *
-Perl_oopsCV(pTHX_ OP *o)
-{
-    PERL_ARGS_ASSERT_OOPSCV;
-
-    Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
-    /* STUB */
-    PERL_UNUSED_ARG(o);
-    NORETURN_FUNCTION_END;
-}
-
 PP(pp_padany)
 {
     DIE(aTHX_ "NOT IMPL LINE %d",__LINE__);

diff --git a/proto.h b/proto.h
index 30faee8..f9f996d 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2329,12 +2329,6 @@ PERL_CALLCONV char*      Perl_ninstr(pTHX_ const char* big, const char* bigend, const
 #define PERL_ARGS_ASSERT_NINSTR        \
        assert(big); assert(bigend); assert(little); assert(lend)
 
-PERL_CALLCONV OP*      Perl_oopsCV(pTHX_ OP* o)
-                       __attribute__noreturn__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_OOPSCV        \
-       assert(o)
-
 PERL_CALLCONV void     Perl_op_free(pTHX_ OP* arg);
 #ifdef PERL_MAD
 PERL_CALLCONV OP*      Perl_package(pTHX_ OP* o)