Change 33086 by [EMAIL PROTECTED] on 2008/01/28 10:23:21
The third argument of PUSHEVAL was never used by anything. Ever.
Affected files ...
... //depot/perl/cop.h#175 edit
... //depot/perl/pp_ctl.c#680 edit
Differences ...
==== //depot/perl/cop.h#175 (text) ====
Index: perl/cop.h
--- perl/cop.h#174~33081~ 2008-01-26 13:55:51.000000000 -0800
+++ perl/cop.h 2008-01-28 02:23:21.000000000 -0800
@@ -407,7 +407,7 @@
#define CxOLD_IN_EVAL(cx) (((cx)->blk_u16) & 0x7F)
#define CxOLD_OP_TYPE(cx) (((cx)->blk_u16) >> 7)
-#define PUSHEVAL(cx,n,fgv) \
+#define PUSHEVAL(cx,n) \
STMT_START { \
assert(!(PL_in_eval & ~0x7F)); \
assert(!(PL_op->op_type & ~0x1FF)); \
==== //depot/perl/pp_ctl.c#680 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#679~33081~ 2008-01-26 13:55:51.000000000 -0800
+++ perl/pp_ctl.c 2008-01-28 02:23:21.000000000 -0800
@@ -2849,7 +2849,7 @@
PL_op->op_type = OP_ENTEREVAL;
PL_op->op_flags = 0; /* Avoid uninit warning. */
PUSHBLOCK(cx, CXt_EVAL|(IN_PERL_COMPILETIME ? 0 : CXp_REAL), SP);
- PUSHEVAL(cx, 0, NULL);
+ PUSHEVAL(cx, 0);
if (runtime)
(void) doeval(G_SCALAR, startop, runcv, PL_curcop->cop_seq);
@@ -3555,7 +3555,7 @@
/* switch to eval mode */
PUSHBLOCK(cx, CXt_EVAL, SP);
- PUSHEVAL(cx, name, NULL);
+ PUSHEVAL(cx, name);
cx->blk_eval.retop = PL_op->op_next;
SAVECOPLINE(&PL_compiling);
@@ -3654,7 +3654,7 @@
runcv = find_runcv(&seq);
PUSHBLOCK(cx, (CXt_EVAL|CXp_REAL), SP);
- PUSHEVAL(cx, 0, NULL);
+ PUSHEVAL(cx, 0);
cx->blk_eval.retop = PL_op->op_next;
/* prepare to compile string */
@@ -3771,7 +3771,7 @@
SAVETMPS;
PUSHBLOCK(cx, (CXt_EVAL|CXp_TRYBLOCK), PL_stack_sp);
- PUSHEVAL(cx, 0, 0);
+ PUSHEVAL(cx, 0);
PL_in_eval = EVAL_INEVAL;
if (flags & G_KEEPERR)
End of Patch.
