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
 441   char *name;
 442
 443   /* Tag name for this type, or NULL if none.  This means that the
 444      name of the type consists of a keyword followed by the tag name.
 445      Which keyword is determined by the type code ("struct" for
 446      TYPE_CODE_STRUCT, etc.).  As far as I know C/C++ are the only languages
 447      with this feature.
 448
 449      This is used for printing only, except by poorly designed C++ code.
 450      For looking up a name, look for a symbol in the STRUCT_DOMAIN.
 451      One more legitimate use is that if TYPE_FLAG_STUB is set, this is
 452      the name to use to look for definitions in other files.  */
 453
 454   char *tag_name;
 455
 456   /* Every type is now associated with a particular objfile, and the
 457      type is allocated on the objfile_obstack for that objfile.  One problem
 458      however, is that there are times when gdb allocates new types while
 459      it is not in the process of reading symbols from a particular objfile.
 460      Fortunately, these happen when the type being created is a derived
 461      type of an existing type, such as in lookup_pointer_type().  So
 462      we can just allocate the new type using the same objfile as the
 463      existing type, but to do this we need a backpointer to the objfile
 464      from the existing type.  Yes this is somewhat ugly, but without
 465      major overhaul of the internal type system, it can't be avoided
 466      for now.  */
 467
 468   union type_owner
 469     {
 470       struct objfile *objfile;
 471       struct gdbarch *gdbarch;
 472     } owner;
 473
 474   /* For a pointer type, describes the type of object pointed to.
 475      For an array type, describes the type of the elements.
 476      For a function or method type, describes the type of the return value.
 477      For a range type, describes the type of the full range.
 478      For a complex type, describes the type of each coordinate.
 479      For a special record or union type encoding a dynamic-sized type
 480      in GNAT, a memoized pointer to a corresponding static version of
 481      the type.
 482      Unused otherwise.  */
 483
 484   struct type *target_type;
 485
 486   /* For structure and union types, a description of each field.
 487      For set and pascal array types, there is one "field",
 488      whose type is the domain type of the set or array.
 489      For range types, there are two "fields",
 490      the minimum and maximum values (both inclusive).
 491      For enum types, each possible value is described by one "field".
 492      For a function or method type, a "field" for each parameter.
 493      For C++ classes, there is one field for each base class (if it is
 494      a derived class) plus one field for each class data member.  Member
 495      functions are recorded elsewhere.
 496
 497      Using a pointer to a separate array of fields
 498      allows all types to have the same size, which is useful
 499      because we can allocate the space for a type before
 500      we know what to put in it.  */
 501
 502   union
 503   {
 504     struct field
 505     {
 506       union field_location
 507       {
 508         /* Position of this field, counting in bits from start of
 509            containing structure.  For gdbarch_bits_big_endian=1
 510            targets, it is the bit offset to the MSB.  For
 511            gdbarch_bits_big_endian=0 targets, it is the bit offset to
 512            the LSB.  For a range bound or enum value, this is the
 513            value itself.  */
 514
 515         int bitpos;
 516
 517         /* For a static field, if TYPE_FIELD_STATIC_HAS_ADDR then physaddr
 518            is the location (in the target) of the static field.
 519            Otherwise, physname is the mangled label of the static field.  */
 520
 521         CORE_ADDR physaddr;
 522         const char *physname;
 523
 524         /* The field location can be computed by evaluating the following DWARF
 525            block.  Its DATA is allocated on objfile_obstack - no CU load is
 526            needed to access it.  */
 527
 528         struct dwarf2_locexpr_baton *dwarf_block;
 529       }
 530       loc;
 531
 532       /* For a function or member type, this is 1 if the argument is marked
 533          artificial.  Artificial arguments should not be shown to the
 534          user.  For TYPE_CODE_RANGE it is set if the specific bound is not
 535          defined.  */
 536       unsigned int artificial : 1;
 537
 538       /* Discriminant for union field_location.  */
 539       ENUM_BITFIELD(field_loc_kind) loc_kind : 2;
 540
 541       /* Size of this field, in bits, or zero if not packed.
 542          If non-zero in an array type, indicates the element size in
 543          bits (used only in Ada at the moment).
 544          For an unpacked field, the field's type's length
 545          says how many bytes the field occupies.  */
 546
 547       unsigned int bitsize : 29;
 548
 549       /* In a struct or union type, type of this field.
 550          In a function or member type, type of this argument.
 551          In an array type, the domain-type of the array.  */
 552
 553       struct type *type;
 554
 555       /* Name of field, value or argument.
 556          NULL for range bounds, array domains, and member function
 557          arguments.  */
 558
 559       char *name;
 560     } *fields;
 561
 562     /* Union member used for range types.  */
 563
 564     struct range_bounds
 565     {
 566       /* Low bound of range.  */
 567
 568       LONGEST low;
 569
 570       /* High bound of range.  */
 571
 572       LONGEST high;
 573
 574       /* Flags indicating whether the values of low and high are
 575          valid.  When true, the respective range value is
 576          undefined.  Currently used only for FORTRAN arrays.  */
 577
 578       char low_undefined;
 579       char high_undefined;
 580
 581     } *bounds;
 582
 583   } flds_bnds;
 584
 585   /* For types with virtual functions (TYPE_CODE_STRUCT), VPTR_BASETYPE
 586      is the base class which defined the virtual function table pointer.
 587
 588      For types that are pointer to member types (TYPE_CODE_METHODPTR,
 589      TYPE_CODE_MEMBERPTR), VPTR_BASETYPE is the type that this pointer
 590      is a member of.
 591
 592      For method types (TYPE_CODE_METHOD), VPTR_BASETYPE is the aggregate
 593      type that contains the method.
 594
 595      Unused otherwise.  */
 596
 597   struct type *vptr_basetype;
 598
 599   /* Slot to point to additional language-specific fields of this type.  */
 600
 601   union type_specific
 602   {
 603     /* CPLUS_STUFF is for TYPE_CODE_STRUCT.  It is initialized to point to
 604        cplus_struct_default, a default static instance of a struct
 605        cplus_struct_type.  */
 606
 607     struct cplus_struct_type *cplus_stuff;
 608
 609     /* GNAT_STUFF is for types for which the GNAT Ada compiler
 610        provides additional information.  */
 611     struct gnat_aux_type *gnat_stuff;
 612
 613     /* FLOATFORMAT is for TYPE_CODE_FLT.  It is a pointer to two
 614        floatformat objects that describe the floating-point value
 615        that resides within the type.  The first is for big endian
 616        targets and the second is for little endian targets.  */
 617
 618     const struct floatformat **floatformat;
 619
 620     /* For TYPE_CODE_FUNC types,  */
 621     struct func_type *func_stuff;
 622   } type_specific;
 623 };
 624
 625 /* A ``struct type'' describes a particular instance of a type, with
 626    some particular qualification.  */
 627 struct type
 628 {
 629   /* Type that is a pointer to this type.
 630      NULL if no such pointer-to type is known yet.
 631      The debugger may add the address of such a type
 632      if it has to construct one later.  */
 633
 634   struct type *pointer_type;
 635
 636   /* C++: also need a reference type.  */
 637
 638   struct type *reference_type;
 639
 640   /* Variant chain.  This points to a type that differs from this one only
 641      in qualifiers and length.  Currently, the possible qualifiers are
 642      const, volatile, code-space, data-space, and address class.  The
 643      length may differ only when one of the address class flags are set.
 644      The variants are linked in a circular ring and share MAIN_TYPE.  */
 645   struct type *chain;
 646
 647   /* Flags specific to this instance of the type, indicating where
 648      on the ring we are.
 649
 650      For TYPE_CODE_TYPEDEF the flags of the typedef type should be binary
 651      or-ed with the target type, with a special case for address class and
 652      space class.  For example if this typedef does not specify any new
 653      qualifiers, TYPE_INSTANCE_FLAGS is 0 and the instance flags are
 654      completely inherited from the target type.  No qualifiers can be cleared
 655      by the typedef.  See also check_typedef.  */
 656   int instance_flags;
 657
 658   /* Length of storage for a value of this type.  This is what
 659      sizeof(type) would return; use it for address arithmetic,
 660      memory reads and writes, etc.  This size includes padding.  For
 661      example, an i386 extended-precision floating point value really
 662      only occupies ten bytes, but most ABI's declare its size to be
 663      12 bytes, to preserve alignment.  A `struct type' representing
 664      such a floating-point type would have a `length' value of 12,
 665      even though the last two bytes are unused.
 666
 667      There's a bit of a host/target mess here, if you're concerned
 668      about machines whose bytes aren't eight bits long, or who don't
 669      have byte-addressed memory.  Various places pass this to memcpy
 670      and such, meaning it must be in units of host bytes.  Various
 671      other places expect they can calculate addresses by adding it
 672      and such, meaning it must be in units of target bytes.  For
 673      some DSP targets, in which HOST_CHAR_BIT will (presumably) be 8
 674      and TARGET_CHAR_BIT will be (say) 32, this is a problem.
 675
 676      One fix would be to make this field in bits (requiring that it
 677      always be a multiple of HOST_CHAR_BIT and TARGET_CHAR_BIT) ---
 678      the other choice would be to make it consistently in units of
 679      HOST_CHAR_BIT.  However, this would still fail to address
 680      machines based on a ternary or decimal representation.  */
 681
 682   unsigned length;
 683
 684   /* Core type, shared by a group of qualified types.  */
 685   struct main_type *main_type;
 686 };
 687
 688 #define NULL_TYPE ((struct type *) 0)
 689
 690 /* C++ language-specific information for TYPE_CODE_STRUCT and TYPE_CODE_UNION
 691    nodes.  */
 692
 693 struct cplus_struct_type
 694   {
 695     /* Number of base classes this type derives from.  The baseclasses are
 696        stored in the first N_BASECLASSES fields (i.e. the `fields' field of
 697        the struct type).  I think only the `type' field of such a field has
 698        any meaning.  */
 699
 700     short n_baseclasses;
 701
 702     /* Number of methods with unique names.  All overloaded methods with
 703        the same name count only once.  */
 704
 705     short nfn_fields;
 706
 707     /* Number of template arguments.  */
 708     unsigned short n_template_arguments;
 709
 710     /* One if this struct is a dynamic class, as defined by the
 711        Itanium C++ ABI: if it requires a virtual table pointer,
 712        because it or any of its base classes have one or more virtual
 713        member functions or virtual base classes.  Minus one if not
 714        dynamic.  Zero if not yet computed.  */
 715     int is_dynamic : 2;
 716
 717     /* Non-zero if this type came from a Java CU.  */
 718     unsigned int is_java : 1;
 719
 720     /* For derived classes, the number of base classes is given by
 721        n_baseclasses and virtual_field_bits is a bit vector containing
 722        one bit per base class.  If the base class is virtual, the
 723        corresponding bit will be set.
 724        I.E, given:
 725
 726        class A{};
 727        class B{};
 728        class C : public B, public virtual A {};
 729
 730        B is a baseclass of C; A is a virtual baseclass for C.
 731        This is a C++ 2.0 language feature.  */
 732
 733     B_TYPE *virtual_field_bits;
 734
 735     /* For classes with private fields, the number of fields is given by
 736        nfields and private_field_bits is a bit vector containing one bit
 737        per field.
 738        If the field is private, the corresponding bit will be set.  */
 739
 740     B_TYPE *private_field_bits;
 741
 742     /* For classes with protected fields, the number of fields is given by
 743        nfields and protected_field_bits is a bit vector containing one bit
 744        per field.
 745        If the field is private, the corresponding bit will be set.  */
 746
 747     B_TYPE *protected_field_bits;
 748
 749     /* For classes with fields to be ignored, either this is optimized out
 750        or this field has length 0.  */
 751
 752     B_TYPE *ignore_field_bits;
 753
 754     /* For classes, structures, and unions, a description of each field,
 755        which consists of an overloaded name, followed by the types of
 756        arguments that the method expects, and then the name after it
 757        has been renamed to make it distinct.
 758
 759        fn_fieldlists points to an array of nfn_fields of these.  */
 760
 761     struct fn_fieldlist
 762       {
 763
 764         /* The overloaded name.  */
 765
 766         char *name;
 767
 768         /* The number of methods with this name.  */
 769
 770         int length;
 771
 772         /* The list of methods.  */
 773
 774         struct fn_field
 775           {
 776
 777             /* If is_stub is clear, this is the mangled name which we can
 778                look up to find the address of the method (FIXME: it would
 779                be cleaner to have a pointer to the struct symbol here
 780                instead).  */
 781
 782             /* If is_stub is set, this is the portion of the mangled
 783                name which specifies the arguments.  For example, "ii",
 784                if there are two int arguments, or "" if there are no
 785                arguments.  See gdb_mangle_name for the conversion from this
 786                format to the one used if is_stub is clear.  */
 787
 788             const char *physname;
 789
 790             /* The function type for the method.
 791                (This comment used to say "The return value of the method",
 792                but that's wrong.  The function type
 793                is expected here, i.e. something with TYPE_CODE_FUNC,
 794                and *not* the return-value type).  */
 795
 796             struct type *type;
 797
 798             /* For virtual functions.
 799                First baseclass that defines this virtual function.  */
 800
 801             struct type *fcontext;
 802
 803             /* Attributes.  */
 804
 805             unsigned int is_const:1;
 806             unsigned int is_volatile:1;
 807             unsigned int is_private:1;
 808             unsigned int is_protected:1;
 809             unsigned int is_public:1;
 810             unsigned int is_abstract:1;
 811             unsigned int is_static:1;
 812             unsigned int is_final:1;
 813             unsigned int is_synchronized:1;
 814             unsigned int is_native:1;
 815             unsigned int is_artificial:1;
 816
 817             /* A stub method only has some fields valid (but they are enough
 818                to reconstruct the rest of the fields).  */
 819             unsigned int is_stub:1;
 820
 821             /* Unused.  */
 822             unsigned int dummy:4;
 823
 824             /* Index into that baseclass's virtual function table,
 825                minus 2; else if static: VOFFSET_STATIC; else: 0.  */
 826
 827             unsigned int voffset:16;
 828
 829 #define VOFFSET_STATIC 1
 830
 831           }
 832          *fn_fields;
 833
 834       }
 835      *fn_fieldlists;
 836
 837     /* Pointer to information about enclosing scope, if this is a
 838        local type.  If it is not a local type, this is NULL. */
 839     struct local_type_info
 840       {
 841         char *file;
 842         int line;
 843       }
 844      *localtype_ptr;
 845
 846     /* typedefs defined inside this class.  TYPEDEF_FIELD points to an array of
 847        TYPEDEF_FIELD_COUNT elements.  */
 848     struct typedef_field
 849       {
 850         /* Unqualified name to be prefixed by owning class qualified name.  */
 851         const char *name;
 852
 853         /* Type this typedef named NAME represents.  */
 854         struct type *type;
 855       }
 856     *typedef_field;
 857     unsigned typedef_field_count;
 858
 859     /* The template arguments.  This is an array with
 860        N_TEMPLATE_ARGUMENTS elements.  This is NULL for non-template
 861        classes.  */
 862     struct symbol **template_arguments;
 863   };
 864
 865 /* Struct used in computing virtual base list.  */
 866 struct vbase
 867   {
 868     struct type *vbasetype;     /* pointer to virtual base */
 869     struct vbase *next;         /* next in chain */
 870   };
 871
 872 /* Struct used to store conversion rankings.  */
 873 struct rank
 874   {
 875     short rank;
 876
 877     /* When two conversions are of the same type and therefore have the same
 878        rank, subrank is used to differentiate the two.
 879        Eg: Two derived-class-pointer to base-class-pointer conversions would
 880        both have base pointer conversion rank, but the conversion with the
 881        shorter distance to the ancestor is preferable.  'subrank' would be used
 882        to reflect that.  */
 883     short subrank;
 884   };
 885
 886 /* Struct used for ranking a function for overload resolution.  */
 887 struct badness_vector
 888   {
 889     int length;
 890     struct rank *rank;
 891   };
 892
 893 /* GNAT Ada-specific information for various Ada types.  */
 894 struct gnat_aux_type
 895   {
 896     /* Parallel type used to encode information about dynamic types
 897        used in Ada (such as variant records, variable-size array,
 898        etc).  */
 899     struct type* descriptive_type;
 900   };
 901
 902 /* For TYPE_CODE_FUNC types,  */
 903 struct func_type
 904   {
 905     /* The calling convention for targets supporting multiple ABIs.  Right now
 906        this is only fetched from the Dwarf-2 DW_AT_calling_convention
 907        attribute.  */
 908     unsigned calling_convention;
 909
 910     /* Only those DW_TAG_GNU_call_site's in this function that have
 911        DW_AT_GNU_tail_call set are linked in this list.  Function without its
 912        tail call list complete (DW_AT_GNU_all_tail_call_sites or its superset
 913        DW_AT_GNU_all_call_sites) has TAIL_CALL_LIST NULL, even if some
 914        DW_TAG_GNU_call_site's exist in such function. */
 915     struct call_site *tail_call_list;
 916   };
 917
 918 /* A place where a function gets called from, represented by
 919    DW_TAG_GNU_call_site.  It can be looked up from symtab->call_site_htab.  */
 920
 921 struct call_site
 922   {
 923     /* Address of the first instruction after this call.  It must be the first
 924        field as we overload core_addr_hash and core_addr_eq for it.  */
 925     CORE_ADDR pc;
 926
 927     /* List successor with head in FUNC_TYPE.TAIL_CALL_LIST.  */
 928     struct call_site *tail_call_next;
 929
 930     /* Describe DW_AT_GNU_call_site_target.  Missing attribute uses
 931        FIELD_LOC_KIND_DWARF_BLOCK with FIELD_DWARF_BLOCK == NULL.  */
 932     struct
 933       {
 934         union field_location loc;
 935
 936         /* Discriminant for union field_location.  */
 937         ENUM_BITFIELD(field_loc_kind) loc_kind : 2;
 938       }
 939     target;
 940
 941     /* Size of the PARAMETER array.  */
 942     unsigned parameter_count;
 943
 944     /* CU of the function where the call is located.  It gets used for DWARF
 945        blocks execution in the parameter array below.  */
 946     struct dwarf2_per_cu_data *per_cu;
 947
 948     /* Describe DW_TAG_GNU_call_site's DW_TAG_formal_parameter.  */
 949     struct call_site_parameter
 950       {
 951         /* DW_TAG_formal_parameter's DW_AT_location's DW_OP_regX as DWARF
 952            register number, for register passed parameters.  If -1 then use
 953            fb_offset.  */
 954         int dwarf_reg;
 955
 956         /* Offset from the callee's frame base, for stack passed parameters.
 957            This equals offset from the caller's stack pointer.  Valid only if
 958            DWARF_REGNUM is -1.  */
 959         CORE_ADDR fb_offset;
 960
 961         /* DW_TAG_formal_parameter's DW_AT_GNU_call_site_value.  It is never
 962            NULL.  */
 963         const gdb_byte *value;
 964         size_t value_size;
 965
 966         /* DW_TAG_formal_parameter's DW_AT_GNU_call_site_data_value.  It may be
 967            NULL if not provided by DWARF.  */
 968         const gdb_byte *data_value;
 969         size_t data_value_size;
 970       }
 971     parameter[1];
 972   };
 973
 974 /* The default value of TYPE_CPLUS_SPECIFIC(T) points to the
 975    this shared static structure.  */
 976
 977 extern const struct cplus_struct_type cplus_struct_default;
 978
 979 extern void allocate_cplus_struct_type (struct type *);
 980
 981 #define INIT_CPLUS_SPECIFIC(type) \
 982   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_CPLUS_STUFF, \
 983    TYPE_RAW_CPLUS_SPECIFIC (type) = (struct cplus_struct_type*) \
 984    &cplus_struct_default)
 985
 986 #define ALLOCATE_CPLUS_STRUCT_TYPE(type) allocate_cplus_struct_type (type)
 987
 988 #define HAVE_CPLUS_STRUCT(type) \
 989   (TYPE_SPECIFIC_FIELD (type) == TYPE_SPECIFIC_CPLUS_STUFF \
 990    && TYPE_RAW_CPLUS_SPECIFIC (type) !=  &cplus_struct_default)
 991
 992 extern const struct gnat_aux_type gnat_aux_default;
 993
 994 extern void allocate_gnat_aux_type (struct type *);
 995
 996 #define INIT_GNAT_SPECIFIC(type) \
 997   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_GNAT_STUFF, \
 998    TYPE_GNAT_SPECIFIC (type) = (struct gnat_aux_type *) &gnat_aux_default)
 999 #define ALLOCATE_GNAT_AUX_TYPE(type) allocate_gnat_aux_type (type)
