diff options
| author | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-18 18:32:04 +0000 |
|---|---|---|
| committer | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-18 18:32:04 +0000 |
| commit | f6a162af8bcb611154203275c69dc509f01d726c (patch) | |
| tree | 90f41eb0bdc2f40d8c61d92df5f3eda61e5f3d95 /gcc/alias.c | |
| parent | 7322c29e0bf2edc80a92bb6a08e2916388bfb995 (diff) | |
| download | gcc-f6a162af8bcb611154203275c69dc509f01d726c.tar.gz | |
* alias.c (readonly_fields_p): Remove.
(objects_must_conflict_p): Don't call it.
* tree.h (readonly_fields_p): Remove.
* langhooks.h (struct lang_hooks): Remove honor_readonly.
* langhooks-def.h (LANG_HOOKS_HONOR_READONLY): Remove.
ada/
* misc.c (LANG_HOOKS_HONOR_READONLY): Remove.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86200 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/alias.c')
| -rw-r--r-- | gcc/alias.c | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/gcc/alias.c b/gcc/alias.c index 57bc38d3c59..6807ad0726b 100644 --- a/gcc/alias.c +++ b/gcc/alias.c @@ -304,28 +304,6 @@ alias_sets_might_conflict_p (HOST_WIDE_INT set1, HOST_WIDE_INT set2) } -/* Return 1 if TYPE is a RECORD_TYPE, UNION_TYPE, or QUAL_UNION_TYPE and has - has any readonly fields. If any of the fields have types that - contain readonly fields, return true as well. */ - -int -readonly_fields_p (tree type) -{ - tree field; - - if (TREE_CODE (type) != RECORD_TYPE && TREE_CODE (type) != UNION_TYPE - && TREE_CODE (type) != QUAL_UNION_TYPE) - return 0; - - for (field = TYPE_FIELDS (type); field != 0; field = TREE_CHAIN (field)) - if (TREE_CODE (field) == FIELD_DECL - && (TREE_READONLY (field) - || readonly_fields_p (TREE_TYPE (field)))) - return 1; - - return 0; -} - /* Return 1 if any MEM object of type T1 will always conflict (using the dependency routines in this file) with any MEM object of type T2. This is used when allocating temporary storage. If T1 and/or T2 are @@ -342,14 +320,6 @@ objects_must_conflict_p (tree t1, tree t2) if (t1 == 0 && t2 == 0) return 0; - /* If one or the other has readonly fields or is readonly, - then they may not conflict. */ - if ((t1 != 0 && readonly_fields_p (t1)) - || (t2 != 0 && readonly_fields_p (t2)) - || (t1 != 0 && lang_hooks.honor_readonly && TYPE_READONLY (t1)) - || (t2 != 0 && lang_hooks.honor_readonly && TYPE_READONLY (t2))) - return 0; - /* If they are the same type, they must conflict. */ if (t1 == t2 /* Likewise if both are volatile. */ |