diff options
Diffstat (limited to 'contrib/perl5/bytecode.h')
| -rw-r--r-- | contrib/perl5/bytecode.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/perl5/bytecode.h b/contrib/perl5/bytecode.h index e28dd43..7f0ab13 100644 --- a/contrib/perl5/bytecode.h +++ b/contrib/perl5/bytecode.h @@ -64,7 +64,7 @@ typedef IV IV64; BGET_U32(hi); \ BGET_U32(lo); \ if (sizeof(IV) == 8) \ - arg = (IV) (hi << (sizeof(IV)*4) | lo); \ + arg = ((IV)hi << (sizeof(IV)*4) | lo); \ else if (((I32)hi == -1 && (I32)lo < 0) \ || ((I32)hi == 0 && (I32)lo >= 0)) { \ arg = (I32)lo; \ |
