diff options
author | Jim Cromie <jim.cromie@gmail.com> | 2011-04-18 14:05:35 -0600 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-09 23:30:56 -0700 |
commit | 2b420b633b59fecd2561eeec600f17160862175b (patch) | |
tree | d88082f1bb7e3517d085feca3337cb9aa1ec1d08 /op.c | |
parent | 0b2be16900832ccd9de494ff538bf070d8623089 (diff) | |
download | perl-2b420b633b59fecd2561eeec600f17160862175b.tar.gz |
implement OP_IS_NUMCOMPARE like other OP_IS macros
other macros are written by regen/opcode.pl into opnames.h
Generate OP_IS_NUMCOMPARE the same way, and get a micro-optimization.
Adds a new 'S<' operand type for the numeric comparison ops.
Needs make regen.
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -7215,14 +7215,6 @@ Perl_ck_bitop(pTHX_ OP *o) PERL_ARGS_ASSERT_CK_BITOP; -#define OP_IS_NUMCOMPARE(op) \ - ((op) == OP_LT || (op) == OP_I_LT || \ - (op) == OP_GT || (op) == OP_I_GT || \ - (op) == OP_LE || (op) == OP_I_LE || \ - (op) == OP_GE || (op) == OP_I_GE || \ - (op) == OP_EQ || (op) == OP_I_EQ || \ - (op) == OP_NE || (op) == OP_I_NE || \ - (op) == OP_NCMP || (op) == OP_I_NCMP) o->op_private = (U8)(PL_hints & HINT_INTEGER); if (!(o->op_flags & OPf_STACKED) /* Not an assignment */ && (o->op_type == OP_BIT_OR |