From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Oct 2005 17:08:39 +0000 (+0000)
Subject: Functions that die aren't exactly well used code.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c78ff9799bf626c2fa25bf736a1f2793074eaa97;p=p5sagit%2Fp5-mst-13.2.git

Functions that die aren't exactly well used code.
(ck_retarget, oopsCV, pp_padany, pp_threadsv, pp_mapstart)

p4raw-id: //depot/perl@25901
---

diff --git a/mathoms.c b/mathoms.c
index 9206525..08b90d8 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -748,6 +748,40 @@ Perl_save_hints(pTHX)
     Perl_croak(aTHX_ "internal error: obsolete function save_hints() called");
 }
 
+#if 0
+OP *
+Perl_ck_retarget(pTHX_ OP *o)
+{
+    Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
+    /* STUB */
+    return o;
+}
+#endif
+
+OP *
+Perl_oopsCV(pTHX_ OP *o)
+{
+    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__);
+}
+
+PP(pp_threadsv)
+{
+    DIE(aTHX_ "tried to access per-thread data in non-threaded perl");
+}
+
+PP(pp_mapstart)
+{
+    DIE(aTHX_ "panic: mapstart");	/* uses grepstart */
+}
+
 /*
  * Local variables:
  * c-indentation-style: bsd
diff --git a/op.c b/op.c
index 235b6a1..58c3153 100644
--- a/op.c
+++ b/op.c
@@ -4919,15 +4919,6 @@ Perl_newHVREF(pTHX_ OP *o)
 }
 
 OP *
-Perl_oopsCV(pTHX_ OP *o)
-{
-    Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
-    /* STUB */
-    PERL_UNUSED_ARG(o);
-    NORETURN_FUNCTION_END;
-}
-
-OP *
 Perl_newCVREF(pTHX_ I32 flags, OP *o)
 {
     return newUNOP(OP_RV2CV, flags, scalar(o));
@@ -5996,16 +5987,6 @@ Perl_ck_return(pTHX_ OP *o)
     return o;
 }
 
-#if 0
-OP *
-Perl_ck_retarget(pTHX_ OP *o)
-{
-    Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
-    /* STUB */
-    return o;
-}
-#endif
-
 OP *
 Perl_ck_select(pTHX_ OP *o)
 {
diff --git a/pp.c b/pp.c
index 834d32f..8ae5a07 100644
--- a/pp.c
+++ b/pp.c
@@ -127,11 +127,6 @@ PP(pp_padhv)
     RETURN;
 }
 
-PP(pp_padany)
-{
-    DIE(aTHX_ "NOT IMPL LINE %d",__LINE__);
-}
-
 /* Translations. */
 
 PP(pp_rv2gv)
@@ -4790,11 +4785,6 @@ PP(pp_lock)
     RETURN;
 }
 
-PP(pp_threadsv)
-{
-    DIE(aTHX_ "tried to access per-thread data in non-threaded perl");
-}
-
 /*
  * Local variables:
  * c-indentation-style: bsd
diff --git a/pp_ctl.c b/pp_ctl.c
index fd1bccd..e8d89d5 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -940,11 +940,6 @@ PP(pp_grepstart)
     return ((LOGOP*)PL_op->op_next)->op_other;
 }
 
-PP(pp_mapstart)
-{
-    DIE(aTHX_ "panic: mapstart");	/* uses grepstart */
-}
-
 PP(pp_mapwhile)
 {
     dVAR; dSP;