src/SDCCast.c (decorateType): fixed bug #902362

[fw/sdcc] / src / SDCCast.c

diff --git a/src/SDCCast.c b/src/SDCCast.c
index 57435e5df0065e77319e9d74a61903a76d414705..3b422b8f1e0cf48c5c65d53421fa09d8a5f274b4 100644 (file)
--- a/src/SDCCast.c
+++ b/src/SDCCast.c
@@ -2287,7 +2287,10 @@ decorateType (ast * tree, RESULT_TYPE resultType)
        upon tree->opval.op, if resultType can be propagated */
     resultTypeProp = resultTypePropagate (tree, resultType);
 
-    dtl = decorateType (tree->left, resultTypeProp);
+    if (tree->opval.op == '?')
+      dtl = decorateType (tree->left, RESULT_TYPE_NONE);
+    else
+      dtl = decorateType (tree->left, resultTypeProp);
 
     /* if an array node, we may need to swap branches */
     if (tree->opval.op == '[')
@@ -2791,7 +2794,8 @@ decorateType (ast * tree, RESULT_TYPE resultType)
        {
          tree->type = EX_VALUE;
          tree->opval.val = valDiv (valFromType (LETYPE (tree)),
-                                   valFromType (RETYPE (tree)));
+                                   valFromType (RETYPE (tree)),
+                              resultType == RESULT_TYPE_CHAR ? FALSE : TRUE);
          tree->right = tree->left = NULL;
          TETYPE (tree) = getSpec (TTYPE (tree) =
                                   tree->opval.val->type);
@@ -2946,7 +2950,8 @@ decorateType (ast * tree, RESULT_TYPE resultType)
        {
          tree->type = EX_VALUE;
          tree->opval.val = valMult (valFromType (LETYPE (tree)),
-                                    valFromType (RETYPE (tree)));
+                                    valFromType (RETYPE (tree)),
+                              resultType == RESULT_TYPE_CHAR ? FALSE : TRUE);
          tree->right = tree->left = NULL;
          TETYPE (tree) = getSpec (TTYPE (tree) =
                                   tree->opval.val->type);