From: Richard Stallman <rms@gnu.org>
Date: Wed, 3 Mar 1993 21:25:11 +0000 (+0000)
Subject: (build_complex): Set the TREE_TYPE based on real part.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8e27715a9a56c41c74b8af878a3fd6503a1285bf;p=gcc.git

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

From-SVN: r3625
---

diff --git a/gcc/tree.c b/gcc/tree.c
index 8fe09a10daf..36f5a94c47c 100644
--- 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;
 }