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

tree.c (build_range_type_1): Do not SET_TYPE_STRUCTURAL_EQUALITY for a non-shared type.

Browse Source 
* tree.c (build_range_type_1): Do not SET_TYPE_STRUCTURAL_EQUALITY
	for a non-shared type.

From-SVN: r167393
This commit is contained in:
Eric Botcazou 2010-12-02 22:02:30 +00:00 committed by Eric Botcazou
parent 4aa9afb41f
commit 0370b27c16
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -1,3 +1,8 @@
2010-12-02 Eric Botcazou <ebotcazou@adacore.com>
* tree.c (build_range_type_1): Do not SET_TYPE_STRUCTURAL_EQUALITY
for a non-shared type.
2010-12-02 Sebastian Pop <sebastian.pop@amd.com>
PR middle-end/45297

15
gcc/tree.c
View File

@ -7096,6 +7096,7 @@ static tree
build_range_type_1 (tree type, tree lowval, tree highval, bool shared)
{
tree itype = make_node (INTEGER_TYPE);
hashval_t hashcode = 0;
TREE_TYPE (itype) = type;
@ -7109,6 +7110,9 @@ build_range_type_1 (tree type, tree lowval, tree highval, bool shared)
TYPE_ALIGN (itype) = TYPE_ALIGN (type);
TYPE_USER_ALIGN (itype) = TYPE_USER_ALIGN (type);
if (!shared)
return itype;
if ((TYPE_MIN_VALUE (itype)
&& TREE_CODE (TYPE_MIN_VALUE (itype)) != INTEGER_CST)
|| (TYPE_MAX_VALUE (itype)
@ -7120,13 +7124,10 @@ build_range_type_1 (tree type, tree lowval, tree highval, bool shared)
return itype;
}
if (shared)
{
hashval_t hash = iterative_hash_expr (TYPE_MIN_VALUE (itype), 0);
hash = iterative_hash_expr (TYPE_MAX_VALUE (itype), hash);
hash = iterative_hash_hashval_t (TYPE_HASH (type), hash);
itype = type_hash_canon (hash, itype);
}
hashcode = iterative_hash_expr (TYPE_MIN_VALUE (itype), hashcode);
hashcode = iterative_hash_expr (TYPE_MAX_VALUE (itype), hashcode);
hashcode = iterative_hash_hashval_t (TYPE_HASH (type), hashcode);
itype = type_hash_canon (hashcode, itype);
return itype;
}