mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-03 07:10:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

tree.c (build_qualified_type): Chain the new type to the original type's TYPE_NEXT_PTR_TO or TYPE_NEXT_REF_TO...

Browse Source 
* tree.c (build_qualified_type): Chain the new type to the original
	type's TYPE_NEXT_PTR_TO or TYPE_NEXT_REF_TO linked lists if it is
	a POINTER_TYPE or a REFERENCE_TYPE respectively.
	(build_pointer_type_for_mode): Only return unqualified types.
	(build_reference_type_for_mode): Likewise.

From-SVN: r106716
This commit is contained in:
Eric Botcazou 2005-11-09 23:13:08 +00:00 committed by Eric Botcazou
parent 378e957760
commit 7e854c00d0
2 changed files with 32 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ChangeLog
View File

@ -1,3 +1,11 @@
2005-11-09 Eric Botcazou <ebotcazou@adacore.com>
* tree.c (build_qualified_type): Chain the new type to the original
type's TYPE_NEXT_PTR_TO or TYPE_NEXT_REF_TO linked lists if it is
a POINTER_TYPE or a REFERENCE_TYPE respectively.
(build_pointer_type_for_mode): Only return unqualified types.
(build_reference_type_for_mode): Likewise.
2005-11-09 Jakub Jelinek <jakub@redhat.com>
* Makefile.in (gnucompare): Do comparison of all files using one of

30
gcc/tree.c
View File

@ -3702,6 +3702,20 @@ build_qualified_type (tree type, int type_quals)
{
t = build_variant_type_copy (type);
set_type_quals (t, type_quals);
/* If it's a pointer type, the new variant points to the same type. */
if (TREE_CODE (type) == POINTER_TYPE)
{
TYPE_NEXT_PTR_TO (t) = TYPE_NEXT_PTR_TO (type);
TYPE_NEXT_PTR_TO (type) = t;
}
/* Same for a reference type. */
else if (TREE_CODE (type) == REFERENCE_TYPE)
{
TYPE_NEXT_REF_TO (t) = TYPE_NEXT_REF_TO (type);
TYPE_NEXT_REF_TO (type) = t;
}
}
return t;
@ -4817,10 +4831,12 @@ build_pointer_type_for_mode (tree to_type, enum machine_mode mode,
&& TREE_CODE (TYPE_POINTER_TO (to_type)) != POINTER_TYPE)
return TYPE_POINTER_TO (to_type);
/* First, if we already have a type for pointers to TO_TYPE and it's
the proper mode, use it. */
/* First, if we already have an unqualified type for pointers to TO_TYPE
and it's the proper mode, use it. */
for (t = TYPE_POINTER_TO (to_type); t; t = TYPE_NEXT_PTR_TO (t))
if (TYPE_MODE (t) == mode && TYPE_REF_CAN_ALIAS_ALL (t) == can_alias_all)
if (TYPE_MODE (t) == mode
&& !TYPE_QUALS (t)
&& TYPE_REF_CAN_ALIAS_ALL (t) == can_alias_all)
return t;
t = make_node (POINTER_TYPE);
@ -4866,10 +4882,12 @@ build_reference_type_for_mode (tree to_type, enum machine_mode mode,
&& TREE_CODE (TYPE_REFERENCE_TO (to_type)) != REFERENCE_TYPE)
return TYPE_REFERENCE_TO (to_type);
/* First, if we already have a type for pointers to TO_TYPE and it's
the proper mode, use it. */
/* First, if we already have an unqualified type for references to TO_TYPE
and it's the proper mode, use it. */
for (t = TYPE_REFERENCE_TO (to_type); t; t = TYPE_NEXT_REF_TO (t))
if (TYPE_MODE (t) == mode && TYPE_REF_CAN_ALIAS_ALL (t) == can_alias_all)
if (TYPE_MODE (t) == mode
&& !TYPE_QUALS (t)
&& TYPE_REF_CAN_ALIAS_ALL (t) == can_alias_all)
return t;
t = make_node (REFERENCE_TYPE);