Add string- and number-specific bitop types

[perl5.git] / regen / opcode.pl

diff --git a/regen/opcode.pl b/regen/opcode.pl
index 327e45e..765816f 100755 (executable)
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -122,6 +122,8 @@ my @raw_alias = (
                 Perl_pp_shift => ['pop'],
                 Perl_pp_sin => [qw(cos exp log sqrt)],
                 Perl_pp_bit_or => ['bit_xor'],
+                Perl_pp_nbit_or => ['nbit_xor'],
+                Perl_pp_sbit_or => ['sbit_xor'],
                 Perl_pp_rv2av => ['rv2hv'],
                 Perl_pp_akeys => ['avalues'],
                 Perl_pp_rkeys => [qw(rvalues reach)],