gdb/gdb/ada-lang.c

956 desc_one_bound (struct value *bounds, int i, int which)
958   return value_struct_elt (&bounds, NULL, bound_name[2 * i + which - 2], NULL,
966 desc_bound_bitpos (struct type *type, int i, int which)
968   return TYPE_FIELD_BITPOS (desc_base_type (type), 2 * i + which - 2);
975 desc_bound_bitsize (struct type *type, int i, int which)
979   if (TYPE_FIELD_BITSIZE (type, 2 * i + which - 2) > 0)
980     return TYPE_FIELD_BITSIZE (type, 2 * i + which - 2);
982     return 8 * TYPE_LENGTH (TYPE_FIELD_TYPE (type, 2 * i + which - 2));
1132    Otherwise, returns a standard GDB array describing ARR (which may
1362    may also be NULL, in which case, VALADDR+OFFSET must address the
1797 ada_array_bound_from_type (struct type * arr_type, int n, int which,
1810       return (LONGEST) - which;
1837 	(LONGEST) (which == 0
1849 	(LONGEST) (which == 0
1856    nth index (numbering from 1) if which is 0, and the upper bound if
1857    which is 1. This routine will also work for arrays with bounds
1861 ada_array_bound (struct value *arr, int n, int which)
1866     return ada_array_bound (decode_packed_array (arr), n, which);
1870       LONGEST v = ada_array_bound_from_type (arr_type, n, which, &type);
1874     return desc_one_bound (desc_bounds (arr), n, which);
2401    may also be an enumeral, in which case it is treated as a 0-
2591 /* be NULL, in which case it is ignored. */
2593 /* NOTE: Adapted from decode_line_2 in symtab.c, with which it ought
2962 /* If TYPE encodes a renaming, returns the renaming suffix, which
3589  * for which no debugging information was given in the symbol file. */
3647    pointing to the vector of corresponding blocks in which those
3902  * informational suffixes of NAME (i.e., for which is_name_suffix is
4949          mechanism, which is a little bit less reliable, but has proved to work
4951          has set some breakpoints which will be hit before the end of the
5215    transparent wrapper field (which should be silently traversed when doing
5412    FIELDNO says which field.   Differs from value_primitive_field only
5651    OUTER_VALADDR, determine which variant clause (field number in VAR_TYPE,
5697    the 'struct value' data structure, which GDB uses to represent
5842 /* The name of TYPE, which is either its TYPE_NAME, or, if that is
6120    part -- in which the variant part is replaced with the appropriate
6221   int which;
6235   which =
6239   if (which < 0)
6241   else if (is_dynamic_field (var_type, which))
6244       (TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (var_type, which)),
6246   else if (contains_variant_part (TYPE_FIELD_TYPE (var_type, which)))
6249       (TYPE_FIELD_TYPE (var_type, which), valaddr, address, dval);
6251     return TYPE_FIELD_TYPE (var_type, which);
6956          context other than a function call, in which case, it is
8123    DWARF version 2, etc) do define fundamental types.  For the formats which