From: Richard Stallman <rms@gnu.org>
Date: Tue, 9 Mar 1993 23:55:57 +0000 (+0000)
Subject: (convert_to_complex): Avoid using comptypes.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=07150665c9cee7a80e87a789f7c621c289d1fc78;p=gcc.git

(convert_to_complex): Avoid using comptypes.

From-SVN: r3688
---

diff --git a/gcc/convert.c b/gcc/convert.c
index 95bac9c3fec..5ccce13882b 100644
--- a/gcc/convert.c
+++ b/gcc/convert.c
@@ -397,7 +397,8 @@ convert_to_complex (type, expr)
 
   if (form == COMPLEX_TYPE)
     {
-      if (comptypes (TREE_TYPE (type), TREE_TYPE (TREE_TYPE (expr))))
+      tree elt_type = TREE_TYPE (TREE_TYPE (expr));
+      if (TYPE_MAIN_VARIANT (elt_type) == TYPE_MAIN_VARIANT (TREE_TYPE (type)))
 	return expr;
       else if (TREE_CODE (expr) == COMPLEX_EXPR)
 	return fold (build (COMPLEX_EXPR,