From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 13 Apr 2006 16:14:23 +0000 (+0000)
Subject: Remove SAVEt_FREESHAREDPV, as nothing is using it, and it isn't catered
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c88c823b70650169d3aaff2f95978d279e81b562;p=p5sagit%2Fp5-mst-13.2.git

Remove SAVEt_FREESHAREDPV, as nothing is using it, and it isn't catered
for in Perl_ss_dup, hence nothing is testing it and nothing will alert
us if it breaks.

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

diff --git a/scope.c b/scope.c
index ebea9e1..94f648a 100644
--- a/scope.c
+++ b/scope.c
@@ -764,10 +764,6 @@ Perl_leave_scope(pTHX_ I32 base)
 	    ptr = SSPOPPTR;
 	    Safefree(ptr);
 	    break;
-	case SAVEt_FREESHAREDPV:
-	    ptr = SSPOPPTR;
-	    PerlMemShared_free(ptr);
-	    break;
 	case SAVEt_CLEARSV:
 	    ptr = (void*)&PL_curpad[SSPOPLONG];
 	    sv = *(SV**)ptr;
diff --git a/scope.h b/scope.h
index 5efb8fc..580d109 100644
--- a/scope.h
+++ b/scope.h
@@ -51,8 +51,7 @@
 #define SAVEt_SAVESWITCHSTACK	40
 #define SAVEt_COP_ARYBASE	41
 #define SAVEt_RE_STATE		42
-#define SAVEt_FREESHAREDPV	43
-#define SAVEt_COP_WARNINGS	44
+#define SAVEt_COP_WARNINGS	43
 
 #ifndef SCOPE_SAVES_SIGNAL_MASK
 #define SCOPE_SAVES_SIGNAL_MASK 0
@@ -194,14 +193,7 @@ Closing bracket on a callback.  See C<ENTER> and L<perlcall>.
 	SSPUSHINT(SAVEt_COP_ARYBASE);			\
     } STMT_END
 
-#define SAVEFREESHAREDPV(pv)				\
-    STMT_START {					\
-	SSCHECK(2);					\
-	SSPUSHPTR(pv);					\
-	SSPUSHINT(SAVEt_FREESHAREDPV);			\
-    } STMT_END
-
-/* Need to do the cop warnings like this, rather than SAVEFREESHAREDPV,
+/* Need to do the cop warnings like this, rather than a "SAVEFREESHAREDPV",
    because realloc() means that the value can actually change. Possibly
    could have done savefreesharedpvREF, but this way actually seems cleaner,
    as it simplifies the code that does the saves, and reduces the load on the