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