From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 4 Dec 2006 22:50:09 +0000 (+0000)
Subject: Move Perl_get_db_sub() from pp_hot.c to util.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c51f309cf368f501b8590fd49c5bad910c416040;p=p5sagit%2Fp5-mst-13.2.git

Move Perl_get_db_sub() from pp_hot.c to util.c

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

diff --git a/pp_hot.c b/pp_hot.c
index 8c48576..0b03721 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2682,43 +2682,6 @@ PP(pp_leavesublv)
     return cx->blk_sub.retop;
 }
 
-
-void
-Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
-{
-    dVAR;
-    SV * const dbsv = GvSVn(PL_DBsub);
-    /* We do not care about using sv to call CV;
-     * it's for informational purposes only.
-     */
-
-    save_item(dbsv);
-    if (!PERLDB_SUB_NN) {
-	GV * const gv = CvGV(cv);
-
-	if ( svp && ((CvFLAGS(cv) & (CVf_ANON | CVf_CLONED))
-	     || strEQ(GvNAME(gv), "END")
-	     || ((GvCV(gv) != cv) && /* Could be imported, and old sub redefined. */
-		 !( (SvTYPE(*svp) == SVt_PVGV) && (GvCV((GV*)*svp) == cv) )))) {
-	    /* Use GV from the stack as a fallback. */
-	    /* GV is potentially non-unique, or contain different CV. */
-	    SV * const tmp = newRV((SV*)cv);
-	    sv_setsv(dbsv, tmp);
-	    SvREFCNT_dec(tmp);
-	}
-	else {
-	    gv_efullname3(dbsv, gv, NULL);
-	}
-    }
-    else {
-	const int type = SvTYPE(dbsv);
-	if (type < SVt_PVIV && type != SVt_IV)
-	    sv_upgrade(dbsv, SVt_PVIV);
-	(void)SvIOK_on(dbsv);
-	SvIV_set(dbsv, PTR2IV(cv));	/* Do it the quickest way  */
-    }
-}
-
 PP(pp_entersub)
 {
     dVAR; dSP; dPOPss;
diff --git a/util.c b/util.c
index 405c921..114e6ad 100644
--- a/util.c
+++ b/util.c
@@ -5571,6 +5571,42 @@ Perl_my_strlcpy(char *dst, const char *src, Size_t size)
 }
 #endif
 
+void
+Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
+{
+    dVAR;
+    SV * const dbsv = GvSVn(PL_DBsub);
+    /* We do not care about using sv to call CV;
+     * it's for informational purposes only.
+     */
+
+    save_item(dbsv);
+    if (!PERLDB_SUB_NN) {
+	GV * const gv = CvGV(cv);
+
+	if ( svp && ((CvFLAGS(cv) & (CVf_ANON | CVf_CLONED))
+	     || strEQ(GvNAME(gv), "END")
+	     || ((GvCV(gv) != cv) && /* Could be imported, and old sub redefined. */
+		 !( (SvTYPE(*svp) == SVt_PVGV) && (GvCV((GV*)*svp) == cv) )))) {
+	    /* Use GV from the stack as a fallback. */
+	    /* GV is potentially non-unique, or contain different CV. */
+	    SV * const tmp = newRV((SV*)cv);
+	    sv_setsv(dbsv, tmp);
+	    SvREFCNT_dec(tmp);
+	}
+	else {
+	    gv_efullname3(dbsv, gv, NULL);
+	}
+    }
+    else {
+	const int type = SvTYPE(dbsv);
+	if (type < SVt_PVIV && type != SVt_IV)
+	    sv_upgrade(dbsv, SVt_PVIV);
+	(void)SvIOK_on(dbsv);
+	SvIV_set(dbsv, PTR2IV(cv));	/* Do it the quickest way  */
+    }
+}
+
 /*
  * Local variables:
  * c-indentation-style: bsd