From: Richard Stallman <rms@gnu.org>
Date: Thu, 4 Mar 1993 19:41:50 +0000 (+0000)
Subject: (convert_to_real): Convert complex to real.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0b1278213bf3d8fbc14be61416a2467755d77ed2;p=gcc.git

(convert_to_real): Convert complex to real.

(convert_to_integer): Likewise.
(convert_to_complex): New function.

From-SVN: r3639
---

diff --git a/gcc/convert.c b/gcc/convert.c
index c67f510188c..f4e6efa88d5 100644
--- a/gcc/convert.c
+++ b/gcc/convert.c
@@ -86,6 +86,10 @@ convert_to_real (type, expr)
   if (form == INTEGER_TYPE || form == ENUMERAL_TYPE)
     return build1 (FLOAT_EXPR, type, expr);
 
+  if (form == COMPLEX_TYPE)
+    return convert (type, fold (build1 (REALPART_EXPR,
+					TREE_TYPE (TREE_TYPE (expr)), expr)));
+
   if (form == POINTER_TYPE)
     error ("pointer value used where a floating point value was expected");
   else
@@ -360,6 +364,10 @@ convert_to_integer (type, expr)
   if (form == REAL_TYPE)
     return build1 (FIX_TRUNC_EXPR, type, expr);
 
+  if (form == COMPLEX_TYPE)
+    return convert (type, fold (build1 (REALPART_EXPR,
+					TREE_TYPE (TREE_TYPE (expr)), expr)));
+
   error ("aggregate value used where an integer was expected");
 
   {
@@ -368,3 +376,50 @@ convert_to_integer (type, expr)
     return tem;
   }
 }
+
+/* Convert EXPR to the complex type TYPE in the usual ways.  */
+
+tree
+convert_to_complex (type, expr)
+     tree type, expr;
+{
+  register enum tree_code form = TREE_CODE (TREE_TYPE (expr));
+  tree subtype = TREE_TYPE (type);
+  
+  if (form == REAL_TYPE || form == INTEGER_TYPE || form == ENUMERAL_TYPE)
+    {
+      expr = convert (subtype, expr);
+      return build (COMPLEX_EXPR, type, expr,
+		    convert (subtype, integer_zero_node));
+    }
+
+  if (form == COMPLEX_TYPE)
+    {
+      if (comptypes (TREE_TYPE (type), TREE_TYPE (TREE_TYPE (expr))))
+	return expr;
+      else if (TREE_CODE (expr) == COMPLEX_EXPR)
+	return fold (build (COMPLEX_EXPR,
+			    type,
+			    convert (subtype, TREE_OPERAND (expr, 0)),
+			    convert (subtype, TREE_OPERAND (expr, 1))));
+      else
+	{
+	  expr = save_expr (expr);
+	  return fold (build (COMPLEX_EXPR,
+			      type,
+			      convert (subtype,
+				       build_unary_op (REALPART_EXPR, expr, 1)),
+			      convert (subtype,
+				       build_unary_op (IMAGPART_EXPR, expr, 1))));
+	}
+    }
+
+  if (form == POINTER_TYPE)
+    error ("pointer value used where a complex was expected");
+  else
+    error ("aggregate value used where a complex was expected");
+  
+  return build (COMPLEX_EXPR, type,
+		convert (subtype, integer_zero_node),
+		convert (subtype, integer_zero_node));
+}