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

From-SVN: r3625
This commit is contained in:
Richard Stallman 1993-03-03 21:25:11 +00:00
parent 742e43a2fa
commit 8e27715a9a

View File

@ -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;
}