From a81bac00de6943a3346cceca95db5f3ce716aa0f Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Mon, 5 Aug 2013 01:22:46 -0700 Subject: Remove SAVEt_STACK_CXPOS 81ed78b25c4b removed the only use of this. --- scope.c | 3 --- scope.h | 11 +---------- t/porting/ss_dup.t | 3 +-- 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' } -- cgit v1.2.1