X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2FSDCCast.c;h=3a91217c983507e25be4c2f2bc618865b4dd002b;hb=e5c62ddb5b835550d3e4f84dbe9939b5c74b87af;hp=0a608a796a0b1c9dd89c7ca7dcce4b8e1f577cc7;hpb=d9deadff25143c9e4ac28cdb2ad5065b948669b1;p=fw%2Fsdcc

diff --git a/src/SDCCast.c b/src/SDCCast.c
index 0a608a79..3a91217c 100644
--- a/src/SDCCast.c
+++ b/src/SDCCast.c
@@ -3287,11 +3287,15 @@ decorateType (ast * tree, RESULT_TYPE resultType)
               tree->opval.val = valUnaryPM (valFromType (LETYPE (tree)));
               tree->left = NULL;
               TETYPE (tree) = TTYPE (tree) = tree->opval.val->type;
-              SPEC_USIGN(TETYPE(tree)) = 0;
               return tree;
             }
+          tree->left  = addCast (tree->left, resultType, TRUE);
+          TETYPE (tree) = getSpec (TTYPE (tree) =
+                                     computeType (LTYPE (tree),
+                                                  NULL,
+                                                  resultType,
+                                                  tree->opval.op));
           LRVAL (tree) = 1;
-          TETYPE(tree) = getSpec (TTYPE (tree) = LTYPE (tree));
           return tree;
         }