From: johanknol <johanknol@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Sun, 3 Mar 2002 10:50:54 +0000 (+0000)
Subject: fixed the << promotion for ops
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=96cf26b74b78de7e6f4afc6cf839eaa9896e7cd2;p=fw%2Fsdcc

fixed the << promotion for ops


git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@1984 4a8a32a2-be11-0410-ad9d-d568d2c75423
---

diff --git a/src/SDCCast.c b/src/SDCCast.c
index 871bf904..a647dcdd 100644
--- a/src/SDCCast.c
+++ b/src/SDCCast.c
@@ -2658,7 +2658,7 @@ decorateType (ast * tree)
       /* a left shift must be done with at least 16bits */
       if ((tree->opval.op==LEFT_OP) && (getSize(LTYPE(tree))<2)) {
 	// insert a cast
-	if (IS_AST_SYM_VALUE(tree->left)) {
+	if (IS_AST_SYM_VALUE(tree->left) || IS_AST_OP(tree->left)) {
 	  tree->left = 
 	    decorateType (newNode (CAST,
 				   newAst_LINK(copyLinkChain(LTYPE(tree))),