diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-11-30 17:37:13 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2021-12-01 22:03:37 +0000 |
commit | 852c1a84672ff049d20d941d4df1decaabf3f3f0 (patch) | |
tree | 5baaf3ce559ae7d06b13b6c740a23bdf0913b267 /opcode.h | |
parent | 9ae6f26499e0b2d56c36d730466988a3d5ac8457 (diff) | |
download | perl-852c1a84672ff049d20d941d4df1decaabf3f3f0.tar.gz |
Direct optree implementations of builtin:: functions
Turn builtin::true/false into OP_CONSTs
Add a dedicated OP_ISBOOL, make an efficient op version of builtin::isbool()
Diffstat (limited to 'opcode.h')
-rw-r--r-- | opcode.h | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -554,6 +554,7 @@ EXTCONST char* const PL_op_name[] = { "poptry", "catch", "pushdefer", + "isbool", "freed", }; #endif @@ -967,6 +968,7 @@ EXTCONST char* const PL_op_desc[] = { "pop try", "catch {} block", "push defer {} block", + "boolean type test", "freed op", }; #endif @@ -1383,6 +1385,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_poptry, Perl_pp_catch, Perl_pp_pushdefer, + Perl_pp_isbool, } #endif ; @@ -1795,6 +1798,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* poptry */ Perl_ck_null, /* catch */ Perl_ck_null, /* pushdefer */ + Perl_ck_null, /* isbool */ } #endif ; @@ -2208,6 +2212,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000400, /* poptry */ 0x00000300, /* catch */ 0x00000300, /* pushdefer */ + 0x00000100, /* isbool */ }; #endif @@ -2878,6 +2883,7 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { -1, /* poptry */ 0, /* catch */ 0, /* pushdefer */ + 0, /* isbool */ }; @@ -2896,7 +2902,7 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { */ EXTCONST U16 PL_op_private_bitdefs[] = { - 0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, undef, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, ucfirst, lcfirst, uc, lc, quotemeta, aeach, avalues, each, pop, shift, grepstart, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, argcheck, argdefelem, method, method_named, method_super, method_redir, method_redir_super, entergiven, leavegiven, enterwhen, leavewhen, untie, tied, dbmclose, getsockname, getpeername, lstat, stat, readlink, readdir, telldir, rewinddir, closedir, localtime, alarm, require, dofile, entertry, ghbyname, gnbyname, gpbyname, shostent, snetent, sprotoent, sservent, gpwnam, gpwuid, ggrnam, ggrgid, lock, once, fc, anonconst, cmpchain_and, cmpchain_dup, entertrycatch, catch, pushdefer */ + 0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, undef, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, ucfirst, lcfirst, uc, lc, quotemeta, aeach, avalues, each, pop, shift, grepstart, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, argcheck, argdefelem, method, method_named, method_super, method_redir, method_redir_super, entergiven, leavegiven, enterwhen, leavewhen, untie, tied, dbmclose, getsockname, getpeername, lstat, stat, readlink, readdir, telldir, rewinddir, closedir, localtime, alarm, require, dofile, entertry, ghbyname, gnbyname, gpbyname, shostent, snetent, sprotoent, sservent, gpwnam, gpwuid, ggrnam, ggrgid, lock, once, fc, anonconst, cmpchain_and, cmpchain_dup, entertrycatch, catch, pushdefer, isbool */ 0x2fdc, 0x40d9, /* pushmark */ 0x00bd, /* wantarray, runcv */ 0x0438, 0x1a50, 0x418c, 0x3d28, 0x3505, /* const */ @@ -3381,6 +3387,7 @@ EXTCONST U8 PL_op_private_valid[] = { /* POPTRY */ (0), /* CATCH */ (OPpARG1_MASK), /* PUSHDEFER */ (OPpARG1_MASK), + /* ISBOOL */ (OPpARG1_MASK), }; |