X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=gdb%2Fgdbtypes.h;h=fd0700070457ea0f0c1a3a40d28ee9a63805a7ff;hb=1b59432770021935a1b9095a851fe33e2b1d1228;hp=84abd86eeb9e6cff941f23eca9ee7bb92c87e9dd;hpb=024f65b1800f3882845e0e92e75ffd5dbf08ec9d;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h index 84abd86eeb..fd07000704 100644 --- a/gdb/gdbtypes.h +++ b/gdb/gdbtypes.h @@ -1,35 +1,39 @@ /* Internal type definitions for GDB. - Copyright (C) 1992 Free Software Foundation, Inc. + Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 + Free Software Foundation, Inc. Contributed by Cygnus Support, using pieces from other GDB modules. -This file is part of GDB. + This file is part of GDB. -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ #if !defined (GDBTYPES_H) #define GDBTYPES_H 1 -/* When gdb creates fundamental types, it uses one of the following - type identifiers. The identifiers are used to index a vector of - pointers to any types that are created. */ +/* Codes for `fundamental types'. This is a monstrosity based on the + bogus notion that there are certain compiler-independent + `fundamental types'. None of these is well-defined (how big is + FT_SHORT? Does it depend on the language? How does the + language-specific code know which type to correlate to FT_SHORT?) */ #define FT_VOID 0 #define FT_BOOLEAN 1 -#define FT_CHAR 2 -#define FT_SIGNED_CHAR 3 -#define FT_UNSIGNED_CHAR 4 +#define FT_CHAR 2 /* we use this for not-unsigned C/C++ chars */ +#define FT_SIGNED_CHAR 3 /* we use this for C++ signed chars */ +#define FT_UNSIGNED_CHAR 4 /* we use this for C/C++ unsigned chars */ #define FT_SHORT 5 #define FT_SIGNED_SHORT 6 #define FT_UNSIGNED_SHORT 7 @@ -53,8 +57,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define FT_FLOAT_DECIMAL 25 #define FT_BYTE 26 #define FT_UNSIGNED_BYTE 27 +#define FT_TEMPLATE_ARG 28 -#define FT_NUM_MEMBERS 28 /* Highest FT_* above, plus one. */ +#define FT_NUM_MEMBERS 29 /* Highest FT_* above, plus one. */ /* Some macros for char-based bitfields. */ @@ -68,59 +73,84 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Different kinds of data types are distinguished by the `code' field. */ enum type_code -{ - TYPE_CODE_UNDEF, /* Not used; catches errors */ - TYPE_CODE_PTR, /* Pointer type */ - TYPE_CODE_ARRAY, /* Array type with lower & upper bounds. */ - TYPE_CODE_STRUCT, /* C struct or Pascal record */ - TYPE_CODE_UNION, /* C union or Pascal variant part */ - TYPE_CODE_ENUM, /* Enumeration type */ - TYPE_CODE_FUNC, /* Function type */ - TYPE_CODE_INT, /* Integer type */ - - /* Floating type. This is *NOT* a complex type. Complex types, when - we have them, will have their own type code (or TYPE_CODE_ERROR if - we can parse a complex type but not manipulate it). There are parts - of GDB which bogusly assume that TYPE_CODE_FLT can mean complex. */ - TYPE_CODE_FLT, - - /* Void type (values zero length; the length field is ignored). */ - TYPE_CODE_VOID, - - TYPE_CODE_SET, /* Pascal sets */ - TYPE_CODE_RANGE, /* Range (integers within spec'd bounds) */ - TYPE_CODE_STRING, /* String types, distinct from array of char */ - TYPE_CODE_BITSTRING, /* String of bits, distinct from bool array */ - - /* Unknown type. The length field is valid if we were able to - deduce that much about the type, or 0 if we don't even know that. */ - TYPE_CODE_ERROR, - - /* C++ */ - TYPE_CODE_MEMBER, /* Member type */ - TYPE_CODE_METHOD, /* Method type */ - TYPE_CODE_REF, /* C++ Reference types */ - - /* Modula-2 */ - TYPE_CODE_CHAR, /* *real* character type */ - TYPE_CODE_BOOL /* BOOLEAN type */ -}; + { + TYPE_CODE_UNDEF, /* Not used; catches errors */ + TYPE_CODE_PTR, /* Pointer type */ + TYPE_CODE_ARRAY, /* Array type with lower & upper bounds. */ + TYPE_CODE_STRUCT, /* C struct or Pascal record */ + TYPE_CODE_UNION, /* C union or Pascal variant part */ + TYPE_CODE_ENUM, /* Enumeration type */ + TYPE_CODE_FUNC, /* Function type */ + TYPE_CODE_INT, /* Integer type */ + + /* Floating type. This is *NOT* a complex type. Beware, there are parts + of GDB which bogusly assume that TYPE_CODE_FLT can mean complex. */ + TYPE_CODE_FLT, + + /* Void type. The length field specifies the length (probably always + one) which is used in pointer arithmetic involving pointers to + this type, but actually dereferencing such a pointer is invalid; + a void type has no length and no actual representation in memory + or registers. A pointer to a void type is a generic pointer. */ + TYPE_CODE_VOID, + + TYPE_CODE_SET, /* Pascal sets */ + TYPE_CODE_RANGE, /* Range (integers within spec'd bounds) */ + + /* A string type which is like an array of character but prints + differently (at least for CHILL). It does not contain a length + field as Pascal strings (for many Pascals, anyway) do; if we want + to deal with such strings, we should use a new type code. */ + TYPE_CODE_STRING, + + /* String of bits; like TYPE_CODE_SET but prints differently (at least + for CHILL). */ + TYPE_CODE_BITSTRING, + + /* Unknown type. The length field is valid if we were able to + deduce that much about the type, or 0 if we don't even know that. */ + TYPE_CODE_ERROR, + + /* C++ */ + TYPE_CODE_MEMBER, /* Member type */ + TYPE_CODE_METHOD, /* Method type */ + TYPE_CODE_REF, /* C++ Reference types */ + + TYPE_CODE_CHAR, /* *real* character type */ + + /* Boolean type. 0 is false, 1 is true, and other values are non-boolean + (e.g. FORTRAN "logical" used as unsigned int). */ + TYPE_CODE_BOOL, + + /* Fortran */ + TYPE_CODE_COMPLEX, /* Complex float */ + + TYPE_CODE_TYPEDEF, + TYPE_CODE_TEMPLATE, /* C++ template */ + TYPE_CODE_TEMPLATE_ARG /* C++ template arg */ + + }; /* For now allow source to use TYPE_CODE_CLASS for C++ classes, as an - alias for TYPE_CODE_STRUCT. Eventually these should probably be - officially distinct types within gdb. */ + alias for TYPE_CODE_STRUCT. This is for DWARF, which has a distinct + "class" attribute. Perhaps we should actually have a separate TYPE_CODE + so that we can print "class" or "struct" depending on what the debug + info said. It's not clear we should bother. */ #define TYPE_CODE_CLASS TYPE_CODE_STRUCT /* Some bits for the type's flags word. */ -/* Explicitly unsigned integer type */ +/* Unsigned integer type. If this is not set for a TYPE_CODE_INT, the + type is signed (unless TYPE_FLAG_NOSIGN (below) is set). */ #define TYPE_FLAG_UNSIGNED (1 << 0) -/* Explicitly signed integer type */ +/* No sign for this type. In C++, "char", "signed char", and "unsigned + char" are distinct types; so we need an extra flag to indicate the + absence of a sign! */ -#define TYPE_FLAG_SIGNED (1 << 1) +#define TYPE_FLAG_NOSIGN (1 << 1) /* This appears in a type's flags word if it is a stub type (e.g., if someone referenced a type that wasn't defined in a source file @@ -128,315 +158,504 @@ enum type_code #define TYPE_FLAG_STUB (1 << 2) +/* The target type of this type is a stub type, and this type needs to + be updated if it gets un-stubbed in check_typedef. + Used for arrays and ranges, in which TYPE_LENGTH of the array/range + gets set based on the TYPE_LENGTH of the target type. + Also, set for TYPE_CODE_TYPEDEF. */ -struct type -{ - - /* Code for kind of type */ - - enum type_code code; - - /* Name of this type, or NULL if none. - - This is used for printing only, except by poorly designed C++ code. - For looking up a name, look for a symbol in the VAR_NAMESPACE. */ +#define TYPE_FLAG_TARGET_STUB (1 << 3) - char *name; +/* Static type. If this is set, the corresponding type had + * a static modifier. + * Note: This may be unnecessary, since static data members + * are indicated by other means (bitpos == -1) + */ - /* Tag name for this type, or NULL if none. This means that the - name of the type consists of a keyword followed by the tag name. - Which keyword is determined by the type code ("struct" for - TYPE_CODE_STRUCT, etc.). As far as I know C/C++ are the only languages - with this feature. +#define TYPE_FLAG_STATIC (1 << 4) - This is used for printing only, except by poorly designed C++ code. - For looking up a name, look for a symbol in the STRUCT_NAMESPACE. - One more legitimate use is that if TYPE_FLAG_STUB is set, this is - the name to use to look for definitions in other files. */ +/* Constant type. If this is set, the corresponding type has a + * const modifier. + */ - char *tag_name; +#define TYPE_FLAG_CONST (1 << 5) - /* Length, in units of TARGET_CHAR_BIT bits, - of storage for a value of this type */ +/* Volatile type. If this is set, the corresponding type has a + * volatile modifier. + */ - unsigned length; +#define TYPE_FLAG_VOLATILE (1 << 6) - /* Every type is now associated with a particular objfile, and the - type is allocated on the type_obstack for that objfile. One problem - however, is that there are times when gdb allocates new types while - it is not in the process of reading symbols from a particular objfile. - Fortunately, these happen when the type being created is a derived - type of an existing type, such as in lookup_pointer_type(). So - we can just allocate the new type using the same objfile as the - existing type, but to do this we need a backpointer to the objfile - from the existing type. Yes this is somewhat ugly, but without - major overhaul of the internal type system, it can't be avoided - for now. */ - struct objfile *objfile; +/* This is a function type which appears to have a prototype. We need this + for function calls in order to tell us if it's necessary to coerce the args, + or to just do the standard conversions. This is used with a short field. */ - /* For a pointer type, describes the type of object pointed to. - For an array type, describes the type of the elements. - For a function or method type, describes the type of the return value. - For a range type, describes the type of the full range. - Unused otherwise. */ +#define TYPE_FLAG_PROTOTYPED (1 << 7) - struct type *target_type; +/* This flag is used to indicate that processing for this type + is incomplete. - /* Type that is a pointer to this type. - NULL if no such pointer-to type is known yet. - The debugger may add the address of such a type - if it has to construct one later. */ + (Mostly intended for HP platforms, where class methods, for + instance, can be encountered before their classes in the debug + info; the incomplete type has to be marked so that the class and + the method can be assigned correct types.) */ - struct type *pointer_type; +#define TYPE_FLAG_INCOMPLETE (1 << 8) - /* C++: also need a reference type. */ - struct type *reference_type; - - /* Type that is a function returning this type. - NULL if no such function type is known here. - The debugger may add the address of such a type - if it has to construct one later. */ - - struct type *function_type; +struct type + { - /* Flags about this type. */ + /* Code for kind of type */ + + enum type_code code; + + /* Name of this type, or NULL if none. + + This is used for printing only, except by poorly designed C++ code. + For looking up a name, look for a symbol in the VAR_NAMESPACE. */ + + char *name; + + /* Tag name for this type, or NULL if none. This means that the + name of the type consists of a keyword followed by the tag name. + Which keyword is determined by the type code ("struct" for + TYPE_CODE_STRUCT, etc.). As far as I know C/C++ are the only languages + with this feature. - short flags; + This is used for printing only, except by poorly designed C++ code. + For looking up a name, look for a symbol in the STRUCT_NAMESPACE. + One more legitimate use is that if TYPE_FLAG_STUB is set, this is + the name to use to look for definitions in other files. */ + + char *tag_name; + + /* Length of storage for a value of this type. Various places pass + this to memcpy and such, meaning it must be in units of + HOST_CHAR_BIT. Various other places expect they can calculate + addresses by adding it and such, meaning it must be in units of + TARGET_CHAR_BIT. For some DSP targets, in which HOST_CHAR_BIT + will (presumably) be 8 and TARGET_CHAR_BIT will be (say) 32, this + is a problem. One fix would be to make this field in bits + (requiring that it always be a multiple of HOST_CHAR_BIT and + TARGET_CHAR_BIT)--the other choice would be to make it + consistently in units of HOST_CHAR_BIT. */ + + unsigned length; + + /* FIXME, these should probably be restricted to a Fortran-specific + field in some fashion. */ +#define BOUND_CANNOT_BE_DETERMINED 5 +#define BOUND_BY_REF_ON_STACK 4 +#define BOUND_BY_VALUE_ON_STACK 3 +#define BOUND_BY_REF_IN_REG 2 +#define BOUND_BY_VALUE_IN_REG 1 +#define BOUND_SIMPLE 0 + int upper_bound_type; + int lower_bound_type; + + /* Every type is now associated with a particular objfile, and the + type is allocated on the type_obstack for that objfile. One problem + however, is that there are times when gdb allocates new types while + it is not in the process of reading symbols from a particular objfile. + Fortunately, these happen when the type being created is a derived + type of an existing type, such as in lookup_pointer_type(). So + we can just allocate the new type using the same objfile as the + existing type, but to do this we need a backpointer to the objfile + from the existing type. Yes this is somewhat ugly, but without + major overhaul of the internal type system, it can't be avoided + for now. */ - /* Number of fields described for this type */ + struct objfile *objfile; - short nfields; + /* For a pointer type, describes the type of object pointed to. + For an array type, describes the type of the elements. + For a function or method type, describes the type of the return value. + For a range type, describes the type of the full range. + For a complex type, describes the type of each coordinate. + Unused otherwise. */ - /* For structure and union types, a description of each field. - For set and pascal array types, there is one "field", - whose type is the domain type of the set or array. - For range types, there are two "fields", - the minimum and maximum values (both inclusive). - For enum types, each possible value is described by one "field". - For C++ classes, there is one field for each base class (if it is - a derived class) plus one field for each class data member. Member - functions are recorded elsewhere. + struct type *target_type; - Using a pointer to a separate array of fields - allows all types to have the same size, which is useful - because we can allocate the space for a type before - we know what to put in it. */ + /* Type that is a pointer to this type. + NULL if no such pointer-to type is known yet. + The debugger may add the address of such a type + if it has to construct one later. */ - struct field - { + struct type *pointer_type; - /* Position of this field, counting in bits from start of - containing structure. For a function type, this is the - position in the argument list of this argument. - For a range bound or enum value, this is the value itself. - (FIXME: What about ranges larger than host int size?) - For BITS_BIG_ENDIAN=1 targets, it is the bit offset to the MSB. - For BITS_BIG_ENDIAN=0 targets, it is the bit offset to the LSB. */ + /* C++: also need a reference type. */ - int bitpos; + struct type *reference_type; - /* Size of this field, in bits, or zero if not packed. - For an unpacked field, the field's type's length - says how many bytes the field occupies. */ - /* FIXME: This is abused by TYPE_FIELD_STATIC_PHYSNAME to contain - a pointer, so it has to be long. */ + /* C-v variant chain. This points to a type that + differs from this one only in a const or volatile + attribute (or both). The various c-v variants + are chained together in a ring. */ + struct type *cv_type; - long bitsize; + /* Flags about this type. */ - /* In a struct or enum type, type of this field. - In a function type, type of this argument. - In an array type, the domain-type of the array. */ + int flags; - struct type *type; + /* Number of fields described for this type */ - /* Name of field, value or argument. - NULL for range bounds and array domains. */ + short nfields; - char *name; + /* For structure and union types, a description of each field. + For set and pascal array types, there is one "field", + whose type is the domain type of the set or array. + For range types, there are two "fields", + the minimum and maximum values (both inclusive). + For enum types, each possible value is described by one "field". + For a function type, a "field" for each parameter type. + For C++ classes, there is one field for each base class (if it is + a derived class) plus one field for each class data member. Member + functions are recorded elsewhere. - } *fields; + Using a pointer to a separate array of fields + allows all types to have the same size, which is useful + because we can allocate the space for a type before + we know what to put in it. */ - /* For types with virtual functions, VPTR_BASETYPE is the base class which - defined the virtual function table pointer. + struct field + { - For types that are pointer to member types, VPTR_BASETYPE - is the type that this pointer is a member of. - Unused otherwise. */ - struct type *vptr_basetype; + union field_location + { + /* Position of this field, counting in bits from start of + containing structure. + For BITS_BIG_ENDIAN=1 targets, it is the bit offset to the MSB. + For BITS_BIG_ENDIAN=0 targets, it is the bit offset to the LSB. + For a function type, this is the position in the argument list + of this argument. + For a range bound or enum value, this is the value itself. */ - /* Field number of the virtual function table pointer in - VPTR_BASETYPE. If -1, we were unable to find the virtual - function table pointer in initial symbol reading, and - fill_in_vptr_fieldno should be called to find it if possible. + int bitpos; - Unused if this type does not have virtual functions. */ + /* For a static field, if TYPE_FIELD_STATIC_HAS_ADDR then physaddr + is the location (in the target) of the static field. + Otherwise, physname is the mangled label of the static field. */ - int vptr_fieldno; + CORE_ADDR physaddr; + char *physname; + } + loc; - /* Slot to point to additional language-specific fields of this type. */ + /* Size of this field, in bits, or zero if not packed. + For an unpacked field, the field's type's length + says how many bytes the field occupies. + A value of -1 or -2 indicates a static field; -1 means the location + is specified by the label loc.physname; -2 means that loc.physaddr + specifies the actual address. */ - union type_specific - { + int bitsize; - /* ARG_TYPES is for TYPE_CODE_METHOD and TYPE_CODE_FUNC. */ + /* In a struct or union type, type of this field. + In a function type, type of this argument. + In an array type, the domain-type of the array. */ - struct type **arg_types; + struct type *type; - /* CPLUS_STUFF is for TYPE_CODE_STRUCT. It is initialized to point to - cplus_struct_default, a default static instance of a struct - cplus_struct_type. */ + /* Name of field, value or argument. + NULL for range bounds and array domains. */ - struct cplus_struct_type *cplus_stuff; + char *name; - } type_specific; -}; + } + *fields; -#define NULL_TYPE ((struct type *) 0) + /* For types with virtual functions (TYPE_CODE_STRUCT), VPTR_BASETYPE + is the base class which defined the virtual function table pointer. -/* C++ language-specific information for TYPE_CODE_STRUCT and TYPE_CODE_UNION - nodes. */ + For types that are pointer to member types (TYPE_CODE_MEMBER), + VPTR_BASETYPE is the type that this pointer is a member of. -struct cplus_struct_type -{ - /* Number of base classes this type derives from. The baseclasses are - stored in the first N_BASECLASSES fields (i.e. the `fields' field of - the struct type). I think only the `type' field of such a field has - any meaning. */ + For method types (TYPE_CODE_METHOD), VPTR_BASETYPE is the aggregate + type that contains the method. - short n_baseclasses; + Unused otherwise. */ - /* Number of methods with unique names. All overloaded methods with - the same name count only once. */ + struct type *vptr_basetype; - short nfn_fields; + /* Field number of the virtual function table pointer in + VPTR_BASETYPE. If -1, we were unable to find the virtual + function table pointer in initial symbol reading, and + fill_in_vptr_fieldno should be called to find it if possible. - /* Number of methods described for this type plus all the - methods that it derives from. */ + Unused if this type does not have virtual functions. */ - int nfn_fields_total; + int vptr_fieldno; - /* For derived classes, the number of base classes is given by n_baseclasses - and virtual_field_bits is a bit vector containing one bit per base class. - If the base class is virtual, the corresponding bit will be set. - I.E, given: + /* Slot to point to additional language-specific fields of this type. */ - class A{}; - class B{}; - class C : public B, public virtual A {}; + union type_specific + { - B is a baseclass of C; A is a virtual baseclass for C. - This is a C++ 2.0 language feature. */ + /* ARG_TYPES is for TYPE_CODE_METHOD. + Contains the type of each argument, ending with a void type + after the last argument for normal member functions or a NULL + pointer after the last argument for functions with variable + arguments. */ - B_TYPE *virtual_field_bits; + struct type **arg_types; - /* For classes with private fields, the number of fields is given by - nfields and private_field_bits is a bit vector containing one bit - per field. - If the field is private, the corresponding bit will be set. */ + /* CPLUS_STUFF is for TYPE_CODE_STRUCT. It is initialized to point to + cplus_struct_default, a default static instance of a struct + cplus_struct_type. */ - B_TYPE *private_field_bits; + struct cplus_struct_type *cplus_stuff; - /* For classes with protected fields, the number of fields is given by - nfields and protected_field_bits is a bit vector containing one bit - per field. - If the field is private, the corresponding bit will be set. */ + } + type_specific; + }; - B_TYPE *protected_field_bits; +#define NULL_TYPE ((struct type *) 0) - /* for classes with fields to be ignored, either this is optimized out - or this field has length 0 */ +/* C++ language-specific information for TYPE_CODE_STRUCT and TYPE_CODE_UNION + nodes. */ - B_TYPE *ignore_field_bits; +struct cplus_struct_type + { + /* Number of base classes this type derives from. The baseclasses are + stored in the first N_BASECLASSES fields (i.e. the `fields' field of + the struct type). I think only the `type' field of such a field has + any meaning. */ - /* For classes, structures, and unions, a description of each field, - which consists of an overloaded name, followed by the types of - arguments that the method expects, and then the name after it - has been renamed to make it distinct. + short n_baseclasses; - fn_fieldlists points to an array of nfn_fields of these. */ + /* Number of methods with unique names. All overloaded methods with + the same name count only once. */ - struct fn_fieldlist - { + short nfn_fields; - /* The overloaded name. */ + /* Number of methods described for this type, not including the + methods that it derives from. */ - char *name; + short nfn_fields_total; - /* The number of methods with this name. */ + /* The "declared_type" field contains a code saying how the + user really declared this type, e.g., "class s", "union s", + "struct s". + The 3 above things come out from the C++ compiler looking like classes, + but we keep track of the real declaration so we can give + the correct information on "ptype". (Note: TEMPLATE may not + belong in this list...) */ - int length; +#define DECLARED_TYPE_CLASS 0 +#define DECLARED_TYPE_UNION 1 +#define DECLARED_TYPE_STRUCT 2 +#define DECLARED_TYPE_TEMPLATE 3 + short declared_type; /* One of the above codes */ - /* The list of methods. */ + /* For derived classes, the number of base classes is given by n_baseclasses + and virtual_field_bits is a bit vector containing one bit per base class. + If the base class is virtual, the corresponding bit will be set. + I.E, given: - struct fn_field - { + class A{}; + class B{}; + class C : public B, public virtual A {}; - /* If is_stub is clear, this is the mangled name which we can - look up to find the address of the method (FIXME: it would - be cleaner to have a pointer to the struct symbol here - instead). */ + B is a baseclass of C; A is a virtual baseclass for C. + This is a C++ 2.0 language feature. */ - /* If is_stub is set, this is the portion of the mangled - name which specifies the arguments. For example, "ii", - if there are two int arguments, or "" if there are no - arguments. See gdb_mangle_name for the conversion from this - format to the one used if is_stub is clear. */ + B_TYPE *virtual_field_bits; - char *physname; + /* For classes with private fields, the number of fields is given by + nfields and private_field_bits is a bit vector containing one bit + per field. + If the field is private, the corresponding bit will be set. */ - /* The return value of the method */ + B_TYPE *private_field_bits; - struct type *type; + /* For classes with protected fields, the number of fields is given by + nfields and protected_field_bits is a bit vector containing one bit + per field. + If the field is private, the corresponding bit will be set. */ - /* The argument list. Only valid if is_stub is clear. Contains - the type of each argument, including `this', and ending with - a NULL pointer after the last argument. */ + B_TYPE *protected_field_bits; - struct type **args; + /* for classes with fields to be ignored, either this is optimized out + or this field has length 0 */ - /* For virtual functions. - First baseclass that defines this virtual function. */ + B_TYPE *ignore_field_bits; - struct type *fcontext; + /* For classes, structures, and unions, a description of each field, + which consists of an overloaded name, followed by the types of + arguments that the method expects, and then the name after it + has been renamed to make it distinct. - /* Attributes. */ + fn_fieldlists points to an array of nfn_fields of these. */ - unsigned int is_const : 1; - unsigned int is_volatile : 1; - unsigned int is_private : 1; - unsigned int is_protected : 1; + struct fn_fieldlist + { - /* A stub method only has some fields valid (but they are enough - to reconstruct the rest of the fields). */ - unsigned int is_stub : 1; + /* The overloaded name. */ - /* Unused. */ - unsigned int dummy : 3; + char *name; - /* Index into that baseclass's virtual function table, - minus 2; else if static: VOFFSET_STATIC; else: 0. */ + /* The number of methods with this name. */ - unsigned int voffset : 24; + int length; -# define VOFFSET_STATIC 1 + /* The list of methods. */ - } *fn_fields; + struct fn_field + { - } *fn_fieldlists; + /* If is_stub is clear, this is the mangled name which we can + look up to find the address of the method (FIXME: it would + be cleaner to have a pointer to the struct symbol here + instead). */ -}; + /* If is_stub is set, this is the portion of the mangled + name which specifies the arguments. For example, "ii", + if there are two int arguments, or "" if there are no + arguments. See gdb_mangle_name for the conversion from this + format to the one used if is_stub is clear. */ + + char *physname; + + /* The function type for the method. + (This comment used to say "The return value of the method", + but that's wrong. The function type + is expected here, i.e. something with TYPE_CODE_FUNC, + and *not* the return-value type). */ + + struct type *type; + + /* The argument list. Only valid if is_stub is clear. Contains + the type of each argument, including `this', and ending with + a NULL pointer after the last argument. Should not contain + a `this' pointer for static member functions. */ + + struct type **args; + + /* For virtual functions. + First baseclass that defines this virtual function. */ + + struct type *fcontext; + + /* Attributes. */ + + unsigned int is_const:1; + unsigned int is_volatile:1; + unsigned int is_private:1; + unsigned int is_protected:1; + unsigned int is_public:1; + unsigned int is_abstract:1; + unsigned int is_static:1; + unsigned int is_final:1; + unsigned int is_synchronized:1; + unsigned int is_native:1; + + /* A stub method only has some fields valid (but they are enough + to reconstruct the rest of the fields). */ + unsigned int is_stub:1; + + /* C++ method that is inlined */ + unsigned int is_inlined:1; + + /* Unused. */ + unsigned int dummy:4; + + /* Index into that baseclass's virtual function table, + minus 2; else if static: VOFFSET_STATIC; else: 0. */ + + unsigned int voffset:16; + +#define VOFFSET_STATIC 1 + + } + *fn_fields; + + } + *fn_fieldlists; + + /* If this "struct type" describes a template, then it + * has arguments. "template_args" points to an array of + * template arg descriptors, of length "ntemplate_args". + * The only real information in each of these template arg descriptors + * is a name. "type" will typically just point to a "struct type" with + * the placeholder TYPE_CODE_TEMPLATE_ARG type. + */ + short ntemplate_args; + struct template_arg + { + char *name; + struct type *type; + } + *template_args; + + /* If this "struct type" describes a template, it has a list + * of instantiations. "instantiations" is a pointer to an array + * of type's, one representing each instantiation. There + * are "ninstantiations" elements in this array. + */ + short ninstantiations; + struct type **instantiations; + + /* The following points to information relevant to the runtime model + * of the compiler. + * Currently being used only for HP's ANSI C++ compiler. + * (This type may have to be changed/enhanced for other compilers.) + * + * RUNTIME_PTR is NULL if there is no runtime information (currently + * this means the type was not compiled by HP aCC). + * + * Fields in structure pointed to: + * ->HAS_VTABLE : 0 => no virtual table, 1 => vtable present + * + * ->PRIMARY_BASE points to the first non-virtual base class that has + * a virtual table. + * + * ->VIRTUAL_BASE_LIST points to a list of struct type * pointers that + * point to the type information for all virtual bases among this type's + * ancestors. + */ + struct runtime_info + { + short has_vtable; + struct type *primary_base; + struct type **virtual_base_list; + } + *runtime_ptr; + + /* Pointer to information about enclosing scope, if this is a + * local type. If it is not a local type, this is NULL + */ + struct local_type_info + { + char *file; + int line; + } + *localtype_ptr; + }; + +/* Struct used in computing virtual base list */ +struct vbase + { + struct type *vbasetype; /* pointer to virtual base */ + struct vbase *next; /* next in chain */ + }; + +/* Struct used for ranking a function for overload resolution */ +struct badness_vector + { + int length; + int *rank; + }; /* The default value of TYPE_CPLUS_SPECIFIC(T) points to the this shared static structure. */ extern const struct cplus_struct_type cplus_struct_default; -extern void -allocate_cplus_struct_type PARAMS ((struct type *)); +extern void allocate_cplus_struct_type (struct type *); #define INIT_CPLUS_SPECIFIC(type) \ (TYPE_CPLUS_SPECIFIC(type)=(struct cplus_struct_type*)&cplus_struct_default) @@ -449,14 +668,41 @@ allocate_cplus_struct_type PARAMS ((struct type *)); #define TYPE_TARGET_TYPE(thistype) (thistype)->target_type #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type -#define TYPE_FUNCTION_TYPE(thistype) (thistype)->function_type +#define TYPE_CV_TYPE(thistype) (thistype)->cv_type +/* Note that if thistype is a TYPEDEF type, you have to call check_typedef. + But check_typedef does set the TYPE_LENGTH of the TYPEDEF type, + so you only have to call check_typedef once. Since allocate_value + calls check_typedef, TYPE_LENGTH (VALUE_TYPE (X)) is safe. */ #define TYPE_LENGTH(thistype) (thistype)->length #define TYPE_OBJFILE(thistype) (thistype)->objfile #define TYPE_FLAGS(thistype) (thistype)->flags #define TYPE_UNSIGNED(thistype) ((thistype)->flags & TYPE_FLAG_UNSIGNED) +#define TYPE_NOSIGN(thistype) ((thistype)->flags & TYPE_FLAG_NOSIGN) +#define TYPE_CONST(thistype) ((thistype)->flags & TYPE_FLAG_CONST) +#define TYPE_VOLATILE(thistype) ((thistype)->flags & TYPE_FLAG_VOLATILE) +#define TYPE_INCOMPLETE(thistype) ((thistype)->flags & TYPE_FLAG_INCOMPLETE) +/* Note that TYPE_CODE can be TYPE_CODE_TYPEDEF, so if you wan the real + type, you need to do TYPE_CODE (check_type (this_type)). */ #define TYPE_CODE(thistype) (thistype)->code #define TYPE_NFIELDS(thistype) (thistype)->nfields #define TYPE_FIELDS(thistype) (thistype)->fields +#define TYPE_TEMPLATE_ARGS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->template_args +#define TYPE_INSTANTIATIONS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->instantiations + +#define TYPE_INDEX_TYPE(type) TYPE_FIELD_TYPE (type, 0) +#define TYPE_LOW_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 0) +#define TYPE_HIGH_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 1) + +/* Moto-specific stuff for FORTRAN arrays */ + +#define TYPE_ARRAY_UPPER_BOUND_TYPE(thistype) (thistype)->upper_bound_type +#define TYPE_ARRAY_LOWER_BOUND_TYPE(thistype) (thistype)->lower_bound_type + +#define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \ + (TYPE_FIELD_BITPOS((TYPE_FIELD_TYPE((arraytype),0)),1)) + +#define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype) \ + (TYPE_FIELD_BITPOS((TYPE_FIELD_TYPE((arraytype),0)),0)) /* C++ */ @@ -466,24 +712,41 @@ allocate_cplus_struct_type PARAMS ((struct type *)); #define TYPE_FN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fields #define TYPE_NFN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields #define TYPE_NFN_FIELDS_TOTAL(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields_total +#define TYPE_NTEMPLATE_ARGS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->ntemplate_args +#define TYPE_NINSTANTIATIONS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->ninstantiations +#define TYPE_DECLARED_TYPE(thistype) TYPE_CPLUS_SPECIFIC(thistype)->declared_type #define TYPE_TYPE_SPECIFIC(thistype) (thistype)->type_specific #define TYPE_ARG_TYPES(thistype) (thistype)->type_specific.arg_types #define TYPE_CPLUS_SPECIFIC(thistype) (thistype)->type_specific.cplus_stuff #define TYPE_BASECLASS(thistype,index) (thistype)->fields[index].type #define TYPE_N_BASECLASSES(thistype) TYPE_CPLUS_SPECIFIC(thistype)->n_baseclasses #define TYPE_BASECLASS_NAME(thistype,index) (thistype)->fields[index].name -#define TYPE_BASECLASS_BITPOS(thistype,index) (thistype)->fields[index].bitpos -#define BASETYPE_VIA_PUBLIC(thistype, index) (!TYPE_FIELD_PRIVATE(thistype, index)) -#define BASETYPE_VIA_VIRTUAL(thistype, index) \ - B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (index)) +#define TYPE_BASECLASS_BITPOS(thistype,index) TYPE_FIELD_BITPOS(thistype,index) +#define BASETYPE_VIA_PUBLIC(thistype, index) \ + ((!TYPE_FIELD_PRIVATE(thistype, index)) && (!TYPE_FIELD_PROTECTED(thistype, index))) +#define BASETYPE_VIA_VIRTUAL(thistype, index) \ + (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \ + : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (index))) + +#define FIELD_TYPE(thisfld) ((thisfld).type) +#define FIELD_NAME(thisfld) ((thisfld).name) +#define FIELD_BITPOS(thisfld) ((thisfld).loc.bitpos) +#define FIELD_BITSIZE(thisfld) ((thisfld).bitsize) +#define FIELD_PHYSNAME(thisfld) ((thisfld).loc.physname) +#define FIELD_PHYSADDR(thisfld) ((thisfld).loc.physaddr) +#define SET_FIELD_PHYSNAME(thisfld, name) \ + ((thisfld).bitsize = -1, FIELD_PHYSNAME(thisfld) = (name)) +#define SET_FIELD_PHYSADDR(thisfld, name) \ + ((thisfld).bitsize = -2, FIELD_PHYSADDR(thisfld) = (name)) #define TYPE_FIELD(thistype, n) (thistype)->fields[n] -#define TYPE_FIELD_TYPE(thistype, n) (thistype)->fields[n].type -#define TYPE_FIELD_NAME(thistype, n) (thistype)->fields[n].name -#define TYPE_FIELD_VALUE(thistype, n) (* (int*) &(thistype)->fields[n].type) -#define TYPE_FIELD_BITPOS(thistype, n) (thistype)->fields[n].bitpos -#define TYPE_FIELD_BITSIZE(thistype, n) (thistype)->fields[n].bitsize -#define TYPE_FIELD_PACKED(thistype, n) (thistype)->fields[n].bitsize +#define TYPE_FIELD_TYPE(thistype, n) FIELD_TYPE(TYPE_FIELD(thistype, n)) +#define TYPE_FIELD_NAME(thistype, n) FIELD_NAME(TYPE_FIELD(thistype, n)) +#define TYPE_FIELD_BITPOS(thistype, n) FIELD_BITPOS(TYPE_FIELD(thistype,n)) +#define TYPE_FIELD_BITSIZE(thistype, n) FIELD_BITSIZE(TYPE_FIELD(thistype,n)) +#define TYPE_FIELD_PACKED(thistype, n) (FIELD_BITSIZE(TYPE_FIELD(thistype,n))!=0) +#define TYPE_TEMPLATE_ARG(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->template_args[n] +#define TYPE_INSTANTIATION(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->instantiations[n] #define TYPE_FIELD_PRIVATE_BITS(thistype) \ TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits @@ -511,10 +774,13 @@ allocate_cplus_struct_type PARAMS ((struct type *)); (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits == NULL ? 0 \ : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n))) #define TYPE_FIELD_VIRTUAL(thistype, n) \ - B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n)) + (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \ + : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n))) -#define TYPE_FIELD_STATIC(thistype, n) ((thistype)->fields[n].bitpos == -1) -#define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) ((char *)(thistype)->fields[n].bitsize) +#define TYPE_FIELD_STATIC(thistype, n) ((thistype)->fields[n].bitsize < 0) +#define TYPE_FIELD_STATIC_HAS_ADDR(thistype, n) ((thistype)->fields[n].bitsize == -2) +#define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) FIELD_PHYSNAME(TYPE_FIELD(thistype, n)) +#define TYPE_FIELD_STATIC_PHYSADDR(thistype, n) FIELD_PHYSADDR(TYPE_FIELD(thistype, n)) #define TYPE_FN_FIELDLISTS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists #define TYPE_FN_FIELDLIST(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n] @@ -530,12 +796,37 @@ allocate_cplus_struct_type PARAMS ((struct type *)); #define TYPE_FN_FIELD_VOLATILE(thisfn, n) ((thisfn)[n].is_volatile) #define TYPE_FN_FIELD_PRIVATE(thisfn, n) ((thisfn)[n].is_private) #define TYPE_FN_FIELD_PROTECTED(thisfn, n) ((thisfn)[n].is_protected) +#define TYPE_FN_FIELD_PUBLIC(thisfn, n) ((thisfn)[n].is_public) +#define TYPE_FN_FIELD_STATIC(thisfn, n) ((thisfn)[n].is_static) +#define TYPE_FN_FIELD_FINAL(thisfn, n) ((thisfn)[n].is_final) +#define TYPE_FN_FIELD_SYNCHRONIZED(thisfn, n) ((thisfn)[n].is_synchronized) +#define TYPE_FN_FIELD_NATIVE(thisfn, n) ((thisfn)[n].is_native) +#define TYPE_FN_FIELD_ABSTRACT(thisfn, n) ((thisfn)[n].is_abstract) #define TYPE_FN_FIELD_STUB(thisfn, n) ((thisfn)[n].is_stub) +#define TYPE_FN_FIELD_INLINED(thisfn, n) ((thisfn)[n].is_inlined) #define TYPE_FN_FIELD_FCONTEXT(thisfn, n) ((thisfn)[n].fcontext) #define TYPE_FN_FIELD_VOFFSET(thisfn, n) ((thisfn)[n].voffset-2) #define TYPE_FN_FIELD_VIRTUAL_P(thisfn, n) ((thisfn)[n].voffset > 1) #define TYPE_FN_FIELD_STATIC_P(thisfn, n) ((thisfn)[n].voffset == VOFFSET_STATIC) +#define TYPE_RUNTIME_PTR(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->runtime_ptr) +#define TYPE_VTABLE(thistype) (TYPE_RUNTIME_PTR(thistype)->has_vtable) +#define TYPE_HAS_VTABLE(thistype) (TYPE_RUNTIME_PTR(thistype) && TYPE_VTABLE(thistype)) +#define TYPE_PRIMARY_BASE(thistype) (TYPE_RUNTIME_PTR(thistype)->primary_base) +#define TYPE_VIRTUAL_BASE_LIST(thistype) (TYPE_RUNTIME_PTR(thistype)->virtual_base_list) + +#define TYPE_LOCALTYPE_PTR(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr) +#define TYPE_LOCALTYPE_FILE(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr->file) +#define TYPE_LOCALTYPE_LINE(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr->line) + +#define TYPE_IS_OPAQUE(thistype) (((TYPE_CODE (thistype) == TYPE_CODE_STRUCT) || \ + (TYPE_CODE (thistype) == TYPE_CODE_UNION)) && \ + (TYPE_NFIELDS (thistype) == 0) && \ + (TYPE_CPLUS_SPECIFIC (thistype) && (TYPE_NFN_FIELDS (thistype) == 0))) + + + +/* Implicit sizes */ extern struct type *builtin_type_void; extern struct type *builtin_type_char; extern struct type *builtin_type_short; @@ -552,6 +843,40 @@ extern struct type *builtin_type_long_double; extern struct type *builtin_type_complex; extern struct type *builtin_type_double_complex; extern struct type *builtin_type_string; +extern struct type *builtin_type_bool; + +/* Address/pointer types: */ +/* (C) Language pointer type. Some target platforms use an implicitly + {sign,zero} -extended 32 bit C language pointer on a 64 bit ISA. */ +extern struct type *builtin_type_ptr; +/* The target CPU's address type. This is the ISA address size. */ +extern struct type *builtin_type_CORE_ADDR; +/* The symbol table address type. Some object file formats have a 32 + bit address type even though the TARGET has a 64 bit pointer type + (cf MIPS). */ +extern struct type *builtin_type_bfd_vma; + +/* Explicit sizes - see C9X for naming scheme */ +extern struct type *builtin_type_int8; +extern struct type *builtin_type_uint8; +extern struct type *builtin_type_int16; +extern struct type *builtin_type_uint16; +extern struct type *builtin_type_int32; +extern struct type *builtin_type_uint32; +extern struct type *builtin_type_int64; +extern struct type *builtin_type_uint64; + +/* SIMD types. We inherit these names from GCC. */ +extern struct type *builtin_type_v4sf; +extern struct type *builtin_type_v4si; +extern struct type *builtin_type_v8qi; +extern struct type *builtin_type_v4hi; +extern struct type *builtin_type_v2si; + +/* We use this for the '/c' print format, because builtin_type_char is + just a one-byte integral type, which languages less laid back than + C will print as ... well, a one-byte integral type. */ +extern struct type *builtin_type_true_char; /* This type represents a type that was unrecognized in symbol read-in. */ @@ -577,29 +902,34 @@ extern struct type *builtin_type_chill_long; extern struct type *builtin_type_chill_ulong; extern struct type *builtin_type_chill_real; -/* CC_HAS_LONG_LONG is defined if the host has "long long". */ - -#ifdef CC_HAS_LONG_LONG - -#define BUILTIN_TYPE_LONGEST builtin_type_long_long -#define BUILTIN_TYPE_UNSIGNED_LONGEST builtin_type_unsigned_long_long - -#else /* not CC_HAS_LONG_LONG. */ - -#define BUILTIN_TYPE_LONGEST builtin_type_long -#define BUILTIN_TYPE_UNSIGNED_LONGEST builtin_type_unsigned_long - -#endif /* not CC_HAS_LONG_LONG. */ +/* Fortran (F77) types */ + +extern struct type *builtin_type_f_character; +extern struct type *builtin_type_f_integer; +extern struct type *builtin_type_f_integer_s2; +extern struct type *builtin_type_f_logical; +extern struct type *builtin_type_f_logical_s1; +extern struct type *builtin_type_f_logical_s2; +extern struct type *builtin_type_f_real; +extern struct type *builtin_type_f_real_s8; +extern struct type *builtin_type_f_real_s16; +extern struct type *builtin_type_f_complex_s8; +extern struct type *builtin_type_f_complex_s16; +extern struct type *builtin_type_f_complex_s32; +extern struct type *builtin_type_f_void; + +/* RTTI for C++ */ +/* extern struct type *builtin_type_cxx_typeinfo; */ /* Maximum and minimum values of built-in types */ #define MAX_OF_TYPE(t) \ - TYPE_UNSIGNED(t) ? UMAX_OF_SIZE(TYPE_LENGTH(t)) \ - : MAX_OF_SIZE(TYPE_LENGTH(t)) + (TYPE_UNSIGNED(t) ? UMAX_OF_SIZE(TYPE_LENGTH(t)) \ + : MAX_OF_SIZE(TYPE_LENGTH(t))) #define MIN_OF_TYPE(t) \ - TYPE_UNSIGNED(t) ? UMIN_OF_SIZE(TYPE_LENGTH(t)) \ - : MIN_OF_SIZE(TYPE_LENGTH(t)) + (TYPE_UNSIGNED(t) ? UMIN_OF_SIZE(TYPE_LENGTH(t)) \ + : MIN_OF_SIZE(TYPE_LENGTH(t))) /* Allocate space for storing data associated with a particular type. We ensure that the space is allocated using the same mechanism that @@ -615,102 +945,188 @@ extern struct type *builtin_type_chill_real; ? obstack_alloc (&TYPE_OBJFILE (t) -> type_obstack, size) \ : xmalloc (size)) -extern struct type * -alloc_type PARAMS ((struct objfile *)); +extern struct type *alloc_type (struct objfile *); -extern struct type * -init_type PARAMS ((enum type_code, int, int, char *, struct objfile *)); +extern struct type *init_type (enum type_code, int, int, char *, + struct objfile *); -extern struct type * -lookup_reference_type PARAMS ((struct type *)); +extern struct type *lookup_reference_type (struct type *); -extern struct type * -make_reference_type PARAMS ((struct type *, struct type **)); +extern struct type *make_reference_type (struct type *, struct type **); -extern struct type * -lookup_member_type PARAMS ((struct type *, struct type *)); +extern struct type *make_cv_type (int, int, struct type *, struct type **); + +extern struct type *lookup_member_type (struct type *, struct type *); extern void -smash_to_method_type PARAMS ((struct type *, struct type *, struct type *, - struct type **)); +smash_to_method_type (struct type *, struct type *, struct type *, + struct type **); extern void -smash_to_member_type PARAMS ((struct type *, struct type *, struct type *)); +smash_to_member_type (struct type *, struct type *, struct type *); -extern struct type * -allocate_stub_method PARAMS ((struct type *)); +extern struct type *allocate_stub_method (struct type *); -extern char * -type_name_no_tag PARAMS ((const struct type *)); +extern char *type_name_no_tag (const struct type *); -extern struct type * -lookup_struct_elt_type PARAMS ((struct type *, char *, int)); +extern struct type *lookup_struct_elt_type (struct type *, char *, int); -extern struct type * -make_pointer_type PARAMS ((struct type *, struct type **)); +extern struct type *make_pointer_type (struct type *, struct type **); -extern struct type * -lookup_pointer_type PARAMS ((struct type *)); +extern struct type *lookup_pointer_type (struct type *); -extern struct type * -make_function_type PARAMS ((struct type *, struct type **)); +extern struct type *make_function_type (struct type *, struct type **); -extern struct type * -lookup_function_type PARAMS ((struct type *)); +extern struct type *lookup_function_type (struct type *); -extern struct type * -create_range_type PARAMS ((struct type *, struct type *, int, int)); +extern struct type *create_range_type (struct type *, struct type *, int, + int); -extern struct type * -create_array_type PARAMS ((struct type *, struct type *, struct type *)); +extern struct type *create_array_type (struct type *, struct type *, + struct type *); -extern struct type * -create_string_type PARAMS ((struct type *, struct type *)); +extern struct type *create_string_type (struct type *, struct type *); -extern struct type * -lookup_unsigned_typename PARAMS ((char *)); +extern struct type *create_set_type (struct type *, struct type *); -extern struct type * -lookup_signed_typename PARAMS ((char *)); +extern int chill_varying_type (struct type *); -extern void -check_stub_type PARAMS ((struct type *)); +extern struct type *lookup_unsigned_typename (char *); -extern void -check_stub_method PARAMS ((struct type *, int, int)); +extern struct type *lookup_signed_typename (char *); -extern struct type * -lookup_primitive_typename PARAMS ((char *)); +extern struct type *check_typedef (struct type *); -extern char * -gdb_mangle_name PARAMS ((struct type *, int, int)); +#define CHECK_TYPEDEF(TYPE) (TYPE) = check_typedef (TYPE) -extern struct type * -builtin_type PARAMS ((char **)); +extern void check_stub_method (struct type *, int, int); -extern struct type * -lookup_typename PARAMS ((char *, struct block *, int)); +extern struct type *lookup_primitive_typename (char *); -extern struct type * -lookup_template_type PARAMS ((char *, struct type *, struct block *)); +extern char *gdb_mangle_name (struct type *, int, int); -extern struct type * -lookup_fundamental_type PARAMS ((struct objfile *, int)); +extern struct type *builtin_type (char **); -extern void -fill_in_vptr_fieldno PARAMS ((struct type *)); +extern struct type *lookup_typename (char *, struct block *, int); + +extern struct type *lookup_template_type (char *, struct type *, + struct block *); + +extern struct type *lookup_fundamental_type (struct objfile *, int); + +extern void fill_in_vptr_fieldno (struct type *); + +extern int get_destructor_fn_field (struct type *, int *, int *); + +extern int get_discrete_bounds (struct type *, LONGEST *, LONGEST *); + +extern int is_ancestor (struct type *, struct type *); + +extern int has_vtable (struct type *); + +extern struct type *primary_base_class (struct type *); + +extern struct type **virtual_base_list (struct type *); + +extern int virtual_base_list_length (struct type *); +extern int virtual_base_list_length_skip_primaries (struct type *); + +extern int virtual_base_index (struct type *, struct type *); +extern int virtual_base_index_skip_primaries (struct type *, struct type *); + + +extern int class_index_in_primary_list (struct type *); + +extern int count_virtual_fns (struct type *); + +/* Constants for HP/Taligent ANSI C++ runtime model */ + +/* Where virtual function entries begin in the + * virtual table, in the non-RRBC vtable format. + * First 4 are the metavtable pointer, top offset, + * typeinfo pointer, and dup base info pointer */ +#define HP_ACC_VFUNC_START 4 -#if MAINTENANCE_CMDS -extern void recursive_dump_type PARAMS ((struct type *, int)); -#endif +/* (Negative) Offset where virtual base offset entries begin + * in the virtual table. Skips over metavtable pointer and + * the self-offset entry. + * NOTE: NEGATE THIS BEFORE USING! The virtual base offsets + * appear before the address point of the vtable (the slot + * pointed to by the object's vtable pointer), i.e. at lower + * addresses than the vtable pointer. */ +#define HP_ACC_VBASE_START 2 + +/* (Positive) Offset where the pointer to the typeinfo + * object is present in the virtual table */ +#define HP_ACC_TYPEINFO_OFFSET 2 + +/* (Positive) Offset where the ``top offset'' entry of + * the virtual table is */ +#define HP_ACC_TOP_OFFSET_OFFSET 1 + +/* Overload resolution */ + +#define LENGTH_MATCH(bv) ((bv)->rank[0]) + +/* Badness if parameter list length doesn't match arg list length */ +#define LENGTH_MISMATCH_BADNESS 100 +/* Dummy badness value for nonexistent parameter positions */ +#define TOO_FEW_PARAMS_BADNESS 100 +/* Badness if no conversion among types */ +#define INCOMPATIBLE_TYPE_BADNESS 100 +/* Badness of coercing large integer to smaller size */ +#define INTEGER_COERCION_BADNESS 100 +/* Badness of coercing large floating type to smaller size */ +#define FLOAT_COERCION_BADNESS 100 + +/* Badness of integral promotion */ +#define INTEGER_PROMOTION_BADNESS 1 +/* Badness of floating promotion */ +#define FLOAT_PROMOTION_BADNESS 1 +/* Badness of integral conversion */ +#define INTEGER_CONVERSION_BADNESS 2 +/* Badness of floating conversion */ +#define FLOAT_CONVERSION_BADNESS 2 +/* Badness of integer<->floating conversions */ +#define INT_FLOAT_CONVERSION_BADNESS 2 +/* Badness of converting to a boolean */ +#define BOOLEAN_CONVERSION_BADNESS 2 +/* Badness of pointer conversion */ +#define POINTER_CONVERSION_BADNESS 2 +/* Badness of conversion of pointer to void pointer */ +#define VOID_PTR_CONVERSION_BADNESS 2 +/* Badness of converting derived to base class */ +#define BASE_CONVERSION_BADNESS 2 +/* Badness of converting from non-reference to reference */ +#define REFERENCE_CONVERSION_BADNESS 2 + +/* Non-standard conversions allowed by the debugger */ +/* Converting a pointer to an int is usually OK */ +#define NS_POINTER_CONVERSION_BADNESS 10 + + +extern int compare_badness (struct badness_vector *, struct badness_vector *); + +extern struct badness_vector *rank_function (struct type **, int, + struct type **, int); + +extern int rank_one_type (struct type *, struct type *); + +extern void recursive_dump_type (struct type *, int); /* printcmd.c */ -extern void -print_scalar_formatted PARAMS ((char *, struct type *, int, int, GDB_FILE *)); +extern void print_scalar_formatted (char *, struct type *, int, int, + struct ui_file *); + +extern int can_dereference (struct type *); + +extern int is_integral_type (struct type *); + +extern void maintenance_print_type (char *, int); + +/* typeprint.c */ -#if MAINTENANCE_CMDS -extern void maintenance_print_type PARAMS ((char *, int)); -#endif +extern void print_type_scalar (struct type *, LONGEST, struct ui_file *); -#endif /* GDBTYPES_H */ +#endif /* GDBTYPES_H */