gdb/gdb/ada-lang.c

2904   struct type *type0 = check_typedef (VALUE_TYPE (args[0]));
2917       return (!(numeric_type_p (type0) && numeric_type_p (type1)));
2924       return (!(integer_type_p (type0) && integer_type_p (type1)));
2932       return (!(scalar_type_p (type0) && scalar_type_p (type1)));
2935       return ((TYPE_CODE (type0) != TYPE_CODE_ARRAY &&
2936 	       (TYPE_CODE (type0) != TYPE_CODE_PTR ||
2937 		TYPE_CODE (TYPE_TARGET_TYPE (type0))
2944       return (!(numeric_type_p (type0) && integer_type_p (type1)));
2950       return (!numeric_type_p (type0));
3218 equiv_types (struct type *type0, struct type *type1)
3220   if (type0 == type1)
3222   if (type0 == NULL || type1 == NULL
3223       || TYPE_CODE (type0) != TYPE_CODE (type1))
3225   if ((TYPE_CODE (type0) == TYPE_CODE_STRUCT
3226        || TYPE_CODE (type0) == TYPE_CODE_ENUM)
3227       && ada_type_name (type0) != NULL && ada_type_name (type1) != NULL
3228       && DEPRECATED_STREQ (ada_type_name (type0), ada_type_name (type1)))
3252 	struct type *type0 = SYMBOL_TYPE (sym0);
3258 	  TYPE_CODE (type0) == TYPE_CODE (type1)
3259 	  && (equiv_types (type0, type1)
5275 ada_variant_discrim_name (struct type *type0)
5284   if (TYPE_CODE (type0) == TYPE_CODE_PTR)
5285     type = TYPE_TARGET_TYPE (type0);
5287     type = type0;
5821 ada_prefer_type (struct type *type0, struct type *type1)
5825   else if (type0 == NULL)
5829   else if (TYPE_CODE (type0) == TYPE_CODE_VOID)
5831   else if (ada_is_packed_array_type (type0))
5833   else if (ada_is_array_descriptor (type0)
5836   else if (ada_renaming_type (type0) != NULL
6186 to_fixed_record_type (struct type *type0, char *valaddr, CORE_ADDR address,
6192   /*  if (TYPE_FLAGS (type0) & TYPE_FLAG_FIXED_INSTANCE)
6193      return type0;
6195   templ_type = dynamic_template_type (type0);
6199   else if (contains_variant_part (type0))
6200     return to_record_with_fixed_variant_part (type0, valaddr, address, dval);
6204       /*      TYPE_FLAGS (type0) |= TYPE_FLAG_FIXED_INSTANCE; */
6205       return type0;
6264 to_fixed_array_type (struct type *type0, struct value *dval,
6271 /*  if (ada_is_packed_array_type (type0)  /* revisit? *//*
6272    || (TYPE_FLAGS (type0) & TYPE_FLAG_FIXED_INSTANCE))
6273    return type0; */
6275   index_type_desc = ada_find_parallel_type (type0, "___XA");
6278       struct type *elt_type0 = check_typedef (TYPE_TARGET_TYPE (type0));
6285 	result = type0;
6287 	result = create_array_type (alloc_type (TYPE_OBJFILE (type0)),
6288 				    elt_type, TYPE_INDEX_TYPE (type0));
6295       elt_type0 = type0;
6307 				 dval, TYPE_OBJFILE (type0));
6308 	  result = create_array_type (alloc_type (TYPE_OBJFILE (type0)),
6351 to_static_fixed_type (struct type *type0)
6355   if (type0 == NULL)
6359   /*  if (TYPE_FLAGS (type0) & TYPE_FLAG_FIXED_INSTANCE)
6360      return type0;
6362   CHECK_TYPEDEF (type0);
6364   switch (TYPE_CODE (type0))
6367       return type0;
6369       type = dynamic_template_type (type0);
6372       return type0;
6374       type = ada_find_parallel_type (type0, "___XVU");
6377       return type0;
6439 ada_to_fixed_value (struct type *type0, char *valaddr, CORE_ADDR address,
6442   struct type *type = ada_to_fixed_type (type0, valaddr, address, NULL);
6443   if (type == type0 && val0 != NULL)