gdb/gdbtypes.h

   1
   2 /* Internal type definitions for GDB.
   3
   4    Copyright (C) 1992-2014 Free Software Foundation, Inc.
   5
   6    Contributed by Cygnus Support, using pieces from other GDB modules.
   7
   8    This file is part of GDB.
   9
  10    This program is free software; you can redistribute it and/or modify
  11    it under the terms of the GNU General Public License as published by
  12    the Free Software Foundation; either version 3 of the License, or
  13    (at your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful,
  16    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18    GNU General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  22
  23 #if !defined (GDBTYPES_H)
  24 #define GDBTYPES_H 1
  25
  26 /* * \page gdbtypes GDB Types
  27
  28    GDB represents all the different kinds of types in programming
  29    languages using a common representation defined in gdbtypes.h.
  30
  31    The main data structure is main_type; it consists of a code (such
  32    as #TYPE_CODE_ENUM for enumeration types), a number of
  33    generally-useful fields such as the printable name, and finally a
  34    field main_type::type_specific that is a union of info specific to
  35    particular languages or other special cases (such as calling
  36    convention).
  37
  38    The available type codes are defined in enum #type_code.  The enum
  39    includes codes both for types that are common across a variety
  40    of languages, and for types that are language-specific.
  41
  42    Most accesses to type fields go through macros such as
  43    #TYPE_CODE(thistype) and #TYPE_FN_FIELD_CONST(thisfn, n).  These are
  44    written such that they can be used as both rvalues and lvalues.
  45  */
  46
  47 #include "hashtab.h"
  48
  49 /* Forward declarations for prototypes.  */
  50 struct field;
  51 struct block;
  52 struct value_print_options;
  53 struct language_defn;
  54
  55 /* These declarations are DWARF-specific as some of the gdbtypes.h data types
  56    are already DWARF-specific.  */
  57
  58 /* * Offset relative to the start of its containing CU (compilation
  59    unit).  */
  60 typedef struct
  61 {
  62   unsigned int cu_off;
  63 } cu_offset;
  64
  65 /* * Offset relative to the start of its .debug_info or .debug_types
  66    section.  */
  67
  68 typedef struct
  69 {
  70   unsigned int sect_off;
  71 } sect_offset;
  72
  73 /* Some macros for char-based bitfields.  */
  74
  75 #define B_SET(a,x)      ((a)[(x)>>3] |= (1 << ((x)&7)))
  76 #define B_CLR(a,x)      ((a)[(x)>>3] &= ~(1 << ((x)&7)))
  77 #define B_TST(a,x)      ((a)[(x)>>3] & (1 << ((x)&7)))
  78 #define B_TYPE          unsigned char
  79 #define B_BYTES(x)      ( 1 + ((x)>>3) )
  80 #define B_CLRALL(a,x)   memset ((a), 0, B_BYTES(x))
  81
  82 /* * Different kinds of data types are distinguished by the `code'
  83    field.  */
  84
  85 enum type_code
  86   {
  87     TYPE_CODE_BITSTRING = -1,   /**< Deprecated  */
  88     TYPE_CODE_UNDEF = 0,        /**< Not used; catches errors */
  89     TYPE_CODE_PTR,              /**< Pointer type */
  90
  91     /* * Array type with lower & upper bounds.
  92
  93        Regardless of the language, GDB represents multidimensional
  94        array types the way C does: as arrays of arrays.  So an
  95        instance of a GDB array type T can always be seen as a series
  96        of instances of TYPE_TARGET_TYPE (T) laid out sequentially in
  97        memory.
  98
  99        Row-major languages like C lay out multi-dimensional arrays so
 100        that incrementing the rightmost index in a subscripting
 101        expression results in the smallest change in the address of the
 102        element referred to.  Column-major languages like Fortran lay
 103        them out so that incrementing the leftmost index results in the
 104        smallest change.
 105
 106        This means that, in column-major languages, working our way
 107        from type to target type corresponds to working through indices
 108        from right to left, not left to right.  */
 109     TYPE_CODE_ARRAY,
 110
 111     TYPE_CODE_STRUCT,           /**< C struct or Pascal record */
 112     TYPE_CODE_UNION,            /**< C union or Pascal variant part */
 113     TYPE_CODE_ENUM,             /**< Enumeration type */
 114     TYPE_CODE_FLAGS,            /**< Bit flags type */
 115     TYPE_CODE_FUNC,             /**< Function type */
 116     TYPE_CODE_INT,              /**< Integer type */
 117
 118     /* * Floating type.  This is *NOT* a complex type.  Beware, there
 119        are parts of GDB which bogusly assume that TYPE_CODE_FLT can
 120        mean complex.  */
 121     TYPE_CODE_FLT,
 122
 123     /* * Void type.  The length field specifies the length (probably
 124        always one) which is used in pointer arithmetic involving
 125        pointers to this type, but actually dereferencing such a
 126        pointer is invalid; a void type has no length and no actual
 127        representation in memory or registers.  A pointer to a void
 128        type is a generic pointer.  */
 129     TYPE_CODE_VOID,
 130
 131     TYPE_CODE_SET,              /**< Pascal sets */
 132     TYPE_CODE_RANGE,            /**< Range (integers within spec'd bounds).  */
 133
 134     /* * A string type which is like an array of character but prints
 135        differently (at least for (the deleted) CHILL).  It does not
 136        contain a length field as Pascal strings (for many Pascals,
 137        anyway) do; if we want to deal with such strings, we should use
 138        a new type code.  */
 139     TYPE_CODE_STRING,
 140
 141     /* * Unknown type.  The length field is valid if we were able to
 142        deduce that much about the type, or 0 if we don't even know
 143        that.  */
 144     TYPE_CODE_ERROR,
 145
 146     /* C++ */
 147     TYPE_CODE_METHOD,           /**< Method type */
 148
 149     /* * Pointer-to-member-function type.  This describes how to access a
 150        particular member function of a class (possibly a virtual
 151        member function).  The representation may vary between different
 152        C++ ABIs.  */
 153     TYPE_CODE_METHODPTR,
 154
 155     /* * Pointer-to-member type.  This is the offset within a class to
 156        some particular data member.  The only currently supported
 157        representation uses an unbiased offset, with -1 representing
 158        NULL; this is used by the Itanium C++ ABI (used by GCC on all
 159        platforms).  */
 160     TYPE_CODE_MEMBERPTR,
 161
 162     TYPE_CODE_REF,              /**< C++ Reference types */
 163
 164     TYPE_CODE_CHAR,             /**< *real* character type */
 165
 166     /* * Boolean type.  0 is false, 1 is true, and other values are
 167        non-boolean (e.g. FORTRAN "logical" used as unsigned int).  */
 168     TYPE_CODE_BOOL,
 169
 170     /* Fortran */
 171     TYPE_CODE_COMPLEX,          /**< Complex float */
 172
 173     TYPE_CODE_TYPEDEF,
 174
 175     TYPE_CODE_NAMESPACE,        /**< C++ namespace.  */
 176
 177     TYPE_CODE_DECFLOAT,         /**< Decimal floating point.  */
 178
 179     TYPE_CODE_MODULE,           /**< Fortran module.  */
 180
 181     /* * Internal function type.  */
 182     TYPE_CODE_INTERNAL_FUNCTION,
 183
 184     /* * Methods implemented in extension languages.  */
 185     TYPE_CODE_XMETHOD
 186   };
 187
 188 /* * For now allow source to use TYPE_CODE_CLASS for C++ classes, as
 189    an alias for TYPE_CODE_STRUCT.  This is for DWARF, which has a
 190    distinct "class" attribute.  Perhaps we should actually have a
 191    separate TYPE_CODE so that we can print "class" or "struct"
 192    depending on what the debug info said.  It's not clear we should
 193    bother.  */
 194
 195 #define TYPE_CODE_CLASS TYPE_CODE_STRUCT
 196
 197 /* * Some constants representing each bit field in the main_type.  See
 198    the bit-field-specific macros, below, for documentation of each
 199    constant in this enum.  These enum values are only used with
 200    init_type.  Note that the values are chosen not to conflict with
 201    type_instance_flag_value; this lets init_type error-check its
 202    input.  */
 203
 204 enum type_flag_value
 205 {
 206   TYPE_FLAG_UNSIGNED = (1 << 8),
 207   TYPE_FLAG_NOSIGN = (1 << 9),
 208   TYPE_FLAG_STUB = (1 << 10),
 209   TYPE_FLAG_TARGET_STUB = (1 << 11),
 210   TYPE_FLAG_STATIC = (1 << 12),
 211   TYPE_FLAG_PROTOTYPED = (1 << 13),
 212   TYPE_FLAG_INCOMPLETE = (1 << 14),
 213   TYPE_FLAG_VARARGS = (1 << 15),
 214   TYPE_FLAG_VECTOR = (1 << 16),
 215   TYPE_FLAG_FIXED_INSTANCE = (1 << 17),
 216   TYPE_FLAG_STUB_SUPPORTED = (1 << 18),
 217   TYPE_FLAG_GNU_IFUNC = (1 << 19),
 218
 219   /* * Used for error-checking.  */
 220   TYPE_FLAG_MIN = TYPE_FLAG_UNSIGNED
 221 };
 222
 223 /* * Some bits for the type's instance_flags word.  See the macros
 224    below for documentation on each bit.  Note that if you add a value
 225    here, you must update the enum type_flag_value as well.  */
 226
 227 enum type_instance_flag_value
 228 {
 229   TYPE_INSTANCE_FLAG_CONST = (1 << 0),
 230   TYPE_INSTANCE_FLAG_VOLATILE = (1 << 1),
 231   TYPE_INSTANCE_FLAG_CODE_SPACE = (1 << 2),
 232   TYPE_INSTANCE_FLAG_DATA_SPACE = (1 << 3),
 233   TYPE_INSTANCE_FLAG_ADDRESS_CLASS_1 = (1 << 4),
 234   TYPE_INSTANCE_FLAG_ADDRESS_CLASS_2 = (1 << 5),
 235   TYPE_INSTANCE_FLAG_NOTTEXT = (1 << 6),
 236   TYPE_INSTANCE_FLAG_RESTRICT = (1 << 7)
 237 };
 238
 239 /* * Unsigned integer type.  If this is not set for a TYPE_CODE_INT,
 240    the type is signed (unless TYPE_FLAG_NOSIGN (below) is set).  */
 241
 242 #define TYPE_UNSIGNED(t)        (TYPE_MAIN_TYPE (t)->flag_unsigned)
 243
 244 /* * No sign for this type.  In C++, "char", "signed char", and
 245    "unsigned char" are distinct types; so we need an extra flag to
 246    indicate the absence of a sign!  */
 247
 248 #define TYPE_NOSIGN(t)          (TYPE_MAIN_TYPE (t)->flag_nosign)
 249
 250 /* * This appears in a type's flags word if it is a stub type (e.g.,
 251    if someone referenced a type that wasn't defined in a source file
 252    via (struct sir_not_appearing_in_this_film *)).  */
 253
 254 #define TYPE_STUB(t)            (TYPE_MAIN_TYPE (t)->flag_stub)
 255
 256 /* * The target type of this type is a stub type, and this type needs
 257    to be updated if it gets un-stubbed in check_typedef.  Used for
 258    arrays and ranges, in which TYPE_LENGTH of the array/range gets set
 259    based on the TYPE_LENGTH of the target type.  Also, set for
 260    TYPE_CODE_TYPEDEF.  */
 261
 262 #define TYPE_TARGET_STUB(t)     (TYPE_MAIN_TYPE (t)->flag_target_stub)
 263
 264 /* * Static type.  If this is set, the corresponding type had
 265    a static modifier.
 266    Note: This may be unnecessary, since static data members
 267    are indicated by other means (bitpos == -1).  */
 268
 269 #define TYPE_STATIC(t)          (TYPE_MAIN_TYPE (t)->flag_static)
 270
 271 /* * This is a function type which appears to have a prototype.  We
 272    need this for function calls in order to tell us if it's necessary
 273    to coerce the args, or to just do the standard conversions.  This
 274    is used with a short field.  */
 275
 276 #define TYPE_PROTOTYPED(t)      (TYPE_MAIN_TYPE (t)->flag_prototyped)
 277
 278 /* * This flag is used to indicate that processing for this type
 279    is incomplete.
 280
 281    (Mostly intended for HP platforms, where class methods, for
 282    instance, can be encountered before their classes in the debug
 283    info; the incomplete type has to be marked so that the class and
 284    the method can be assigned correct types.)  */
 285
 286 #define TYPE_INCOMPLETE(t)      (TYPE_MAIN_TYPE (t)->flag_incomplete)
 287
 288 /* * FIXME drow/2002-06-03:  Only used for methods, but applies as well
 289    to functions.  */
 290
 291 #define TYPE_VARARGS(t)         (TYPE_MAIN_TYPE (t)->flag_varargs)
 292
 293 /* * Identify a vector type.  Gcc is handling this by adding an extra
 294    attribute to the array type.  We slurp that in as a new flag of a
 295    type.  This is used only in dwarf2read.c.  */
 296 #define TYPE_VECTOR(t)          (TYPE_MAIN_TYPE (t)->flag_vector)
 297
 298 /* * The debugging formats (especially STABS) do not contain enough
 299    information to represent all Ada types---especially those whose
 300    size depends on dynamic quantities.  Therefore, the GNAT Ada
 301    compiler includes extra information in the form of additional type
 302    definitions connected by naming conventions.  This flag indicates
 303    that the type is an ordinary (unencoded) GDB type that has been
 304    created from the necessary run-time information, and does not need
 305    further interpretation.  Optionally marks ordinary, fixed-size GDB
 306    type.  */
 307
 308 #define TYPE_FIXED_INSTANCE(t) (TYPE_MAIN_TYPE (t)->flag_fixed_instance)
 309
 310 /* * This debug target supports TYPE_STUB(t).  In the unsupported case
 311    we have to rely on NFIELDS to be zero etc., see TYPE_IS_OPAQUE().
 312    TYPE_STUB(t) with !TYPE_STUB_SUPPORTED(t) may exist if we only
 313    guessed the TYPE_STUB(t) value (see dwarfread.c).  */
 314
 315 #define TYPE_STUB_SUPPORTED(t)   (TYPE_MAIN_TYPE (t)->flag_stub_supported)
 316
 317 /* * Not textual.  By default, GDB treats all single byte integers as
 318    characters (or elements of strings) unless this flag is set.  */
 319
 320 #define TYPE_NOTTEXT(t) (TYPE_INSTANCE_FLAGS (t) & TYPE_INSTANCE_FLAG_NOTTEXT)
 321
 322 /* * Used only for TYPE_CODE_FUNC where it specifies the real function
 323    address is returned by this function call.  TYPE_TARGET_TYPE
 324    determines the final returned function type to be presented to
 325    user.  */
 326
 327 #define TYPE_GNU_IFUNC(t)       (TYPE_MAIN_TYPE (t)->flag_gnu_ifunc)
 328
 329 /* * Type owner.  If TYPE_OBJFILE_OWNED is true, the type is owned by
 330    the objfile retrieved as TYPE_OBJFILE.  Otherweise, the type is
 331    owned by an architecture; TYPE_OBJFILE is NULL in this case.  */
 332
 333 #define TYPE_OBJFILE_OWNED(t) (TYPE_MAIN_TYPE (t)->flag_objfile_owned)
 334 #define TYPE_OWNER(t) TYPE_MAIN_TYPE(t)->owner
 335 #define TYPE_OBJFILE(t) (TYPE_OBJFILE_OWNED(t)? TYPE_OWNER(t).objfile : NULL)
 336
 337 /* * True if this type was declared using the "class" keyword.  This is
 338    only valid for C++ structure and enum types.  If false, a structure
 339    was declared as a "struct"; if true it was declared "class".  For
 340    enum types, this is true when "enum class" or "enum struct" was
 341    used to declare the type..  */
 342
 343 #define TYPE_DECLARED_CLASS(t) (TYPE_MAIN_TYPE (t)->flag_declared_class)
 344
 345 /* * True if this type is a "flag" enum.  A flag enum is one where all
 346    the values are pairwise disjoint when "and"ed together.  This
 347    affects how enum values are printed.  */
 348
 349 #define TYPE_FLAG_ENUM(t) (TYPE_MAIN_TYPE (t)->flag_flag_enum)
 350
 351 /* * Constant type.  If this is set, the corresponding type has a
 352    const modifier.  */
 353
 354 #define TYPE_CONST(t) (TYPE_INSTANCE_FLAGS (t) & TYPE_INSTANCE_FLAG_CONST)
 355
 356 /* * Volatile type.  If this is set, the corresponding type has a
 357    volatile modifier.  */
 358
 359 #define TYPE_VOLATILE(t) \
 360   (TYPE_INSTANCE_FLAGS (t) & TYPE_INSTANCE_FLAG_VOLATILE)
 361
 362 /* * Restrict type.  If this is set, the corresponding type has a
 363    restrict modifier.  */
 364
 365 #define TYPE_RESTRICT(t) \
 366   (TYPE_INSTANCE_FLAGS (t) & TYPE_INSTANCE_FLAG_RESTRICT)
 367
 368 /* * Instruction-space delimited type.  This is for Harvard architectures
 369    which have separate instruction and data address spaces (and perhaps
 370    others).
 371
 372    GDB usually defines a flat address space that is a superset of the
 373    architecture's two (or more) address spaces, but this is an extension
 374    of the architecture's model.
 375
 376    If TYPE_FLAG_INST is set, an object of the corresponding type
 377    resides in instruction memory, even if its address (in the extended
 378    flat address space) does not reflect this.
 379
 380    Similarly, if TYPE_FLAG_DATA is set, then an object of the
 381    corresponding type resides in the data memory space, even if
 382    this is not indicated by its (flat address space) address.
 383
 384    If neither flag is set, the default space for functions / methods
 385    is instruction space, and for data objects is data memory.  */
 386
 387 #define TYPE_CODE_SPACE(t) \
 388   (TYPE_INSTANCE_FLAGS (t) & TYPE_INSTANCE_FLAG_CODE_SPACE)
 389
 390 #define TYPE_DATA_SPACE(t) \
 391   (TYPE_INSTANCE_FLAGS (t) & TYPE_INSTANCE_FLAG_DATA_SPACE)
 392
 393 /* * Address class flags.  Some environments provide for pointers
 394    whose size is different from that of a normal pointer or address
 395    types where the bits are interpreted differently than normal
 396    addresses.  The TYPE_FLAG_ADDRESS_CLASS_n flags may be used in
 397    target specific ways to represent these different types of address
 398    classes.  */
 399
 400 #define TYPE_ADDRESS_CLASS_1(t) (TYPE_INSTANCE_FLAGS(t) \
 401                                  & TYPE_INSTANCE_FLAG_ADDRESS_CLASS_1)
 402 #define TYPE_ADDRESS_CLASS_2(t) (TYPE_INSTANCE_FLAGS(t) \
 403                                  & TYPE_INSTANCE_FLAG_ADDRESS_CLASS_2)
 404 #define TYPE_INSTANCE_FLAG_ADDRESS_CLASS_ALL \
 405   (TYPE_INSTANCE_FLAG_ADDRESS_CLASS_1 | TYPE_INSTANCE_FLAG_ADDRESS_CLASS_2)
 406 #define TYPE_ADDRESS_CLASS_ALL(t) (TYPE_INSTANCE_FLAGS(t) \
 407                                    & TYPE_INSTANCE_FLAG_ADDRESS_CLASS_ALL)
 408
 409 /* * Used to store a dynamic property.  */
 410
 411 struct dynamic_prop
 412 {
 413   /* Determine which field of the union dynamic_prop.data is used.  */
 414   enum
 415   {
 416     PROP_UNDEFINED, /* Not defined.  */
 417     PROP_CONST,     /* Constant.  */
 418     PROP_LOCEXPR,   /* Location expression.  */
 419     PROP_LOCLIST    /* Location list.  */
 420   } kind;
 421
 422   /* Storage for dynamic or static value.  */
 423   union data
 424   {
 425     /* Storage for constant property.  */
 426
 427     LONGEST const_val;
 428
 429     /* Storage for dynamic property.  */
 430
 431     void *baton;
 432   } data;
 433 };
 434
 435
 436 /* * Determine which field of the union main_type.fields[x].loc is
 437    used.  */
 438
 439 enum field_loc_kind
 440   {
 441     FIELD_LOC_KIND_BITPOS,      /**< bitpos */
 442     FIELD_LOC_KIND_ENUMVAL,     /**< enumval */
 443     FIELD_LOC_KIND_PHYSADDR,    /**< physaddr */
 444     FIELD_LOC_KIND_PHYSNAME,    /**< physname */
 445     FIELD_LOC_KIND_DWARF_BLOCK  /**< dwarf_block */
 446   };
 447
 448 /* * A discriminant to determine which field in the
 449    main_type.type_specific union is being used, if any.
 450
 451    For types such as TYPE_CODE_FLT or TYPE_CODE_FUNC, the use of this
 452    discriminant is really redundant, as we know from the type code
 453    which field is going to be used.  As such, it would be possible to
 454    reduce the size of this enum in order to save a bit or two for
 455    other fields of struct main_type.  But, since we still have extra
 456    room , and for the sake of clarity and consistency, we treat all fields
 457    of the union the same way.  */
 458
 459 enum type_specific_kind
 460 {
 461   TYPE_SPECIFIC_NONE,
 462   TYPE_SPECIFIC_CPLUS_STUFF,
 463   TYPE_SPECIFIC_GNAT_STUFF,
 464   TYPE_SPECIFIC_FLOATFORMAT,
 465   TYPE_SPECIFIC_FUNC
 466 };
 467
 468 /* * Main structure representing a type in GDB.
 469
 470    This structure is space-critical.  Its layout has been tweaked to
 471    reduce the space used.  */
 472
 473 struct main_type
 474 {
 475   /* * Code for kind of type.  */
 476
 477   ENUM_BITFIELD(type_code) code : 8;
 478
 479   /* * Flags about this type.  These fields appear at this location
 480      because they packs nicely here.  See the TYPE_* macros for
 481      documentation about these fields.  */
 482
 483   unsigned int flag_unsigned : 1;
 484   unsigned int flag_nosign : 1;
 485   unsigned int flag_stub : 1;
 486   unsigned int flag_target_stub : 1;
 487   unsigned int flag_static : 1;
 488   unsigned int flag_prototyped : 1;
 489   unsigned int flag_incomplete : 1;
 490   unsigned int flag_varargs : 1;
 491   unsigned int flag_vector : 1;
 492   unsigned int flag_stub_supported : 1;
 493   unsigned int flag_gnu_ifunc : 1;
 494   unsigned int flag_fixed_instance : 1;
 495   unsigned int flag_objfile_owned : 1;
 496
 497   /* * True if this type was declared with "class" rather than
 498      "struct".  */
 499
 500   unsigned int flag_declared_class : 1;
 501
 502   /* * True if this is an enum type with disjoint values.  This
 503      affects how the enum is printed.  */
 504
 505   unsigned int flag_flag_enum : 1;
 506
 507   /* * A discriminant telling us which field of the type_specific
 508      union is being used for this type, if any.  */
 509
 510   ENUM_BITFIELD(type_specific_kind) type_specific_field : 3;
 511
 512   /* * Number of fields described for this type.  This field appears
 513      at this location because it packs nicely here.  */
 514
 515   short nfields;
 516
 517   /* * Field number of the virtual function table pointer in
 518      VPTR_BASETYPE.  If -1, we were unable to find the virtual
 519      function table pointer in initial symbol reading, and
 520      get_vptr_fieldno should be called to find it if possible.
 521      get_vptr_fieldno will update this field if possible.  Otherwise
 522      the value is left at -1.
 523
 524      Unused if this type does not have virtual functions.
 525
 526      This field appears at this location because it packs nicely here.  */
 527
 528   short vptr_fieldno;
 529
 530   /* * Name of this type, or NULL if none.
 531
 532      This is used for printing only, except by poorly designed C++
 533      code.  For looking up a name, look for a symbol in the
 534      VAR_DOMAIN.  This is generally allocated in the objfile's
 535      obstack.  However coffread.c uses malloc.  */
 536
 537   const char *name;
 538
 539   /* * Tag name for this type, or NULL if none.  This means that the
 540      name of the type consists of a keyword followed by the tag name.
 541      Which keyword is determined by the type code ("struct" for
 542      TYPE_CODE_STRUCT, etc.).  As far as I know C/C++ are the only
 543      languages with this feature.
 544
 545      This is used for printing only, except by poorly designed C++ code.
 546      For looking up a name, look for a symbol in the STRUCT_DOMAIN.
 547      One more legitimate use is that if TYPE_FLAG_STUB is set, this is
 548      the name to use to look for definitions in other files.  */
 549
 550   const char *tag_name;
 551
 552   /* * Every type is now associated with a particular objfile, and the
 553      type is allocated on the objfile_obstack for that objfile.  One
 554      problem however, is that there are times when gdb allocates new
 555      types while it is not in the process of reading symbols from a
 556      particular objfile.  Fortunately, these happen when the type
 557      being created is a derived type of an existing type, such as in
 558      lookup_pointer_type().  So we can just allocate the new type
 559      using the same objfile as the existing type, but to do this we
 560      need a backpointer to the objfile from the existing type.  Yes
 561      this is somewhat ugly, but without major overhaul of the internal
 562      type system, it can't be avoided for now.  */
 563
 564   union type_owner
 565     {
 566       struct objfile *objfile;
 567       struct gdbarch *gdbarch;
 568     } owner;
 569
 570   /* * For a pointer type, describes the type of object pointed to.
 571      - For an array type, describes the type of the elements.
 572      - For a function or method type, describes the type of the return value.
 573      - For a range type, describes the type of the full range.
 574      - For a complex type, describes the type of each coordinate.
 575      - For a special record or union type encoding a dynamic-sized type
 576      in GNAT, a memoized pointer to a corresponding static version of
 577      the type.
 578      - Unused otherwise.  */
 579
 580   struct type *target_type;
 581
 582   /* * For structure and union types, a description of each field.
 583      For set and pascal array types, there is one "field",
 584      whose type is the domain type of the set or array.
 585      For range types, there are two "fields",
 586      the minimum and maximum values (both inclusive).
 587      For enum types, each possible value is described by one "field".
 588      For a function or method type, a "field" for each parameter.
 589      For C++ classes, there is one field for each base class (if it is
 590      a derived class) plus one field for each class data member.  Member
 591      functions are recorded elsewhere.
 592
 593      Using a pointer to a separate array of fields
 594      allows all types to have the same size, which is useful
 595      because we can allocate the space for a type before
 596      we know what to put in it.  */
 597
 598   union
 599   {
 600     struct field
 601     {
 602       union field_location
 603       {
 604         /* * Position of this field, counting in bits from start of
 605            containing structure.  For gdbarch_bits_big_endian=1
 606            targets, it is the bit offset to the MSB.  For
 607            gdbarch_bits_big_endian=0 targets, it is the bit offset to
 608            the LSB.  */
 609
 610         int bitpos;
 611
 612         /* * Enum value.  */
 613         LONGEST enumval;
 614
 615         /* * For a static field, if TYPE_FIELD_STATIC_HAS_ADDR then
 616            physaddr is the location (in the target) of the static
 617            field.  Otherwise, physname is the mangled label of the
 618            static field.  */
 619
 620         CORE_ADDR physaddr;
 621         const char *physname;
 622
 623         /* * The field location can be computed by evaluating the
 624            following DWARF block.  Its DATA is allocated on
 625            objfile_obstack - no CU load is needed to access it.  */
 626
 627         struct dwarf2_locexpr_baton *dwarf_block;
 628       }
 629       loc;
 630
 631       /* * For a function or member type, this is 1 if the argument is
 632          marked artificial.  Artificial arguments should not be shown
 633          to the user.  For TYPE_CODE_RANGE it is set if the specific
 634          bound is not defined.  */
 635       unsigned int artificial : 1;
 636
 637       /* * Discriminant for union field_location.  */
 638       ENUM_BITFIELD(field_loc_kind) loc_kind : 3;
 639
 640       /* * Size of this field, in bits, or zero if not packed.
 641          If non-zero in an array type, indicates the element size in
 642          bits (used only in Ada at the moment).
 643          For an unpacked field, the field's type's length
 644          says how many bytes the field occupies.  */
 645
 646       unsigned int bitsize : 28;
 647
 648       /* * In a struct or union type, type of this field.
 649          - In a function or member type, type of this argument.
 650          - In an array type, the domain-type of the array.  */
 651
 652       struct type *type;
 653
 654       /* * Name of field, value or argument.
 655          NULL for range bounds, array domains, and member function
 656          arguments.  */
 657
 658       const char *name;
 659     } *fields;
 660
 661     /* * Union member used for range types.  */
 662
 663     struct range_bounds
 664     {
 665       /* * Low bound of range.  */
 666
 667       struct dynamic_prop low;
 668
 669       /* * High bound of range.  */
 670
 671       struct dynamic_prop high;
 672
 673       /* True if HIGH range bound contains the number of elements in the
 674          subrange. This affects how the final hight bound is computed.  */
 675
 676       int flag_upper_bound_is_count : 1;
 677
 678       /* True if LOW or/and HIGH are resolved into a static bound from
 679          a dynamic one.  */
 680
 681       int flag_bound_evaluated : 1;
 682     } *bounds;
 683
 684   } flds_bnds;
 685
 686   /* * For types with virtual functions (TYPE_CODE_STRUCT),
 687      VPTR_BASETYPE is the base class which defined the virtual
 688      function table pointer.
 689
 690      For types that are pointer to member types (TYPE_CODE_METHODPTR,
 691      TYPE_CODE_MEMBERPTR), VPTR_BASETYPE is the type that this pointer
 692      is a member of.
 693
 694      For method types (TYPE_CODE_METHOD), VPTR_BASETYPE is the aggregate
 695      type that contains the method.
 696
 697      Unused otherwise.  */
 698
 699   struct type *vptr_basetype;
 700
 701   /* * Slot to point to additional language-specific fields of this
 702      type.  */
 703
 704   union type_specific
 705   {
 706     /* * CPLUS_STUFF is for TYPE_CODE_STRUCT.  It is initialized to
 707        point to cplus_struct_default, a default static instance of a
 708        struct cplus_struct_type.  */
 709
 710     struct cplus_struct_type *cplus_stuff;
 711
 712     /* * GNAT_STUFF is for types for which the GNAT Ada compiler
 713        provides additional information.  */
 714
 715     struct gnat_aux_type *gnat_stuff;
 716
 717     /* * FLOATFORMAT is for TYPE_CODE_FLT.  It is a pointer to two
 718        floatformat objects that describe the floating-point value
 719        that resides within the type.  The first is for big endian
 720        targets and the second is for little endian targets.  */
 721
 722     const struct floatformat **floatformat;
 723
 724     /* * For TYPE_CODE_FUNC types,  */
 725
 726     struct func_type *func_stuff;
 727   } type_specific;
 728 };
 729
 730 /* * A ``struct type'' describes a particular instance of a type, with
 731    some particular qualification.  */
 732
 733 struct type
 734 {
 735   /* * Type that is a pointer to this type.
 736      NULL if no such pointer-to type is known yet.
 737      The debugger may add the address of such a type
 738      if it has to construct one later.  */
 739
 740   struct type *pointer_type;
 741
 742   /* * C++: also need a reference type.  */
 743
 744   struct type *reference_type;
 745
 746   /* * Variant chain.  This points to a type that differs from this
 747      one only in qualifiers and length.  Currently, the possible
 748      qualifiers are const, volatile, code-space, data-space, and
 749      address class.  The length may differ only when one of the
 750      address class flags are set.  The variants are linked in a
 751      circular ring and share MAIN_TYPE.  */
 752
 753   struct type *chain;
 754
 755   /* * Flags specific to this instance of the type, indicating where
 756      on the ring we are.
 757
 758      For TYPE_CODE_TYPEDEF the flags of the typedef type should be
 759      binary or-ed with the target type, with a special case for
 760      address class and space class.  For example if this typedef does
 761      not specify any new qualifiers, TYPE_INSTANCE_FLAGS is 0 and the
 762      instance flags are completely inherited from the target type.  No
 763      qualifiers can be cleared by the typedef.  See also
 764      check_typedef.  */
 765   int instance_flags;
 766
 767   /* * Length of storage for a value of this type.  This is what
 768      sizeof(type) would return; use it for address arithmetic, memory
 769      reads and writes, etc.  This size includes padding.  For example,
 770      an i386 extended-precision floating point value really only
 771      occupies ten bytes, but most ABI's declare its size to be 12
 772      bytes, to preserve alignment.  A `struct type' representing such
 773      a floating-point type would have a `length' value of 12, even
 774      though the last two bytes are unused.
 775
 776      There's a bit of a host/target mess here, if you're concerned
 777      about machines whose bytes aren't eight bits long, or who don't
 778      have byte-addressed memory.  Various places pass this to memcpy
 779      and such, meaning it must be in units of host bytes.  Various
 780      other places expect they can calculate addresses by adding it
 781      and such, meaning it must be in units of target bytes.  For
 782      some DSP targets, in which HOST_CHAR_BIT will (presumably) be 8
 783      and TARGET_CHAR_BIT will be (say) 32, this is a problem.
 784
 785      One fix would be to make this field in bits (requiring that it
 786      always be a multiple of HOST_CHAR_BIT and TARGET_CHAR_BIT) ---
 787      the other choice would be to make it consistently in units of
 788      HOST_CHAR_BIT.  However, this would still fail to address
 789      machines based on a ternary or decimal representation.  */
 790
 791   unsigned length;
 792
 793   /* * Core type, shared by a group of qualified types.  */
 794
 795   struct main_type *main_type;
 796 };
 797
 798 #define NULL_TYPE ((struct type *) 0)
 799
 800 /* * C++ language-specific information for TYPE_CODE_STRUCT and
 801    TYPE_CODE_UNION nodes.  */
 802
 803 struct cplus_struct_type
 804   {
 805     /* * Number of base classes this type derives from.  The
 806        baseclasses are stored in the first N_BASECLASSES fields
 807        (i.e. the `fields' field of the struct type).  I think only the
 808        `type' field of such a field has any meaning.  */
 809
 810     short n_baseclasses;
 811
 812     /* * Number of methods with unique names.  All overloaded methods
 813        with the same name count only once.  */
 814
 815     short nfn_fields;
 816
 817     /* * Number of template arguments.  */
 818
 819     unsigned short n_template_arguments;
 820
 821     /* * One if this struct is a dynamic class, as defined by the
 822        Itanium C++ ABI: if it requires a virtual table pointer,
 823        because it or any of its base classes have one or more virtual
 824        member functions or virtual base classes.  Minus one if not
 825        dynamic.  Zero if not yet computed.  */
 826
 827     int is_dynamic : 2;
 828
 829     /* * Non-zero if this type came from a Java CU.  */
 830
 831     unsigned int is_java : 1;
 832
 833     /* * For derived classes, the number of base classes is given by
 834        n_baseclasses and virtual_field_bits is a bit vector containing
 835        one bit per base class.  If the base class is virtual, the
 836        corresponding bit will be set.
 837        I.E, given:
 838
 839        class A{};
 840        class B{};
 841        class C : public B, public virtual A {};
 842
 843        B is a baseclass of C; A is a virtual baseclass for C.
 844        This is a C++ 2.0 language feature.  */
 845
 846     B_TYPE *virtual_field_bits;
 847
 848     /* * For classes with private fields, the number of fields is
 849        given by nfields and private_field_bits is a bit vector
 850        containing one bit per field.
 851
 852        If the field is private, the corresponding bit will be set.  */
 853
 854     B_TYPE *private_field_bits;
 855
 856     /* * For classes with protected fields, the number of fields is
 857        given by nfields and protected_field_bits is a bit vector
 858        containing one bit per field.
 859
 860        If the field is private, the corresponding bit will be set.  */
 861
 862     B_TYPE *protected_field_bits;
 863
 864     /* * For classes with fields to be ignored, either this is
 865        optimized out or this field has length 0.  */
 866
 867     B_TYPE *ignore_field_bits;
 868
 869     /* * For classes, structures, and unions, a description of each
 870        field, which consists of an overloaded name, followed by the
 871        types of arguments that the method expects, and then the name
 872        after it has been renamed to make it distinct.
 873
 874        fn_fieldlists points to an array of nfn_fields of these.  */
 875
 876     struct fn_fieldlist
 877       {
 878
 879         /* * The overloaded name.
 880            This is generally allocated in the objfile's obstack.
 881            However stabsread.c sometimes uses malloc.  */
 882
 883         const char *name;
 884
 885         /* * The number of methods with this name.  */
 886
 887         int length;
 888
 889         /* * The list of methods.  */
 890
 891         struct fn_field
 892           {
 893
 894             /* * If is_stub is clear, this is the mangled name which
 895                we can look up to find the address of the method
 896                (FIXME: it would be cleaner to have a pointer to the
 897                struct symbol here instead).
 898
 899                If is_stub is set, this is the portion of the mangled
 900                name which specifies the arguments.  For example, "ii",
 901                if there are two int arguments, or "" if there are no
 902                arguments.  See gdb_mangle_name for the conversion from
 903                this format to the one used if is_stub is clear.  */
 904
 905             const char *physname;
 906
 907             /* * The function type for the method.
 908
 909                (This comment used to say "The return value of the
 910                method", but that's wrong.  The function type is
 911                expected here, i.e. something with TYPE_CODE_FUNC, and
 912                *not* the return-value type).  */
 913
 914             struct type *type;
 915
 916             /* * For virtual functions.
 917                First baseclass that defines this virtual function.  */
 918
 919             struct type *fcontext;
 920
 921             /* Attributes.  */
 922
 923             unsigned int is_const:1;
 924             unsigned int is_volatile:1;
 925             unsigned int is_private:1;
 926             unsigned int is_protected:1;
 927             unsigned int is_public:1;
 928             unsigned int is_abstract:1;
 929             unsigned int is_static:1;
 930             unsigned int is_final:1;
 931             unsigned int is_synchronized:1;
 932             unsigned int is_native:1;
 933             unsigned int is_artificial:1;
 934
 935             /* * A stub method only has some fields valid (but they
 936                are enough to reconstruct the rest of the fields).  */
 937
 938             unsigned int is_stub:1;
 939
 940             /* * True if this function is a constructor, false
 941                otherwise.  */
 942
 943             unsigned int is_constructor : 1;
 944
 945             /* * Unused.  */
 946
 947             unsigned int dummy:3;
 948
 949             /* * Index into that baseclass's virtual function table,
 950                minus 2; else if static: VOFFSET_STATIC; else: 0.  */
 951
 952             unsigned int voffset:16;
 953
 954 #define VOFFSET_STATIC 1
 955
 956           }
 957          *fn_fields;
 958
 959       }
 960      *fn_fieldlists;
 961
 962     /* * typedefs defined inside this class.  typedef_field points to
 963        an array of typedef_field_count elements.  */
 964
 965     struct typedef_field
 966       {
 967         /* * Unqualified name to be prefixed by owning class qualified
 968            name.  */
 969
 970         const char *name;
 971
 972         /* * Type this typedef named NAME represents.  */
 973
 974         struct type *type;
 975       }
 976     *typedef_field;
 977     unsigned typedef_field_count;
 978
 979     /* * The template arguments.  This is an array with
 980        N_TEMPLATE_ARGUMENTS elements.  This is NULL for non-template
 981        classes.  */
 982
 983     struct symbol **template_arguments;
 984   };
 985
 986 /* * Struct used to store conversion rankings.  */
 987
 988 struct rank
 989   {
 990     short rank;
 991
 992     /* * When two conversions are of the same type and therefore have
 993        the same rank, subrank is used to differentiate the two.
 994
 995        Eg: Two derived-class-pointer to base-class-pointer conversions
 996        would both have base pointer conversion rank, but the
 997        conversion with the shorter distance to the ancestor is
 998        preferable.  'subrank' would be used to reflect that.  */
 999
1000     short subrank;
1001   };
1002
1003 /* * Struct used for ranking a function for overload resolution.  */
1004
1005 struct badness_vector
1006   {
1007     int length;
1008     struct rank *rank;
1009   };
1010
1011 /* * GNAT Ada-specific information for various Ada types.  */
1012
1013 struct gnat_aux_type
1014   {
1015     /* * Parallel type used to encode information about dynamic types
1016        used in Ada (such as variant records, variable-size array,
1017        etc).  */
1018     struct type* descriptive_type;
1019   };
1020
1021 /* * For TYPE_CODE_FUNC types.  */
1022
1023 struct func_type
1024   {
1025     /* * The calling convention for targets supporting multiple ABIs.
1026        Right now this is only fetched from the Dwarf-2
1027        DW_AT_calling_convention attribute.  */
1028
1029     unsigned calling_convention;
1030
1031     /* * Only those DW_TAG_GNU_call_site's in this function that have
1032        DW_AT_GNU_tail_call set are linked in this list.  Function
1033        without its tail call list complete
1034        (DW_AT_GNU_all_tail_call_sites or its superset
1035        DW_AT_GNU_all_call_sites) has TAIL_CALL_LIST NULL, even if some
1036        DW_TAG_GNU_call_site's exist in such function. */
1037
1038     struct call_site *tail_call_list;
1039   };
1040
1041 /* struct call_site_parameter can be referenced in callees by several ways.  */
1042
1043 enum call_site_parameter_kind
1044 {
1045   /* * Use field call_site_parameter.u.dwarf_reg.  */
1046   CALL_SITE_PARAMETER_DWARF_REG,
1047
1048   /* * Use field call_site_parameter.u.fb_offset.  */
1049   CALL_SITE_PARAMETER_FB_OFFSET,
1050
1051   /* * Use field call_site_parameter.u.param_offset.  */
1052   CALL_SITE_PARAMETER_PARAM_OFFSET
1053 };
1054
1055 /* * A place where a function gets called from, represented by
1056    DW_TAG_GNU_call_site.  It can be looked up from
1057    symtab->call_site_htab.  */
1058
1059 struct call_site
1060   {
1061     /* * Address of the first instruction after this call.  It must be
1062        the first field as we overload core_addr_hash and core_addr_eq
1063        for it.  */
1064
1065     CORE_ADDR pc;
1066
1067     /* * List successor with head in FUNC_TYPE.TAIL_CALL_LIST.  */
1068
1069     struct call_site *tail_call_next;
1070
1071     /* * Describe DW_AT_GNU_call_site_target.  Missing attribute uses
1072        FIELD_LOC_KIND_DWARF_BLOCK with FIELD_DWARF_BLOCK == NULL.  */
1073
1074     struct
1075       {
1076         union field_location loc;
1077
1078         /* * Discriminant for union field_location.  */
1079
1080         ENUM_BITFIELD(field_loc_kind) loc_kind : 3;
1081       }
1082     target;
1083
1084     /* * Size of the PARAMETER array.  */
1085
1086     unsigned parameter_count;
1087
1088     /* * CU of the function where the call is located.  It gets used
1089        for DWARF blocks execution in the parameter array below.  */
1090
1091     struct dwarf2_per_cu_data *per_cu;
1092
1093     /* * Describe DW_TAG_GNU_call_site's DW_TAG_formal_parameter.  */
1094
1095     struct call_site_parameter
1096       {
1097         ENUM_BITFIELD (call_site_parameter_kind) kind : 2;
1098
1099         union call_site_parameter_u
1100           {
1101             /* * DW_TAG_formal_parameter's DW_AT_location's DW_OP_regX
1102                as DWARF register number, for register passed
1103                parameters.  */
1104
1105             int dwarf_reg;
1106
1107             /* * Offset from the callee's frame base, for stack passed
1108                parameters.  This equals offset from the caller's stack
1109                pointer.  */
1110
1111             CORE_ADDR fb_offset;
1112
1113             /* * Offset relative to the start of this PER_CU to
1114                DW_TAG_formal_parameter which is referenced by both
1115                caller and the callee.  */
1116
1117             cu_offset param_offset;
1118           }
1119         u;
1120
1121         /* * DW_TAG_formal_parameter's DW_AT_GNU_call_site_value.  It
1122            is never NULL.  */
1123
1124         const gdb_byte *value;
1125         size_t value_size;
1126
1127         /* * DW_TAG_formal_parameter's DW_AT_GNU_call_site_data_value.
1128            It may be NULL if not provided by DWARF.  */
1129
1130         const gdb_byte *data_value;
1131         size_t data_value_size;
1132       }
1133     parameter[1];
1134   };
1135
1136 /* * The default value of TYPE_CPLUS_SPECIFIC(T) points to this shared
1137    static structure.  */
1138
1139 extern const struct cplus_struct_type cplus_struct_default;
1140
1141 extern void allocate_cplus_struct_type (struct type *);
1142
1143 #define INIT_CPLUS_SPECIFIC(type) \
1144   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_CPLUS_STUFF, \
1145    TYPE_RAW_CPLUS_SPECIFIC (type) = (struct cplus_struct_type*) \
1146    &cplus_struct_default)
1147
1148 #define ALLOCATE_CPLUS_STRUCT_TYPE(type) allocate_cplus_struct_type (type)
1149
1150 #define HAVE_CPLUS_STRUCT(type) \
1151   (TYPE_SPECIFIC_FIELD (type) == TYPE_SPECIFIC_CPLUS_STUFF \
1152    && TYPE_RAW_CPLUS_SPECIFIC (type) !=  &cplus_struct_default)
1153
1154 extern const struct gnat_aux_type gnat_aux_default;
1155
1156 extern void allocate_gnat_aux_type (struct type *);
1157
1158 #define INIT_GNAT_SPECIFIC(type) \
1159   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_GNAT_STUFF, \
1160    TYPE_GNAT_SPECIFIC (type) = (struct gnat_aux_type *) &gnat_aux_default)
1161 #define ALLOCATE_GNAT_AUX_TYPE(type) allocate_gnat_aux_type (type)
1162 /* * A macro that returns non-zero if the type-specific data should be
1163    read as "gnat-stuff".  */
1164 #define HAVE_GNAT_AUX_INFO(type) \
1165   (TYPE_SPECIFIC_FIELD (type) == TYPE_SPECIFIC_GNAT_STUFF)
1166
1167 #define INIT_FUNC_SPECIFIC(type)                                               \
1168   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_FUNC,                            \
1169    TYPE_MAIN_TYPE (type)->type_specific.func_stuff                             \
1170      = TYPE_ZALLOC (type,                                                      \
1171                     sizeof (*TYPE_MAIN_TYPE (type)->type_specific.func_stuff)))
1172
1173 #define TYPE_INSTANCE_FLAGS(thistype) (thistype)->instance_flags
1174 #define TYPE_MAIN_TYPE(thistype) (thistype)->main_type
1175 #define TYPE_NAME(thistype) TYPE_MAIN_TYPE(thistype)->name
1176 #define TYPE_TAG_NAME(type) TYPE_MAIN_TYPE(type)->tag_name
1177 #define TYPE_TARGET_TYPE(thistype) TYPE_MAIN_TYPE(thistype)->target_type
1178 #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type
1179 #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type
1180 #define TYPE_CHAIN(thistype) (thistype)->chain
1181 /* * Note that if thistype is a TYPEDEF type, you have to call check_typedef.
1182    But check_typedef does set the TYPE_LENGTH of the TYPEDEF type,
1183    so you only have to call check_typedef once.  Since allocate_value
1184    calls check_typedef, TYPE_LENGTH (VALUE_TYPE (X)) is safe.  */
1185 #define TYPE_LENGTH(thistype) (thistype)->length
1186 /* * Note that TYPE_CODE can be TYPE_CODE_TYPEDEF, so if you want the real
1187    type, you need to do TYPE_CODE (check_type (this_type)).  */
1188 #define TYPE_CODE(thistype) TYPE_MAIN_TYPE(thistype)->code
1189 #define TYPE_NFIELDS(thistype) TYPE_MAIN_TYPE(thistype)->nfields
1190 #define TYPE_FIELDS(thistype) TYPE_MAIN_TYPE(thistype)->flds_bnds.fields
1191
1192 #define TYPE_INDEX_TYPE(type) TYPE_FIELD_TYPE (type, 0)
1193 #define TYPE_RANGE_DATA(thistype) TYPE_MAIN_TYPE(thistype)->flds_bnds.bounds
1194 #define TYPE_LOW_BOUND(range_type) \
1195   TYPE_RANGE_DATA(range_type)->low.data.const_val
1196 #define TYPE_HIGH_BOUND(range_type) \
1197   TYPE_RANGE_DATA(range_type)->high.data.const_val
1198 #define TYPE_LOW_BOUND_UNDEFINED(range_type) \
1199   (TYPE_RANGE_DATA(range_type)->low.kind == PROP_UNDEFINED)
1200 #define TYPE_HIGH_BOUND_UNDEFINED(range_type) \
1201   (TYPE_RANGE_DATA(range_type)->high.kind == PROP_UNDEFINED)
1202 #define TYPE_HIGH_BOUND_KIND(range_type) \
1203   TYPE_RANGE_DATA(range_type)->high.kind
1204 #define TYPE_LOW_BOUND_KIND(range_type) \
1205   TYPE_RANGE_DATA(range_type)->low.kind
1206
1207 /* Moto-specific stuff for FORTRAN arrays.  */
1208
1209 #define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype) \
1210    TYPE_HIGH_BOUND_UNDEFINED(TYPE_INDEX_TYPE(arraytype))
1211 #define TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED(arraytype) \
1212    TYPE_LOW_BOUND_UNDEFINED(TYPE_INDEX_TYPE(arraytype))
1213
1214 #define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \
1215    (TYPE_HIGH_BOUND(TYPE_INDEX_TYPE((arraytype))))
1216
1217 #define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype) \
1218    (TYPE_LOW_BOUND(TYPE_INDEX_TYPE((arraytype))))
1219
1220 /* C++ */
1221
1222 #define TYPE_VPTR_BASETYPE(thistype) TYPE_MAIN_TYPE(thistype)->vptr_basetype
1223 #define TYPE_DOMAIN_TYPE(thistype) TYPE_MAIN_TYPE(thistype)->vptr_basetype
1224 #define TYPE_VPTR_FIELDNO(thistype) TYPE_MAIN_TYPE(thistype)->vptr_fieldno
1225 #define TYPE_NFN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields
1226 #define TYPE_SPECIFIC_FIELD(thistype) \
1227   TYPE_MAIN_TYPE(thistype)->type_specific_field
1228 #define TYPE_TYPE_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific
1229 /* We need this tap-dance with the TYPE_RAW_SPECIFIC because of the case
1230    where we're trying to print an Ada array using the C language.
1231    In that case, there is no "cplus_stuff", but the C language assumes
1232    that there is.  What we do, in that case, is pretend that there is
1233    an implicit one which is the default cplus stuff.  */
1234 #define TYPE_CPLUS_SPECIFIC(thistype) \
1235    (!HAVE_CPLUS_STRUCT(thistype) \
1236     ? (struct cplus_struct_type*)&cplus_struct_default \
1237     : TYPE_RAW_CPLUS_SPECIFIC(thistype))
1238 #define TYPE_RAW_CPLUS_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.cplus_stuff
1239 #define TYPE_FLOATFORMAT(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.floatformat
1240 #define TYPE_GNAT_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.gnat_stuff
1241 #define TYPE_DESCRIPTIVE_TYPE(thistype) TYPE_GNAT_SPECIFIC(thistype)->descriptive_type
1242 #define TYPE_CALLING_CONVENTION(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.func_stuff->calling_convention
1243 #define TYPE_TAIL_CALL_LIST(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.func_stuff->tail_call_list
1244 #define TYPE_BASECLASS(thistype,index) TYPE_FIELD_TYPE(thistype, index)
1245 #define TYPE_N_BASECLASSES(thistype) TYPE_CPLUS_SPECIFIC(thistype)->n_baseclasses
1246 #define TYPE_BASECLASS_NAME(thistype,index) TYPE_FIELD_NAME(thistype, index)
1247 #define TYPE_BASECLASS_BITPOS(thistype,index) TYPE_FIELD_BITPOS(thistype,index)
1248 #define BASETYPE_VIA_PUBLIC(thistype, index) \
1249   ((!TYPE_FIELD_PRIVATE(thistype, index)) && (!TYPE_FIELD_PROTECTED(thistype, index)))
1250 #define TYPE_CPLUS_DYNAMIC(thistype) TYPE_CPLUS_SPECIFIC (thistype)->is_dynamic
1251 #define TYPE_CPLUS_REALLY_JAVA(thistype) TYPE_CPLUS_SPECIFIC (thistype)->is_java
1252
1253 #define BASETYPE_VIA_VIRTUAL(thistype, index) \
1254   (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \
1255     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (index)))
1256
1257 #define FIELD_TYPE(thisfld) ((thisfld).type)
1258 #define FIELD_NAME(thisfld) ((thisfld).name)
1259 #define FIELD_LOC_KIND(thisfld) ((thisfld).loc_kind)
1260 #define FIELD_BITPOS_LVAL(thisfld) ((thisfld).loc.bitpos)
1261 #define FIELD_BITPOS(thisfld) (FIELD_BITPOS_LVAL (thisfld) + 0)
1262 #define FIELD_ENUMVAL_LVAL(thisfld) ((thisfld).loc.enumval)
1263 #define FIELD_ENUMVAL(thisfld) (FIELD_ENUMVAL_LVAL (thisfld) + 0)
1264 #define FIELD_STATIC_PHYSNAME(thisfld) ((thisfld).loc.physname)
1265 #define FIELD_STATIC_PHYSADDR(thisfld) ((thisfld).loc.physaddr)
1266 #define FIELD_DWARF_BLOCK(thisfld) ((thisfld).loc.dwarf_block)
1267 #define SET_FIELD_BITPOS(thisfld, bitpos)                       \
1268   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_BITPOS,            \
1269    FIELD_BITPOS_LVAL (thisfld) = (bitpos))
1270 #define SET_FIELD_ENUMVAL(thisfld, enumval)                     \
1271   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_ENUMVAL,           \
1272    FIELD_ENUMVAL_LVAL (thisfld) = (enumval))
1273 #define SET_FIELD_PHYSNAME(thisfld, name)                       \
1274   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_PHYSNAME,          \
1275    FIELD_STATIC_PHYSNAME (thisfld) = (name))
1276 #define SET_FIELD_PHYSADDR(thisfld, addr)                       \
1277   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_PHYSADDR,          \
1278    FIELD_STATIC_PHYSADDR (thisfld) = (addr))
1279 #define SET_FIELD_DWARF_BLOCK(thisfld, addr)                    \
1280   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_DWARF_BLOCK,       \
1281    FIELD_DWARF_BLOCK (thisfld) = (addr))
1282 #define FIELD_ARTIFICIAL(thisfld) ((thisfld).artificial)
1283 #define FIELD_BITSIZE(thisfld) ((thisfld).bitsize)
1284
1285 #define TYPE_FIELD(thistype, n) TYPE_MAIN_TYPE(thistype)->flds_bnds.fields[n]
1286 #define TYPE_FIELD_TYPE(thistype, n) FIELD_TYPE(TYPE_FIELD(thistype, n))
1287 #define TYPE_FIELD_NAME(thistype, n) FIELD_NAME(TYPE_FIELD(thistype, n))
1288 #define TYPE_FIELD_LOC_KIND(thistype, n) FIELD_LOC_KIND (TYPE_FIELD (thistype, n))
1289 #define TYPE_FIELD_BITPOS(thistype, n) FIELD_BITPOS (TYPE_FIELD (thistype, n))
1290 #define TYPE_FIELD_ENUMVAL(thistype, n) FIELD_ENUMVAL (TYPE_FIELD (thistype, n))
1291 #define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) FIELD_STATIC_PHYSNAME (TYPE_FIELD (thistype, n))
1292 #define TYPE_FIELD_STATIC_PHYSADDR(thistype, n) FIELD_STATIC_PHYSADDR (TYPE_FIELD (thistype, n))
1293 #define TYPE_FIELD_DWARF_BLOCK(thistype, n) FIELD_DWARF_BLOCK (TYPE_FIELD (thistype, n))
1294 #define TYPE_FIELD_ARTIFICIAL(thistype, n) FIELD_ARTIFICIAL(TYPE_FIELD(thistype,n))
1295 #define TYPE_FIELD_BITSIZE(thistype, n) FIELD_BITSIZE(TYPE_FIELD(thistype,n))
1296 #define TYPE_FIELD_PACKED(thistype, n) (FIELD_BITSIZE(TYPE_FIELD(thistype,n))!=0)
1297
1298 #define TYPE_FIELD_PRIVATE_BITS(thistype) \
1299   TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits
1300 #define TYPE_FIELD_PROTECTED_BITS(thistype) \
1301   TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits
1302 #define TYPE_FIELD_IGNORE_BITS(thistype) \
1303   TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits
1304 #define TYPE_FIELD_VIRTUAL_BITS(thistype) \
1305   TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits
1306 #define SET_TYPE_FIELD_PRIVATE(thistype, n) \
1307   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n))
1308 #define SET_TYPE_FIELD_PROTECTED(thistype, n) \
1309   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n))
1310 #define SET_TYPE_FIELD_IGNORE(thistype, n) \
1311   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n))
1312 #define SET_TYPE_FIELD_VIRTUAL(thistype, n) \
1313   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n))
1314 #define TYPE_FIELD_PRIVATE(thistype, n) \
1315   (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits == NULL ? 0 \
1316     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n)))
1317 #define TYPE_FIELD_PROTECTED(thistype, n) \
1318   (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits == NULL ? 0 \
1319     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n)))
1320 #define TYPE_FIELD_IGNORE(thistype, n) \
1321   (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits == NULL ? 0 \
1322     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n)))
1323 #define TYPE_FIELD_VIRTUAL(thistype, n) \
1324   (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \
1325     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n)))
1326
1327 #define TYPE_FN_FIELDLISTS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists
1328 #define TYPE_FN_FIELDLIST(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n]
1329 #define TYPE_FN_FIELDLIST1(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].fn_fields
1330 #define TYPE_FN_FIELDLIST_NAME(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].name
1331 #define TYPE_FN_FIELDLIST_LENGTH(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].length
1332
1333 #define TYPE_N_TEMPLATE_ARGUMENTS(thistype) \
1334   TYPE_CPLUS_SPECIFIC (thistype)->n_template_arguments
1335 #define TYPE_TEMPLATE_ARGUMENTS(thistype) \
1336   TYPE_CPLUS_SPECIFIC (thistype)->template_arguments
1337 #define TYPE_TEMPLATE_ARGUMENT(thistype, n) \
1338   TYPE_CPLUS_SPECIFIC (thistype)->template_arguments[n]
1339
1340 #define TYPE_FN_FIELD(thisfn, n) (thisfn)[n]
1341 #define TYPE_FN_FIELD_PHYSNAME(thisfn, n) (thisfn)[n].physname
1342 #define TYPE_FN_FIELD_TYPE(thisfn, n) (thisfn)[n].type
1343 #define TYPE_FN_FIELD_ARGS(thisfn, n) TYPE_FIELDS ((thisfn)[n].type)
1344 #define TYPE_FN_FIELD_CONST(thisfn, n) ((thisfn)[n].is_const)
1345 #define TYPE_FN_FIELD_VOLATILE(thisfn, n) ((thisfn)[n].is_volatile)
1346 #define TYPE_FN_FIELD_PRIVATE(thisfn, n) ((thisfn)[n].is_private)
1347 #define TYPE_FN_FIELD_PROTECTED(thisfn, n) ((thisfn)[n].is_protected)
1348 #define TYPE_FN_FIELD_PUBLIC(thisfn, n) ((thisfn)[n].is_public)
1349 #define TYPE_FN_FIELD_STATIC(thisfn, n) ((thisfn)[n].is_static)
1350 #define TYPE_FN_FIELD_FINAL(thisfn, n) ((thisfn)[n].is_final)
1351 #define TYPE_FN_FIELD_SYNCHRONIZED(thisfn, n) ((thisfn)[n].is_synchronized)
1352 #define TYPE_FN_FIELD_NATIVE(thisfn, n) ((thisfn)[n].is_native)
1353 #define TYPE_FN_FIELD_ARTIFICIAL(thisfn, n) ((thisfn)[n].is_artificial)
1354 #define TYPE_FN_FIELD_ABSTRACT(thisfn, n) ((thisfn)[n].is_abstract)
1355 #define TYPE_FN_FIELD_STUB(thisfn, n) ((thisfn)[n].is_stub)
1356 #define TYPE_FN_FIELD_CONSTRUCTOR(thisfn, n) ((thisfn)[n].is_constructor)
1357 #define TYPE_FN_FIELD_FCONTEXT(thisfn, n) ((thisfn)[n].fcontext)
1358 #define TYPE_FN_FIELD_VOFFSET(thisfn, n) ((thisfn)[n].voffset-2)
1359 #define TYPE_FN_FIELD_VIRTUAL_P(thisfn, n) ((thisfn)[n].voffset > 1)
1360 #define TYPE_FN_FIELD_STATIC_P(thisfn, n) ((thisfn)[n].voffset == VOFFSET_STATIC)
1361
1362 #define TYPE_TYPEDEF_FIELD_ARRAY(thistype) \
1363   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field
1364 #define TYPE_TYPEDEF_FIELD(thistype, n) \
1365   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field[n]
1366 #define TYPE_TYPEDEF_FIELD_NAME(thistype, n) \
1367   TYPE_TYPEDEF_FIELD (thistype, n).name
1368 #define TYPE_TYPEDEF_FIELD_TYPE(thistype, n) \
1369   TYPE_TYPEDEF_FIELD (thistype, n).type
1370 #define TYPE_TYPEDEF_FIELD_COUNT(thistype) \
1371   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field_count
1372
1373 #define TYPE_IS_OPAQUE(thistype) \
1374   (((TYPE_CODE (thistype) == TYPE_CODE_STRUCT) \
1375     || (TYPE_CODE (thistype) == TYPE_CODE_UNION)) \
1376    && (TYPE_NFIELDS (thistype) == 0) \
1377    && (!HAVE_CPLUS_STRUCT (thistype) \
1378        || TYPE_NFN_FIELDS (thistype) == 0) \
1379    && (TYPE_STUB (thistype) || !TYPE_STUB_SUPPORTED (thistype)))
1380
1381 /* * A helper macro that returns the name of a type or "unnamed type"
1382    if the type has no name.  */
1383
1384 #define TYPE_SAFE_NAME(type) \
1385   (TYPE_NAME (type) ? TYPE_NAME (type) : _("<unnamed type>"))
1386
1387 /* * A helper macro that returns the name of an error type.  If the
1388    type has a name, it is used; otherwise, a default is used.  */
1389
1390 #define TYPE_ERROR_NAME(type) \
1391   (TYPE_NAME (type) ? TYPE_NAME (type) : _("<error type>"))
1392
1393 struct builtin_type
1394 {
1395   /* Integral types.  */
1396
1397   /* Implicit size/sign (based on the architecture's ABI).  */
1398   struct type *builtin_void;
1399   struct type *builtin_char;
1400   struct type *builtin_short;
1401   struct type *builtin_int;
1402   struct type *builtin_long;
1403   struct type *builtin_signed_char;
1404   struct type *builtin_unsigned_char;
1405   struct type *builtin_unsigned_short;
1406   struct type *builtin_unsigned_int;
1407   struct type *builtin_unsigned_long;
1408   struct type *builtin_float;
1409   struct type *builtin_double;
1410   struct type *builtin_long_double;
1411   struct type *builtin_complex;
1412   struct type *builtin_double_complex;
1413   struct type *builtin_string;
1414   struct type *builtin_bool;
1415   struct type *builtin_long_long;
1416   struct type *builtin_unsigned_long_long;
1417   struct type *builtin_decfloat;
1418   struct type *builtin_decdouble;
1419   struct type *builtin_declong;
1420
1421   /* "True" character types.
1422       We use these for the '/c' print format, because c_char is just a
1423       one-byte integral type, which languages less laid back than C
1424       will print as ... well, a one-byte integral type.  */
1425   struct type *builtin_true_char;
1426   struct type *builtin_true_unsigned_char;
1427
1428   /* Explicit sizes - see C9X <intypes.h> for naming scheme.  The "int0"
1429      is for when an architecture needs to describe a register that has
1430      no size.  */
1431   struct type *builtin_int0;
1432   struct type *builtin_int8;
1433   struct type *builtin_uint8;
1434   struct type *builtin_int16;
1435   struct type *builtin_uint16;
1436   struct type *builtin_int32;
1437   struct type *builtin_uint32;
1438   struct type *builtin_int64;
1439   struct type *builtin_uint64;
1440   struct type *builtin_int128;
1441   struct type *builtin_uint128;
1442
1443   /* Wide character types.  */
1444   struct type *builtin_char16;
1445   struct type *builtin_char32;
1446
1447   /* Pointer types.  */
1448
1449   /* * `pointer to data' type.  Some target platforms use an implicitly
1450      {sign,zero} -extended 32-bit ABI pointer on a 64-bit ISA.  */
1451   struct type *builtin_data_ptr;
1452
1453   /* * `pointer to function (returning void)' type.  Harvard
1454      architectures mean that ABI function and code pointers are not
1455      interconvertible.  Similarly, since ANSI, C standards have
1456      explicitly said that pointers to functions and pointers to data
1457      are not interconvertible --- that is, you can't cast a function
1458      pointer to void * and back, and expect to get the same value.
1459      However, all function pointer types are interconvertible, so void
1460      (*) () can server as a generic function pointer.  */
1461
1462   struct type *builtin_func_ptr;
1463
1464   /* * `function returning pointer to function (returning void)' type.
1465      The final void return type is not significant for it.  */
1466
1467   struct type *builtin_func_func;
1468
1469   /* Special-purpose types.  */
1470
1471   /* * This type is used to represent a GDB internal function.  */
1472
1473   struct type *internal_fn;
1474
1475   /* * This type is used to represent an xmethod.  */
1476   struct type *xmethod;
1477 };
1478
1479 /* * Return the type table for the specified architecture.  */
1480
1481 extern const struct builtin_type *builtin_type (struct gdbarch *gdbarch);
1482
1483 /* * Per-objfile types used by symbol readers.  */
1484
1485 struct objfile_type
1486 {
1487   /* Basic types based on the objfile architecture.  */
1488   struct type *builtin_void;
1489   struct type *builtin_char;
1490   struct type *builtin_short;
1491   struct type *builtin_int;
1492   struct type *builtin_long;
1493   struct type *builtin_long_long;
1494   struct type *builtin_signed_char;
1495   struct type *builtin_unsigned_char;
1496   struct type *builtin_unsigned_short;
1497   struct type *builtin_unsigned_int;
1498   struct type *builtin_unsigned_long;
1499   struct type *builtin_unsigned_long_long;
1500   struct type *builtin_float;
1501   struct type *builtin_double;
1502   struct type *builtin_long_double;
1503
1504   /* * This type is used to represent symbol addresses.  */
1505   struct type *builtin_core_addr;
1506
1507   /* * This type represents a type that was unrecognized in symbol
1508      read-in.  */
1509   struct type *builtin_error;
1510
1511   /* * Types used for symbols with no debug information.  */
1512   struct type *nodebug_text_symbol;
1513   struct type *nodebug_text_gnu_ifunc_symbol;
1514   struct type *nodebug_got_plt_symbol;
1515   struct type *nodebug_data_symbol;
1516   struct type *nodebug_unknown_symbol;
1517   struct type *nodebug_tls_symbol;
1518 };
1519
1520 /* * Return the type table for the specified objfile.  */
1521
1522 extern const struct objfile_type *objfile_type (struct objfile *objfile);
1523
1524 /* Explicit floating-point formats.  See "floatformat.h".  */
1525 extern const struct floatformat *floatformats_ieee_half[BFD_ENDIAN_UNKNOWN];
1526 extern const struct floatformat *floatformats_ieee_single[BFD_ENDIAN_UNKNOWN];
1527 extern const struct floatformat *floatformats_ieee_double[BFD_ENDIAN_UNKNOWN];
1528 extern const struct floatformat *floatformats_ieee_double_littlebyte_bigword[BFD_ENDIAN_UNKNOWN];
1529 extern const struct floatformat *floatformats_i387_ext[BFD_ENDIAN_UNKNOWN];
1530 extern const struct floatformat *floatformats_m68881_ext[BFD_ENDIAN_UNKNOWN];
1531 extern const struct floatformat *floatformats_arm_ext[BFD_ENDIAN_UNKNOWN];
1532 extern const struct floatformat *floatformats_ia64_spill[BFD_ENDIAN_UNKNOWN];
1533 extern const struct floatformat *floatformats_ia64_quad[BFD_ENDIAN_UNKNOWN];
1534 extern const struct floatformat *floatformats_vax_f[BFD_ENDIAN_UNKNOWN];
1535 extern const struct floatformat *floatformats_vax_d[BFD_ENDIAN_UNKNOWN];
1536 extern const struct floatformat *floatformats_ibm_long_double[BFD_ENDIAN_UNKNOWN];
1537
1538
1539 /* * Allocate space for storing data associated with a particular
1540    type.  We ensure that the space is allocated using the same
1541    mechanism that was used to allocate the space for the type
1542    structure itself.  I.e.  if the type is on an objfile's
1543    objfile_obstack, then the space for data associated with that type
1544    will also be allocated on the objfile_obstack.  If the type is not
1545    associated with any particular objfile (such as builtin types),
1546    then the data space will be allocated with xmalloc, the same as for
1547    the type structure.  */
1548
1549 #define TYPE_ALLOC(t,size)  \
1550    (TYPE_OBJFILE_OWNED (t) \
1551     ? obstack_alloc (&TYPE_OBJFILE (t) -> objfile_obstack, size) \
1552     : xmalloc (size))
1553
1554 #define TYPE_ZALLOC(t,size)  \
1555    (TYPE_OBJFILE_OWNED (t) \
1556     ? memset (obstack_alloc (&TYPE_OBJFILE (t)->objfile_obstack, size),  \
1557               0, size)  \
1558     : xzalloc (size))
1559
1560 /* Use alloc_type to allocate a type owned by an objfile.  Use
1561    alloc_type_arch to allocate a type owned by an architecture.  Use
1562    alloc_type_copy to allocate a type with the same owner as a
1563    pre-existing template type, no matter whether objfile or
1564    gdbarch.  */
1565 extern struct type *alloc_type (struct objfile *);
1566 extern struct type *alloc_type_arch (struct gdbarch *);
1567 extern struct type *alloc_type_copy (const struct type *);
1568
1569 /* * Return the type's architecture.  For types owned by an
1570    architecture, that architecture is returned.  For types owned by an
1571    objfile, that objfile's architecture is returned.  */
1572
1573 extern struct gdbarch *get_type_arch (const struct type *);
1574
1575 /* * This returns the target type (or NULL) of TYPE, also skipping
1576    past typedefs.  */
1577
1578 extern struct type *get_target_type (struct type *type);
1579
1580 /* * Helper function to construct objfile-owned types.  */
1581
1582 extern struct type *init_type (enum type_code, int, int, const char *,
1583                                struct objfile *);
1584
1585 /* Helper functions to construct architecture-owned types.  */
1586 extern struct type *arch_type (struct gdbarch *, enum type_code, int, char *);
1587 extern struct type *arch_integer_type (struct gdbarch *, int, int, char *);
1588 extern struct type *arch_character_type (struct gdbarch *, int, int, char *);
1589 extern struct type *arch_boolean_type (struct gdbarch *, int, int, char *);
1590 extern struct type *arch_float_type (struct gdbarch *, int, char *,
1591                                      const struct floatformat **);
1592 extern struct type *arch_complex_type (struct gdbarch *, char *,
1593                                        struct type *);
1594
1595 /* Helper functions to construct a struct or record type.  An
1596    initially empty type is created using arch_composite_type().
1597    Fields are then added using append_composite_type_field*().  A union
1598    type has its size set to the largest field.  A struct type has each
1599    field packed against the previous.  */
1600
1601 extern struct type *arch_composite_type (struct gdbarch *gdbarch,
1602                                          char *name, enum type_code code);
1603 extern void append_composite_type_field (struct type *t, char *name,
1604                                          struct type *field);
1605 extern void append_composite_type_field_aligned (struct type *t,
1606                                                  char *name,
1607                                                  struct type *field,
1608                                                  int alignment);
1609 struct field *append_composite_type_field_raw (struct type *t, char *name,
1610                                                struct type *field);
1611
1612 /* Helper functions to construct a bit flags type.  An initially empty
1613    type is created using arch_flag_type().  Flags are then added using
1614    append_flag_type_flag().  */
1615 extern struct type *arch_flags_type (struct gdbarch *gdbarch,
1616                                      char *name, int length);
1617 extern void append_flags_type_flag (struct type *type, int bitpos, char *name);
1618
1619 extern void make_vector_type (struct type *array_type);
1620 extern struct type *init_vector_type (struct type *elt_type, int n);
1621
1622 extern struct type *lookup_reference_type (struct type *);
1623
1624 extern struct type *make_reference_type (struct type *, struct type **);
1625
1626 extern struct type *make_cv_type (int, int, struct type *, struct type **);
1627
1628 extern struct type *make_restrict_type (struct type *);
1629
1630 extern void replace_type (struct type *, struct type *);
1631
1632 extern int address_space_name_to_int (struct gdbarch *, char *);
1633
1634 extern const char *address_space_int_to_name (struct gdbarch *, int);
1635
1636 extern struct type *make_type_with_address_space (struct type *type,
1637                                                   int space_identifier);
1638
1639 extern struct type *lookup_memberptr_type (struct type *, struct type *);
1640
1641 extern struct type *lookup_methodptr_type (struct type *);
1642
1643 extern void smash_to_method_type (struct type *type, struct type *domain,
1644                                   struct type *to_type, struct field *args,
1645                                   int nargs, int varargs);
1646
1647 extern void smash_to_memberptr_type (struct type *, struct type *,
1648                                      struct type *);
1649
1650 extern void smash_to_methodptr_type (struct type *, struct type *);
1651
1652 extern struct type *allocate_stub_method (struct type *);
1653
1654 extern const char *type_name_no_tag (const struct type *);
1655
1656 extern const char *type_name_no_tag_or_error (struct type *type);
1657
1658 extern struct type *lookup_struct_elt_type (struct type *, const char *, int);
1659
1660 extern struct type *make_pointer_type (struct type *, struct type **);
1661
1662 extern struct type *lookup_pointer_type (struct type *);
1663
1664 extern struct type *make_function_type (struct type *, struct type **);
1665
1666 extern struct type *lookup_function_type (struct type *);
1667
1668 extern struct type *lookup_function_type_with_arguments (struct type *,
1669                                                          int,
1670                                                          struct type **);
1671
1672 extern struct type *create_static_range_type (struct type *, struct type *,
1673                                               LONGEST, LONGEST);
1674
1675
1676 extern struct type *create_array_type_with_stride
1677   (struct type *, struct type *, struct type *, unsigned int);
1678
1679 extern struct type *create_range_type (struct type *, struct type *,
1680                                        const struct dynamic_prop *,
1681                                        const struct dynamic_prop *);
1682
1683 extern struct type *create_array_type (struct type *, struct type *,
1684                                        struct type *);
1685
1686 extern struct type *lookup_array_range_type (struct type *, LONGEST, LONGEST);
1687
1688 extern struct type *create_string_type (struct type *, struct type *,
1689                                         struct type *);
1690 extern struct type *lookup_string_range_type (struct type *, LONGEST, LONGEST);
1691
1692 extern struct type *create_set_type (struct type *, struct type *);
1693
1694 extern struct type *lookup_unsigned_typename (const struct language_defn *,
1695                                               struct gdbarch *, const char *);
1696
1697 extern struct type *lookup_signed_typename (const struct language_defn *,
1698                                             struct gdbarch *, const char *);
1699
1700 extern void get_unsigned_type_max (struct type *, ULONGEST *);
1701
1702 extern void get_signed_type_minmax (struct type *, LONGEST *, LONGEST *);
1703
1704 /* * Resolve all dynamic values of a type e.g. array bounds to static values.
1705    ADDR specifies the location of the variable the type is bound to.
1706    If TYPE has no dynamic properties return TYPE; otherwise a new type with
1707    static properties is returned.  */
1708 extern struct type *resolve_dynamic_type (struct type *type, CORE_ADDR addr);
1709
1710 /* * Predicate if the type has dynamic values, which are not resolved yet.  */
1711 extern int is_dynamic_type (struct type *type);
1712
1713 extern struct type *check_typedef (struct type *);
1714
1715 #define CHECK_TYPEDEF(TYPE)                     \
1716   do {                                          \
1717     (TYPE) = check_typedef (TYPE);              \
1718   } while (0)
1719
1720 extern void check_stub_method_group (struct type *, int);
1721
1722 extern char *gdb_mangle_name (struct type *, int, int);
1723
1724 extern struct type *lookup_typename (const struct language_defn *,
1725                                      struct gdbarch *, const char *,
1726                                      const struct block *, int);
1727
1728 extern struct type *lookup_template_type (char *, struct type *,
1729                                           const struct block *);
1730
1731 extern int get_vptr_fieldno (struct type *, struct type **);
1732
1733 extern int get_discrete_bounds (struct type *, LONGEST *, LONGEST *);
1734
1735 extern int get_array_bounds (struct type *type, LONGEST *low_bound,
1736                              LONGEST *high_bound);
1737
1738 extern int class_types_same_p (const struct type *, const struct type *);
1739
1740 extern int is_ancestor (struct type *, struct type *);
1741
1742 extern int is_public_ancestor (struct type *, struct type *);
1743
1744 extern int is_unique_ancestor (struct type *, struct value *);
1745
1746 /* Overload resolution */
1747
1748 #define LENGTH_MATCH(bv) ((bv)->rank[0])
1749
1750 /* * Badness if parameter list length doesn't match arg list length.  */
1751 extern const struct rank LENGTH_MISMATCH_BADNESS;
1752
1753 /* * Dummy badness value for nonexistent parameter positions.  */
1754 extern const struct rank TOO_FEW_PARAMS_BADNESS;
1755 /* * Badness if no conversion among types.  */
1756 extern const struct rank INCOMPATIBLE_TYPE_BADNESS;
1757
1758 /* * Badness of an exact match.  */
1759 extern const struct rank EXACT_MATCH_BADNESS;
1760
1761 /* * Badness of integral promotion.  */
1762 extern const struct rank INTEGER_PROMOTION_BADNESS;
1763 /* * Badness of floating promotion.  */
1764 extern const struct rank FLOAT_PROMOTION_BADNESS;
1765 /* * Badness of converting a derived class pointer
1766    to a base class pointer.  */
1767 extern const struct rank BASE_PTR_CONVERSION_BADNESS;
1768 /* * Badness of integral conversion.  */
1769 extern const struct rank INTEGER_CONVERSION_BADNESS;
1770 /* * Badness of floating conversion.  */
1771 extern const struct rank FLOAT_CONVERSION_BADNESS;
1772 /* * Badness of integer<->floating conversions.  */
1773 extern const struct rank INT_FLOAT_CONVERSION_BADNESS;
1774 /* * Badness of conversion of pointer to void pointer.  */
1775 extern const struct rank VOID_PTR_CONVERSION_BADNESS;
1776 /* * Badness of conversion to boolean.  */
1777 extern const struct rank BOOL_CONVERSION_BADNESS;
1778 /* * Badness of converting derived to base class.  */
1779 extern const struct rank BASE_CONVERSION_BADNESS;
1780 /* * Badness of converting from non-reference to reference.  */
1781 extern const struct rank REFERENCE_CONVERSION_BADNESS;
1782 /* * Badness of converting integer 0 to NULL pointer.  */
1783 extern const struct rank NULL_POINTER_CONVERSION;
1784
1785 /* Non-standard conversions allowed by the debugger */
1786
1787 /* * Converting a pointer to an int is usually OK.  */
1788 extern const struct rank NS_POINTER_CONVERSION_BADNESS;
1789
1790 /* * Badness of converting a (non-zero) integer constant
1791    to a pointer.  */
1792 extern const struct rank NS_INTEGER_POINTER_CONVERSION_BADNESS;
1793
1794 extern struct rank sum_ranks (struct rank a, struct rank b);
1795 extern int compare_ranks (struct rank a, struct rank b);
1796
1797 extern int compare_badness (struct badness_vector *, struct badness_vector *);
1798
1799 extern struct badness_vector *rank_function (struct type **, int,
1800                                              struct value **, int);
1801
1802 extern struct rank rank_one_type (struct type *, struct type *,
1803                                   struct value *);
1804
1805 extern void recursive_dump_type (struct type *, int);
1806
1807 extern int field_is_static (struct field *);
1808
1809 /* printcmd.c */
1810
1811 extern void print_scalar_formatted (const void *, struct type *,
1812                                     const struct value_print_options *,
1813                                     int, struct ui_file *);
1814
1815 extern int can_dereference (struct type *);
1816
1817 extern int is_integral_type (struct type *);
1818
1819 extern int is_scalar_type_recursive (struct type *);
1820
1821 extern void maintenance_print_type (char *, int);
1822
1823 extern htab_t create_copied_types_hash (struct objfile *objfile);
1824
1825 extern struct type *copy_type_recursive (struct objfile *objfile,
1826                                          struct type *type,
1827                                          htab_t copied_types);
1828
1829 extern struct type *copy_type (const struct type *type);
1830
1831 extern int types_equal (struct type *, struct type *);
1832
1833 extern int types_deeply_equal (struct type *, struct type *);
1834
1835 #endif /* GDBTYPES_H */