Opcode: Save a '&' instr by casting to U8

Perl · Jul 30, 2021 · 0c10ec5 · 0c10ec5
1 parent 78c56b6
commit 0c10ec5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm
@@ -6,7 +6,7 @@ use strict;
 
 our($VERSION, @ISA, @EXPORT_OK);
 
-$VERSION = "1.52";
+$VERSION = "1.53";
 
 use Carp;
 use Exporter 'import';

diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
@@ -68,7 +68,7 @@ op_names_init(pTHX)
     bitmap = (U8*)SvPV(opset_all, len);
     memset(bitmap, 0xFF, len-1); /* deal with last byte specially, see below */
     /* Take care to set the right number of bits in the last byte */
-    bitmap[len-1] = (PL_maxo & 0x07) ? ((~(0xFF << (PL_maxo & 0x07))) & 0xFF)
+    bitmap[len-1] = (PL_maxo & 0x07) ? ((U8) (~(0xFF << (PL_maxo & 0x07))))
                                      : 0xFF;
     put_op_bitspec(aTHX_ STR_WITH_LEN(":all"), opset_all); /* don't mortalise */
 }