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

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

diff --git a/ChangeLog b/ChangeLog
index 5214928ff3f652547d3d46d6c6fea5874a9d094b..98bc5b150e51c9a3653969865261918b18e91af3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2003-10-31 Bernhard Held <bernhard@bernhardheld.de>
 
        * src/SDCCmain.c (linkEdit): "fixed" bug #833605
+       * src/SDCCast.c (decorateType): fixed bug #832664
 
 2003-10-31  Borut Razem <borut.razem@siol.net>
 

diff --git a/src/SDCCast.c b/src/SDCCast.c
index c0d2787a56b4fddc5edff1bd24aa4e4c36f64f41..21372879c84969ce60af51745272f6ad92f35ad0 100644 (file)
--- a/src/SDCCast.c
+++ b/src/SDCCast.c
@@ -3062,14 +3062,9 @@ decorateType (ast * tree)
          }
        }
       LRVAL (tree) = RRVAL (tree) = 1;
-      if (IS_LITERAL (LTYPE (tree)) && !IS_LITERAL (RTYPE (tree)))
-       {
-         COPYTYPE (TTYPE (tree), TETYPE (tree), RTYPE (tree));
-       }
-      else
-       {
-         COPYTYPE (TTYPE (tree), TETYPE (tree), LTYPE (tree));
-       }
+      TTYPE (tree) = TETYPE (tree) = copyLinkChain (LTYPE (tree));
+      if (IS_LITERAL (TTYPE (tree)))
+        SPEC_SCLS (TTYPE (tree)) &= ~S_LITERAL;
       return tree;
 
       /*------------------------------------------------------------------*/