dist/gdb/ada-lang.c

6277 ada_is_ignored_field (struct type *type, int field_num)
6279   if (field_num < 0 || field_num > type->num_fields ())
6284     const char *name = TYPE_FIELD_NAME (type, field_num);
6306       && (ada_is_dispatch_table_ptr_type (type->field (field_num).type ())
6307 	  || ada_is_interface_tag (type->field (field_num).type ())))
6641 ada_is_parent_field (struct type *type, int field_num)
6643   const char *name = TYPE_FIELD_NAME (ada_check_typedef (type), field_num);
6657 ada_is_wrapper_field (struct type *type, int field_num)
6659   const char *name = TYPE_FIELD_NAME (type, field_num);
6684 ada_is_variant_part (struct type *type, int field_num)
6690   struct type *field_type = type->field (field_num).type ();
6693 	  || (is_dynamic_field (type, field_num)
6716 ada_is_others_clause (struct type *type, int field_num)
6718   const char *name = TYPE_FIELD_NAME (type, field_num);
6824 ada_in_variant (LONGEST val, struct type *type, int field_num)
6826   const char *name = TYPE_FIELD_NAME (type, field_num);
7739 is_dynamic_field (struct type *templ_type, int field_num)
7741   const char *name = TYPE_FIELD_NAME (templ_type, field_num);
7744     && templ_type->field (field_num).type ()->code () == TYPE_CODE_PTR