Re: RFA: patch to solve PR40587

[Richard Guenther <richard dot guenther at gmail dot com>]

On Fri, Jul 3, 2009 at 11:39 PM, Vladimir Makarov<vmakarov@redhat.com> wrote:
> 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?

Ok.

Thanks,
Richard.

> 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
>
>