1000 /* A macro that returns non-zero if the type-specific data should be
1001    read as "gnat-stuff".  */
1002 #define HAVE_GNAT_AUX_INFO(type) \
1003   (TYPE_SPECIFIC_FIELD (type) == TYPE_SPECIFIC_GNAT_STUFF)
1004
1005 #define INIT_FUNC_SPECIFIC(type)                                               \
1006   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_FUNC,                            \
1007    TYPE_MAIN_TYPE (type)->type_specific.func_stuff                             \
1008      = TYPE_ZALLOC (type,                                                      \
1009                     sizeof (*TYPE_MAIN_TYPE (type)->type_specific.func_stuff)))
1010
1011 #define TYPE_INSTANCE_FLAGS(thistype) (thistype)->instance_flags
1012 #define TYPE_MAIN_TYPE(thistype) (thistype)->main_type
1013 #define TYPE_NAME(thistype) TYPE_MAIN_TYPE(thistype)->name
1014 #define TYPE_TAG_NAME(type) TYPE_MAIN_TYPE(type)->tag_name
1015 #define TYPE_TARGET_TYPE(thistype) TYPE_MAIN_TYPE(thistype)->target_type
1016 #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type
1017 #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type
1018 #define TYPE_CHAIN(thistype) (thistype)->chain
1019 /* Note that if thistype is a TYPEDEF type, you have to call check_typedef.
1020    But check_typedef does set the TYPE_LENGTH of the TYPEDEF type,
1021    so you only have to call check_typedef once.  Since allocate_value
1022    calls check_typedef, TYPE_LENGTH (VALUE_TYPE (X)) is safe.  */
1023 #define TYPE_LENGTH(thistype) (thistype)->length
1024 /* Note that TYPE_CODE can be TYPE_CODE_TYPEDEF, so if you want the real
1025    type, you need to do TYPE_CODE (check_type (this_type)).  */
1026 #define TYPE_CODE(thistype) TYPE_MAIN_TYPE(thistype)->code
1027 #define TYPE_NFIELDS(thistype) TYPE_MAIN_TYPE(thistype)->nfields
1028 #define TYPE_FIELDS(thistype) TYPE_MAIN_TYPE(thistype)->flds_bnds.fields
1029
1030 #define TYPE_INDEX_TYPE(type) TYPE_FIELD_TYPE (type, 0)
1031 #define TYPE_RANGE_DATA(thistype) TYPE_MAIN_TYPE(thistype)->flds_bnds.bounds
1032 #define TYPE_LOW_BOUND(range_type) TYPE_RANGE_DATA(range_type)->low
1033 #define TYPE_HIGH_BOUND(range_type) TYPE_RANGE_DATA(range_type)->high
1034 #define TYPE_LOW_BOUND_UNDEFINED(range_type) \
1035    TYPE_RANGE_DATA(range_type)->low_undefined
1036 #define TYPE_HIGH_BOUND_UNDEFINED(range_type) \
1037    TYPE_RANGE_DATA(range_type)->high_undefined
1038
1039 /* Moto-specific stuff for FORTRAN arrays.  */
1040
1041 #define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype) \
1042    TYPE_HIGH_BOUND_UNDEFINED(TYPE_INDEX_TYPE(arraytype))
1043 #define TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED(arraytype) \
1044    TYPE_LOW_BOUND_UNDEFINED(TYPE_INDEX_TYPE(arraytype))
1045
1046 #define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \
1047    (TYPE_HIGH_BOUND(TYPE_INDEX_TYPE((arraytype))))
1048
1049 #define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype) \
1050    (TYPE_LOW_BOUND(TYPE_INDEX_TYPE((arraytype))))
1051
1052 /* C++ */
1053
1054 #define TYPE_VPTR_BASETYPE(thistype) TYPE_MAIN_TYPE(thistype)->vptr_basetype
1055 #define TYPE_DOMAIN_TYPE(thistype) TYPE_MAIN_TYPE(thistype)->vptr_basetype
1056 #define TYPE_VPTR_FIELDNO(thistype) TYPE_MAIN_TYPE(thistype)->vptr_fieldno
1057 #define TYPE_FN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fields
1058 #define TYPE_NFN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields
1059 #define TYPE_SPECIFIC_FIELD(thistype) \
1060   TYPE_MAIN_TYPE(thistype)->type_specific_field
1061 #define TYPE_TYPE_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific
1062 /* We need this tap-dance with the TYPE_RAW_SPECIFIC because of the case
1063    where we're trying to print an Ada array using the C language.
1064    In that case, there is no "cplus_stuff", but the C language assumes
1065    that there is.  What we do, in that case, is pretend that there is
1066    an implicit one which is the default cplus stuff.  */
1067 #define TYPE_CPLUS_SPECIFIC(thistype) \
1068    (!HAVE_CPLUS_STRUCT(thistype) \
1069     ? (struct cplus_struct_type*)&cplus_struct_default \
1070     : TYPE_RAW_CPLUS_SPECIFIC(thistype))
1071 #define TYPE_RAW_CPLUS_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.cplus_stuff
1072 #define TYPE_FLOATFORMAT(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.floatformat
1073 #define TYPE_GNAT_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.gnat_stuff
1074 #define TYPE_DESCRIPTIVE_TYPE(thistype) TYPE_GNAT_SPECIFIC(thistype)->descriptive_type
1075 #define TYPE_CALLING_CONVENTION(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.func_stuff->calling_convention
1076 #define TYPE_TAIL_CALL_LIST(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.func_stuff->tail_call_list
1077 #define TYPE_BASECLASS(thistype,index) TYPE_FIELD_TYPE(thistype, index)
1078 #define TYPE_N_BASECLASSES(thistype) TYPE_CPLUS_SPECIFIC(thistype)->n_baseclasses
1079 #define TYPE_BASECLASS_NAME(thistype,index) TYPE_FIELD_NAME(thistype, index)
1080 #define TYPE_BASECLASS_BITPOS(thistype,index) TYPE_FIELD_BITPOS(thistype,index)
1081 #define BASETYPE_VIA_PUBLIC(thistype, index) \
1082   ((!TYPE_FIELD_PRIVATE(thistype, index)) && (!TYPE_FIELD_PROTECTED(thistype, index)))
1083 #define TYPE_CPLUS_DYNAMIC(thistype) TYPE_CPLUS_SPECIFIC (thistype)->is_dynamic
1084 #define TYPE_CPLUS_REALLY_JAVA(thistype) TYPE_CPLUS_SPECIFIC (thistype)->is_java
1085
1086 #define BASETYPE_VIA_VIRTUAL(thistype, index) \
1087   (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \
1088     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (index)))
1089
1090 #define FIELD_TYPE(thisfld) ((thisfld).type)
1091 #define FIELD_NAME(thisfld) ((thisfld).name)
1092 #define FIELD_LOC_KIND(thisfld) ((thisfld).loc_kind)
1093 #define FIELD_BITPOS(thisfld) ((thisfld).loc.bitpos)
1094 #define FIELD_STATIC_PHYSNAME(thisfld) ((thisfld).loc.physname)
1095 #define FIELD_STATIC_PHYSADDR(thisfld) ((thisfld).loc.physaddr)
1096 #define FIELD_DWARF_BLOCK(thisfld) ((thisfld).loc.dwarf_block)
1097 #define SET_FIELD_BITPOS(thisfld, bitpos)                       \
1098   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_BITPOS,            \
1099    FIELD_BITPOS (thisfld) = (bitpos))
1100 #define SET_FIELD_PHYSNAME(thisfld, name)                       \
1101   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_PHYSNAME,          \
1102    FIELD_STATIC_PHYSNAME (thisfld) = (name))
1103 #define SET_FIELD_PHYSADDR(thisfld, addr)                       \
1104   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_PHYSADDR,          \
1105    FIELD_STATIC_PHYSADDR (thisfld) = (addr))
1106 #define SET_FIELD_DWARF_BLOCK(thisfld, addr)                    \
1107   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_DWARF_BLOCK,       \
1108    FIELD_DWARF_BLOCK (thisfld) = (addr))
1109 #define FIELD_ARTIFICIAL(thisfld) ((thisfld).artificial)
1110 #define FIELD_BITSIZE(thisfld) ((thisfld).bitsize)
1111
1112 #define TYPE_FIELD(thistype, n) TYPE_MAIN_TYPE(thistype)->flds_bnds.fields[n]
1113 #define TYPE_FIELD_TYPE(thistype, n) FIELD_TYPE(TYPE_FIELD(thistype, n))
1114 #define TYPE_FIELD_NAME(thistype, n) FIELD_NAME(TYPE_FIELD(thistype, n))
1115 #define TYPE_FIELD_LOC_KIND(thistype, n) FIELD_LOC_KIND (TYPE_FIELD (thistype, n))
1116 #define TYPE_FIELD_BITPOS(thistype, n) FIELD_BITPOS (TYPE_FIELD (thistype, n))
1117 #define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) FIELD_STATIC_PHYSNAME (TYPE_FIELD (thistype, n))
1118 #define TYPE_FIELD_STATIC_PHYSADDR(thistype, n) FIELD_STATIC_PHYSADDR (TYPE_FIELD (thistype, n))
1119 #define TYPE_FIELD_DWARF_BLOCK(thistype, n) FIELD_DWARF_BLOCK (TYPE_FIELD (thistype, n))
1120 #define TYPE_FIELD_ARTIFICIAL(thistype, n) FIELD_ARTIFICIAL(TYPE_FIELD(thistype,n))
1121 #define TYPE_FIELD_BITSIZE(thistype, n) FIELD_BITSIZE(TYPE_FIELD(thistype,n))
1122 #define TYPE_FIELD_PACKED(thistype, n) (FIELD_BITSIZE(TYPE_FIELD(thistype,n))!=0)
1123
1124 #define TYPE_FIELD_PRIVATE_BITS(thistype) \
1125   TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits
1126 #define TYPE_FIELD_PROTECTED_BITS(thistype) \
1127   TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits
1128 #define TYPE_FIELD_IGNORE_BITS(thistype) \
1129   TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits
1130 #define TYPE_FIELD_VIRTUAL_BITS(thistype) \
1131   TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits
1132 #define SET_TYPE_FIELD_PRIVATE(thistype, n) \
1133   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n))
1134 #define SET_TYPE_FIELD_PROTECTED(thistype, n) \
1135   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n))
1136 #define SET_TYPE_FIELD_IGNORE(thistype, n) \
1137   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n))
1138 #define SET_TYPE_FIELD_VIRTUAL(thistype, n) \
1139   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n))
1140 #define TYPE_FIELD_PRIVATE(thistype, n) \
1141   (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits == NULL ? 0 \
1142     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n)))
1143 #define TYPE_FIELD_PROTECTED(thistype, n) \
1144   (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits == NULL ? 0 \
1145     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n)))
1146 #define TYPE_FIELD_IGNORE(thistype, n) \
1147   (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits == NULL ? 0 \
1148     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n)))
1149 #define TYPE_FIELD_VIRTUAL(thistype, n) \
1150   (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \
1151     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n)))
1152
1153 #define TYPE_FN_FIELDLISTS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists
1154 #define TYPE_FN_FIELDLIST(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n]
1155 #define TYPE_FN_FIELDLIST1(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].fn_fields
1156 #define TYPE_FN_FIELDLIST_NAME(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].name
1157 #define TYPE_FN_FIELDLIST_LENGTH(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].length
1158
1159 #define TYPE_N_TEMPLATE_ARGUMENTS(thistype) \
1160   TYPE_CPLUS_SPECIFIC (thistype)->n_template_arguments
1161 #define TYPE_TEMPLATE_ARGUMENTS(thistype) \
1162   TYPE_CPLUS_SPECIFIC (thistype)->template_arguments
1163 #define TYPE_TEMPLATE_ARGUMENT(thistype, n) \
1164   TYPE_CPLUS_SPECIFIC (thistype)->template_arguments[n]
1165
1166 #define TYPE_FN_FIELD(thisfn, n) (thisfn)[n]
1167 #define TYPE_FN_FIELD_PHYSNAME(thisfn, n) (thisfn)[n].physname
1168 #define TYPE_FN_FIELD_TYPE(thisfn, n) (thisfn)[n].type
1169 #define TYPE_FN_FIELD_ARGS(thisfn, n) TYPE_FIELDS ((thisfn)[n].type)
1170 #define TYPE_FN_FIELD_CONST(thisfn, n) ((thisfn)[n].is_const)
1171 #define TYPE_FN_FIELD_VOLATILE(thisfn, n) ((thisfn)[n].is_volatile)
1172 #define TYPE_FN_FIELD_PRIVATE(thisfn, n) ((thisfn)[n].is_private)
1173 #define TYPE_FN_FIELD_PROTECTED(thisfn, n) ((thisfn)[n].is_protected)
1174 #define TYPE_FN_FIELD_PUBLIC(thisfn, n) ((thisfn)[n].is_public)
1175 #define TYPE_FN_FIELD_STATIC(thisfn, n) ((thisfn)[n].is_static)
1176 #define TYPE_FN_FIELD_FINAL(thisfn, n) ((thisfn)[n].is_final)
1177 #define TYPE_FN_FIELD_SYNCHRONIZED(thisfn, n) ((thisfn)[n].is_synchronized)
1178 #define TYPE_FN_FIELD_NATIVE(thisfn, n) ((thisfn)[n].is_native)
1179 #define TYPE_FN_FIELD_ARTIFICIAL(thisfn, n) ((thisfn)[n].is_artificial)
1180 #define TYPE_FN_FIELD_ABSTRACT(thisfn, n) ((thisfn)[n].is_abstract)
1181 #define TYPE_FN_FIELD_STUB(thisfn, n) ((thisfn)[n].is_stub)
1182 #define TYPE_FN_FIELD_FCONTEXT(thisfn, n) ((thisfn)[n].fcontext)
1183 #define TYPE_FN_FIELD_VOFFSET(thisfn, n) ((thisfn)[n].voffset-2)
1184 #define TYPE_FN_FIELD_VIRTUAL_P(thisfn, n) ((thisfn)[n].voffset > 1)
1185 #define TYPE_FN_FIELD_STATIC_P(thisfn, n) ((thisfn)[n].voffset == VOFFSET_STATIC)
1186
1187 #define TYPE_LOCALTYPE_PTR(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr)
1188 #define TYPE_LOCALTYPE_FILE(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr->file)
1189 #define TYPE_LOCALTYPE_LINE(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr->line)
1190
1191 #define TYPE_TYPEDEF_FIELD_ARRAY(thistype) \
1192   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field
1193 #define TYPE_TYPEDEF_FIELD(thistype, n) \
1194   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field[n]
1195 #define TYPE_TYPEDEF_FIELD_NAME(thistype, n) \
1196   TYPE_TYPEDEF_FIELD (thistype, n).name
1197 #define TYPE_TYPEDEF_FIELD_TYPE(thistype, n) \
1198   TYPE_TYPEDEF_FIELD (thistype, n).type
1199 #define TYPE_TYPEDEF_FIELD_COUNT(thistype) \
1200   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field_count
1201
1202 #define TYPE_IS_OPAQUE(thistype) \
1203   (((TYPE_CODE (thistype) == TYPE_CODE_STRUCT) \
1204     || (TYPE_CODE (thistype) == TYPE_CODE_UNION)) \
1205    && (TYPE_NFIELDS (thistype) == 0) \
1206    && (!HAVE_CPLUS_STRUCT (thistype) \
1207        || TYPE_NFN_FIELDS (thistype) == 0) \
1208    && (TYPE_STUB (thistype) || !TYPE_STUB_SUPPORTED (thistype)))
1209
1210 /* A helper macro that returns the name of a type or "unnamed type" if the type
1211    has no name.  */
1212 #define TYPE_SAFE_NAME(type) \
1213   (TYPE_NAME (type) ? TYPE_NAME (type) : _("<unnamed type>"))
1214
1215 /* A helper macro that returns the name of an error type.  If the type
1216    has a name, it is used; otherwise, a default is used.  */
1217 #define TYPE_ERROR_NAME(type) \
1218   (TYPE_NAME (type) ? TYPE_NAME (type) : _("<error type>"))
1219
1220 struct builtin_type
1221 {
1222   /* Integral types.  */
1223
1224   /* Implicit size/sign (based on the architecture's ABI).  */
1225   struct type *builtin_void;
1226   struct type *builtin_char;
1227   struct type *builtin_short;
1228   struct type *builtin_int;
1229   struct type *builtin_long;
1230   struct type *builtin_signed_char;
1231   struct type *builtin_unsigned_char;
1232   struct type *builtin_unsigned_short;
1233   struct type *builtin_unsigned_int;
1234   struct type *builtin_unsigned_long;
1235   struct type *builtin_float;
1236   struct type *builtin_double;
1237   struct type *builtin_long_double;
1238   struct type *builtin_complex;
1239   struct type *builtin_double_complex;
1240   struct type *builtin_string;
1241   struct type *builtin_bool;
1242   struct type *builtin_long_long;
1243   struct type *builtin_unsigned_long_long;
1244   struct type *builtin_decfloat;
1245   struct type *builtin_decdouble;
1246   struct type *builtin_declong;
1247
1248   /* "True" character types.
1249       We use these for the '/c' print format, because c_char is just a
1250       one-byte integral type, which languages less laid back than C
1251       will print as ... well, a one-byte integral type.  */
1252   struct type *builtin_true_char;
1253   struct type *builtin_true_unsigned_char;
1254
1255   /* Explicit sizes - see C9X <intypes.h> for naming scheme.  The "int0"
1256      is for when an architecture needs to describe a register that has
1257      no size.  */
1258   struct type *builtin_int0;
1259   struct type *builtin_int8;
1260   struct type *builtin_uint8;
1261   struct type *builtin_int16;
1262   struct type *builtin_uint16;
1263   struct type *builtin_int32;
1264   struct type *builtin_uint32;
1265   struct type *builtin_int64;
1266   struct type *builtin_uint64;
1267   struct type *builtin_int128;
1268   struct type *builtin_uint128;
1269
1270   /* Wide character types.  */
1271   struct type *builtin_char16;
1272   struct type *builtin_char32;
1273
1274   /* Pointer types.  */
1275
1276   /* `pointer to data' type.  Some target platforms use an implicitly
1277      {sign,zero} -extended 32-bit ABI pointer on a 64-bit ISA.  */
1278   struct type *builtin_data_ptr;
1279
1280   /* `pointer to function (returning void)' type.  Harvard
1281      architectures mean that ABI function and code pointers are not
1282      interconvertible.  Similarly, since ANSI, C standards have
1283      explicitly said that pointers to functions and pointers to data
1284      are not interconvertible --- that is, you can't cast a function
1285      pointer to void * and back, and expect to get the same value.
1286      However, all function pointer types are interconvertible, so void
1287      (*) () can server as a generic function pointer.  */
1288   struct type *builtin_func_ptr;
1289
1290   /* `function returning pointer to function (returning void)' type.
1291      The final void return type is not significant for it.  */
1292   struct type *builtin_func_func;
1293
1294
1295   /* Special-purpose types.  */
1296
1297   /* This type is used to represent a GDB internal function.  */
1298   struct type *internal_fn;
1299 };
1300
1301 /* Return the type table for the specified architecture.  */
1302 extern const struct builtin_type *builtin_type (struct gdbarch *gdbarch);
1303
1304
1305 /* Per-objfile types used by symbol readers.  */
1306
1307 struct objfile_type
1308 {
1309   /* Basic types based on the objfile architecture.  */
1310   struct type *builtin_void;
1311   struct type *builtin_char;
1312   struct type *builtin_short;
1313   struct type *builtin_int;
1314   struct type *builtin_long;
1315   struct type *builtin_long_long;
1316   struct type *builtin_signed_char;
1317   struct type *builtin_unsigned_char;
1318   struct type *builtin_unsigned_short;
1319   struct type *builtin_unsigned_int;
1320   struct type *builtin_unsigned_long;
1321   struct type *builtin_unsigned_long_long;
1322   struct type *builtin_float;
1323   struct type *builtin_double;
1324   struct type *builtin_long_double;
1325
1326   /* This type is used to represent symbol addresses.  */
1327   struct type *builtin_core_addr;
1328
1329   /* This type represents a type that was unrecognized in symbol read-in.  */
1330   struct type *builtin_error;
1331
1332   /* Types used for symbols with no debug information.  */
1333   struct type *nodebug_text_symbol;
1334   struct type *nodebug_text_gnu_ifunc_symbol;
1335   struct type *nodebug_got_plt_symbol;
1336   struct type *nodebug_data_symbol;
1337   struct type *nodebug_unknown_symbol;
1338   struct type *nodebug_tls_symbol;
1339 };
1340
1341 /* Return the type table for the specified objfile.  */
1342 extern const struct objfile_type *objfile_type (struct objfile *objfile);
1343
1344
1345 /* Explicit floating-point formats.  See "floatformat.h".  */
1346 extern const struct floatformat *floatformats_ieee_half[BFD_ENDIAN_UNKNOWN];
1347 extern const struct floatformat *floatformats_ieee_single[BFD_ENDIAN_UNKNOWN];
1348 extern const struct floatformat *floatformats_ieee_double[BFD_ENDIAN_UNKNOWN];
1349 extern const struct floatformat *floatformats_ieee_double_littlebyte_bigword[BFD_ENDIAN_UNKNOWN];
1350 extern const struct floatformat *floatformats_i387_ext[BFD_ENDIAN_UNKNOWN];
1351 extern const struct floatformat *floatformats_m68881_ext[BFD_ENDIAN_UNKNOWN];
1352 extern const struct floatformat *floatformats_arm_ext[BFD_ENDIAN_UNKNOWN];
1353 extern const struct floatformat *floatformats_ia64_spill[BFD_ENDIAN_UNKNOWN];
1354 extern const struct floatformat *floatformats_ia64_quad[BFD_ENDIAN_UNKNOWN];
1355 extern const struct floatformat *floatformats_vax_f[BFD_ENDIAN_UNKNOWN];
1356 extern const struct floatformat *floatformats_vax_d[BFD_ENDIAN_UNKNOWN];
1357 extern const struct floatformat *floatformats_ibm_long_double[BFD_ENDIAN_UNKNOWN];
1358
1359
1360 /* Allocate space for storing data associated with a particular type.
1361    We ensure that the space is allocated using the same mechanism that
1362    was used to allocate the space for the type structure itself.  I.e.
1363    if the type is on an objfile's objfile_obstack, then the space for data
1364    associated with that type will also be allocated on the objfile_obstack.
1365    If the type is not associated with any particular objfile (such as
1366    builtin types), then the data space will be allocated with xmalloc,
1367    the same as for the type structure.  */
1368
1369 #define TYPE_ALLOC(t,size)  \
1370    (TYPE_OBJFILE_OWNED (t) \
1371     ? obstack_alloc (&TYPE_OBJFILE (t) -> objfile_obstack, size) \
1372     : xmalloc (size))
1373
1374 #define TYPE_ZALLOC(t,size)  \
1375    (TYPE_OBJFILE_OWNED (t) \
1376     ? memset (obstack_alloc (&TYPE_OBJFILE (t)->objfile_obstack, size),  \
1377               0, size)  \
1378     : xzalloc (size))
1379
1380 /* Use alloc_type to allocate a type owned by an objfile.
1381    Use alloc_type_arch to allocate a type owned by an architecture.
1382    Use alloc_type_copy to allocate a type with the same owner as a
1383    pre-existing template type, no matter whether objfile or gdbarch.  */
1384 extern struct type *alloc_type (struct objfile *);
1385 extern struct type *alloc_type_arch (struct gdbarch *);
1386 extern struct type *alloc_type_copy (const struct type *);
1387
1388 /* Return the type's architecture.  For types owned by an architecture,
1389    that architecture is returned.  For types owned by an objfile, that
1390    objfile's architecture is returned.  */
1391 extern struct gdbarch *get_type_arch (const struct type *);
1392
1393 /* Helper function to construct objfile-owned types.  */
1394 extern struct type *init_type (enum type_code, int, int, char *,
1395                                struct objfile *);
1396
1397 /* Helper functions to construct architecture-owned types.  */
1398 extern struct type *arch_type (struct gdbarch *, enum type_code, int, char *);
1399 extern struct type *arch_integer_type (struct gdbarch *, int, int, char *);
1400 extern struct type *arch_character_type (struct gdbarch *, int, int, char *);
1401 extern struct type *arch_boolean_type (struct gdbarch *, int, int, char *);
1402 extern struct type *arch_float_type (struct gdbarch *, int, char *,
1403                                      const struct floatformat **);
1404 extern struct type *arch_complex_type (struct gdbarch *, char *,
1405                                        struct type *);
1406
1407 /* Helper functions to construct a struct or record type.  An
1408    initially empty type is created using arch_composite_type().
1409    Fields are then added using append_composite_type_field*().  A union
1410    type has its size set to the largest field.  A struct type has each
1411    field packed against the previous.  */
1412
1413 extern struct type *arch_composite_type (struct gdbarch *gdbarch,
1414                                          char *name, enum type_code code);
1415 extern void append_composite_type_field (struct type *t, char *name,
1416                                          struct type *field);
1417 extern void append_composite_type_field_aligned (struct type *t,
1418                                                  char *name,
1419                                                  struct type *field,
1420                                                  int alignment);
1421 struct field *append_composite_type_field_raw (struct type *t, char *name,
1422                                                struct type *field);
1423
1424 /* Helper functions to construct a bit flags type.  An initially empty
1425    type is created using arch_flag_type().  Flags are then added using
1426    append_flag_type_flag().  */
1427 extern struct type *arch_flags_type (struct gdbarch *gdbarch,
1428                                      char *name, int length);
1429 extern void append_flags_type_flag (struct type *type, int bitpos, char *name);
1430
1431 extern void make_vector_type (struct type *array_type);
1432 extern struct type *init_vector_type (struct type *elt_type, int n);
1433
1434 extern struct type *lookup_reference_type (struct type *);
1435
1436 extern struct type *make_reference_type (struct type *, struct type **);
1437
1438 extern struct type *make_cv_type (int, int, struct type *, struct type **);
1439
1440 extern void replace_type (struct type *, struct type *);
1441
1442 extern int address_space_name_to_int (struct gdbarch *, char *);
1443
1444 extern const char *address_space_int_to_name (struct gdbarch *, int);
1445
1446 extern struct type *make_type_with_address_space (struct type *type,
1447                                                   int space_identifier);
1448
1449 extern struct type *lookup_memberptr_type (struct type *, struct type *);
1450
1451 extern struct type *lookup_methodptr_type (struct type *);
1452
1453 extern void smash_to_method_type (struct type *type, struct type *domain,
1454                                   struct type *to_type, struct field *args,
1455                                   int nargs, int varargs);
1456
1457 extern void smash_to_memberptr_type (struct type *, struct type *,
1458                                      struct type *);
1459
1460 extern void smash_to_methodptr_type (struct type *, struct type *);
1461
1462 extern struct type *allocate_stub_method (struct type *);
1463
1464 extern char *type_name_no_tag (const struct type *);
1465
1466 extern const char *type_name_no_tag_or_error (struct type *type);
1467
1468 extern struct type *lookup_struct_elt_type (struct type *, char *, int);
1469
1470 extern struct type *make_pointer_type (struct type *, struct type **);
1471
1472 extern struct type *lookup_pointer_type (struct type *);
1473
1474 extern struct type *make_function_type (struct type *, struct type **);
1475
1476 extern struct type *lookup_function_type (struct type *);
1477
1478 extern struct type *create_range_type (struct type *, struct type *, LONGEST,
1479                                        LONGEST);
1480
1481 extern struct type *create_array_type (struct type *, struct type *,
1482                                        struct type *);
1483 extern struct type *lookup_array_range_type (struct type *, int, int);
1484
1485 extern struct type *create_string_type (struct type *, struct type *,
1486                                         struct type *);
1487 extern struct type *lookup_string_range_type (struct type *, int, int);
1488
1489 extern struct type *create_set_type (struct type *, struct type *);
1490
1491 extern struct type *lookup_unsigned_typename (const struct language_defn *,
1492                                               struct gdbarch *,char *);
1493
1494 extern struct type *lookup_signed_typename (const struct language_defn *,
1495                                             struct gdbarch *,char *);
1496
1497 extern struct type *check_typedef (struct type *);
1498
1499 #define CHECK_TYPEDEF(TYPE)                     \
1500   do {                                          \
1501     (TYPE) = check_typedef (TYPE);              \
1502   } while (0)
1503
1504 extern void check_stub_method_group (struct type *, int);
1505
1506 extern char *gdb_mangle_name (struct type *, int, int);
1507
1508 extern struct type *lookup_typename (const struct language_defn *,
1509                                      struct gdbarch *, const char *,
1510                                      const struct block *, int);
1511
1512 extern struct type *lookup_template_type (char *, struct type *,
1513                                           struct block *);
1514
1515 extern int get_vptr_fieldno (struct type *, struct type **);
1516
1517 extern int get_discrete_bounds (struct type *, LONGEST *, LONGEST *);
1518
1519 extern int get_array_bounds (struct type *type, LONGEST *low_bound,
1520                              LONGEST *high_bound);
1521
1522 extern int class_types_same_p (const struct type *, const struct type *);
1523
1524 extern int is_ancestor (struct type *, struct type *);
1525
1526 extern int is_public_ancestor (struct type *, struct type *);
1527
1528 extern int is_unique_ancestor (struct type *, struct value *);
1529
1530 /* Overload resolution */
1531
1532 #define LENGTH_MATCH(bv) ((bv)->rank[0])
1533
1534 /* Badness if parameter list length doesn't match arg list length.  */
1535 extern const struct rank LENGTH_MISMATCH_BADNESS;
1536
1537 /* Dummy badness value for nonexistent parameter positions.  */
1538 extern const struct rank TOO_FEW_PARAMS_BADNESS;
1539 /* Badness if no conversion among types.  */
1540 extern const struct rank INCOMPATIBLE_TYPE_BADNESS;
1541
1542 /* Badness of an exact match.  */
1543 extern const struct rank EXACT_MATCH_BADNESS;
1544
1545 /* Badness of integral promotion.  */
1546 extern const struct rank INTEGER_PROMOTION_BADNESS;
1547 /* Badness of floating promotion.  */
1548 extern const struct rank FLOAT_PROMOTION_BADNESS;
1549 /* Badness of converting a derived class pointer
1550    to a base class pointer.  */
1551 extern const struct rank BASE_PTR_CONVERSION_BADNESS;
1552 /* Badness of integral conversion.  */
1553 extern const struct rank INTEGER_CONVERSION_BADNESS;
1554 /* Badness of floating conversion.  */
1555 extern const struct rank FLOAT_CONVERSION_BADNESS;
1556 /* Badness of integer<->floating conversions.  */
1557 extern const struct rank INT_FLOAT_CONVERSION_BADNESS;
1558 /* Badness of conversion of pointer to void pointer.  */
1559 extern const struct rank VOID_PTR_CONVERSION_BADNESS;
1560 /* Badness of conversion of pointer to boolean.  */
1561 extern const struct rank BOOL_PTR_CONVERSION_BADNESS;
1562 /* Badness of converting derived to base class.  */
1563 extern const struct rank BASE_CONVERSION_BADNESS;
1564 /* Badness of converting from non-reference to reference.  */
1565 extern const struct rank REFERENCE_CONVERSION_BADNESS;
1566 /* Badness of converting integer 0 to NULL pointer.  */
1567 extern const struct rank NULL_POINTER_CONVERSION;
1568
1569 /* Non-standard conversions allowed by the debugger */
1570 /* Converting a pointer to an int is usually OK.  */
1571 extern const struct rank NS_POINTER_CONVERSION_BADNESS;
1572
1573
1574 extern struct rank sum_ranks (struct rank a, struct rank b);
1575 extern int compare_ranks (struct rank a, struct rank b);
1576
1577 extern int compare_badness (struct badness_vector *, struct badness_vector *);
1578
1579 extern struct badness_vector *rank_function (struct type **, int,
1580                                              struct value **, int);
1581
1582 extern struct rank rank_one_type (struct type *, struct type *,
1583                                   struct value *);
1584
1585 extern void recursive_dump_type (struct type *, int);
1586
1587 extern int field_is_static (struct field *);
1588
1589 /* printcmd.c */
1590
1591 extern void print_scalar_formatted (const void *, struct type *,
1592                                     const struct value_print_options *,
1593                                     int, struct ui_file *);
1594
1595 extern int can_dereference (struct type *);
1596
1597 extern int is_integral_type (struct type *);
1598
1599 extern int is_scalar_type_recursive (struct type *);
1600
1601 extern void maintenance_print_type (char *, int);
1602
1603 extern htab_t create_copied_types_hash (struct objfile *objfile);
1604
1605 extern struct type *copy_type_recursive (struct objfile *objfile,
1606                                          struct type *type,
1607                                          htab_t copied_types);
1608
1609 extern struct type *copy_type (const struct type *type);
1610
1611 #endif /* GDBTYPES_H */