(build_complex): Set the TREE_TYPE based on real part.

From-SVN: r3625

diff --git a/gcc/tree.c b/gcc/tree.c
index 8fe09a10daf7e1cff80310bc2ca9400eacadefbb..36f5a94c47cf54710ad1777b3f158a5985ddfbcd 100644 (file)
--- a/gcc/tree.c
+++ b/gcc/tree.c
@@ -1227,6 +1227,7 @@ build_complex (real, imag)
   register tree t = make_node (COMPLEX_CST);
   TREE_REALPART (t) = real;
   TREE_IMAGPART (t) = imag;
+  TREE_TYPE (t) = build_complex_type (TREE_TYPE (real));
   return t;
 }