This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate save_threadsv, as it is never linked to, and all it does
authorNicholas Clark <nick@ccl4.org>
Tue, 31 Jan 2006 15:10:37 +0000 (15:10 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 31 Jan 2006 15:10:37 +0000 (15:10 +0000)
post 5005 threads is croak().

p4raw-id: //depot/perl@27021

embed.fnc
embed.h
global.sym
proto.h
scope.c

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
 #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
 #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)
index 6a9ef05..a0ad6b2 100644 (file)
@@ -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)
 {