> Excerpt from utils2.c:
>
> /* Likewise, but only return types known to the Ada source. */
> tree
> get_ada_base_type (tree type)
> {
> while (TREE_TYPE (type)
> && (TREE_CODE (type) == INTEGER_TYPE
>
> || TREE_CODE (type) == REAL_TYPE)
>
> && !TYPE_EXTRA_SUBTYPE_P (type))
> type = TREE_TYPE (type);
>
> return type;
> }
>
> And ada-tree.h:
>
> /* Nonzero in an arithmetic subtype if this is a subtype not known to the
> front-end. */
> #define TYPE_EXTRA_SUBTYPE_P(NODE) TYPE_LANG_FLAG_2 (NODE)
>
> c460008__unsigned_edge_8 has the TYPE_EXTRA_SUBTYPE_P flag set.
Which is of course a bit confusing because get_ada_base_type precisely returns
the first subtype "not known to the front-end"...
--
Eric Botcazou
