diff options
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 521f8b9..279a114 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -718,7 +718,9 @@ gnat_get_alias_set (tree type) get_alias_set (TREE_TYPE (TREE_TYPE (TYPE_FIELDS (TREE_TYPE (type))))); /* If the type can alias any other types, return the alias set 0. */ - else if (TYPE_P (type) && TYPE_UNIVERSAL_ALIASING_P (type)) + else if (TYPE_P (type) + && !TYPE_IS_DUMMY_P (type) + && TYPE_UNIVERSAL_ALIASING_P (type)) return 0; return -1; @@ -932,7 +934,7 @@ gnat_get_array_descr_info (const_tree const_type, and XUA types. */ if (TYPE_CONTEXT (first_dimen) && TREE_CODE (TYPE_CONTEXT (first_dimen)) != RECORD_TYPE - && contains_placeholder_p (TYPE_MIN_VALUE (index_type)) + && CONTAINS_PLACEHOLDER_P (TYPE_MIN_VALUE (index_type)) && gnat_encodings != DWARF_GNAT_ENCODINGS_MINIMAL) { info->dimen[i].lower_bound = NULL_TREE; |