From add94a5806141380fd09a55c646496326315ee82 Mon Sep 17 00:00:00 2001 From: Spider Boardman Date: Mon, 1 Mar 1999 12:27:59 -0500 Subject: Eliminate (valid) warning in byterun.c To: perl5-porters@perl.org Message-Id: <199903012227.RAA00181@leggy.zk3.dec.com> p4raw-id: //depot/cfgperl@3049 --- bytecode.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bytecode.h b/bytecode.h index fadc28f0b9..8564aed411 100644 --- 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; \ -- cgit v1.2.1