gdb/gdbtypes.h

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