* expr.c (expand_expr <COMPLEX_CST>): Handle the case of

	expanding a complex constant into a CONCAT target.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@67928 138bc75d-0d04-0410-961f-82ee72b054a4

2 files changed, 28 insertions, 0 deletions

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index c1db08a1aae..4737fa0e3c5 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-13  Roger Sayle  <roger@eyesopen.com>
+
+	* expr.c (expand_expr <COMPLEX_CST>): Handle the case of
+	expanding a complex constant into a CONCAT target.
+
 2003-06-13  Zack Weinberg  <zack@codesourcery.com>
 
 	* config/svr3.h (ASM_FILE_START): Don't use ASM_FILE_START_1.
diff --git a/gcc/expr.c b/gcc/expr.c
index d4c7e1d9df4..3131a33e50d 100644
--- a/gcc/expr.c
+++ b/gcc/expr.c
@@ -6980,6 +6980,29 @@ expand_expr (exp, target, tmode, modifier)
 					   TYPE_MODE (TREE_TYPE (exp)));
 
     case COMPLEX_CST:
+      /* Handle evaluating a complex constant in a CONCAT target.  */
+      if (original_target && GET_CODE (original_target) == CONCAT)
+	{
+	  enum machine_mode mode = TYPE_MODE (TREE_TYPE (TREE_TYPE (exp)));
+	  rtx rtarg, itarg;
+
+	  rtarg = XEXP (original_target, 0);
+	  itarg = XEXP (original_target, 1);
+
+	  /* Move the real and imaginary parts separately.  */
+	  op0 = expand_expr (TREE_REALPART (exp), rtarg, mode, 0);
+	  op1 = expand_expr (TREE_IMAGPART (exp), itarg, mode, 0);
+
+	  if (op0 != rtarg)
+	    emit_move_insn (rtarg, op0);
+	  if (op1 != itarg)
+	    emit_move_insn (itarg, op1);
+
+	  return original_target;
+	}
+
+      /* ... fall through ... */
+
     case STRING_CST:
       temp = output_constant_def (exp, 1);