From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Nov 2008 22:44:03 +0000 (+0000)
Subject: Perl_oopsCV() is not part of the public API, not used anywhere, so can
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b429380fd7d54c14783866916eff039809949692;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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)