(expand_decl): Make a CONCAT, for decls of complex type.

From-SVN: r4922

diff --git a/gcc/stmt.c b/gcc/stmt.c
index d767362fb7eaad75ae9be32c84236b88f083303f..b61e822fa36a374d1c991313fe8e9082a4110ed7 100644 (file)
--- a/gcc/stmt.c
+++ b/gcc/stmt.c
@@ -2893,10 +2893,27 @@ expand_decl (decl)
          PROMOTE_MODE (reg_mode, unsignedp, type);
        }
 
-      DECL_RTL (decl) = gen_reg_rtx (reg_mode);
-      if (TREE_CODE (type) == POINTER_TYPE)
-       mark_reg_pointer (DECL_RTL (decl));
-      REG_USERVAR_P (DECL_RTL (decl)) = 1;
+      if (TREE_CODE (type) == COMPLEX_TYPE)
+       {
+         rtx realpart, imagpart;
+         enum machine_mode partmode = TYPE_MODE (TREE_TYPE (type));
+
+         /* For a complex type variable, make a CONCAT of two pseudos
+            so that the real and imaginary parts
+            can be allocated separately.  */
+         realpart = gen_reg_rtx (partmode);
+         REG_USERVAR_P (realpart) = 1;
+         imagpart = gen_reg_rtx (partmode);
+         REG_USERVAR_P (imagpart) = 1;
+         DECL_RTL (decl) = gen_rtx (CONCAT, reg_mode, realpart, imagpart);
+       }
+      else
+       {
+         DECL_RTL (decl) = gen_reg_rtx (reg_mode);
+         if (TREE_CODE (type) == POINTER_TYPE)
+           mark_reg_pointer (DECL_RTL (decl));
+         REG_USERVAR_P (DECL_RTL (decl)) = 1;
+       }
     }
   else if (TREE_CODE (DECL_SIZE (decl)) == INTEGER_CST)
     {