diff options
author | Zefram <zefram@fysh.org> | 2020-03-27 18:54:10 -0400 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2020-03-30 01:48:38 +0000 |
commit | 95b7e3a36a7719a93600fbdbe66b690717cdff2d (patch) | |
tree | ff01dbfe3c64e0494ce9b794d467c48d1f5e5c6d /ext | |
parent | e5576b00988bc7efc88f19b62595311450378aa2 (diff) | |
download | perl-95b7e3a36a7719a93600fbdbe66b690717cdff2d.tar.gz |
Eliminate build-time warning
Compiling with gcc7, for example, generated a '-Woverflow' warning with
text 'overflow in implicit constant conversion'.
For: https://github.com/Perl/perl5/issues/17664
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Opcode/Opcode.pm | 2 | ||||
-rw-r--r-- | ext/Opcode/Opcode.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm index 3c0cc2eb56..fd9d892370 100644 --- a/ext/Opcode/Opcode.pm +++ b/ext/Opcode/Opcode.pm @@ -6,7 +6,7 @@ use strict; our($VERSION, @ISA, @EXPORT_OK); -$VERSION = "1.46"; +$VERSION = "1.47"; use Carp; use Exporter (); diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 1401b25f1b..121b14f8e3 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -360,7 +360,7 @@ CODE: bitmap[len] = ~bitmap[len]; /* take care of extra bits beyond PL_maxo in last byte */ if (PL_maxo & 07) - bitmap[opset_len-1] &= ~(0xFF << (PL_maxo & 0x07)); + bitmap[opset_len-1] &= ~(char)(0xFF << (PL_maxo & 0x07)); } ST(0) = opset; |