re PR target/27390 (gcc.target/x86_64/abi/test_complex_returning.c execution fails...

2006-06-07  Paolo Bonzini  <bonzini@gnu.org>

	PR target/27390
	* reg-stack.c (subst_stack_regs_pat): Reorder resetting of
	the imaginary and real parts of a clobbered register.
	Emit insn to set the imaginary part.

From-SVN: r114462

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 2d79f7b114886ca91f301abd6ca3fc6242aef90a..4c72bd917d35b87048afd2c9b13f5f29445eac74 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,10 @@
+2006-06-07  Paolo Bonzini  <bonzini@gnu.org>
+
+       PR target/27390
+       * reg-stack.c (subst_stack_regs_pat): Reorder resetting of
+       the imaginary and real parts of a clobbered register.
+       Emit insn to set the imaginary part.
+
 2006-06-06  Peter Lemieszewski  <lemie@us.ibm.com>
 
        * config/s390/t-tpf (LIB2ADDEH): Include unwind-dw2-fde-glibc.c

diff --git a/gcc/reg-stack.c b/gcc/reg-stack.c
index bb2e1a1f9c67faa5eedcd0121c22d3ff951bb43e..83f4ebb081ea0477f119c27cd4855b8bda476e78 100644 (file)
--- a/gcc/reg-stack.c
+++ b/gcc/reg-stack.c
@@ -1371,16 +1371,20 @@ subst_stack_regs_pat (rtx insn, stack regstack, rtx pat)
                if (!note)
                  {
                    rtx t = *dest;
-                   if (get_hard_regnum (regstack, t) == -1)
-                     control_flow_insn_deleted
-                       |= move_nan_for_stack_reg (insn, regstack, t);
                    if (COMPLEX_MODE_P (GET_MODE (t)))
                      {
-                       t = FP_MODE_REG (REGNO (t) + 1, DFmode);
-                       if (get_hard_regnum (regstack, t) == -1)
-                         control_flow_insn_deleted
-                           |= move_nan_for_stack_reg (insn, regstack, t);
+                       rtx u = FP_MODE_REG (REGNO (t) + 1, SFmode);
+                       if (get_hard_regnum (regstack, u) == -1)
+                         {
+                           rtx pat2 = gen_rtx_CLOBBER (VOIDmode, u);
+                           rtx insn2 = emit_insn_before (pat2, insn);
+                           control_flow_insn_deleted
+                             |= move_nan_for_stack_reg (insn2, regstack, u);
+                         }
                      }
+                   if (get_hard_regnum (regstack, t) == -1)
+                     control_flow_insn_deleted
+                       |= move_nan_for_stack_reg (insn, regstack, t);
                  }
              }
          }