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