Eliminate (valid) warning in byterun.c

To: perl5-porters@perl.org
Message-Id: <199903012227.RAA00181@leggy.zk3.dec.com>

p4raw-id: //depot/cfgperl@3049

diff --git a/bytecode.h b/bytecode.h
index fadc28f..8564aed 100644 (file)
--- a/bytecode.h
+++ b/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;                              \