mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-19 14:29:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR middle-end/12002 (internal compiler error: in gen_lowpart, at emit-rtl.c:1374)

Browse Source 
PR middle-end/12002
	* tree.h (SCALAR_FLOAT_TYPE_P, COMPLEX_FLOAT_TYPE_P): New macros.
	(FLOAT_TYPE_P): Define in terms of these two new macros.
	* fold-const.c (fold <PLUS_EXPR>): Don't convert x+x into x*2.0
	for complex floating point types.

	* g77.f-torture/compile/12002.f: New test case.

From-SVN: r70821
This commit is contained in:
Roger Sayle 2003-08-26 21:44:46 +00:00 committed by Roger Sayle
parent b41ead3e35
commit 00229de405
5 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ChangeLog
View File

@ -1,3 +1,11 @@
2003-08-26 Roger Sayle <roger@eyesopen.com>
PR middle-end/12002
* tree.h (SCALAR_FLOAT_TYPE_P, COMPLEX_FLOAT_TYPE_P): New macros.
(FLOAT_TYPE_P): Define in terms of these two new macros.
* fold-const.c (fold <PLUS_EXPR>): Don't convert x+x into x*2.0
for complex floating point types.
2003-08-26 Ulrich Weigand <uweigand@de.ibm.com>
* config/s390/s390.c (emit_prologue): Don't check literal pool size.

3
gcc/fold-const.c
View File

@ -5713,7 +5713,8 @@ fold (tree expr)
return non_lvalue (convert (type, arg1));
/* Convert x+x into x*2.0. */
if (operand_equal_p (arg0, arg1, 0))
if (operand_equal_p (arg0, arg1, 0)
&& SCALAR_FLOAT_TYPE_P (type))
return fold (build (MULT_EXPR, type, arg0,
build_real (type, dconst2)));

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2003-08-26 Roger Sayle <roger@eyesopen.com>
PR middle-end/12002
* g77.f-torture/compile/12002.f: New test case.
2003-08-26 Roger Sayle <roger@eyesopen.com>
* gcc.dg/20030826-1.c: New test case.

5
gcc/testsuite/g77.f-torture/compile/12002.f Normal file
View File

@ -0,0 +1,5 @@
C PR middle-end/12002
COMPLEX TE1
TE1=-2.
TE1=TE1+TE1
END

14
gcc/tree.h
View File

@ -446,13 +446,21 @@ extern void tree_operand_check_failed (int, enum tree_code,
(TREE_CODE (TYPE) == INTEGER_TYPE || TREE_CODE (TYPE) == ENUMERAL_TYPE \
|| TREE_CODE (TYPE) == BOOLEAN_TYPE || TREE_CODE (TYPE) == CHAR_TYPE)
/* Nonzero if TYPE represents a scalar floating-point type. */
#define SCALAR_FLOAT_TYPE_P(TYPE) (TREE_CODE (TYPE) == REAL_TYPE)
/* Nonzero if TYPE represents a complex floating-point type. */
#define COMPLEX_FLOAT_TYPE_P(TYPE) \
(TREE_CODE (TYPE) == COMPLEX_TYPE \
&& TREE_CODE (TREE_TYPE (TYPE)) == REAL_TYPE)
/* Nonzero if TYPE represents a floating-point type, including complex
floating-point types. */
#define FLOAT_TYPE_P(TYPE) \
(TREE_CODE (TYPE) == REAL_TYPE \
|| (TREE_CODE (TYPE) == COMPLEX_TYPE \
&& TREE_CODE (TREE_TYPE (TYPE)) == REAL_TYPE))
(SCALAR_FLOAT_TYPE_P (TYPE) || COMPLEX_FLOAT_TYPE_P (TYPE))
/* Nonzero if TYPE represents an aggregate (multi-component) type. */