gdb/gdbtypes.h

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