Remove SAVEt_STACK_CXPOS

81ed78b25c4b removed the only use of this.

3 files changed, 2 insertions, 15 deletions

diff --git a/scope.c b/scope.c
index 24645909d7..abef454c44 100644
--- 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 97aa1b6511..d282ff6a8f 100644
--- 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 81435ced8a..5fa29605f8 100644
--- 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' }