(convert_to_complex): Avoid using comptypes.
authorRichard Stallman <rms@gnu.org>
Tue, 9 Mar 1993 23:55:57 +0000 (23:55 +0000)
committerRichard Stallman <rms@gnu.org>
Tue, 9 Mar 1993 23:55:57 +0000 (23:55 +0000)
From-SVN: r3688

gcc/convert.c

index 95bac9c3fecc8d0d0f46baae3e7d701c6eb5f725..5ccce13882b049da9b34bccdd82dfdcd8a188c08 100644 (file)
@@ -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,