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