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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)
 {