expr.c (expand_assignment): Handle CONCAT both as a final destination and as a middle point.

        * expr.c (expand_assignment): Handle CONCAT both as a final
        destination and as a middle point.

From-SVN: r91614

1 files changed, 10 insertions, 2 deletions

diff --git a/gcc/expr.c b/gcc/expr.c
index 4616f21..f16f82f 100644
--- a/gcc/expr.c
+++ b/gcc/expr.c
@@ -3757,8 +3757,16 @@ expand_assignment (tree to, tree from)
       /* Handle expand_expr of a complex value returning a CONCAT.  */
       if (GET_CODE (to_rtx) == CONCAT)
 	{
-	  gcc_assert (bitpos == 0 || bitpos == GET_MODE_BITSIZE (mode1));
-	  result = store_expr (from, XEXP (to_rtx, bitpos != 0), false);
+	  if (TREE_CODE (TREE_TYPE (from)) == COMPLEX_TYPE)
+	    {
+	      gcc_assert (bitpos == 0);
+	      result = store_expr (from, to_rtx, false);
+	    }
+	  else
+	    {
+	      gcc_assert (bitpos == 0 || bitpos == GET_MODE_BITSIZE (mode1));
+	      result = store_expr (from, XEXP (to_rtx, bitpos != 0), false);
+	    }
 	}
       else
 	{