From 28b02c60641c0bf1837079be29b712e3bce40178 Mon Sep 17 00:00:00 2001 From: Uros Bizjak Date: Sun, 4 Feb 2007 00:39:31 +0100 Subject: re PR middle-end/30667 (ICE in immed_double_const, at emit-rtl.c:468) PR middle-end/30667 * combine.c (try_combine): Do not substitute source operand with constants wider than 2 * HOST_BITS_PER_WIDE_INT. testsuite/ChangeLog: PR middle-end/30667 * gfortran.dg/pr30667.f: New test. From-SVN: r121555 --- gcc/ChangeLog | 6 ++++++ gcc/combine.c | 4 +++- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr30667.f | 10 ++++++++++ 4 files changed, 24 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/pr30667.f (limited to 'gcc') diff --git a/gcc/ChangeLog b/gcc/ChangeLog index d8ee269..fbf1456 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2007-02-03 Uros Bizjak + + PR middle-end/30667 + * combine.c (try_combine): Do not substitute source operand + with constants wider than 2 * HOST_BITS_PER_WIDE_INT. + 2007-02-03 Jan Hubicka PR gcov-profile/30650 diff --git a/gcc/combine.c b/gcc/combine.c index aa1e2ce..6605b7a 100644 --- a/gcc/combine.c +++ b/gcc/combine.c @@ -2003,7 +2003,9 @@ try_combine (rtx i3, rtx i2, rtx i1, int *new_direct_jump_p) offset = -1; } - if (offset >= 0) + if (offset >= 0 + && (GET_MODE_BITSIZE (GET_MODE (SET_DEST (temp))) + <= HOST_BITS_PER_WIDE_INT * 2)) { HOST_WIDE_INT mhi, ohi, ihi; HOST_WIDE_INT mlo, olo, ilo; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7ec5937..2193c95 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-02-03 Uros Bizjak + + PR middle-end/30667 + * gfortran.dg/pr30667.f: New test. + 2007-02-03 Kaveh R. Ghazi * gcc.dg/builtins-54.c: Add more cases. diff --git a/gcc/testsuite/gfortran.dg/pr30667.f b/gcc/testsuite/gfortran.dg/pr30667.f new file mode 100644 index 0000000..0f1af29 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr30667.f @@ -0,0 +1,10 @@ +! { dg-do compile { target i?86-*-* x86_64-*-* } } +! { dg-require-effective-target ilp32 } +! { dg-options "-O2 -msse -ftree-vectorize" } + subroutine cblank_cvb(a,ndim) + character*(*) a + character*1 blank + data blank/' '/ + do 100 i=1,ndim +100 a(i:i)=blank + end -- cgit v1.1