Remove SAVEt_STACK_CXPOS

81ed78b25c4b removed the only use of this.

diff --git a/scope.c b/scope.c
index 2464590..abef454 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -1104,9 +1104,6 @@ Perl_leave_scope(pTHX_ I32 base)
        case SAVEt_STACK_POS:           /* Position on Perl stack */
            PL_stack_sp = PL_stack_base + arg0.any_i32;
            break;
-       case SAVEt_STACK_CXPOS:         /* blk_oldsp on context stack */
-           cxstack[ARG0_I32].blk_oldsp = ARG1_I32;
-           break;
        case SAVEt_AELEM:               /* array element */
            svp = av_fetch(ARG2_AV, ARG1_I32, 1);
            if (!AvREAL(ARG2_AV) && AvREIFY(ARG2_AV)) /* undo reify guard */

diff --git a/scope.h b/scope.h
index 97aa1b6..d282ff6 100644 (file)
--- a/scope.h
+++ b/scope.h
@@ -66,7 +66,7 @@
 #define SAVEt_SAVESWITCHSTACK  39
 #define SAVEt_SHARED_PVREF     40
 #define SAVEt_SPTR             41
-#define SAVEt_STACK_CXPOS      42
+/*     UNUSED                  42 */
 #define SAVEt_SV               43
 #define SAVEt_SVREF            44
 #define SAVEt_VPTR             45
@@ -291,15 +291,6 @@ scope has the given name. Name must be a literal string.
    save stack.  */
 #define SAVECOMPILEWARNINGS() save_pushptr(PL_compiling.cop_warnings, SAVEt_COMPILE_WARNINGS)
 
-#define SAVESTACK_CXPOS() \
-    STMT_START {                                   \
-        dSS_ADD;                                   \
-        SS_ADD_INT(cxstack[cxstack_ix].blk_oldsp); \
-        SS_ADD_INT(cxstack_ix);                    \
-        SS_ADD_UV(SAVEt_STACK_CXPOS);              \
-        SS_ADD_END(3);                             \
-    } STMT_END
-
 #define SAVEPARSER(p) save_pushptr((p), SAVEt_PARSER)
 
 #ifdef USE_ITHREADS

diff --git a/t/porting/ss_dup.t b/t/porting/ss_dup.t
index 81435ce..5fa2960 100644 (file)
--- a/t/porting/ss_dup.t
+++ b/t/porting/ss_dup.t
@@ -1,7 +1,6 @@
 #!perl
 
-@TODO = qw [ SAVEt_SAVESWITCHSTACK
-             SAVEt_STACK_CXPOS ];
+@TODO = qw [ SAVEt_SAVESWITCHSTACK ];
 @TODO{@TODO} = ();
 
 BEGIN { chdir 't'; require './test.pl' }