Add string- and number-specific bitop types

[perl5.git] / regen / opcodes

diff --git a/regen/opcodes b/regen/opcodes
index 3061d33..614a54c 100644 (file)
--- a/regen/opcodes
+++ b/regen/opcodes
@@ -165,11 +165,19 @@ scmp              string comparison (cmp) ck_null         ifsT2   S S
 bit_and                bitwise and (&)         ck_bitop        fst2    S S
 bit_xor                bitwise xor (^)         ck_bitop        fst2    S S
 bit_or         bitwise or (|)          ck_bitop        fst2    S S
+nbit_and       numeric bitiwse and (&) ck_bitop        fsT2    S S
+nbit_xor       numeric bitwise xor (^) ck_bitop        fsT2    S S
+nbit_or                numeric bitwise or (|)  ck_bitop        fsT2    S S
+sbit_and       string bitiwse and (&)  ck_bitop        fst2    S S
+sbit_xor       string bitwise xor (^)  ck_bitop        fst2    S S
+sbit_or                string bitwise or (|)   ck_bitop        fst2    S S
 
 negate         negation (-)            ck_null         Ifst1   S
 i_negate       integer negation (-)    ck_null         ifst1   S
 not            not                     ck_null         ifs1    S
 complement     1's complement (~)      ck_bitop        fsT1    S
+ncomplement    numeric 1's complement (~)      ck_bitop        fsT1    S
+scomplement    string 1's complement (~)       ck_null fsT1    S
 
 smartmatch     smart match             ck_smartmatch   s2