xref: /dragonfly/contrib/gdb-7/gdb/gdbtypes.h (revision e65bc1c3)
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 methods described for this type, not including the
697        methods that it derives from.  */
698 
699     short nfn_fields_total;
700 
701     /* Number of template arguments.  */
702     unsigned short n_template_arguments;
703 
704     /* One if this struct is a dynamic class, as defined by the
705        Itanium C++ ABI: if it requires a virtual table pointer,
706        because it or any of its base classes have one or more virtual
707        member functions or virtual base classes.  Minus one if not
708        dynamic.  Zero if not yet computed.  */
709     int is_dynamic : 2;
710 
711     /* Non-zero if this type came from a Java CU.  */
712     unsigned int is_java : 1;
713 
714     /* For derived classes, the number of base classes is given by
715        n_baseclasses and virtual_field_bits is a bit vector containing
716        one bit per base class.  If the base class is virtual, the
717        corresponding bit will be set.
718        I.E, given:
719 
720        class A{};
721        class B{};
722        class C : public B, public virtual A {};
723 
724        B is a baseclass of C; A is a virtual baseclass for C.
725        This is a C++ 2.0 language feature.  */
726 
727     B_TYPE *virtual_field_bits;
728 
729     /* For classes with private fields, the number of fields is given by
730        nfields and private_field_bits is a bit vector containing one bit
731        per field.
732        If the field is private, the corresponding bit will be set.  */
733 
734     B_TYPE *private_field_bits;
735 
736     /* For classes with protected fields, the number of fields is given by
737        nfields and protected_field_bits is a bit vector containing one bit
738        per field.
739        If the field is private, the corresponding bit will be set.  */
740 
741     B_TYPE *protected_field_bits;
742 
743     /* For classes with fields to be ignored, either this is optimized out
744        or this field has length 0.  */
745 
746     B_TYPE *ignore_field_bits;
747 
748     /* For classes, structures, and unions, a description of each field,
749        which consists of an overloaded name, followed by the types of
750        arguments that the method expects, and then the name after it
751        has been renamed to make it distinct.
752 
753        fn_fieldlists points to an array of nfn_fields of these.  */
754 
755     struct fn_fieldlist
756       {
757 
758 	/* The overloaded name.  */
759 
760 	char *name;
761 
762 	/* The number of methods with this name.  */
763 
764 	int length;
765 
766 	/* The list of methods.  */
767 
768 	struct fn_field
769 	  {
770 
771 	    /* If is_stub is clear, this is the mangled name which we can
772 	       look up to find the address of the method (FIXME: it would
773 	       be cleaner to have a pointer to the struct symbol here
774 	       instead).  */
775 
776 	    /* If is_stub is set, this is the portion of the mangled
777 	       name which specifies the arguments.  For example, "ii",
778 	       if there are two int arguments, or "" if there are no
779 	       arguments.  See gdb_mangle_name for the conversion from this
780 	       format to the one used if is_stub is clear.  */
781 
782 	    const char *physname;
783 
784 	    /* The function type for the method.
785 	       (This comment used to say "The return value of the method",
786 	       but that's wrong.  The function type
787 	       is expected here, i.e. something with TYPE_CODE_FUNC,
788 	       and *not* the return-value type).  */
789 
790 	    struct type *type;
791 
792 	    /* For virtual functions.
793 	       First baseclass that defines this virtual function.  */
794 
795 	    struct type *fcontext;
796 
797 	    /* Attributes.  */
798 
799 	    unsigned int is_const:1;
800 	    unsigned int is_volatile:1;
801 	    unsigned int is_private:1;
802 	    unsigned int is_protected:1;
803 	    unsigned int is_public:1;
804 	    unsigned int is_abstract:1;
805 	    unsigned int is_static:1;
806 	    unsigned int is_final:1;
807 	    unsigned int is_synchronized:1;
808 	    unsigned int is_native:1;
809 	    unsigned int is_artificial:1;
810 
811 	    /* A stub method only has some fields valid (but they are enough
812 	       to reconstruct the rest of the fields).  */
813 	    unsigned int is_stub:1;
814 
815 	    /* Unused.  */
816 	    unsigned int dummy:4;
817 
818 	    /* Index into that baseclass's virtual function table,
819 	       minus 2; else if static: VOFFSET_STATIC; else: 0.  */
820 
821 	    unsigned int voffset:16;
822 
823 #define VOFFSET_STATIC 1
824 
825 	  }
826 	 *fn_fields;
827 
828       }
829      *fn_fieldlists;
830 
831     /* Pointer to information about enclosing scope, if this is a
832        local type.  If it is not a local type, this is NULL. */
833     struct local_type_info
834       {
835 	char *file;
836 	int line;
837       }
838      *localtype_ptr;
839 
840     /* typedefs defined inside this class.  TYPEDEF_FIELD points to an array of
841        TYPEDEF_FIELD_COUNT elements.  */
842     struct typedef_field
843       {
844 	/* Unqualified name to be prefixed by owning class qualified name.  */
845 	const char *name;
846 
847 	/* Type this typedef named NAME represents.  */
848 	struct type *type;
849       }
850     *typedef_field;
851     unsigned typedef_field_count;
852 
853     /* The template arguments.  This is an array with
854        N_TEMPLATE_ARGUMENTS elements.  This is NULL for non-template
855        classes.  */
856     struct symbol **template_arguments;
857   };
858 
859 /* Struct used in computing virtual base list.  */
860 struct vbase
861   {
862     struct type *vbasetype;	/* pointer to virtual base */
863     struct vbase *next;		/* next in chain */
864   };
865 
866 /* Struct used to store conversion rankings.  */
867 struct rank
868   {
869     short rank;
870 
871     /* When two conversions are of the same type and therefore have the same
872        rank, subrank is used to differentiate the two.
873        Eg: Two derived-class-pointer to base-class-pointer conversions would
874        both have base pointer conversion rank, but the conversion with the
875        shorter distance to the ancestor is preferable.  'subrank' would be used
876        to reflect that.  */
877     short subrank;
878   };
879 
880 /* Struct used for ranking a function for overload resolution.  */
881 struct badness_vector
882   {
883     int length;
884     struct rank *rank;
885   };
886 
887 /* GNAT Ada-specific information for various Ada types.  */
888 struct gnat_aux_type
889   {
890     /* Parallel type used to encode information about dynamic types
891        used in Ada (such as variant records, variable-size array,
892        etc).  */
893     struct type* descriptive_type;
894   };
895 
896 /* For TYPE_CODE_FUNC types,  */
897 struct func_type
898   {
899     /* The calling convention for targets supporting multiple ABIs.  Right now
900        this is only fetched from the Dwarf-2 DW_AT_calling_convention
901        attribute.  */
902     unsigned calling_convention;
903 
904     /* Only those DW_TAG_GNU_call_site's in this function that have
905        DW_AT_GNU_tail_call set are linked in this list.  Function without its
906        tail call list complete (DW_AT_GNU_all_tail_call_sites or its superset
907        DW_AT_GNU_all_call_sites) has TAIL_CALL_LIST NULL, even if some
908        DW_TAG_GNU_call_site's exist in such function. */
909     struct call_site *tail_call_list;
910   };
911 
912 /* A place where a function gets called from, represented by
913    DW_TAG_GNU_call_site.  It can be looked up from symtab->call_site_htab.  */
914 
915 struct call_site
916   {
917     /* Address of the first instruction after this call.  It must be the first
918        field as we overload core_addr_hash and core_addr_eq for it.  */
919     CORE_ADDR pc;
920 
921     /* List successor with head in FUNC_TYPE.TAIL_CALL_LIST.  */
922     struct call_site *tail_call_next;
923 
924     /* Describe DW_AT_GNU_call_site_target.  Missing attribute uses
925        FIELD_LOC_KIND_DWARF_BLOCK with FIELD_DWARF_BLOCK == NULL.  */
926     struct
927       {
928 	union field_location loc;
929 
930 	/* Discriminant for union field_location.  */
931 	ENUM_BITFIELD(field_loc_kind) loc_kind : 2;
932       }
933     target;
934 
935     /* Size of the PARAMETER array.  */
936     unsigned parameter_count;
937 
938     /* CU of the function where the call is located.  It gets used for DWARF
939        blocks execution in the parameter array below.  */
940     struct dwarf2_per_cu_data *per_cu;
941 
942     /* Describe DW_TAG_GNU_call_site's DW_TAG_formal_parameter.  */
943     struct call_site_parameter
944       {
945 	/* DW_TAG_formal_parameter's DW_AT_location's DW_OP_regX as DWARF
946 	   register number, for register passed parameters.  If -1 then use
947 	   fb_offset.  */
948 	int dwarf_reg;
949 
950 	/* Offset from the callee's frame base, for stack passed parameters.
951 	   This equals offset from the caller's stack pointer.  Valid only if
952 	   DWARF_REGNUM is -1.  */
953 	CORE_ADDR fb_offset;
954 
955 	/* DW_TAG_formal_parameter's DW_AT_GNU_call_site_value.  It is never
956 	   NULL.  */
957 	const gdb_byte *value;
958 	size_t value_size;
959 
960 	/* DW_TAG_formal_parameter's DW_AT_GNU_call_site_data_value.  It may be
961 	   NULL if not provided by DWARF.  */
962 	const gdb_byte *data_value;
963 	size_t data_value_size;
964       }
965     parameter[1];
966   };
967 
968 /* The default value of TYPE_CPLUS_SPECIFIC(T) points to the
969    this shared static structure.  */
970 
971 extern const struct cplus_struct_type cplus_struct_default;
972 
973 extern void allocate_cplus_struct_type (struct type *);
974 
975 #define INIT_CPLUS_SPECIFIC(type) \
976   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_CPLUS_STUFF, \
977    TYPE_RAW_CPLUS_SPECIFIC (type) = (struct cplus_struct_type*) \
978    &cplus_struct_default)
979 
980 #define ALLOCATE_CPLUS_STRUCT_TYPE(type) allocate_cplus_struct_type (type)
981 
982 #define HAVE_CPLUS_STRUCT(type) \
983   (TYPE_SPECIFIC_FIELD (type) == TYPE_SPECIFIC_CPLUS_STUFF \
984    && TYPE_RAW_CPLUS_SPECIFIC (type) !=  &cplus_struct_default)
985 
986 extern const struct gnat_aux_type gnat_aux_default;
987 
988 extern void allocate_gnat_aux_type (struct type *);
989 
990 #define INIT_GNAT_SPECIFIC(type) \
991   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_GNAT_STUFF, \
992    TYPE_GNAT_SPECIFIC (type) = (struct gnat_aux_type *) &gnat_aux_default)
993 #define ALLOCATE_GNAT_AUX_TYPE(type) allocate_gnat_aux_type (type)
994 /* A macro that returns non-zero if the type-specific data should be
995    read as "gnat-stuff".  */
996 #define HAVE_GNAT_AUX_INFO(type) \
997   (TYPE_SPECIFIC_FIELD (type) == TYPE_SPECIFIC_GNAT_STUFF)
998 
999 #define INIT_FUNC_SPECIFIC(type)					       \
1000   (TYPE_SPECIFIC_FIELD (type) = TYPE_SPECIFIC_FUNC,			       \
1001    TYPE_MAIN_TYPE (type)->type_specific.func_stuff			       \
1002      = TYPE_ZALLOC (type,						       \
1003 		    sizeof (*TYPE_MAIN_TYPE (type)->type_specific.func_stuff)))
1004 
1005 #define TYPE_INSTANCE_FLAGS(thistype) (thistype)->instance_flags
1006 #define TYPE_MAIN_TYPE(thistype) (thistype)->main_type
1007 #define TYPE_NAME(thistype) TYPE_MAIN_TYPE(thistype)->name
1008 #define TYPE_TAG_NAME(type) TYPE_MAIN_TYPE(type)->tag_name
1009 #define TYPE_TARGET_TYPE(thistype) TYPE_MAIN_TYPE(thistype)->target_type
1010 #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type
1011 #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type
1012 #define TYPE_CHAIN(thistype) (thistype)->chain
1013 /* Note that if thistype is a TYPEDEF type, you have to call check_typedef.
1014    But check_typedef does set the TYPE_LENGTH of the TYPEDEF type,
1015    so you only have to call check_typedef once.  Since allocate_value
1016    calls check_typedef, TYPE_LENGTH (VALUE_TYPE (X)) is safe.  */
1017 #define TYPE_LENGTH(thistype) (thistype)->length
1018 /* Note that TYPE_CODE can be TYPE_CODE_TYPEDEF, so if you want the real
1019    type, you need to do TYPE_CODE (check_type (this_type)).  */
1020 #define TYPE_CODE(thistype) TYPE_MAIN_TYPE(thistype)->code
1021 #define TYPE_NFIELDS(thistype) TYPE_MAIN_TYPE(thistype)->nfields
1022 #define TYPE_FIELDS(thistype) TYPE_MAIN_TYPE(thistype)->flds_bnds.fields
1023 
1024 #define TYPE_INDEX_TYPE(type) TYPE_FIELD_TYPE (type, 0)
1025 #define TYPE_RANGE_DATA(thistype) TYPE_MAIN_TYPE(thistype)->flds_bnds.bounds
1026 #define TYPE_LOW_BOUND(range_type) TYPE_RANGE_DATA(range_type)->low
1027 #define TYPE_HIGH_BOUND(range_type) TYPE_RANGE_DATA(range_type)->high
1028 #define TYPE_LOW_BOUND_UNDEFINED(range_type) \
1029    TYPE_RANGE_DATA(range_type)->low_undefined
1030 #define TYPE_HIGH_BOUND_UNDEFINED(range_type) \
1031    TYPE_RANGE_DATA(range_type)->high_undefined
1032 
1033 /* Moto-specific stuff for FORTRAN arrays.  */
1034 
1035 #define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype) \
1036    TYPE_HIGH_BOUND_UNDEFINED(TYPE_INDEX_TYPE(arraytype))
1037 #define TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED(arraytype) \
1038    TYPE_LOW_BOUND_UNDEFINED(TYPE_INDEX_TYPE(arraytype))
1039 
1040 #define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \
1041    (TYPE_HIGH_BOUND(TYPE_INDEX_TYPE((arraytype))))
1042 
1043 #define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype) \
1044    (TYPE_LOW_BOUND(TYPE_INDEX_TYPE((arraytype))))
1045 
1046 /* C++ */
1047 
1048 #define TYPE_VPTR_BASETYPE(thistype) TYPE_MAIN_TYPE(thistype)->vptr_basetype
1049 #define TYPE_DOMAIN_TYPE(thistype) TYPE_MAIN_TYPE(thistype)->vptr_basetype
1050 #define TYPE_VPTR_FIELDNO(thistype) TYPE_MAIN_TYPE(thistype)->vptr_fieldno
1051 #define TYPE_FN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fields
1052 #define TYPE_NFN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields
1053 #define TYPE_NFN_FIELDS_TOTAL(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields_total
1054 #define TYPE_SPECIFIC_FIELD(thistype) \
1055   TYPE_MAIN_TYPE(thistype)->type_specific_field
1056 #define	TYPE_TYPE_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific
1057 /* We need this tap-dance with the TYPE_RAW_SPECIFIC because of the case
1058    where we're trying to print an Ada array using the C language.
1059    In that case, there is no "cplus_stuff", but the C language assumes
1060    that there is.  What we do, in that case, is pretend that there is
1061    an implicit one which is the default cplus stuff.  */
1062 #define TYPE_CPLUS_SPECIFIC(thistype) \
1063    (!HAVE_CPLUS_STRUCT(thistype) \
1064     ? (struct cplus_struct_type*)&cplus_struct_default \
1065     : TYPE_RAW_CPLUS_SPECIFIC(thistype))
1066 #define TYPE_RAW_CPLUS_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.cplus_stuff
1067 #define TYPE_FLOATFORMAT(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.floatformat
1068 #define TYPE_GNAT_SPECIFIC(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.gnat_stuff
1069 #define TYPE_DESCRIPTIVE_TYPE(thistype) TYPE_GNAT_SPECIFIC(thistype)->descriptive_type
1070 #define TYPE_CALLING_CONVENTION(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.func_stuff->calling_convention
1071 #define TYPE_TAIL_CALL_LIST(thistype) TYPE_MAIN_TYPE(thistype)->type_specific.func_stuff->tail_call_list
1072 #define TYPE_BASECLASS(thistype,index) TYPE_FIELD_TYPE(thistype, index)
1073 #define TYPE_N_BASECLASSES(thistype) TYPE_CPLUS_SPECIFIC(thistype)->n_baseclasses
1074 #define TYPE_BASECLASS_NAME(thistype,index) TYPE_FIELD_NAME(thistype, index)
1075 #define TYPE_BASECLASS_BITPOS(thistype,index) TYPE_FIELD_BITPOS(thistype,index)
1076 #define BASETYPE_VIA_PUBLIC(thistype, index) \
1077   ((!TYPE_FIELD_PRIVATE(thistype, index)) && (!TYPE_FIELD_PROTECTED(thistype, index)))
1078 #define TYPE_CPLUS_DYNAMIC(thistype) TYPE_CPLUS_SPECIFIC (thistype)->is_dynamic
1079 #define TYPE_CPLUS_REALLY_JAVA(thistype) TYPE_CPLUS_SPECIFIC (thistype)->is_java
1080 
1081 #define BASETYPE_VIA_VIRTUAL(thistype, index) \
1082   (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \
1083     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (index)))
1084 
1085 #define FIELD_TYPE(thisfld) ((thisfld).type)
1086 #define FIELD_NAME(thisfld) ((thisfld).name)
1087 #define FIELD_LOC_KIND(thisfld) ((thisfld).loc_kind)
1088 #define FIELD_BITPOS(thisfld) ((thisfld).loc.bitpos)
1089 #define FIELD_STATIC_PHYSNAME(thisfld) ((thisfld).loc.physname)
1090 #define FIELD_STATIC_PHYSADDR(thisfld) ((thisfld).loc.physaddr)
1091 #define FIELD_DWARF_BLOCK(thisfld) ((thisfld).loc.dwarf_block)
1092 #define SET_FIELD_BITPOS(thisfld, bitpos)			\
1093   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_BITPOS,		\
1094    FIELD_BITPOS (thisfld) = (bitpos))
1095 #define SET_FIELD_PHYSNAME(thisfld, name)			\
1096   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_PHYSNAME,		\
1097    FIELD_STATIC_PHYSNAME (thisfld) = (name))
1098 #define SET_FIELD_PHYSADDR(thisfld, addr)			\
1099   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_PHYSADDR,		\
1100    FIELD_STATIC_PHYSADDR (thisfld) = (addr))
1101 #define SET_FIELD_DWARF_BLOCK(thisfld, addr)			\
1102   (FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_DWARF_BLOCK,	\
1103    FIELD_DWARF_BLOCK (thisfld) = (addr))
1104 #define FIELD_ARTIFICIAL(thisfld) ((thisfld).artificial)
1105 #define FIELD_BITSIZE(thisfld) ((thisfld).bitsize)
1106 
1107 #define TYPE_FIELD(thistype, n) TYPE_MAIN_TYPE(thistype)->flds_bnds.fields[n]
1108 #define TYPE_FIELD_TYPE(thistype, n) FIELD_TYPE(TYPE_FIELD(thistype, n))
1109 #define TYPE_FIELD_NAME(thistype, n) FIELD_NAME(TYPE_FIELD(thistype, n))
1110 #define TYPE_FIELD_LOC_KIND(thistype, n) FIELD_LOC_KIND (TYPE_FIELD (thistype, n))
1111 #define TYPE_FIELD_BITPOS(thistype, n) FIELD_BITPOS (TYPE_FIELD (thistype, n))
1112 #define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) FIELD_STATIC_PHYSNAME (TYPE_FIELD (thistype, n))
1113 #define TYPE_FIELD_STATIC_PHYSADDR(thistype, n) FIELD_STATIC_PHYSADDR (TYPE_FIELD (thistype, n))
1114 #define TYPE_FIELD_DWARF_BLOCK(thistype, n) FIELD_DWARF_BLOCK (TYPE_FIELD (thistype, n))
1115 #define TYPE_FIELD_ARTIFICIAL(thistype, n) FIELD_ARTIFICIAL(TYPE_FIELD(thistype,n))
1116 #define TYPE_FIELD_BITSIZE(thistype, n) FIELD_BITSIZE(TYPE_FIELD(thistype,n))
1117 #define TYPE_FIELD_PACKED(thistype, n) (FIELD_BITSIZE(TYPE_FIELD(thistype,n))!=0)
1118 
1119 #define TYPE_FIELD_PRIVATE_BITS(thistype) \
1120   TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits
1121 #define TYPE_FIELD_PROTECTED_BITS(thistype) \
1122   TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits
1123 #define TYPE_FIELD_IGNORE_BITS(thistype) \
1124   TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits
1125 #define TYPE_FIELD_VIRTUAL_BITS(thistype) \
1126   TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits
1127 #define SET_TYPE_FIELD_PRIVATE(thistype, n) \
1128   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n))
1129 #define SET_TYPE_FIELD_PROTECTED(thistype, n) \
1130   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n))
1131 #define SET_TYPE_FIELD_IGNORE(thistype, n) \
1132   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n))
1133 #define SET_TYPE_FIELD_VIRTUAL(thistype, n) \
1134   B_SET (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n))
1135 #define TYPE_FIELD_PRIVATE(thistype, n) \
1136   (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits == NULL ? 0 \
1137     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n)))
1138 #define TYPE_FIELD_PROTECTED(thistype, n) \
1139   (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits == NULL ? 0 \
1140     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n)))
1141 #define TYPE_FIELD_IGNORE(thistype, n) \
1142   (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits == NULL ? 0 \
1143     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n)))
1144 #define TYPE_FIELD_VIRTUAL(thistype, n) \
1145   (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \
1146     : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n)))
1147 
1148 #define TYPE_FN_FIELDLISTS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists
1149 #define TYPE_FN_FIELDLIST(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n]
1150 #define TYPE_FN_FIELDLIST1(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].fn_fields
1151 #define TYPE_FN_FIELDLIST_NAME(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].name
1152 #define TYPE_FN_FIELDLIST_LENGTH(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].length
1153 
1154 #define TYPE_N_TEMPLATE_ARGUMENTS(thistype) \
1155   TYPE_CPLUS_SPECIFIC (thistype)->n_template_arguments
1156 #define TYPE_TEMPLATE_ARGUMENTS(thistype) \
1157   TYPE_CPLUS_SPECIFIC (thistype)->template_arguments
1158 #define TYPE_TEMPLATE_ARGUMENT(thistype, n) \
1159   TYPE_CPLUS_SPECIFIC (thistype)->template_arguments[n]
1160 
1161 #define TYPE_FN_FIELD(thisfn, n) (thisfn)[n]
1162 #define TYPE_FN_FIELD_PHYSNAME(thisfn, n) (thisfn)[n].physname
1163 #define TYPE_FN_FIELD_TYPE(thisfn, n) (thisfn)[n].type
1164 #define TYPE_FN_FIELD_ARGS(thisfn, n) TYPE_FIELDS ((thisfn)[n].type)
1165 #define TYPE_FN_FIELD_CONST(thisfn, n) ((thisfn)[n].is_const)
1166 #define TYPE_FN_FIELD_VOLATILE(thisfn, n) ((thisfn)[n].is_volatile)
1167 #define TYPE_FN_FIELD_PRIVATE(thisfn, n) ((thisfn)[n].is_private)
1168 #define TYPE_FN_FIELD_PROTECTED(thisfn, n) ((thisfn)[n].is_protected)
1169 #define TYPE_FN_FIELD_PUBLIC(thisfn, n) ((thisfn)[n].is_public)
1170 #define TYPE_FN_FIELD_STATIC(thisfn, n) ((thisfn)[n].is_static)
1171 #define TYPE_FN_FIELD_FINAL(thisfn, n) ((thisfn)[n].is_final)
1172 #define TYPE_FN_FIELD_SYNCHRONIZED(thisfn, n) ((thisfn)[n].is_synchronized)
1173 #define TYPE_FN_FIELD_NATIVE(thisfn, n) ((thisfn)[n].is_native)
1174 #define TYPE_FN_FIELD_ARTIFICIAL(thisfn, n) ((thisfn)[n].is_artificial)
1175 #define TYPE_FN_FIELD_ABSTRACT(thisfn, n) ((thisfn)[n].is_abstract)
1176 #define TYPE_FN_FIELD_STUB(thisfn, n) ((thisfn)[n].is_stub)
1177 #define TYPE_FN_FIELD_FCONTEXT(thisfn, n) ((thisfn)[n].fcontext)
1178 #define TYPE_FN_FIELD_VOFFSET(thisfn, n) ((thisfn)[n].voffset-2)
1179 #define TYPE_FN_FIELD_VIRTUAL_P(thisfn, n) ((thisfn)[n].voffset > 1)
1180 #define TYPE_FN_FIELD_STATIC_P(thisfn, n) ((thisfn)[n].voffset == VOFFSET_STATIC)
1181 
1182 #define TYPE_LOCALTYPE_PTR(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr)
1183 #define TYPE_LOCALTYPE_FILE(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr->file)
1184 #define TYPE_LOCALTYPE_LINE(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr->line)
1185 
1186 #define TYPE_TYPEDEF_FIELD_ARRAY(thistype) \
1187   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field
1188 #define TYPE_TYPEDEF_FIELD(thistype, n) \
1189   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field[n]
1190 #define TYPE_TYPEDEF_FIELD_NAME(thistype, n) \
1191   TYPE_TYPEDEF_FIELD (thistype, n).name
1192 #define TYPE_TYPEDEF_FIELD_TYPE(thistype, n) \
1193   TYPE_TYPEDEF_FIELD (thistype, n).type
1194 #define TYPE_TYPEDEF_FIELD_COUNT(thistype) \
1195   TYPE_CPLUS_SPECIFIC (thistype)->typedef_field_count
1196 
1197 #define TYPE_IS_OPAQUE(thistype) \
1198   (((TYPE_CODE (thistype) == TYPE_CODE_STRUCT) \
1199     || (TYPE_CODE (thistype) == TYPE_CODE_UNION)) \
1200    && (TYPE_NFIELDS (thistype) == 0) \
1201    && (!HAVE_CPLUS_STRUCT (thistype) \
1202        || TYPE_NFN_FIELDS (thistype) == 0) \
1203    && (TYPE_STUB (thistype) || !TYPE_STUB_SUPPORTED (thistype)))
1204 
1205 /* A helper macro that returns the name of a type or "unnamed type" if the type
1206    has no name.  */
1207 #define TYPE_SAFE_NAME(type) \
1208   (TYPE_NAME (type) ? TYPE_NAME (type) : _("<unnamed type>"))
1209 
1210 /* A helper macro that returns the name of an error type.  If the type
1211    has a name, it is used; otherwise, a default is used.  */
1212 #define TYPE_ERROR_NAME(type) \
1213   (TYPE_NAME (type) ? TYPE_NAME (type) : _("<error type>"))
1214 
1215 struct builtin_type
1216 {
1217   /* Integral types.  */
1218 
1219   /* Implicit size/sign (based on the architecture's ABI).  */
1220   struct type *builtin_void;
1221   struct type *builtin_char;
1222   struct type *builtin_short;
1223   struct type *builtin_int;
1224   struct type *builtin_long;
1225   struct type *builtin_signed_char;
1226   struct type *builtin_unsigned_char;
1227   struct type *builtin_unsigned_short;
1228   struct type *builtin_unsigned_int;
1229   struct type *builtin_unsigned_long;
1230   struct type *builtin_float;
1231   struct type *builtin_double;
1232   struct type *builtin_long_double;
1233   struct type *builtin_complex;
1234   struct type *builtin_double_complex;
1235   struct type *builtin_string;
1236   struct type *builtin_bool;
1237   struct type *builtin_long_long;
1238   struct type *builtin_unsigned_long_long;
1239   struct type *builtin_decfloat;
1240   struct type *builtin_decdouble;
1241   struct type *builtin_declong;
1242 
1243   /* "True" character types.
1244       We use these for the '/c' print format, because c_char is just a
1245       one-byte integral type, which languages less laid back than C
1246       will print as ... well, a one-byte integral type.  */
1247   struct type *builtin_true_char;
1248   struct type *builtin_true_unsigned_char;
1249 
1250   /* Explicit sizes - see C9X <intypes.h> for naming scheme.  The "int0"
1251      is for when an architecture needs to describe a register that has
1252      no size.  */
1253   struct type *builtin_int0;
1254   struct type *builtin_int8;
1255   struct type *builtin_uint8;
1256   struct type *builtin_int16;
1257   struct type *builtin_uint16;
1258   struct type *builtin_int32;
1259   struct type *builtin_uint32;
1260   struct type *builtin_int64;
1261   struct type *builtin_uint64;
1262   struct type *builtin_int128;
1263   struct type *builtin_uint128;
1264 
1265   /* Wide character types.  */
1266   struct type *builtin_char16;
1267   struct type *builtin_char32;
1268 
1269   /* Pointer types.  */
1270 
1271   /* `pointer to data' type.  Some target platforms use an implicitly
1272      {sign,zero} -extended 32-bit ABI pointer on a 64-bit ISA.  */
1273   struct type *builtin_data_ptr;
1274 
1275   /* `pointer to function (returning void)' type.  Harvard
1276      architectures mean that ABI function and code pointers are not
1277      interconvertible.  Similarly, since ANSI, C standards have
1278      explicitly said that pointers to functions and pointers to data
1279      are not interconvertible --- that is, you can't cast a function
1280      pointer to void * and back, and expect to get the same value.
1281      However, all function pointer types are interconvertible, so void
1282      (*) () can server as a generic function pointer.  */
1283   struct type *builtin_func_ptr;
1284 
1285   /* `function returning pointer to function (returning void)' type.
1286      The final void return type is not significant for it.  */
1287   struct type *builtin_func_func;
1288 
1289 
1290   /* Special-purpose types.  */
1291 
1292   /* This type is used to represent a GDB internal function.  */
1293   struct type *internal_fn;
1294 };
1295 
1296 /* Return the type table for the specified architecture.  */
1297 extern const struct builtin_type *builtin_type (struct gdbarch *gdbarch);
1298 
1299 
1300 /* Per-objfile types used by symbol readers.  */
1301 
1302 struct objfile_type
1303 {
1304   /* Basic types based on the objfile architecture.  */
1305   struct type *builtin_void;
1306   struct type *builtin_char;
1307   struct type *builtin_short;
1308   struct type *builtin_int;
1309   struct type *builtin_long;
1310   struct type *builtin_long_long;
1311   struct type *builtin_signed_char;
1312   struct type *builtin_unsigned_char;
1313   struct type *builtin_unsigned_short;
1314   struct type *builtin_unsigned_int;
1315   struct type *builtin_unsigned_long;
1316   struct type *builtin_unsigned_long_long;
1317   struct type *builtin_float;
1318   struct type *builtin_double;
1319   struct type *builtin_long_double;
1320 
1321   /* This type is used to represent symbol addresses.  */
1322   struct type *builtin_core_addr;
1323 
1324   /* This type represents a type that was unrecognized in symbol read-in.  */
1325   struct type *builtin_error;
1326 
1327   /* Types used for symbols with no debug information.  */
1328   struct type *nodebug_text_symbol;
1329   struct type *nodebug_text_gnu_ifunc_symbol;
1330   struct type *nodebug_got_plt_symbol;
1331   struct type *nodebug_data_symbol;
1332   struct type *nodebug_unknown_symbol;
1333   struct type *nodebug_tls_symbol;
1334 };
1335 
1336 /* Return the type table for the specified objfile.  */
1337 extern const struct objfile_type *objfile_type (struct objfile *objfile);
1338 
1339 
1340 /* Explicit floating-point formats.  See "floatformat.h".  */
1341 extern const struct floatformat *floatformats_ieee_half[BFD_ENDIAN_UNKNOWN];
1342 extern const struct floatformat *floatformats_ieee_single[BFD_ENDIAN_UNKNOWN];
1343 extern const struct floatformat *floatformats_ieee_double[BFD_ENDIAN_UNKNOWN];
1344 extern const struct floatformat *floatformats_ieee_double_littlebyte_bigword[BFD_ENDIAN_UNKNOWN];
1345 extern const struct floatformat *floatformats_i387_ext[BFD_ENDIAN_UNKNOWN];
1346 extern const struct floatformat *floatformats_m68881_ext[BFD_ENDIAN_UNKNOWN];
1347 extern const struct floatformat *floatformats_arm_ext[BFD_ENDIAN_UNKNOWN];
1348 extern const struct floatformat *floatformats_ia64_spill[BFD_ENDIAN_UNKNOWN];
1349 extern const struct floatformat *floatformats_ia64_quad[BFD_ENDIAN_UNKNOWN];
1350 extern const struct floatformat *floatformats_vax_f[BFD_ENDIAN_UNKNOWN];
1351 extern const struct floatformat *floatformats_vax_d[BFD_ENDIAN_UNKNOWN];
1352 extern const struct floatformat *floatformats_ibm_long_double[BFD_ENDIAN_UNKNOWN];
1353 
1354 
1355 /* Allocate space for storing data associated with a particular type.
1356    We ensure that the space is allocated using the same mechanism that
1357    was used to allocate the space for the type structure itself.  I.e.
1358    if the type is on an objfile's objfile_obstack, then the space for data
1359    associated with that type will also be allocated on the objfile_obstack.
1360    If the type is not associated with any particular objfile (such as
1361    builtin types), then the data space will be allocated with xmalloc,
1362    the same as for the type structure.  */
1363 
1364 #define TYPE_ALLOC(t,size)  \
1365    (TYPE_OBJFILE_OWNED (t) \
1366     ? obstack_alloc (&TYPE_OBJFILE (t) -> objfile_obstack, size) \
1367     : xmalloc (size))
1368 
1369 #define TYPE_ZALLOC(t,size)  \
1370    (TYPE_OBJFILE_OWNED (t) \
1371     ? memset (obstack_alloc (&TYPE_OBJFILE (t)->objfile_obstack, size),  \
1372 	      0, size)  \
1373     : xzalloc (size))
1374 
1375 /* Use alloc_type to allocate a type owned by an objfile.
1376    Use alloc_type_arch to allocate a type owned by an architecture.
1377    Use alloc_type_copy to allocate a type with the same owner as a
1378    pre-existing template type, no matter whether objfile or gdbarch.  */
1379 extern struct type *alloc_type (struct objfile *);
1380 extern struct type *alloc_type_arch (struct gdbarch *);
1381 extern struct type *alloc_type_copy (const struct type *);
1382 
1383 /* Return the type's architecture.  For types owned by an architecture,
1384    that architecture is returned.  For types owned by an objfile, that
1385    objfile's architecture is returned.  */
1386 extern struct gdbarch *get_type_arch (const struct type *);
1387 
1388 /* Helper function to construct objfile-owned types.  */
1389 extern struct type *init_type (enum type_code, int, int, char *,
1390 			       struct objfile *);
1391 
1392 /* Helper functions to construct architecture-owned types.  */
1393 extern struct type *arch_type (struct gdbarch *, enum type_code, int, char *);
1394 extern struct type *arch_integer_type (struct gdbarch *, int, int, char *);
1395 extern struct type *arch_character_type (struct gdbarch *, int, int, char *);
1396 extern struct type *arch_boolean_type (struct gdbarch *, int, int, char *);
1397 extern struct type *arch_float_type (struct gdbarch *, int, char *,
1398 				     const struct floatformat **);
1399 extern struct type *arch_complex_type (struct gdbarch *, char *,
1400 				       struct type *);
1401 
1402 /* Helper functions to construct a struct or record type.  An
1403    initially empty type is created using arch_composite_type().
1404    Fields are then added using append_composite_type_field*().  A union
1405    type has its size set to the largest field.  A struct type has each
1406    field packed against the previous.  */
1407 
1408 extern struct type *arch_composite_type (struct gdbarch *gdbarch,
1409 					 char *name, enum type_code code);
1410 extern void append_composite_type_field (struct type *t, char *name,
1411 					 struct type *field);
1412 extern void append_composite_type_field_aligned (struct type *t,
1413 						 char *name,
1414 						 struct type *field,
1415 						 int alignment);
1416 struct field *append_composite_type_field_raw (struct type *t, char *name,
1417 					       struct type *field);
1418 
1419 /* Helper functions to construct a bit flags type.  An initially empty
1420    type is created using arch_flag_type().  Flags are then added using
1421    append_flag_type_flag().  */
1422 extern struct type *arch_flags_type (struct gdbarch *gdbarch,
1423 				     char *name, int length);
1424 extern void append_flags_type_flag (struct type *type, int bitpos, char *name);
1425 
1426 extern void make_vector_type (struct type *array_type);
1427 extern struct type *init_vector_type (struct type *elt_type, int n);
1428 
1429 extern struct type *lookup_reference_type (struct type *);
1430 
1431 extern struct type *make_reference_type (struct type *, struct type **);
1432 
1433 extern struct type *make_cv_type (int, int, struct type *, struct type **);
1434 
1435 extern void replace_type (struct type *, struct type *);
1436 
1437 extern int address_space_name_to_int (struct gdbarch *, char *);
1438 
1439 extern const char *address_space_int_to_name (struct gdbarch *, int);
1440 
1441 extern struct type *make_type_with_address_space (struct type *type,
1442 						  int space_identifier);
1443 
1444 extern struct type *lookup_memberptr_type (struct type *, struct type *);
1445 
1446 extern struct type *lookup_methodptr_type (struct type *);
1447 
1448 extern void smash_to_method_type (struct type *type, struct type *domain,
1449 				  struct type *to_type, struct field *args,
1450 				  int nargs, int varargs);
1451 
1452 extern void smash_to_memberptr_type (struct type *, struct type *,
1453 				     struct type *);
1454 
1455 extern void smash_to_methodptr_type (struct type *, struct type *);
1456 
1457 extern struct type *allocate_stub_method (struct type *);
1458 
1459 extern char *type_name_no_tag (const struct type *);
1460 
1461 extern const char *type_name_no_tag_or_error (struct type *type);
1462 
1463 extern struct type *lookup_struct_elt_type (struct type *, char *, int);
1464 
1465 extern struct type *make_pointer_type (struct type *, struct type **);
1466 
1467 extern struct type *lookup_pointer_type (struct type *);
1468 
1469 extern struct type *make_function_type (struct type *, struct type **);
1470 
1471 extern struct type *lookup_function_type (struct type *);
1472 
1473 extern struct type *create_range_type (struct type *, struct type *, LONGEST,
1474 				       LONGEST);
1475 
1476 extern struct type *create_array_type (struct type *, struct type *,
1477 				       struct type *);
1478 extern struct type *lookup_array_range_type (struct type *, int, int);
1479 
1480 extern struct type *create_string_type (struct type *, struct type *,
1481 					struct type *);
1482 extern struct type *lookup_string_range_type (struct type *, int, int);
1483 
1484 extern struct type *create_set_type (struct type *, struct type *);
1485 
1486 extern struct type *lookup_unsigned_typename (const struct language_defn *,
1487 					      struct gdbarch *,char *);
1488 
1489 extern struct type *lookup_signed_typename (const struct language_defn *,
1490 					    struct gdbarch *,char *);
1491 
1492 extern struct type *check_typedef (struct type *);
1493 
1494 #define CHECK_TYPEDEF(TYPE)			\
1495   do {						\
1496     (TYPE) = check_typedef (TYPE);		\
1497   } while (0)
1498 
1499 extern void check_stub_method_group (struct type *, int);
1500 
1501 extern char *gdb_mangle_name (struct type *, int, int);
1502 
1503 extern struct type *lookup_typename (const struct language_defn *,
1504 				     struct gdbarch *, const char *,
1505 				     const struct block *, int);
1506 
1507 extern struct type *lookup_template_type (char *, struct type *,
1508 					  struct block *);
1509 
1510 extern int get_vptr_fieldno (struct type *, struct type **);
1511 
1512 extern int get_discrete_bounds (struct type *, LONGEST *, LONGEST *);
1513 
1514 extern int get_array_bounds (struct type *type, LONGEST *low_bound,
1515 			     LONGEST *high_bound);
1516 
1517 extern int class_types_same_p (const struct type *, const struct type *);
1518 
1519 extern int is_ancestor (struct type *, struct type *);
1520 
1521 extern int is_public_ancestor (struct type *, struct type *);
1522 
1523 extern int is_unique_ancestor (struct type *, struct value *);
1524 
1525 /* Overload resolution */
1526 
1527 #define LENGTH_MATCH(bv) ((bv)->rank[0])
1528 
1529 /* Badness if parameter list length doesn't match arg list length.  */
1530 extern const struct rank LENGTH_MISMATCH_BADNESS;
1531 
1532 /* Dummy badness value for nonexistent parameter positions.  */
1533 extern const struct rank TOO_FEW_PARAMS_BADNESS;
1534 /* Badness if no conversion among types.  */
1535 extern const struct rank INCOMPATIBLE_TYPE_BADNESS;
1536 
1537 /* Badness of an exact match.  */
1538 extern const struct rank EXACT_MATCH_BADNESS;
1539 
1540 /* Badness of integral promotion.  */
1541 extern const struct rank INTEGER_PROMOTION_BADNESS;
1542 /* Badness of floating promotion.  */
1543 extern const struct rank FLOAT_PROMOTION_BADNESS;
1544 /* Badness of converting a derived class pointer
1545    to a base class pointer.  */
1546 extern const struct rank BASE_PTR_CONVERSION_BADNESS;
1547 /* Badness of integral conversion.  */
1548 extern const struct rank INTEGER_CONVERSION_BADNESS;
1549 /* Badness of floating conversion.  */
1550 extern const struct rank FLOAT_CONVERSION_BADNESS;
1551 /* Badness of integer<->floating conversions.  */
1552 extern const struct rank INT_FLOAT_CONVERSION_BADNESS;
1553 /* Badness of conversion of pointer to void pointer.  */
1554 extern const struct rank VOID_PTR_CONVERSION_BADNESS;
1555 /* Badness of conversion of pointer to boolean.  */
1556 extern const struct rank BOOL_PTR_CONVERSION_BADNESS;
1557 /* Badness of converting derived to base class.  */
1558 extern const struct rank BASE_CONVERSION_BADNESS;
1559 /* Badness of converting from non-reference to reference.  */
1560 extern const struct rank REFERENCE_CONVERSION_BADNESS;
1561 /* Badness of converting integer 0 to NULL pointer.  */
1562 extern const struct rank NULL_POINTER_CONVERSION;
1563 
1564 /* Non-standard conversions allowed by the debugger */
1565 /* Converting a pointer to an int is usually OK.  */
1566 extern const struct rank NS_POINTER_CONVERSION_BADNESS;
1567 
1568 
1569 extern struct rank sum_ranks (struct rank a, struct rank b);
1570 extern int compare_ranks (struct rank a, struct rank b);
1571 
1572 extern int compare_badness (struct badness_vector *, struct badness_vector *);
1573 
1574 extern struct badness_vector *rank_function (struct type **, int,
1575 					     struct value **, int);
1576 
1577 extern struct rank rank_one_type (struct type *, struct type *,
1578 				  struct value *);
1579 
1580 extern void recursive_dump_type (struct type *, int);
1581 
1582 extern int field_is_static (struct field *);
1583 
1584 /* printcmd.c */
1585 
1586 extern void print_scalar_formatted (const void *, struct type *,
1587 				    const struct value_print_options *,
1588 				    int, struct ui_file *);
1589 
1590 extern int can_dereference (struct type *);
1591 
1592 extern int is_integral_type (struct type *);
1593 
1594 extern int is_scalar_type_recursive (struct type *);
1595 
1596 extern void maintenance_print_type (char *, int);
1597 
1598 extern htab_t create_copied_types_hash (struct objfile *objfile);
1599 
1600 extern struct type *copy_type_recursive (struct objfile *objfile,
1601 					 struct type *type,
1602 					 htab_t copied_types);
1603 
1604 extern struct type *copy_type (const struct type *type);
1605 
1606 #endif /* GDBTYPES_H */
1607