> 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

Reply via email to