From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 31 Jan 2006 15:10:37 +0000 (+0000)
Subject: Eliminate save_threadsv, as it is never linked to, and all it does
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b1a705488bd0ec36ff428321dee146d2f803003;p=p5sagit%2Fp5-mst-13.2.git

Eliminate save_threadsv, as it is never linked to, and all it does
post 5005 threads is croak().

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

diff --git a/embed.fnc b/embed.fnc
index 4d46a2a..e90c4a1 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -704,7 +704,6 @@ Ap	|void	|save_re_context
 Ap	|void	|save_padsv	|PADOFFSET off
 Ap	|void	|save_sptr	|NN SV** sptr
 Ap	|SV*	|save_svref	|NN SV** sptr
-Apr	|SV**	|save_threadsv	|PADOFFSET i
 p	|OP*	|sawparens	|NULLOK OP* o
 p	|OP*	|scalar		|NULLOK OP* o
 p	|OP*	|scalarkids	|NULLOK OP* o
diff --git a/embed.h b/embed.h
index 745aad7..d6a0e9d 100644
--- a/embed.h
+++ b/embed.h
@@ -731,7 +731,6 @@
 #define save_padsv		Perl_save_padsv
 #define save_sptr		Perl_save_sptr
 #define save_svref		Perl_save_svref
-#define save_threadsv		Perl_save_threadsv
 #ifdef PERL_CORE
 #define sawparens		Perl_sawparens
 #define scalar			Perl_scalar
@@ -2784,7 +2783,6 @@
 #define save_padsv(a)		Perl_save_padsv(aTHX_ a)
 #define save_sptr(a)		Perl_save_sptr(aTHX_ a)
 #define save_svref(a)		Perl_save_svref(aTHX_ a)
-#define save_threadsv(a)	Perl_save_threadsv(aTHX_ a)
 #ifdef PERL_CORE
 #define sawparens(a)		Perl_sawparens(aTHX_ a)
 #define scalar(a)		Perl_scalar(aTHX_ a)
diff --git a/global.sym b/global.sym
index 6a9ef05..a0ad6b2 100644
--- a/global.sym
+++ b/global.sym
@@ -431,7 +431,6 @@ Perl_save_re_context
 Perl_save_padsv
 Perl_save_sptr
 Perl_save_svref
-Perl_save_threadsv
 Perl_scan_bin
 Perl_scan_hex
 Perl_scan_num
diff --git a/proto.h b/proto.h
index 6272c76..0e1e4fa 100644
--- a/proto.h
+++ b/proto.h
@@ -1970,9 +1970,6 @@ PERL_CALLCONV void	Perl_save_sptr(pTHX_ SV** sptr)
 PERL_CALLCONV SV*	Perl_save_svref(pTHX_ SV** sptr)
 			__attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV SV**	Perl_save_threadsv(pTHX_ PADOFFSET i)
-			__attribute__noreturn__;
-
 PERL_CALLCONV OP*	Perl_sawparens(pTHX_ OP* o);
 PERL_CALLCONV OP*	Perl_scalar(pTHX_ OP* o);
 PERL_CALLCONV OP*	Perl_scalarkids(pTHX_ OP* o);
diff --git a/scope.c b/scope.c
index d0be78a..570d9aa 100644
--- a/scope.c
+++ b/scope.c
@@ -460,15 +460,6 @@ Perl_save_padsv(pTHX_ PADOFFSET off)
     SSPUSHINT(SAVEt_PADSV);
 }
 
-SV **
-Perl_save_threadsv(pTHX_ PADOFFSET i)
-{
-    dVAR;
-    Perl_croak(aTHX_ "panic: save_threadsv called in non-threaded perl");
-    PERL_UNUSED_ARG(i);
-    NORETURN_FUNCTION_END;
-}
-
 void
 Perl_save_nogv(pTHX_ GV *gv)
 {