This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
RFA: patch to solve PR40587
- From: Vladimir Makarov <vmakarov at redhat dot com>
- To: gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Fri, 03 Jul 2009 17:39:53 -0400
- Subject: RFA: patch to solve PR40587
The following patch solves the problem 40587 whose details can be found on
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40587
The patch was successfully bootstrapped and tested on x86 and x86_64.
Ok to commit into the trunk and 4.4 branch?
2009-07-03 Vladimir Makarov <vmakarov@redhat.com>
PR target/40587
* ira.c (build_insn_chain): Use DF_LR_OUT instead of
df_get_live_out.
* testsuite/gfortran.dg/pr40587.f: New test.
Index: ira.c
===================================================================
--- ira.c (revision 149206)
+++ ira.c (working copy)
@@ -2797,14 +2797,14 @@ build_insn_chain (void)
CLEAR_REG_SET (live_relevant_regs);
memset (live_subregs_used, 0, max_regno * sizeof (int));
- EXECUTE_IF_SET_IN_BITMAP (df_get_live_out (bb), 0, i, bi)
+ EXECUTE_IF_SET_IN_BITMAP (DF_LR_OUT (bb), 0, i, bi)
{
if (i >= FIRST_PSEUDO_REGISTER)
break;
bitmap_set_bit (live_relevant_regs, i);
}
- EXECUTE_IF_SET_IN_BITMAP (df_get_live_out (bb),
+ EXECUTE_IF_SET_IN_BITMAP (DF_LR_OUT (bb),
FIRST_PSEUDO_REGISTER, i, bi)
{
if (pseudo_for_reload_consideration_p (i))
Index: testsuite/gfortran.dg/pr40587.f
===================================================================
--- testsuite/gfortran.dg/pr40587.f (revision 0)
+++ testsuite/gfortran.dg/pr40587.f (revision 0)
@@ -0,0 +1,17 @@
+C PR traget/40587
+C { dg-do compile }
+C { dg-options "-O2" }
+ subroutine TEST(i, r, result)
+ implicit none
+ integer i
+ REAL*8 r
+ REAL*8 result
+ REAL*8 r2
+ if(i.eq.0) then
+ r2 = r
+ else
+ call ERROR()
+ endif
+ result = r2
+ return
+ end