> 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