diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-01-02 22:52:03 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-01-02 22:52:03 +0000 |
commit | 679c1196bc547e94f05d35e070242e24492ec832 (patch) | |
tree | d59ff8dac258a79c533ea52a397fdda1b2ff34e9 /pp_ctl.c | |
parent | ff8dabfa5b87d11f875cfd5faa30b45d10989866 (diff) | |
download | perl-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.c | 40 |
1 files changed, 0 insertions, 40 deletions
@@ -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 |