OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR rtl-optimization/47008 (gfortran.dg/extends_{23}.f03 FAIL with -Os -fschedule-insns) 

PR rtl-optimization/47008
	* postreload.c (reload_combine_note_store): Also handle
	PRE_MODIFY and POST_MODIFY.

	* gfortran.dg/pr47008.f03: New test.

From-SVN: r168117
This commit is contained in:
Jakub Jelinek 2010-12-21 15:51:42 +01:00 committed by Jakub Jelinek
parent c75534d1e6
commit 96676a5df7
4 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ChangeLog
View File

@ -1,3 +1,9 @@
2010-12-21 Jakub Jelinek <jakub@redhat.com>
PR rtl-optimization/47008
* postreload.c (reload_combine_note_store): Also handle
PRE_MODIFY and POST_MODIFY.
2010-12-21 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
* config/arm/arm.c (require_pic_register): Set INSN_LOCATOR for all

3
gcc/postreload.c
View File

@ -1415,7 +1415,8 @@ reload_combine_note_store (rtx dst, const_rtx set, void *data ATTRIBUTE_UNUSED)
{
dst = XEXP (dst, 0);
if (GET_CODE (dst) == PRE_INC || GET_CODE (dst) == POST_INC
|| GET_CODE (dst) == PRE_DEC || GET_CODE (dst) == POST_DEC)
|| GET_CODE (dst) == PRE_DEC || GET_CODE (dst) == POST_DEC
|| GET_CODE (dst) == PRE_MODIFY || GET_CODE (dst) == POST_MODIFY)
{
regno = REGNO (XEXP (dst, 0));
mode = GET_MODE (XEXP (dst, 0));

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-12-21 Jakub Jelinek <jakub@redhat.com>
PR rtl-optimization/47008
* gfortran.dg/pr47008.f03: New test.
2010-12-21 Nicola Pero <nicola.pero@meta-innovation.com>
PR libobjc/45953

24
gcc/testsuite/gfortran.dg/pr47008.f03 Normal file
View File

@ -0,0 +1,24 @@
! PR rtl-optimization/47008
! { dg-do run }
! { dg-options "-Os -fno-asynchronous-unwind-tables -fschedule-insns -fsched-pressure -fno-inline" { target i?86-*-* x86_64-*-* } }
program main
type :: t
integer :: i
character(24) :: c
type (t), pointer :: p
end type t
type(t), pointer :: r, p
allocate (p)
p = t (123455, "", p)
r => entry ("", 123456, 1, "", 99, "", p)
if (p%i /= 123455) call abort
contains
function entry (x, i, j, c, k, d, p) result (q)
integer :: i, j, k
character (*) :: x, c, d
type (t), pointer :: p, q
allocate (q)
q = t (i, c, p)
end function
end program main