summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-01-02 22:52:03 +0000
committerNicholas Clark <nick@ccl4.org>2006-01-02 22:52:03 +0000
commit679c1196bc547e94f05d35e070242e24492ec832 (patch)
treed59ff8dac258a79c533ea52a397fdda1b2ff34e9 /pp_ctl.c
parentff8dabfa5b87d11f875cfd5faa30b45d10989866 (diff)
downloadperl-679c1196bc547e94f05d35e070242e24492ec832.tar.gz
The two never used NOTYET switch ops can go.
p4raw-id: //depot/perl@26589
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c40
1 files changed, 0 insertions, 40 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 2ba0542ac1..4706fe636c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2626,46 +2626,6 @@ PP(pp_exit)
RETURN;
}
-#ifdef NOTYET
-PP(pp_nswitch)
-{
- dSP;
- const NV value = SvNVx(GvSV(cCOP->cop_gv));
- register I32 match = I_32(value);
-
- if (value < 0.0) {
- if (((NV)match) > value)
- --match; /* was fractional--truncate other way */
- }
- match -= cCOP->uop.scop.scop_offset;
- if (match < 0)
- match = 0;
- else if (match > cCOP->uop.scop.scop_max)
- match = cCOP->uop.scop.scop_max;
- PL_op = cCOP->uop.scop.scop_next[match];
- RETURNOP(PL_op);
-}
-
-PP(pp_cswitch)
-{
- dSP;
- register I32 match;
-
- if (PL_multiline)
- PL_op = PL_op->op_next; /* can't assume anything */
- else {
- match = *(SvPVx_nolen_const(GvSV(cCOP->cop_gv))) & 255;
- match -= cCOP->uop.scop.scop_offset;
- if (match < 0)
- match = 0;
- else if (match > cCOP->uop.scop.scop_max)
- match = cCOP->uop.scop.scop_max;
- PL_op = cCOP->uop.scop.scop_next[match];
- }
- RETURNOP(PL_op);
-}
-#endif
-
/* Eval. */
STATIC void