From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Mon, 1 Mar 1999 17:27:59 +0000 (-0500)
Subject: Eliminate (valid) warning in byterun.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=add94a5806141380fd09a55c646496326315ee82;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;				\