#define POPEVAL(cx) \
STMT_START { \
PL_in_eval = CxOLD_IN_EVAL(cx); \
- optype = CxOLD_OP_TYPE(cx); \
PL_eval_root = cx->blk_eval.old_eval_root; \
if (cx->blk_eval.cur_text && SvSCREAM(cx->blk_eval.cur_text)) \
SvREFCNT_dec_NN(cx->blk_eval.cur_text); \
void
Perl_dounwind(pTHX_ I32 cxix)
{
- I32 optype;
-
if (!PL_curstackinfo) /* can happen if die during thread cloning */
return;
}
cxstack_ix--;
}
- PERL_UNUSED_VAR(optype);
}
void
#endif
restartjmpenv = cx->blk_eval.cur_top_env;
restartop = cx->blk_eval.retop;
+ optype = CxOLD_OP_TYPE(cx);
CX_POP(cx);
if (optype == OP_REQUIRE) {
if (yystatus || PL_parser->error_count || !PL_eval_root) {
PERL_CONTEXT *cx;
- I32 optype; /* Used by POPEVAL. */
- SV *namesv;
+ SV *namesv = NULL;
SV *errsv = NULL;
- namesv = NULL;
- PERL_UNUSED_VAR(optype);
-
/* note that if yystatus == 3, then the EVAL CX block has already
* been popped, and various vars restored */
PL_op = saveop;
namesv = cx->blk_eval.old_namesv;
retop = cx->blk_eval.retop;
evalcv = cx->blk_eval.cv;
+ optype = CxOLD_OP_TYPE(cx);
CX_POP(cx);
Perl_delete_eval_scope(pTHX)
{
PERL_CONTEXT *cx;
- I32 optype;
cx = &cxstack[cxstack_ix];
CX_LEAVE_SCOPE(cx);
POPEVAL(cx);
POPBLOCK(cx);
CX_POP(cx);
- PERL_UNUSED_VAR(optype);
}
/* Common-ish code salvaged from Perl_call_sv and pp_entertry, because it was
SV **newsp;
I32 gimme;
PERL_CONTEXT *cx;
- I32 optype;
OP *retop;
PERL_ASYNC_CHECK();
POPBLOCK(cx);
retop = cx->blk_eval.retop;
CX_POP(cx);
- PERL_UNUSED_VAR(optype);
CLEAR_ERRSV();
return retop;