From: Richard Kenner <kenner@gcc.gnu.org>
Date: Fri, 23 Apr 1993 10:56:52 +0000 (-0400)
Subject: (convert_to_integer...
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=95e7890978d481b36f8eee2ae124b79b36458ef5;p=gcc.git

(convert_to_integer...

(convert_to_integer, convert_to_complex): Avoid using
build_{unary,binary}_op since the calling sequences depend on the
front-end.

From-SVN: r4196
---

diff --git a/gcc/convert.c b/gcc/convert.c
index 62bcaf2b3f2..7261e1baa8e 100644
--- a/gcc/convert.c
+++ b/gcc/convert.c
@@ -269,10 +269,10 @@ convert_to_integer (type, expr)
 			      || TREE_UNSIGNED (TREE_TYPE (arg1)))
 			     ? unsigned_type (typex) : signed_type (typex));
 		    return convert (type,
-				    build_binary_op (ex_form,
-						     convert (typex, arg0),
-						     convert (typex, arg1),
-						     0));
+				    fold (build (ex_form, typex,
+						 convert (typex, arg0),
+						 convert (typex, arg1),
+						 0)));
 		  }
 	      }
 	  }
@@ -300,9 +300,9 @@ convert_to_integer (type, expr)
 		typex = (TREE_UNSIGNED (TREE_TYPE (expr))
 			 ? unsigned_type (typex) : signed_type (typex));
 		return convert (type,
-				build_unary_op (ex_form,
-						convert (typex, TREE_OPERAND (expr, 0)),
-						1));
+				fold (build1 (ex_form, typex,
+					      convert (typex,
+						       TREE_OPERAND (expr, 0)))));
 	      }
 	  }
 
@@ -411,9 +411,13 @@ convert_to_complex (type, expr)
 	  return fold (build (COMPLEX_EXPR,
 			      type,
 			      convert (subtype,
-				       build_unary_op (REALPART_EXPR, expr, 1)),
+				       fold (build1 (REALPART_EXPR,
+						     TREE_TYPE (TREE_TYPE (expr)),
+						     expr))),
 			      convert (subtype,
-				       build_unary_op (IMAGPART_EXPR, expr, 1))));
+				       fold (build1 (IMAGPART_EXPR,
+						     TREE_TYPE (TREE_TYPE (expr)),
+						     expr)))));
 	}
     }