mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 05:00:23 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR tree-optimization/46259 (Revision 166102 failed 416.gamess in SPEC CPU 2006)

Browse Source 
gcc/
2010-11-01  Nathan Froyd  <froydnj@codesourcery.com>

	PR tree-optimization/46259

	Revert:

	2010-10-30  Nathan Froyd  <froydnj@codesourcery.com>

	* tree-vect-stmts.c (vect_get_vec_def_for_operand): Use
	build_vector_from_val.

gcc/testsuite/
2010-11-01  H.J. Lu  <hongjiu.lu@intel.com>
	    Nathan Froyd  <froydnj@codesourcery.com>

	PR tree-optimization/46259
	* gfortran.dg/pr46259.f: New testcase.

From-SVN: r166139
This commit is contained in:
Nathan Froyd 2010-11-01 18:58:30 +00:00
parent d0d7f522e8
commit e7e9eb2f27
4 changed files with 45 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ChangeLog
View File

@ -1,3 +1,14 @@
2010-11-01 Nathan Froyd <froydnj@codesourcery.com>
PR tree-optimization/46259
Revert:
2010-10-30 Nathan Froyd <froydnj@codesourcery.com>
* tree-vect-stmts.c (vect_get_vec_def_for_operand): Use
build_vector_from_val.
2010-11-01 DJ Delorie <dj@redhat.com>
* config/rx/rx.h (TARGET_CPU_CPP_BUILTINS): Add define for RX610

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2010-11-01 H.J. Lu <hongjiu.lu@intel.com>
Nathan Froyd <froydnj@codesourcery.com>
PR tree-optimization/46259
* gfortran.dg/pr46259.f: New testcase.
2010-11-01 Paul Koning <ni1d@arrl.net>
* gcc.c-torture/compile/20080625-1.c: Skip if pdp11.

19
gcc/testsuite/gfortran.dg/pr46259.f Normal file
View File

@ -0,0 +1,19 @@
! PR tree-optimization/46259
! { dg-do compile }
! { dg-options "-O3" }
SUBROUTINE RDSTFR(FRGMNT,IFRAG,PROVEC,FOCKMA,
* MXBF,MXMO,MXMO2,NTMOF)
PARAMETER (MXPT=100, MXFRG=50, MXFGPT=MXPT*MXFRG)
CHARACTER*8 WORD,MNAME,PNAME,RNAME
COMMON /FRGSTD/ CORD(3,MXPT),PCORD(3,MXPT),POLT(9,MXPT),
* INLPR(4*MXPT),IKFR(MXPT),IKLR(MXPT),
* MNAME(MXPT),PNAME(MXPT),RNAME(MXPT)
DO 10 I=1,MXPT
INLPR(4*(I-1)+1)=0
INLPR(4*(I-1)+2)=0
INLPR(4*(I-1)+3)=0
INLPR(4*(I-1)+4)=0
IKLR(I)=0
RNAME(I)=' '
10 CONTINUE
END

10
gcc/tree-vect-stmts.c
View File

@ -987,7 +987,9 @@ vect_get_vec_def_for_operand (tree op, gimple stmt, tree *scalar_def)
loop_vec_info loop_vinfo = STMT_VINFO_LOOP_VINFO (stmt_vinfo);
tree vec_inv;
tree vec_cst;
tree t = NULL_TREE;
tree def;
int i;
enum vect_def_type dt;
bool is_simple_use;
tree vector_type;
@ -1049,7 +1051,13 @@ vect_get_vec_def_for_operand (tree op, gimple stmt, tree *scalar_def)
if (vect_print_dump_info (REPORT_DETAILS))
fprintf (vect_dump, "Create vector_inv.");
vec_inv = build_vector_from_val (vector_type, def);
for (i = nunits - 1; i >= 0; --i)
{
t = tree_cons (NULL_TREE, def, t);
}
/* FIXME: use build_constructor directly. */
vec_inv = build_constructor_from_list (vector_type, t);
return vect_init_vector (stmt, vec_inv, vector_type, NULL);
}