gdb/gdbtypes.h

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