Change 34937 by [EMAIL PROTECTED] on 2008/11/26 22:44:03
Perl_oopsCV() is not part of the public API, not used anywhere, so can
go.
Affected files ...
... //depot/perl/embed.fnc#647 edit
... //depot/perl/embed.h#784 edit
... //depot/perl/mathoms.c#94 edit
... //depot/perl/proto.h#981 edit
Differences ...
==== //depot/perl/embed.fnc#647 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#646~34935~ 2008-11-26 14:25:18.000000000 -0800
+++ perl/embed.fnc 2008-11-26 14:44:03.000000000 -0800
@@ -652,7 +652,6 @@
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
==== //depot/perl/embed.h#784 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#783~34935~ 2008-11-26 14:25:18.000000000 -0800
+++ perl/embed.h 2008-11-26 14:44:03.000000000 -0800
@@ -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
==== //depot/perl/mathoms.c#94 (text) ====
Index: perl/mathoms.c
--- perl/mathoms.c#93~34922~ 2008-11-26 10:21:52.000000000 -0800
+++ perl/mathoms.c 2008-11-26 14:44:03.000000000 -0800
@@ -697,17 +697,6 @@
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__);
==== //depot/perl/proto.h#981 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#980~34935~ 2008-11-26 14:25:18.000000000 -0800
+++ perl/proto.h 2008-11-26 14:44:03.000000000 -0800
@@ -2329,12 +2329,6 @@
#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)
End of Patch.
