]>
Commit | Line | Data |
---|---|---|
c906108c SS |
1 | /* Internal type definitions for GDB. |
2 | Copyright (C) 1992, 1993, 1994, 1996, 1998, 1999 | |
3 | Free Software Foundation, Inc. | |
4 | Contributed by Cygnus Support, using pieces from other GDB modules. | |
5 | ||
6 | This file is part of GDB. | |
7 | ||
8 | This program is free software; you can redistribute it and/or modify | |
9 | it under the terms of the GNU General Public License as published by | |
10 | the Free Software Foundation; either version 2 of the License, or | |
11 | (at your option) any later version. | |
12 | ||
13 | This program is distributed in the hope that it will be useful, | |
14 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | GNU General Public License for more details. | |
17 | ||
18 | You should have received a copy of the GNU General Public License | |
19 | along with this program; if not, write to the Free Software | |
20 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
21 | ||
22 | #if !defined (GDBTYPES_H) | |
23 | #define GDBTYPES_H 1 | |
24 | ||
25 | /* Codes for `fundamental types'. This is a monstrosity based on the | |
26 | bogus notion that there are certain compiler-independent | |
27 | `fundamental types'. None of these is well-defined (how big is | |
28 | FT_SHORT? Does it depend on the language? How does the | |
29 | language-specific code know which type to correlate to FT_SHORT?) */ | |
30 | ||
31 | #define FT_VOID 0 | |
32 | #define FT_BOOLEAN 1 | |
33 | #define FT_CHAR 2 /* we use this for not-unsigned C/C++ chars */ | |
34 | #define FT_SIGNED_CHAR 3 /* we use this for C++ signed chars */ | |
35 | #define FT_UNSIGNED_CHAR 4 /* we use this for C/C++ unsigned chars */ | |
36 | #define FT_SHORT 5 | |
37 | #define FT_SIGNED_SHORT 6 | |
38 | #define FT_UNSIGNED_SHORT 7 | |
39 | #define FT_INTEGER 8 | |
40 | #define FT_SIGNED_INTEGER 9 | |
41 | #define FT_UNSIGNED_INTEGER 10 | |
42 | #define FT_LONG 11 | |
43 | #define FT_SIGNED_LONG 12 | |
44 | #define FT_UNSIGNED_LONG 13 | |
45 | #define FT_LONG_LONG 14 | |
46 | #define FT_SIGNED_LONG_LONG 15 | |
47 | #define FT_UNSIGNED_LONG_LONG 16 | |
48 | #define FT_FLOAT 17 | |
49 | #define FT_DBL_PREC_FLOAT 18 | |
50 | #define FT_EXT_PREC_FLOAT 19 | |
51 | #define FT_COMPLEX 20 | |
52 | #define FT_DBL_PREC_COMPLEX 21 | |
53 | #define FT_EXT_PREC_COMPLEX 22 | |
54 | #define FT_STRING 23 | |
55 | #define FT_FIXED_DECIMAL 24 | |
56 | #define FT_FLOAT_DECIMAL 25 | |
57 | #define FT_BYTE 26 | |
58 | #define FT_UNSIGNED_BYTE 27 | |
59 | #define FT_TEMPLATE_ARG 28 | |
60 | ||
61 | #define FT_NUM_MEMBERS 29 /* Highest FT_* above, plus one. */ | |
62 | ||
63 | /* Some macros for char-based bitfields. */ | |
64 | ||
65 | #define B_SET(a,x) ((a)[(x)>>3] |= (1 << ((x)&7))) | |
66 | #define B_CLR(a,x) ((a)[(x)>>3] &= ~(1 << ((x)&7))) | |
67 | #define B_TST(a,x) ((a)[(x)>>3] & (1 << ((x)&7))) | |
68 | #define B_TYPE unsigned char | |
69 | #define B_BYTES(x) ( 1 + ((x)>>3) ) | |
70 | #define B_CLRALL(a,x) memset ((a), 0, B_BYTES(x)) | |
71 | ||
72 | /* Different kinds of data types are distinguished by the `code' field. */ | |
73 | ||
74 | enum type_code | |
75 | { | |
76 | TYPE_CODE_UNDEF, /* Not used; catches errors */ | |
77 | TYPE_CODE_PTR, /* Pointer type */ | |
78 | TYPE_CODE_ARRAY, /* Array type with lower & upper bounds. */ | |
79 | TYPE_CODE_STRUCT, /* C struct or Pascal record */ | |
80 | TYPE_CODE_UNION, /* C union or Pascal variant part */ | |
81 | TYPE_CODE_ENUM, /* Enumeration type */ | |
82 | TYPE_CODE_FUNC, /* Function type */ | |
83 | TYPE_CODE_INT, /* Integer type */ | |
84 | ||
85 | /* Floating type. This is *NOT* a complex type. Beware, there are parts | |
86 | of GDB which bogusly assume that TYPE_CODE_FLT can mean complex. */ | |
87 | TYPE_CODE_FLT, | |
88 | ||
89 | /* Void type. The length field specifies the length (probably always | |
90 | one) which is used in pointer arithmetic involving pointers to | |
91 | this type, but actually dereferencing such a pointer is invalid; | |
92 | a void type has no length and no actual representation in memory | |
93 | or registers. A pointer to a void type is a generic pointer. */ | |
94 | TYPE_CODE_VOID, | |
95 | ||
96 | TYPE_CODE_SET, /* Pascal sets */ | |
97 | TYPE_CODE_RANGE, /* Range (integers within spec'd bounds) */ | |
98 | ||
99 | /* A string type which is like an array of character but prints | |
100 | differently (at least for CHILL). It does not contain a length | |
101 | field as Pascal strings (for many Pascals, anyway) do; if we want | |
102 | to deal with such strings, we should use a new type code. */ | |
103 | TYPE_CODE_STRING, | |
104 | ||
105 | /* String of bits; like TYPE_CODE_SET but prints differently (at least | |
106 | for CHILL). */ | |
107 | TYPE_CODE_BITSTRING, | |
108 | ||
109 | /* Unknown type. The length field is valid if we were able to | |
110 | deduce that much about the type, or 0 if we don't even know that. */ | |
111 | TYPE_CODE_ERROR, | |
112 | ||
113 | /* C++ */ | |
114 | TYPE_CODE_MEMBER, /* Member type */ | |
115 | TYPE_CODE_METHOD, /* Method type */ | |
116 | TYPE_CODE_REF, /* C++ Reference types */ | |
117 | ||
118 | TYPE_CODE_CHAR, /* *real* character type */ | |
119 | ||
120 | /* Boolean type. 0 is false, 1 is true, and other values are non-boolean | |
121 | (e.g. FORTRAN "logical" used as unsigned int). */ | |
122 | TYPE_CODE_BOOL, | |
123 | ||
124 | /* Fortran */ | |
125 | TYPE_CODE_COMPLEX, /* Complex float */ | |
126 | ||
127 | TYPE_CODE_TYPEDEF, | |
128 | TYPE_CODE_TEMPLATE, /* C++ template */ | |
129 | TYPE_CODE_TEMPLATE_ARG /* C++ template arg */ | |
130 | ||
131 | }; | |
132 | ||
133 | /* For now allow source to use TYPE_CODE_CLASS for C++ classes, as an | |
134 | alias for TYPE_CODE_STRUCT. This is for DWARF, which has a distinct | |
135 | "class" attribute. Perhaps we should actually have a separate TYPE_CODE | |
136 | so that we can print "class" or "struct" depending on what the debug | |
137 | info said. It's not clear we should bother. */ | |
138 | ||
139 | #define TYPE_CODE_CLASS TYPE_CODE_STRUCT | |
140 | ||
141 | /* Some bits for the type's flags word. */ | |
142 | ||
143 | /* Unsigned integer type. If this is not set for a TYPE_CODE_INT, the | |
144 | type is signed (unless TYPE_FLAG_NOSIGN (below) is set). */ | |
145 | ||
146 | #define TYPE_FLAG_UNSIGNED (1 << 0) | |
147 | ||
148 | /* No sign for this type. In C++, "char", "signed char", and "unsigned | |
149 | char" are distinct types; so we need an extra flag to indicate the | |
150 | absence ofa sign! */ | |
151 | ||
152 | #define TYPE_FLAG_NOSIGN (1 << 1) | |
153 | ||
154 | /* This appears in a type's flags word if it is a stub type (e.g., if | |
155 | someone referenced a type that wasn't defined in a source file | |
156 | via (struct sir_not_appearing_in_this_film *)). */ | |
157 | ||
158 | #define TYPE_FLAG_STUB (1 << 2) | |
159 | ||
160 | /* The target type of this type is a stub type, and this type needs to | |
161 | be updated if it gets un-stubbed in check_typedef. | |
162 | Used for arrays and ranges, in which TYPE_LENGTH of the array/range | |
163 | gets set based on the TYPE_LENGTH of the target type. | |
164 | Also, set for TYPE_CODE_TYPEDEF. */ | |
165 | ||
166 | #define TYPE_FLAG_TARGET_STUB (1 << 3) | |
167 | ||
168 | /* Static type. If this is set, the corresponding type had | |
169 | * a static modifier. | |
170 | * Note: This may be unnecessary, since static data members | |
171 | * are indicated by other means (bitpos == -1) | |
172 | */ | |
173 | ||
174 | #define TYPE_FLAG_STATIC (1 << 4) | |
175 | ||
176 | /* Constant type. If this is set, the corresponding type has a | |
177 | * const modifier. | |
178 | */ | |
179 | ||
180 | #define TYPE_FLAG_CONST (1 << 5) | |
181 | ||
182 | /* Volatile type. If this is set, the corresponding type has a | |
183 | * volatile modifier. | |
184 | */ | |
185 | ||
186 | #define TYPE_FLAG_VOLATILE (1 << 6) | |
187 | ||
188 | ||
189 | /* This is a function type which appears to have a prototype. We need this | |
190 | for function calls in order to tell us if it's necessary to coerce the args, | |
191 | or to just do the standard conversions. This is used with a short field. */ | |
192 | ||
193 | #define TYPE_FLAG_PROTOTYPED (1 << 7) | |
194 | ||
195 | /* This flag is used to indicate that processing for this type | |
196 | is incomplete. | |
197 | ||
198 | (Mostly intended for HP platforms, where class methods, for | |
199 | instance, can be encountered before their classes in the debug | |
200 | info; the incomplete type has to be marked so that the class and | |
201 | the method can be assigned correct types.) */ | |
202 | ||
203 | #define TYPE_FLAG_INCOMPLETE (1 << 8) | |
204 | ||
205 | ||
206 | struct type | |
207 | { | |
208 | ||
209 | /* Code for kind of type */ | |
210 | ||
211 | enum type_code code; | |
212 | ||
213 | /* Name of this type, or NULL if none. | |
214 | ||
215 | This is used for printing only, except by poorly designed C++ code. | |
216 | For looking up a name, look for a symbol in the VAR_NAMESPACE. */ | |
217 | ||
218 | char *name; | |
219 | ||
220 | /* Tag name for this type, or NULL if none. This means that the | |
221 | name of the type consists of a keyword followed by the tag name. | |
222 | Which keyword is determined by the type code ("struct" for | |
223 | TYPE_CODE_STRUCT, etc.). As far as I know C/C++ are the only languages | |
224 | with this feature. | |
225 | ||
226 | This is used for printing only, except by poorly designed C++ code. | |
227 | For looking up a name, look for a symbol in the STRUCT_NAMESPACE. | |
228 | One more legitimate use is that if TYPE_FLAG_STUB is set, this is | |
229 | the name to use to look for definitions in other files. */ | |
230 | ||
231 | char *tag_name; | |
232 | ||
233 | /* Length of storage for a value of this type. Various places pass | |
234 | this to memcpy and such, meaning it must be in units of | |
235 | HOST_CHAR_BIT. Various other places expect they can calculate | |
236 | addresses by adding it and such, meaning it must be in units of | |
237 | TARGET_CHAR_BIT. For some DSP targets, in which HOST_CHAR_BIT | |
238 | will (presumably) be 8 and TARGET_CHAR_BIT will be (say) 32, this | |
239 | is a problem. One fix would be to make this field in bits | |
240 | (requiring that it always be a multiple of HOST_CHAR_BIT and | |
241 | TARGET_CHAR_BIT)--the other choice would be to make it | |
242 | consistently in units of HOST_CHAR_BIT. */ | |
243 | ||
244 | unsigned length; | |
245 | ||
246 | /* FIXME, these should probably be restricted to a Fortran-specific | |
247 | field in some fashion. */ | |
248 | #define BOUND_CANNOT_BE_DETERMINED 5 | |
249 | #define BOUND_BY_REF_ON_STACK 4 | |
250 | #define BOUND_BY_VALUE_ON_STACK 3 | |
251 | #define BOUND_BY_REF_IN_REG 2 | |
252 | #define BOUND_BY_VALUE_IN_REG 1 | |
253 | #define BOUND_SIMPLE 0 | |
254 | int upper_bound_type; | |
255 | int lower_bound_type; | |
256 | ||
257 | /* Every type is now associated with a particular objfile, and the | |
258 | type is allocated on the type_obstack for that objfile. One problem | |
259 | however, is that there are times when gdb allocates new types while | |
260 | it is not in the process of reading symbols from a particular objfile. | |
261 | Fortunately, these happen when the type being created is a derived | |
262 | type of an existing type, such as in lookup_pointer_type(). So | |
263 | we can just allocate the new type using the same objfile as the | |
264 | existing type, but to do this we need a backpointer to the objfile | |
265 | from the existing type. Yes this is somewhat ugly, but without | |
266 | major overhaul of the internal type system, it can't be avoided | |
267 | for now. */ | |
268 | ||
269 | struct objfile *objfile; | |
270 | ||
271 | /* For a pointer type, describes the type of object pointed to. | |
272 | For an array type, describes the type of the elements. | |
273 | For a function or method type, describes the type of the return value. | |
274 | For a range type, describes the type of the full range. | |
275 | For a complex type, describes the type of each coordinate. | |
276 | Unused otherwise. */ | |
277 | ||
278 | struct type *target_type; | |
279 | ||
280 | /* Type that is a pointer to this type. | |
281 | NULL if no such pointer-to type is known yet. | |
282 | The debugger may add the address of such a type | |
283 | if it has to construct one later. */ | |
284 | ||
285 | struct type *pointer_type; | |
286 | ||
287 | /* C++: also need a reference type. */ | |
288 | ||
289 | struct type *reference_type; | |
290 | ||
291 | /* C-v variant chain. This points to a type that | |
292 | differs from this one only in a const or volatile | |
293 | attribute (or both). The various c-v variants | |
294 | are chained together in a ring. */ | |
295 | struct type *cv_type; | |
296 | ||
297 | /* Flags about this type. */ | |
298 | ||
299 | int flags; | |
300 | ||
301 | /* Number of fields described for this type */ | |
302 | ||
303 | short nfields; | |
304 | ||
305 | /* For structure and union types, a description of each field. | |
306 | For set and pascal array types, there is one "field", | |
307 | whose type is the domain type of the set or array. | |
308 | For range types, there are two "fields", | |
309 | the minimum and maximum values (both inclusive). | |
310 | For enum types, each possible value is described by one "field". | |
311 | For a function type, a "field" for each parameter type. | |
312 | For C++ classes, there is one field for each base class (if it is | |
313 | a derived class) plus one field for each class data member. Member | |
314 | functions are recorded elsewhere. | |
315 | ||
316 | Using a pointer to a separate array of fields | |
317 | allows all types to have the same size, which is useful | |
318 | because we can allocate the space for a type before | |
319 | we know what to put in it. */ | |
320 | ||
321 | struct field | |
322 | { | |
323 | ||
324 | ||
325 | ||
326 | union field_location | |
327 | { | |
328 | /* Position of this field, counting in bits from start of | |
329 | containing structure. | |
330 | For BITS_BIG_ENDIAN=1 targets, it is the bit offset to the MSB. | |
331 | For BITS_BIG_ENDIAN=0 targets, it is the bit offset to the LSB. | |
332 | For a function type, this is the position in the argument list | |
333 | of this argument. | |
334 | For a range bound or enum value, this is the value itself. */ | |
335 | ||
336 | int bitpos; | |
337 | ||
338 | /* For a static field, if TYPE_FIELD_STATIC_HAS_ADDR then physaddr | |
339 | is the location (in the target) of the static field. | |
340 | Otherwise, physname is the mangled label of the static field. */ | |
341 | ||
342 | CORE_ADDR physaddr; | |
343 | char* physname; | |
344 | } loc; | |
345 | ||
346 | /* Size of this field, in bits, or zero if not packed. | |
347 | For an unpacked field, the field's type's length | |
348 | says how many bytes the field occupies. | |
349 | A value of -1 or -2 indicates a static field; -1 means the location | |
350 | is specified by the label loc.physname; -2 means that loc.physaddr | |
351 | specifies the actual address. */ | |
352 | ||
353 | int bitsize; | |
354 | ||
355 | /* In a struct or union type, type of this field. | |
356 | In a function type, type of this argument. | |
357 | In an array type, the domain-type of the array. */ | |
358 | ||
359 | struct type *type; | |
360 | ||
361 | /* Name of field, value or argument. | |
362 | NULL for range bounds and array domains. */ | |
363 | ||
364 | char *name; | |
365 | ||
366 | } *fields; | |
367 | ||
368 | /* For types with virtual functions (TYPE_CODE_STRUCT), VPTR_BASETYPE | |
369 | is the base class which defined the virtual function table pointer. | |
370 | ||
371 | For types that are pointer to member types (TYPE_CODE_MEMBER), | |
372 | VPTR_BASETYPE is the type that this pointer is a member of. | |
373 | ||
374 | For method types (TYPE_CODE_METHOD), VPTR_BASETYPE is the aggregate | |
375 | type that contains the method. | |
376 | ||
377 | Unused otherwise. */ | |
378 | ||
379 | struct type *vptr_basetype; | |
380 | ||
381 | /* Field number of the virtual function table pointer in | |
382 | VPTR_BASETYPE. If -1, we were unable to find the virtual | |
383 | function table pointer in initial symbol reading, and | |
384 | fill_in_vptr_fieldno should be called to find it if possible. | |
385 | ||
386 | Unused if this type does not have virtual functions. */ | |
387 | ||
388 | int vptr_fieldno; | |
389 | ||
390 | /* Slot to point to additional language-specific fields of this type. */ | |
391 | ||
392 | union type_specific | |
393 | { | |
394 | ||
395 | /* ARG_TYPES is for TYPE_CODE_METHOD. | |
396 | Contains the type of each argument, ending with a void type | |
397 | after the last argument for normal member functions or a NULL | |
398 | pointer after the last argument for functions with variable | |
399 | arguments. */ | |
400 | ||
401 | struct type **arg_types; | |
402 | ||
403 | /* CPLUS_STUFF is for TYPE_CODE_STRUCT. It is initialized to point to | |
404 | cplus_struct_default, a default static instance of a struct | |
405 | cplus_struct_type. */ | |
406 | ||
407 | struct cplus_struct_type *cplus_stuff; | |
408 | ||
409 | } type_specific; | |
410 | }; | |
411 | ||
412 | #define NULL_TYPE ((struct type *) 0) | |
413 | ||
414 | /* C++ language-specific information for TYPE_CODE_STRUCT and TYPE_CODE_UNION | |
415 | nodes. */ | |
416 | ||
417 | struct cplus_struct_type | |
418 | { | |
419 | /* Number of base classes this type derives from. The baseclasses are | |
420 | stored in the first N_BASECLASSES fields (i.e. the `fields' field of | |
421 | the struct type). I think only the `type' field of such a field has | |
422 | any meaning. */ | |
423 | ||
424 | short n_baseclasses; | |
425 | ||
426 | /* Number of methods with unique names. All overloaded methods with | |
427 | the same name count only once. */ | |
428 | ||
429 | short nfn_fields; | |
430 | ||
431 | /* Number of methods described for this type, not including the | |
432 | methods that it derives from. */ | |
433 | ||
434 | short nfn_fields_total; | |
435 | ||
436 | /* The "declared_type" field contains a code saying how the | |
437 | user really declared this type, e.g., "class s", "union s", | |
438 | "struct s". | |
439 | The 3 above things come out from the C++ compiler looking like classes, | |
440 | but we keep track of the real declaration so we can give | |
441 | the correct information on "ptype". (Note: TEMPLATE may not | |
442 | belong in this list...) */ | |
443 | ||
444 | #define DECLARED_TYPE_CLASS 0 | |
445 | #define DECLARED_TYPE_UNION 1 | |
446 | #define DECLARED_TYPE_STRUCT 2 | |
447 | #define DECLARED_TYPE_TEMPLATE 3 | |
448 | short declared_type; /* One of the above codes */ | |
449 | ||
450 | /* For derived classes, the number of base classes is given by n_baseclasses | |
451 | and virtual_field_bits is a bit vector containing one bit per base class. | |
452 | If the base class is virtual, the corresponding bit will be set. | |
453 | I.E, given: | |
454 | ||
455 | class A{}; | |
456 | class B{}; | |
457 | class C : public B, public virtual A {}; | |
458 | ||
459 | B is a baseclass of C; A is a virtual baseclass for C. | |
460 | This is a C++ 2.0 language feature. */ | |
461 | ||
462 | B_TYPE *virtual_field_bits; | |
463 | ||
464 | /* For classes with private fields, the number of fields is given by | |
465 | nfields and private_field_bits is a bit vector containing one bit | |
466 | per field. | |
467 | If the field is private, the corresponding bit will be set. */ | |
468 | ||
469 | B_TYPE *private_field_bits; | |
470 | ||
471 | /* For classes with protected fields, the number of fields is given by | |
472 | nfields and protected_field_bits is a bit vector containing one bit | |
473 | per field. | |
474 | If the field is private, the corresponding bit will be set. */ | |
475 | ||
476 | B_TYPE *protected_field_bits; | |
477 | ||
478 | /* for classes with fields to be ignored, either this is optimized out | |
479 | or this field has length 0 */ | |
480 | ||
481 | B_TYPE *ignore_field_bits; | |
482 | ||
483 | /* For classes, structures, and unions, a description of each field, | |
484 | which consists of an overloaded name, followed by the types of | |
485 | arguments that the method expects, and then the name after it | |
486 | has been renamed to make it distinct. | |
487 | ||
488 | fn_fieldlists points to an array of nfn_fields of these. */ | |
489 | ||
490 | struct fn_fieldlist | |
491 | { | |
492 | ||
493 | /* The overloaded name. */ | |
494 | ||
495 | char *name; | |
496 | ||
497 | /* The number of methods with this name. */ | |
498 | ||
499 | int length; | |
500 | ||
501 | /* The list of methods. */ | |
502 | ||
503 | struct fn_field | |
504 | { | |
505 | ||
506 | /* If is_stub is clear, this is the mangled name which we can | |
507 | look up to find the address of the method (FIXME: it would | |
508 | be cleaner to have a pointer to the struct symbol here | |
509 | instead). */ | |
510 | ||
511 | /* If is_stub is set, this is the portion of the mangled | |
512 | name which specifies the arguments. For example, "ii", | |
513 | if there are two int arguments, or "" if there are no | |
514 | arguments. See gdb_mangle_name for the conversion from this | |
515 | format to the one used if is_stub is clear. */ | |
516 | ||
517 | char *physname; | |
518 | ||
519 | /* The function type for the method. | |
520 | (This comment used to say "The return value of the method", | |
521 | but that's wrong. The function type | |
522 | is expected here, i.e. something with TYPE_CODE_FUNC, | |
523 | and *not* the return-value type). */ | |
524 | ||
525 | struct type *type; | |
526 | ||
527 | /* The argument list. Only valid if is_stub is clear. Contains | |
528 | the type of each argument, including `this', and ending with | |
529 | a NULL pointer after the last argument. Should not contain | |
530 | a `this' pointer for static member functions. */ | |
531 | ||
532 | struct type **args; | |
533 | ||
534 | /* For virtual functions. | |
535 | First baseclass that defines this virtual function. */ | |
536 | ||
537 | struct type *fcontext; | |
538 | ||
539 | /* Attributes. */ | |
540 | ||
541 | unsigned int is_const : 1; | |
542 | unsigned int is_volatile : 1; | |
543 | unsigned int is_private : 1; | |
544 | unsigned int is_protected : 1; | |
545 | unsigned int is_public : 1; | |
546 | unsigned int is_abstract : 1; | |
547 | unsigned int is_static : 1; | |
548 | unsigned int is_final : 1; | |
549 | unsigned int is_synchronized : 1; | |
550 | unsigned int is_native : 1; | |
551 | ||
552 | /* A stub method only has some fields valid (but they are enough | |
553 | to reconstruct the rest of the fields). */ | |
554 | unsigned int is_stub : 1; | |
555 | ||
556 | /* C++ method that is inlined */ | |
557 | unsigned int is_inlined : 1; | |
558 | ||
559 | /* Unused. */ | |
560 | unsigned int dummy : 4; | |
561 | ||
562 | /* Index into that baseclass's virtual function table, | |
563 | minus 2; else if static: VOFFSET_STATIC; else: 0. */ | |
564 | ||
565 | unsigned int voffset : 16; | |
566 | ||
567 | # define VOFFSET_STATIC 1 | |
568 | ||
569 | } *fn_fields; | |
570 | ||
571 | } *fn_fieldlists; | |
572 | ||
573 | /* If this "struct type" describes a template, then it | |
574 | * has arguments. "template_args" points to an array of | |
575 | * template arg descriptors, of length "ntemplate_args". | |
576 | * The only real information in each of these template arg descriptors | |
577 | * is a name. "type" will typically just point to a "struct type" with | |
578 | * the placeholder TYPE_CODE_TEMPLATE_ARG type. | |
579 | */ | |
580 | short ntemplate_args; | |
581 | struct template_arg | |
582 | { | |
583 | char *name; | |
584 | struct type *type; | |
585 | } *template_args; | |
586 | ||
587 | /* If this "struct type" describes a template, it has a list | |
588 | * of instantiations. "instantiations" is a pointer to an array | |
589 | * of type's, one representing each instantiation. There | |
590 | * are "ninstantiations" elements in this array. | |
591 | */ | |
592 | short ninstantiations; | |
593 | struct type **instantiations; | |
594 | ||
595 | /* The following points to information relevant to the runtime model | |
596 | * of the compiler. | |
597 | * Currently being used only for HP's ANSI C++ compiler. | |
598 | * (This type may have to be changed/enhanced for other compilers.) | |
599 | * | |
600 | * RUNTIME_PTR is NULL if there is no runtime information (currently | |
601 | * this means the type was not compiled by HP aCC). | |
602 | * | |
603 | * Fields in structure pointed to: | |
604 | * ->HAS_VTABLE : 0 => no virtual table, 1 => vtable present | |
605 | * | |
606 | * ->PRIMARY_BASE points to the first non-virtual base class that has | |
607 | * a virtual table. | |
608 | * | |
609 | * ->VIRTUAL_BASE_LIST points to a list of struct type * pointers that | |
610 | * point to the type information for all virtual bases among this type's | |
611 | * ancestors. | |
612 | */ | |
613 | struct runtime_info { | |
614 | short has_vtable; | |
615 | struct type * primary_base; | |
616 | struct type ** virtual_base_list; | |
617 | } * runtime_ptr; | |
618 | ||
619 | /* Pointer to information about enclosing scope, if this is a | |
620 | * local type. If it is not a local type, this is NULL | |
621 | */ | |
622 | struct local_type_info { | |
623 | char * file; | |
624 | int line; | |
625 | } * localtype_ptr; | |
626 | }; | |
627 | ||
628 | /* Struct used in computing virtual base list */ | |
629 | struct vbase | |
630 | { | |
631 | struct type * vbasetype; /* pointer to virtual base */ | |
632 | struct vbase * next; /* next in chain */ | |
633 | }; | |
634 | ||
635 | /* Struct used for ranking a function for overload resolution */ | |
636 | struct badness_vector { | |
637 | int length; | |
638 | int * rank; | |
639 | }; | |
640 | ||
641 | /* The default value of TYPE_CPLUS_SPECIFIC(T) points to the | |
642 | this shared static structure. */ | |
643 | ||
644 | extern const struct cplus_struct_type cplus_struct_default; | |
645 | ||
646 | extern void | |
647 | allocate_cplus_struct_type PARAMS ((struct type *)); | |
648 | ||
649 | #define INIT_CPLUS_SPECIFIC(type) \ | |
650 | (TYPE_CPLUS_SPECIFIC(type)=(struct cplus_struct_type*)&cplus_struct_default) | |
651 | #define ALLOCATE_CPLUS_STRUCT_TYPE(type) allocate_cplus_struct_type (type) | |
652 | #define HAVE_CPLUS_STRUCT(type) \ | |
653 | (TYPE_CPLUS_SPECIFIC(type) != &cplus_struct_default) | |
654 | ||
655 | #define TYPE_NAME(thistype) (thistype)->name | |
656 | #define TYPE_TAG_NAME(type) ((type)->tag_name) | |
657 | #define TYPE_TARGET_TYPE(thistype) (thistype)->target_type | |
658 | #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type | |
659 | #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type | |
660 | #define TYPE_CV_TYPE(thistype) (thistype)->cv_type | |
661 | /* Note that if thistype is a TYPEDEF type, you have to call check_typedef. | |
662 | But check_typedef does set the TYPE_LENGTH of the TYPEDEF type, | |
663 | so you only have to call check_typedef once. Since allocate_value | |
664 | calls check_typedef, TYPE_LENGTH (VALUE_TYPE (X)) is safe. */ | |
665 | #define TYPE_LENGTH(thistype) (thistype)->length | |
666 | #define TYPE_OBJFILE(thistype) (thistype)->objfile | |
667 | #define TYPE_FLAGS(thistype) (thistype)->flags | |
668 | #define TYPE_UNSIGNED(thistype) ((thistype)->flags & TYPE_FLAG_UNSIGNED) | |
669 | #define TYPE_NOSIGN(thistype) ((thistype)->flags & TYPE_FLAG_NOSIGN) | |
670 | #define TYPE_CONST(thistype) ((thistype)->flags & TYPE_FLAG_CONST) | |
671 | #define TYPE_VOLATILE(thistype) ((thistype)->flags & TYPE_FLAG_VOLATILE) | |
672 | #define TYPE_INCOMPLETE(thistype) ((thistype)->flags & TYPE_FLAG_INCOMPLETE) | |
673 | /* Note that TYPE_CODE can be TYPE_CODE_TYPEDEF, so if you wan the real | |
674 | type, you need to do TYPE_CODE (check_type (this_type)). */ | |
675 | #define TYPE_CODE(thistype) (thistype)->code | |
676 | #define TYPE_NFIELDS(thistype) (thistype)->nfields | |
677 | #define TYPE_FIELDS(thistype) (thistype)->fields | |
678 | #define TYPE_TEMPLATE_ARGS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->template_args | |
679 | #define TYPE_INSTANTIATIONS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->instantiations | |
680 | ||
681 | #define TYPE_INDEX_TYPE(type) TYPE_FIELD_TYPE (type, 0) | |
682 | #define TYPE_LOW_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 0) | |
683 | #define TYPE_HIGH_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 1) | |
684 | ||
685 | /* Moto-specific stuff for FORTRAN arrays */ | |
686 | ||
687 | #define TYPE_ARRAY_UPPER_BOUND_TYPE(thistype) (thistype)->upper_bound_type | |
688 | #define TYPE_ARRAY_LOWER_BOUND_TYPE(thistype) (thistype)->lower_bound_type | |
689 | ||
690 | #define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \ | |
691 | (TYPE_FIELD_BITPOS((TYPE_FIELD_TYPE((arraytype),0)),1)) | |
692 | ||
693 | #define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype) \ | |
694 | (TYPE_FIELD_BITPOS((TYPE_FIELD_TYPE((arraytype),0)),0)) | |
695 | ||
696 | /* C++ */ | |
697 | ||
698 | #define TYPE_VPTR_BASETYPE(thistype) (thistype)->vptr_basetype | |
699 | #define TYPE_DOMAIN_TYPE(thistype) (thistype)->vptr_basetype | |
700 | #define TYPE_VPTR_FIELDNO(thistype) (thistype)->vptr_fieldno | |
701 | #define TYPE_FN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fields | |
702 | #define TYPE_NFN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields | |
703 | #define TYPE_NFN_FIELDS_TOTAL(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields_total | |
704 | #define TYPE_NTEMPLATE_ARGS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->ntemplate_args | |
705 | #define TYPE_NINSTANTIATIONS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->ninstantiations | |
706 | #define TYPE_DECLARED_TYPE(thistype) TYPE_CPLUS_SPECIFIC(thistype)->declared_type | |
707 | #define TYPE_TYPE_SPECIFIC(thistype) (thistype)->type_specific | |
708 | #define TYPE_ARG_TYPES(thistype) (thistype)->type_specific.arg_types | |
709 | #define TYPE_CPLUS_SPECIFIC(thistype) (thistype)->type_specific.cplus_stuff | |
710 | #define TYPE_BASECLASS(thistype,index) (thistype)->fields[index].type | |
711 | #define TYPE_N_BASECLASSES(thistype) TYPE_CPLUS_SPECIFIC(thistype)->n_baseclasses | |
712 | #define TYPE_BASECLASS_NAME(thistype,index) (thistype)->fields[index].name | |
713 | #define TYPE_BASECLASS_BITPOS(thistype,index) TYPE_FIELD_BITPOS(thistype,index) | |
714 | #define BASETYPE_VIA_PUBLIC(thistype, index) \ | |
715 | ((!TYPE_FIELD_PRIVATE(thistype, index)) && (!TYPE_FIELD_PROTECTED(thistype, index))) | |
716 | ||
717 | #define BASETYPE_VIA_VIRTUAL(thistype, index) \ | |
718 | (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \ | |
719 | : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (index))) | |
720 | ||
721 | #define FIELD_TYPE(thisfld) ((thisfld).type) | |
722 | #define FIELD_NAME(thisfld) ((thisfld).name) | |
723 | #define FIELD_BITPOS(thisfld) ((thisfld).loc.bitpos) | |
724 | #define FIELD_BITSIZE(thisfld) ((thisfld).bitsize) | |
725 | #define FIELD_PHYSNAME(thisfld) ((thisfld).loc.physname) | |
726 | #define FIELD_PHYSADDR(thisfld) ((thisfld).loc.physaddr) | |
727 | #define SET_FIELD_PHYSNAME(thisfld, name) \ | |
728 | ((thisfld).bitsize = -1, FIELD_PHYSNAME(thisfld) = (name)) | |
729 | #define SET_FIELD_PHYSADDR(thisfld, name) \ | |
730 | ((thisfld).bitsize = -2, FIELD_PHYSADDR(thisfld) = (name)) | |
731 | #define TYPE_FIELD(thistype, n) (thistype)->fields[n] | |
732 | #define TYPE_FIELD_TYPE(thistype, n) FIELD_TYPE(TYPE_FIELD(thistype, n)) | |
733 | #define TYPE_FIELD_NAME(thistype, n) FIELD_NAME(TYPE_FIELD(thistype, n)) | |
734 | #define TYPE_FIELD_BITPOS(thistype, n) FIELD_BITPOS(TYPE_FIELD(thistype,n)) | |
735 | #define TYPE_FIELD_BITSIZE(thistype, n) FIELD_BITSIZE(TYPE_FIELD(thistype,n)) | |
736 | #define TYPE_FIELD_PACKED(thistype, n) (FIELD_BITSIZE(TYPE_FIELD(thistype,n))!=0) | |
737 | #define TYPE_TEMPLATE_ARG(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->template_args[n] | |
738 | #define TYPE_INSTANTIATION(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->instantiations[n] | |
739 | ||
740 | #define TYPE_FIELD_PRIVATE_BITS(thistype) \ | |
741 | TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits | |
742 | #define TYPE_FIELD_PROTECTED_BITS(thistype) \ | |
743 | TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits | |
744 | #define TYPE_FIELD_IGNORE_BITS(thistype) \ | |
745 | TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits | |
746 | #define TYPE_FIELD_VIRTUAL_BITS(thistype) \ | |
747 | TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits | |
748 | #define SET_TYPE_FIELD_PRIVATE(thistype, n) \ | |
749 | B_SET (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n)) | |
750 | #define SET_TYPE_FIELD_PROTECTED(thistype, n) \ | |
751 | B_SET (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n)) | |
752 | #define SET_TYPE_FIELD_IGNORE(thistype, n) \ | |
753 | B_SET (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n)) | |
754 | #define SET_TYPE_FIELD_VIRTUAL(thistype, n) \ | |
755 | B_SET (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n)) | |
756 | #define TYPE_FIELD_PRIVATE(thistype, n) \ | |
757 | (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits == NULL ? 0 \ | |
758 | : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n))) | |
759 | #define TYPE_FIELD_PROTECTED(thistype, n) \ | |
760 | (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits == NULL ? 0 \ | |
761 | : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n))) | |
762 | #define TYPE_FIELD_IGNORE(thistype, n) \ | |
763 | (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits == NULL ? 0 \ | |
764 | : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n))) | |
765 | #define TYPE_FIELD_VIRTUAL(thistype, n) \ | |
766 | (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits == NULL ? 0 \ | |
767 | : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n))) | |
768 | ||
769 | #define TYPE_FIELD_STATIC(thistype, n) ((thistype)->fields[n].bitsize < 0) | |
770 | #define TYPE_FIELD_STATIC_HAS_ADDR(thistype, n) ((thistype)->fields[n].bitsize == -2) | |
771 | #define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) FIELD_PHYSNAME(TYPE_FIELD(thistype, n)) | |
772 | #define TYPE_FIELD_STATIC_PHYSADDR(thistype, n) FIELD_PHYSADDR(TYPE_FIELD(thistype, n)) | |
773 | ||
774 | #define TYPE_FN_FIELDLISTS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists | |
775 | #define TYPE_FN_FIELDLIST(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n] | |
776 | #define TYPE_FN_FIELDLIST1(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].fn_fields | |
777 | #define TYPE_FN_FIELDLIST_NAME(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].name | |
778 | #define TYPE_FN_FIELDLIST_LENGTH(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].length | |
779 | ||
780 | #define TYPE_FN_FIELD(thisfn, n) (thisfn)[n] | |
781 | #define TYPE_FN_FIELD_PHYSNAME(thisfn, n) (thisfn)[n].physname | |
782 | #define TYPE_FN_FIELD_TYPE(thisfn, n) (thisfn)[n].type | |
783 | #define TYPE_FN_FIELD_ARGS(thisfn, n) TYPE_ARG_TYPES ((thisfn)[n].type) | |
784 | #define TYPE_FN_FIELD_CONST(thisfn, n) ((thisfn)[n].is_const) | |
785 | #define TYPE_FN_FIELD_VOLATILE(thisfn, n) ((thisfn)[n].is_volatile) | |
786 | #define TYPE_FN_FIELD_PRIVATE(thisfn, n) ((thisfn)[n].is_private) | |
787 | #define TYPE_FN_FIELD_PROTECTED(thisfn, n) ((thisfn)[n].is_protected) | |
788 | #define TYPE_FN_FIELD_PUBLIC(thisfn, n) ((thisfn)[n].is_public) | |
789 | #define TYPE_FN_FIELD_STATIC(thisfn, n) ((thisfn)[n].is_static) | |
790 | #define TYPE_FN_FIELD_FINAL(thisfn, n) ((thisfn)[n].is_final) | |
791 | #define TYPE_FN_FIELD_SYNCHRONIZED(thisfn, n) ((thisfn)[n].is_synchronized) | |
792 | #define TYPE_FN_FIELD_NATIVE(thisfn, n) ((thisfn)[n].is_native) | |
793 | #define TYPE_FN_FIELD_ABSTRACT(thisfn, n) ((thisfn)[n].is_abstract) | |
794 | #define TYPE_FN_FIELD_STUB(thisfn, n) ((thisfn)[n].is_stub) | |
795 | #define TYPE_FN_FIELD_INLINED(thisfn, n) ((thisfn)[n].is_inlined) | |
796 | #define TYPE_FN_FIELD_FCONTEXT(thisfn, n) ((thisfn)[n].fcontext) | |
797 | #define TYPE_FN_FIELD_VOFFSET(thisfn, n) ((thisfn)[n].voffset-2) | |
798 | #define TYPE_FN_FIELD_VIRTUAL_P(thisfn, n) ((thisfn)[n].voffset > 1) | |
799 | #define TYPE_FN_FIELD_STATIC_P(thisfn, n) ((thisfn)[n].voffset == VOFFSET_STATIC) | |
800 | ||
801 | #define TYPE_RUNTIME_PTR(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->runtime_ptr) | |
802 | #define TYPE_VTABLE(thistype) (TYPE_RUNTIME_PTR(thistype)->has_vtable) | |
803 | #define TYPE_HAS_VTABLE(thistype) (TYPE_RUNTIME_PTR(thistype) && TYPE_VTABLE(thistype)) | |
804 | #define TYPE_PRIMARY_BASE(thistype) (TYPE_RUNTIME_PTR(thistype)->primary_base) | |
805 | #define TYPE_VIRTUAL_BASE_LIST(thistype) (TYPE_RUNTIME_PTR(thistype)->virtual_base_list) | |
806 | ||
807 | #define TYPE_LOCALTYPE_PTR(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr) | |
808 | #define TYPE_LOCALTYPE_FILE(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr->file) | |
809 | #define TYPE_LOCALTYPE_LINE(thistype) (TYPE_CPLUS_SPECIFIC(thistype)->localtype_ptr->line) | |
810 | ||
811 | #define TYPE_IS_OPAQUE(thistype) (((TYPE_CODE (thistype) == TYPE_CODE_STRUCT) || \ | |
812 | (TYPE_CODE (thistype) == TYPE_CODE_UNION)) && \ | |
813 | (TYPE_NFIELDS (thistype) == 0) && \ | |
814 | (TYPE_CPLUS_SPECIFIC (thistype) && (TYPE_NFN_FIELDS (thistype) == 0))) | |
815 | ||
816 | ||
817 | ||
818 | /* Implicit sizes */ | |
819 | extern struct type *builtin_type_void; | |
820 | extern struct type *builtin_type_char; | |
821 | extern struct type *builtin_type_short; | |
822 | extern struct type *builtin_type_int; | |
823 | extern struct type *builtin_type_long; | |
824 | extern struct type *builtin_type_signed_char; | |
825 | extern struct type *builtin_type_unsigned_char; | |
826 | extern struct type *builtin_type_unsigned_short; | |
827 | extern struct type *builtin_type_unsigned_int; | |
828 | extern struct type *builtin_type_unsigned_long; | |
829 | extern struct type *builtin_type_float; | |
830 | extern struct type *builtin_type_double; | |
831 | extern struct type *builtin_type_long_double; | |
832 | extern struct type *builtin_type_complex; | |
833 | extern struct type *builtin_type_double_complex; | |
834 | extern struct type *builtin_type_string; | |
835 | extern struct type *builtin_type_bool; | |
836 | ||
837 | /* Explicit sizes - see <intypes.h> for naming schema */ | |
838 | extern struct type *builtin_type_int8; | |
839 | extern struct type *builtin_type_uint8; | |
840 | extern struct type *builtin_type_int16; | |
841 | extern struct type *builtin_type_uint16; | |
842 | extern struct type *builtin_type_int32; | |
843 | extern struct type *builtin_type_uint32; | |
844 | extern struct type *builtin_type_int64; | |
845 | extern struct type *builtin_type_uint64; | |
846 | ||
847 | /* This type represents a type that was unrecognized in symbol | |
848 | read-in. */ | |
849 | ||
850 | extern struct type *builtin_type_error; | |
851 | ||
852 | extern struct type *builtin_type_long_long; | |
853 | extern struct type *builtin_type_unsigned_long_long; | |
854 | ||
855 | /* Modula-2 types */ | |
856 | ||
857 | extern struct type *builtin_type_m2_char; | |
858 | extern struct type *builtin_type_m2_int; | |
859 | extern struct type *builtin_type_m2_card; | |
860 | extern struct type *builtin_type_m2_real; | |
861 | extern struct type *builtin_type_m2_bool; | |
862 | ||
863 | /* Chill types */ | |
864 | ||
865 | extern struct type *builtin_type_chill_bool; | |
866 | extern struct type *builtin_type_chill_char; | |
867 | extern struct type *builtin_type_chill_long; | |
868 | extern struct type *builtin_type_chill_ulong; | |
869 | extern struct type *builtin_type_chill_real; | |
870 | ||
871 | /* Fortran (F77) types */ | |
872 | ||
873 | extern struct type *builtin_type_f_character; | |
874 | extern struct type *builtin_type_f_integer; | |
875 | extern struct type *builtin_type_f_logical; | |
876 | extern struct type *builtin_type_f_logical_s1; | |
877 | extern struct type *builtin_type_f_logical_s2; | |
878 | extern struct type *builtin_type_f_integer; | |
879 | extern struct type *builtin_type_f_integer_s2; | |
880 | extern struct type *builtin_type_f_real; | |
881 | extern struct type *builtin_type_f_real_s8; | |
882 | extern struct type *builtin_type_f_real_s16; | |
883 | extern struct type *builtin_type_f_complex_s8; | |
884 | extern struct type *builtin_type_f_complex_s16; | |
885 | extern struct type *builtin_type_f_complex_s32; | |
886 | extern struct type *builtin_type_f_void; | |
887 | ||
888 | /* RTTI for C++ */ | |
889 | /* extern struct type *builtin_type_cxx_typeinfo; */ | |
890 | ||
891 | /* Maximum and minimum values of built-in types */ | |
892 | ||
893 | #define MAX_OF_TYPE(t) \ | |
894 | TYPE_UNSIGNED(t) ? UMAX_OF_SIZE(TYPE_LENGTH(t)) \ | |
895 | : MAX_OF_SIZE(TYPE_LENGTH(t)) | |
896 | ||
897 | #define MIN_OF_TYPE(t) \ | |
898 | TYPE_UNSIGNED(t) ? UMIN_OF_SIZE(TYPE_LENGTH(t)) \ | |
899 | : MIN_OF_SIZE(TYPE_LENGTH(t)) | |
900 | ||
901 | /* Allocate space for storing data associated with a particular type. | |
902 | We ensure that the space is allocated using the same mechanism that | |
903 | was used to allocate the space for the type structure itself. I.E. | |
904 | if the type is on an objfile's type_obstack, then the space for data | |
905 | associated with that type will also be allocated on the type_obstack. | |
906 | If the type is not associated with any particular objfile (such as | |
907 | builtin types), then the data space will be allocated with xmalloc, | |
908 | the same as for the type structure. */ | |
909 | ||
910 | #define TYPE_ALLOC(t,size) \ | |
911 | (TYPE_OBJFILE (t) != NULL \ | |
912 | ? obstack_alloc (&TYPE_OBJFILE (t) -> type_obstack, size) \ | |
913 | : xmalloc (size)) | |
914 | ||
915 | extern struct type * | |
916 | alloc_type PARAMS ((struct objfile *)); | |
917 | ||
918 | extern struct type * | |
919 | init_type PARAMS ((enum type_code, int, int, char *, struct objfile *)); | |
920 | ||
921 | extern struct type * | |
922 | lookup_reference_type PARAMS ((struct type *)); | |
923 | ||
924 | extern struct type * | |
925 | make_reference_type PARAMS ((struct type *, struct type **)); | |
926 | ||
927 | extern struct type * | |
928 | make_cv_type PARAMS ((int, int, struct type *, struct type **)); | |
929 | ||
930 | extern struct type * | |
931 | lookup_member_type PARAMS ((struct type *, struct type *)); | |
932 | ||
933 | extern void | |
934 | smash_to_method_type PARAMS ((struct type *, struct type *, struct type *, | |
935 | struct type **)); | |
936 | ||
937 | extern void | |
938 | smash_to_member_type PARAMS ((struct type *, struct type *, struct type *)); | |
939 | ||
940 | extern struct type * | |
941 | allocate_stub_method PARAMS ((struct type *)); | |
942 | ||
943 | extern char * | |
944 | type_name_no_tag PARAMS ((const struct type *)); | |
945 | ||
946 | extern struct type * | |
947 | lookup_struct_elt_type PARAMS ((struct type *, char *, int)); | |
948 | ||
949 | extern struct type * | |
950 | make_pointer_type PARAMS ((struct type *, struct type **)); | |
951 | ||
952 | extern struct type * | |
953 | lookup_pointer_type PARAMS ((struct type *)); | |
954 | ||
955 | extern struct type * | |
956 | make_function_type PARAMS ((struct type *, struct type **)); | |
957 | ||
958 | extern struct type * | |
959 | lookup_function_type PARAMS ((struct type *)); | |
960 | ||
961 | extern struct type * | |
962 | create_range_type PARAMS ((struct type *, struct type *, int, int)); | |
963 | ||
964 | extern struct type * | |
965 | create_array_type PARAMS ((struct type *, struct type *, struct type *)); | |
966 | ||
967 | extern struct type * | |
968 | create_string_type PARAMS ((struct type *, struct type *)); | |
969 | ||
970 | extern struct type *create_set_type PARAMS ((struct type *, struct type *)); | |
971 | ||
972 | extern int chill_varying_type PARAMS ((struct type*)); | |
973 | ||
974 | extern struct type * | |
975 | lookup_unsigned_typename PARAMS ((char *)); | |
976 | ||
977 | extern struct type * | |
978 | lookup_signed_typename PARAMS ((char *)); | |
979 | ||
980 | extern struct type * | |
981 | check_typedef PARAMS ((struct type *)); | |
982 | ||
983 | #define CHECK_TYPEDEF(TYPE) (TYPE) = check_typedef (TYPE) | |
984 | ||
985 | extern void | |
986 | check_stub_method PARAMS ((struct type *, int, int)); | |
987 | ||
988 | extern struct type * | |
989 | lookup_primitive_typename PARAMS ((char *)); | |
990 | ||
991 | extern char * | |
992 | gdb_mangle_name PARAMS ((struct type *, int, int)); | |
993 | ||
994 | extern struct type * | |
995 | builtin_type PARAMS ((char **)); | |
996 | ||
997 | extern struct type * | |
998 | lookup_typename PARAMS ((char *, struct block *, int)); | |
999 | ||
1000 | extern struct type * | |
1001 | lookup_template_type PARAMS ((char *, struct type *, struct block *)); | |
1002 | ||
1003 | extern struct type * | |
1004 | lookup_fundamental_type PARAMS ((struct objfile *, int)); | |
1005 | ||
1006 | extern void | |
1007 | fill_in_vptr_fieldno PARAMS ((struct type *)); | |
1008 | ||
1009 | extern int get_destructor_fn_field PARAMS ((struct type *, int *, int *)); | |
1010 | ||
1011 | extern int get_discrete_bounds PARAMS ((struct type*, LONGEST*, LONGEST*)); | |
1012 | ||
1013 | extern int | |
1014 | is_ancestor PARAMS ((struct type *, struct type *)); | |
1015 | ||
1016 | extern int | |
1017 | has_vtable PARAMS ((struct type *)); | |
1018 | ||
1019 | extern struct type * | |
1020 | primary_base_class PARAMS ((struct type *)); | |
1021 | ||
1022 | extern struct type ** | |
1023 | virtual_base_list PARAMS ((struct type *)); | |
1024 | ||
1025 | extern int | |
1026 | virtual_base_list_length PARAMS ((struct type *)); | |
1027 | extern int | |
1028 | virtual_base_list_length_skip_primaries PARAMS ((struct type *)); | |
1029 | ||
1030 | extern int | |
1031 | virtual_base_index PARAMS ((struct type *, struct type *)); | |
1032 | extern int | |
1033 | virtual_base_index_skip_primaries PARAMS ((struct type *, struct type *)); | |
1034 | ||
1035 | ||
1036 | extern int | |
1037 | class_index_in_primary_list PARAMS ((struct type *)); | |
1038 | ||
1039 | extern int | |
1040 | count_virtual_fns PARAMS ((struct type*)); | |
1041 | ||
1042 | /* Constants for HP/Taligent ANSI C++ runtime model */ | |
1043 | ||
1044 | /* Where virtual function entries begin in the | |
1045 | * virtual table, in the non-RRBC vtable format. | |
1046 | * First 4 are the metavtable pointer, top offset, | |
1047 | * typeinfo pointer, and dup base info pointer */ | |
1048 | #define HP_ACC_VFUNC_START 4 | |
1049 | ||
1050 | /* (Negative) Offset where virtual base offset entries begin | |
1051 | * in the virtual table. Skips over metavtable pointer and | |
1052 | * the self-offset entry. | |
1053 | * NOTE: NEGATE THIS BEFORE USING! The virtual base offsets | |
1054 | * appear before the address point of the vtable (the slot | |
1055 | * pointed to by the object's vtable pointer), i.e. at lower | |
1056 | * addresses than the vtable pointer. */ | |
1057 | #define HP_ACC_VBASE_START 2 | |
1058 | ||
1059 | /* (Positive) Offset where the pointer to the typeinfo | |
1060 | * object is present in the virtual table */ | |
1061 | #define HP_ACC_TYPEINFO_OFFSET 2 | |
1062 | ||
1063 | /* (Positive) Offset where the ``top offset'' entry of | |
1064 | * the virtual table is */ | |
1065 | #define HP_ACC_TOP_OFFSET_OFFSET 1 | |
1066 | ||
1067 | /* Overload resolution */ | |
1068 | ||
1069 | #define LENGTH_MATCH(bv) ((bv)->rank[0]) | |
1070 | ||
1071 | /* Badness if parameter list length doesn't match arg list length */ | |
1072 | #define LENGTH_MISMATCH_BADNESS 100 | |
1073 | /* Dummy badness value for nonexistent parameter positions */ | |
1074 | #define TOO_FEW_PARAMS_BADNESS 100 | |
1075 | /* Badness if no conversion among types */ | |
1076 | #define INCOMPATIBLE_TYPE_BADNESS 100 | |
1077 | /* Badness of coercing large integer to smaller size */ | |
1078 | #define INTEGER_COERCION_BADNESS 100 | |
1079 | /* Badness of coercing large floating type to smaller size */ | |
1080 | #define FLOAT_COERCION_BADNESS 100 | |
1081 | ||
1082 | /* Badness of integral promotion */ | |
1083 | #define INTEGER_PROMOTION_BADNESS 1 | |
1084 | /* Badness of floating promotion */ | |
1085 | #define FLOAT_PROMOTION_BADNESS 1 | |
1086 | /* Badness of integral conversion */ | |
1087 | #define INTEGER_CONVERSION_BADNESS 2 | |
1088 | /* Badness of floating conversion */ | |
1089 | #define FLOAT_CONVERSION_BADNESS 2 | |
1090 | /* Badness of integer<->floating conversions */ | |
1091 | #define INT_FLOAT_CONVERSION_BADNESS 2 | |
1092 | /* Badness of converting to a boolean */ | |
1093 | #define BOOLEAN_CONVERSION_BADNESS 2 | |
1094 | /* Badness of pointer conversion */ | |
1095 | #define POINTER_CONVERSION_BADNESS 2 | |
1096 | /* Badness of conversion of pointer to void pointer */ | |
1097 | #define VOID_PTR_CONVERSION_BADNESS 2 | |
1098 | /* Badness of convering derived to base class */ | |
1099 | #define BASE_CONVERSION_BADNESS 2 | |
1100 | ||
1101 | /* Non-standard conversions allowed by the debugger */ | |
1102 | /* Converting a pointer to an int is usually OK */ | |
1103 | #define NS_POINTER_CONVERSION_BADNESS 10 | |
1104 | ||
1105 | ||
1106 | extern int | |
1107 | compare_badness PARAMS ((struct badness_vector *, struct badness_vector *)); | |
1108 | ||
1109 | extern struct badness_vector * | |
1110 | rank_function PARAMS ((struct type **, int, struct type **, int)); | |
1111 | ||
1112 | extern int | |
1113 | rank_one_type PARAMS ((struct type *, struct type *)); | |
1114 | ||
1115 | ||
1116 | #if MAINTENANCE_CMDS | |
1117 | extern void recursive_dump_type PARAMS ((struct type *, int)); | |
1118 | #endif | |
1119 | ||
1120 | /* printcmd.c */ | |
1121 | ||
1122 | extern void | |
1123 | print_scalar_formatted PARAMS ((char *, struct type *, int, int, GDB_FILE *)); | |
1124 | ||
1125 | extern int can_dereference PARAMS ((struct type *)); | |
1126 | ||
1127 | #if MAINTENANCE_CMDS | |
1128 | extern void maintenance_print_type PARAMS ((char *, int)); | |
1129 | #endif | |
1130 | ||
1131 | /* typeprint.c */ | |
1132 | ||
1133 | extern void print_type_scalar PARAMS ((struct type *, LONGEST, GDB_FILE *)); | |
1134 | ||
1135 | #endif /* GDBTYPES_H */ |