Implement support for Chill POWERSETs.
[binutils-gdb.git] / gdb / gdbtypes.h
1 /* Internal type definitions for GDB.
2 Copyright (C) 1992 Free Software Foundation, Inc.
3 Contributed by Cygnus Support, using pieces from other GDB modules.
4
5 This file is part of GDB.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
20
21 #if !defined (GDBTYPES_H)
22 #define GDBTYPES_H 1
23
24 /* Codes for `fundamental types'. This is a monstrosity based on the
25 bogus notion that there are certain compiler-independent
26 `fundamental types'. None of these is well-defined (how big is
27 FT_SHORT? Does it depend on the language? How does the
28 language-specific code know which type to correlate to FT_SHORT?) */
29
30 #define FT_VOID 0
31 #define FT_BOOLEAN 1
32 #define FT_CHAR 2
33 #define FT_SIGNED_CHAR 3
34 #define FT_UNSIGNED_CHAR 4
35 #define FT_SHORT 5
36 #define FT_SIGNED_SHORT 6
37 #define FT_UNSIGNED_SHORT 7
38 #define FT_INTEGER 8
39 #define FT_SIGNED_INTEGER 9
40 #define FT_UNSIGNED_INTEGER 10
41 #define FT_LONG 11
42 #define FT_SIGNED_LONG 12
43 #define FT_UNSIGNED_LONG 13
44 #define FT_LONG_LONG 14
45 #define FT_SIGNED_LONG_LONG 15
46 #define FT_UNSIGNED_LONG_LONG 16
47 #define FT_FLOAT 17
48 #define FT_DBL_PREC_FLOAT 18
49 #define FT_EXT_PREC_FLOAT 19
50 #define FT_COMPLEX 20
51 #define FT_DBL_PREC_COMPLEX 21
52 #define FT_EXT_PREC_COMPLEX 22
53 #define FT_STRING 23
54 #define FT_FIXED_DECIMAL 24
55 #define FT_FLOAT_DECIMAL 25
56 #define FT_BYTE 26
57 #define FT_UNSIGNED_BYTE 27
58
59 #define FT_NUM_MEMBERS 28 /* Highest FT_* above, plus one. */
60
61 /* Some macros for char-based bitfields. */
62
63 #define B_SET(a,x) ((a)[(x)>>3] |= (1 << ((x)&7)))
64 #define B_CLR(a,x) ((a)[(x)>>3] &= ~(1 << ((x)&7)))
65 #define B_TST(a,x) ((a)[(x)>>3] & (1 << ((x)&7)))
66 #define B_TYPE unsigned char
67 #define B_BYTES(x) ( 1 + ((x)>>3) )
68 #define B_CLRALL(a,x) memset ((a), 0, B_BYTES(x))
69
70 /* Different kinds of data types are distinguished by the `code' field. */
71
72 enum type_code
73 {
74 TYPE_CODE_UNDEF, /* Not used; catches errors */
75 TYPE_CODE_PTR, /* Pointer type */
76 TYPE_CODE_ARRAY, /* Array type with lower & upper bounds. */
77 TYPE_CODE_STRUCT, /* C struct or Pascal record */
78 TYPE_CODE_UNION, /* C union or Pascal variant part */
79 TYPE_CODE_ENUM, /* Enumeration type */
80 TYPE_CODE_FUNC, /* Function type */
81 TYPE_CODE_INT, /* Integer type */
82
83 /* Floating type. This is *NOT* a complex type. Complex types, when
84 we have them, will have their own type code (or TYPE_CODE_ERROR if
85 we can parse a complex type but not manipulate it). There are parts
86 of GDB which bogusly assume that TYPE_CODE_FLT can mean complex. */
87 TYPE_CODE_FLT,
88
89 /* Void type (values zero length; the length field is ignored). */
90 TYPE_CODE_VOID,
91
92 TYPE_CODE_SET, /* Pascal sets */
93 TYPE_CODE_RANGE, /* Range (integers within spec'd bounds) */
94 TYPE_CODE_STRING, /* String types, distinct from array of char */
95 TYPE_CODE_BITSTRING, /* String of bits, distinct from bool array */
96
97 /* Unknown type. The length field is valid if we were able to
98 deduce that much about the type, or 0 if we don't even know that. */
99 TYPE_CODE_ERROR,
100
101 /* C++ */
102 TYPE_CODE_MEMBER, /* Member type */
103 TYPE_CODE_METHOD, /* Method type */
104 TYPE_CODE_REF, /* C++ Reference types */
105
106 /* Modula-2 */
107 TYPE_CODE_CHAR, /* *real* character type */
108 TYPE_CODE_BOOL /* BOOLEAN type */
109 };
110
111 /* For now allow source to use TYPE_CODE_CLASS for C++ classes, as an
112 alias for TYPE_CODE_STRUCT. Eventually these should probably be
113 officially distinct types within gdb. */
114
115 #define TYPE_CODE_CLASS TYPE_CODE_STRUCT
116
117 /* Some bits for the type's flags word. */
118
119 /* Unsigned integer type. If this is not set for a TYPE_CODE_INT, the
120 type is signed. */
121
122 #define TYPE_FLAG_UNSIGNED (1 << 0)
123
124 /* This appears in a type's flags word if it is a stub type (e.g., if
125 someone referenced a type that wasn't defined in a source file
126 via (struct sir_not_appearing_in_this_film *)). */
127
128 #define TYPE_FLAG_STUB (1 << 2)
129
130 /* The target type of this type is a stub type, and this type needs to
131 be updated if it gets un-stubbed in check_stub_type. Currently only
132 used for arrays, in which TYPE_LENGTH of the array gets set based
133 on the TYPE_LENGTH of the target type. */
134
135 #define TYPE_FLAG_TARGET_STUB (1 << 3)
136
137 struct type
138 {
139
140 /* Code for kind of type */
141
142 enum type_code code;
143
144 /* Name of this type, or NULL if none.
145
146 This is used for printing only, except by poorly designed C++ code.
147 For looking up a name, look for a symbol in the VAR_NAMESPACE. */
148
149 char *name;
150
151 /* Tag name for this type, or NULL if none. This means that the
152 name of the type consists of a keyword followed by the tag name.
153 Which keyword is determined by the type code ("struct" for
154 TYPE_CODE_STRUCT, etc.). As far as I know C/C++ are the only languages
155 with this feature.
156
157 This is used for printing only, except by poorly designed C++ code.
158 For looking up a name, look for a symbol in the STRUCT_NAMESPACE.
159 One more legitimate use is that if TYPE_FLAG_STUB is set, this is
160 the name to use to look for definitions in other files. */
161
162 char *tag_name;
163
164 /* Length, in units of TARGET_CHAR_BIT bits,
165 of storage for a value of this type */
166
167 unsigned length;
168
169 /* Every type is now associated with a particular objfile, and the
170 type is allocated on the type_obstack for that objfile. One problem
171 however, is that there are times when gdb allocates new types while
172 it is not in the process of reading symbols from a particular objfile.
173 Fortunately, these happen when the type being created is a derived
174 type of an existing type, such as in lookup_pointer_type(). So
175 we can just allocate the new type using the same objfile as the
176 existing type, but to do this we need a backpointer to the objfile
177 from the existing type. Yes this is somewhat ugly, but without
178 major overhaul of the internal type system, it can't be avoided
179 for now. */
180
181 struct objfile *objfile;
182
183 /* For a pointer type, describes the type of object pointed to.
184 For an array type, describes the type of the elements.
185 For a function or method type, describes the type of the return value.
186 For a range type, describes the type of the full range.
187 Unused otherwise. */
188
189 struct type *target_type;
190
191 /* Type that is a pointer to this type.
192 NULL if no such pointer-to type is known yet.
193 The debugger may add the address of such a type
194 if it has to construct one later. */
195
196 struct type *pointer_type;
197
198 /* C++: also need a reference type. */
199
200 struct type *reference_type;
201
202 /* Type that is a function returning this type.
203 NULL if no such function type is known here.
204 The debugger may add the address of such a type
205 if it has to construct one later. */
206
207 struct type *function_type;
208
209 /* Flags about this type. */
210
211 short flags;
212
213 /* Number of fields described for this type */
214
215 short nfields;
216
217 /* For structure and union types, a description of each field.
218 For set and pascal array types, there is one "field",
219 whose type is the domain type of the set or array.
220 For range types, there are two "fields",
221 the minimum and maximum values (both inclusive).
222 For enum types, each possible value is described by one "field".
223 For C++ classes, there is one field for each base class (if it is
224 a derived class) plus one field for each class data member. Member
225 functions are recorded elsewhere.
226
227 Using a pointer to a separate array of fields
228 allows all types to have the same size, which is useful
229 because we can allocate the space for a type before
230 we know what to put in it. */
231
232 struct field
233 {
234
235 /* Position of this field, counting in bits from start of
236 containing structure. For a function type, this is the
237 position in the argument list of this argument.
238 For a range bound or enum value, this is the value itself.
239 (FIXME: What about ranges larger than host int size?)
240 For BITS_BIG_ENDIAN=1 targets, it is the bit offset to the MSB.
241 For BITS_BIG_ENDIAN=0 targets, it is the bit offset to the LSB. */
242
243 int bitpos;
244
245 /* Size of this field, in bits, or zero if not packed.
246 For an unpacked field, the field's type's length
247 says how many bytes the field occupies. */
248 /* FIXME: This is abused by TYPE_FIELD_STATIC_PHYSNAME to contain
249 a pointer, so it has to be long. */
250
251 long bitsize;
252
253 /* In a struct or enum type, type of this field.
254 In a function type, type of this argument.
255 In an array type, the domain-type of the array. */
256
257 struct type *type;
258
259 /* Name of field, value or argument.
260 NULL for range bounds and array domains. */
261
262 char *name;
263
264 } *fields;
265
266 /* For types with virtual functions, VPTR_BASETYPE is the base class which
267 defined the virtual function table pointer.
268
269 For types that are pointer to member types, VPTR_BASETYPE
270 is the type that this pointer is a member of.
271
272 Unused otherwise. */
273
274 struct type *vptr_basetype;
275
276 /* Field number of the virtual function table pointer in
277 VPTR_BASETYPE. If -1, we were unable to find the virtual
278 function table pointer in initial symbol reading, and
279 fill_in_vptr_fieldno should be called to find it if possible.
280
281 Unused if this type does not have virtual functions. */
282
283 int vptr_fieldno;
284
285 /* Slot to point to additional language-specific fields of this type. */
286
287 union type_specific
288 {
289
290 /* ARG_TYPES is for TYPE_CODE_METHOD and TYPE_CODE_FUNC. */
291
292 struct type **arg_types;
293
294 /* CPLUS_STUFF is for TYPE_CODE_STRUCT. It is initialized to point to
295 cplus_struct_default, a default static instance of a struct
296 cplus_struct_type. */
297
298 struct cplus_struct_type *cplus_stuff;
299
300 } type_specific;
301 };
302
303 #define NULL_TYPE ((struct type *) 0)
304
305 /* C++ language-specific information for TYPE_CODE_STRUCT and TYPE_CODE_UNION
306 nodes. */
307
308 struct cplus_struct_type
309 {
310 /* Number of base classes this type derives from. The baseclasses are
311 stored in the first N_BASECLASSES fields (i.e. the `fields' field of
312 the struct type). I think only the `type' field of such a field has
313 any meaning. */
314
315 short n_baseclasses;
316
317 /* Number of methods with unique names. All overloaded methods with
318 the same name count only once. */
319
320 short nfn_fields;
321
322 /* Number of methods described for this type plus all the
323 methods that it derives from. */
324
325 int nfn_fields_total;
326
327 /* For derived classes, the number of base classes is given by n_baseclasses
328 and virtual_field_bits is a bit vector containing one bit per base class.
329 If the base class is virtual, the corresponding bit will be set.
330 I.E, given:
331
332 class A{};
333 class B{};
334 class C : public B, public virtual A {};
335
336 B is a baseclass of C; A is a virtual baseclass for C.
337 This is a C++ 2.0 language feature. */
338
339 B_TYPE *virtual_field_bits;
340
341 /* For classes with private fields, the number of fields is given by
342 nfields and private_field_bits is a bit vector containing one bit
343 per field.
344 If the field is private, the corresponding bit will be set. */
345
346 B_TYPE *private_field_bits;
347
348 /* For classes with protected fields, the number of fields is given by
349 nfields and protected_field_bits is a bit vector containing one bit
350 per field.
351 If the field is private, the corresponding bit will be set. */
352
353 B_TYPE *protected_field_bits;
354
355 /* for classes with fields to be ignored, either this is optimized out
356 or this field has length 0 */
357
358 B_TYPE *ignore_field_bits;
359
360 /* For classes, structures, and unions, a description of each field,
361 which consists of an overloaded name, followed by the types of
362 arguments that the method expects, and then the name after it
363 has been renamed to make it distinct.
364
365 fn_fieldlists points to an array of nfn_fields of these. */
366
367 struct fn_fieldlist
368 {
369
370 /* The overloaded name. */
371
372 char *name;
373
374 /* The number of methods with this name. */
375
376 int length;
377
378 /* The list of methods. */
379
380 struct fn_field
381 {
382
383 /* If is_stub is clear, this is the mangled name which we can
384 look up to find the address of the method (FIXME: it would
385 be cleaner to have a pointer to the struct symbol here
386 instead). */
387
388 /* If is_stub is set, this is the portion of the mangled
389 name which specifies the arguments. For example, "ii",
390 if there are two int arguments, or "" if there are no
391 arguments. See gdb_mangle_name for the conversion from this
392 format to the one used if is_stub is clear. */
393
394 char *physname;
395
396 /* The return value of the method */
397
398 struct type *type;
399
400 /* The argument list. Only valid if is_stub is clear. Contains
401 the type of each argument, including `this', and ending with
402 a NULL pointer after the last argument. */
403
404 struct type **args;
405
406 /* For virtual functions.
407 First baseclass that defines this virtual function. */
408
409 struct type *fcontext;
410
411 /* Attributes. */
412
413 unsigned int is_const : 1;
414 unsigned int is_volatile : 1;
415 unsigned int is_private : 1;
416 unsigned int is_protected : 1;
417
418 /* A stub method only has some fields valid (but they are enough
419 to reconstruct the rest of the fields). */
420 unsigned int is_stub : 1;
421
422 /* Unused. */
423 unsigned int dummy : 3;
424
425 /* Index into that baseclass's virtual function table,
426 minus 2; else if static: VOFFSET_STATIC; else: 0. */
427
428 unsigned int voffset : 24;
429
430 # define VOFFSET_STATIC 1
431
432 } *fn_fields;
433
434 } *fn_fieldlists;
435
436 };
437
438 /* The default value of TYPE_CPLUS_SPECIFIC(T) points to the
439 this shared static structure. */
440
441 extern const struct cplus_struct_type cplus_struct_default;
442
443 extern void
444 allocate_cplus_struct_type PARAMS ((struct type *));
445
446 #define INIT_CPLUS_SPECIFIC(type) \
447 (TYPE_CPLUS_SPECIFIC(type)=(struct cplus_struct_type*)&cplus_struct_default)
448 #define ALLOCATE_CPLUS_STRUCT_TYPE(type) allocate_cplus_struct_type (type)
449 #define HAVE_CPLUS_STRUCT(type) \
450 (TYPE_CPLUS_SPECIFIC(type) != &cplus_struct_default)
451
452 #define TYPE_NAME(thistype) (thistype)->name
453 #define TYPE_TAG_NAME(type) ((type)->tag_name)
454 #define TYPE_TARGET_TYPE(thistype) (thistype)->target_type
455 #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type
456 #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type
457 #define TYPE_FUNCTION_TYPE(thistype) (thistype)->function_type
458 #define TYPE_LENGTH(thistype) (thistype)->length
459 #define TYPE_OBJFILE(thistype) (thistype)->objfile
460 #define TYPE_FLAGS(thistype) (thistype)->flags
461 #define TYPE_UNSIGNED(thistype) ((thistype)->flags & TYPE_FLAG_UNSIGNED)
462 #define TYPE_CODE(thistype) (thistype)->code
463 #define TYPE_NFIELDS(thistype) (thistype)->nfields
464 #define TYPE_FIELDS(thistype) (thistype)->fields
465
466 /* C++ */
467
468 #define TYPE_VPTR_BASETYPE(thistype) (thistype)->vptr_basetype
469 #define TYPE_DOMAIN_TYPE(thistype) (thistype)->vptr_basetype
470 #define TYPE_VPTR_FIELDNO(thistype) (thistype)->vptr_fieldno
471 #define TYPE_FN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fields
472 #define TYPE_NFN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields
473 #define TYPE_NFN_FIELDS_TOTAL(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields_total
474 #define TYPE_TYPE_SPECIFIC(thistype) (thistype)->type_specific
475 #define TYPE_ARG_TYPES(thistype) (thistype)->type_specific.arg_types
476 #define TYPE_CPLUS_SPECIFIC(thistype) (thistype)->type_specific.cplus_stuff
477 #define TYPE_BASECLASS(thistype,index) (thistype)->fields[index].type
478 #define TYPE_N_BASECLASSES(thistype) TYPE_CPLUS_SPECIFIC(thistype)->n_baseclasses
479 #define TYPE_BASECLASS_NAME(thistype,index) (thistype)->fields[index].name
480 #define TYPE_BASECLASS_BITPOS(thistype,index) (thistype)->fields[index].bitpos
481 #define BASETYPE_VIA_PUBLIC(thistype, index) (!TYPE_FIELD_PRIVATE(thistype, index))
482 #define BASETYPE_VIA_VIRTUAL(thistype, index) \
483 B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (index))
484
485 #define TYPE_FIELD(thistype, n) (thistype)->fields[n]
486 #define TYPE_FIELD_TYPE(thistype, n) (thistype)->fields[n].type
487 #define TYPE_FIELD_NAME(thistype, n) (thistype)->fields[n].name
488 #define TYPE_FIELD_VALUE(thistype, n) (* (int*) &(thistype)->fields[n].type)
489 #define TYPE_FIELD_BITPOS(thistype, n) (thistype)->fields[n].bitpos
490 #define TYPE_FIELD_BITSIZE(thistype, n) (thistype)->fields[n].bitsize
491 #define TYPE_FIELD_PACKED(thistype, n) (thistype)->fields[n].bitsize
492
493 #define TYPE_FIELD_PRIVATE_BITS(thistype) \
494 TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits
495 #define TYPE_FIELD_PROTECTED_BITS(thistype) \
496 TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits
497 #define TYPE_FIELD_IGNORE_BITS(thistype) \
498 TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits
499 #define TYPE_FIELD_VIRTUAL_BITS(thistype) \
500 TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits
501 #define SET_TYPE_FIELD_PRIVATE(thistype, n) \
502 B_SET (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n))
503 #define SET_TYPE_FIELD_PROTECTED(thistype, n) \
504 B_SET (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n))
505 #define SET_TYPE_FIELD_IGNORE(thistype, n) \
506 B_SET (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n))
507 #define SET_TYPE_FIELD_VIRTUAL(thistype, n) \
508 B_SET (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n))
509 #define TYPE_FIELD_PRIVATE(thistype, n) \
510 (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits == NULL ? 0 \
511 : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n)))
512 #define TYPE_FIELD_PROTECTED(thistype, n) \
513 (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits == NULL ? 0 \
514 : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n)))
515 #define TYPE_FIELD_IGNORE(thistype, n) \
516 (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits == NULL ? 0 \
517 : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n)))
518 #define TYPE_FIELD_VIRTUAL(thistype, n) \
519 B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n))
520
521 #define TYPE_FIELD_STATIC(thistype, n) ((thistype)->fields[n].bitpos == -1)
522 #define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) ((char *)(thistype)->fields[n].bitsize)
523
524 #define TYPE_FN_FIELDLISTS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists
525 #define TYPE_FN_FIELDLIST(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n]
526 #define TYPE_FN_FIELDLIST1(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].fn_fields
527 #define TYPE_FN_FIELDLIST_NAME(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].name
528 #define TYPE_FN_FIELDLIST_LENGTH(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].length
529
530 #define TYPE_FN_FIELD(thisfn, n) (thisfn)[n]
531 #define TYPE_FN_FIELD_PHYSNAME(thisfn, n) (thisfn)[n].physname
532 #define TYPE_FN_FIELD_TYPE(thisfn, n) (thisfn)[n].type
533 #define TYPE_FN_FIELD_ARGS(thisfn, n) TYPE_ARG_TYPES ((thisfn)[n].type)
534 #define TYPE_FN_FIELD_CONST(thisfn, n) ((thisfn)[n].is_const)
535 #define TYPE_FN_FIELD_VOLATILE(thisfn, n) ((thisfn)[n].is_volatile)
536 #define TYPE_FN_FIELD_PRIVATE(thisfn, n) ((thisfn)[n].is_private)
537 #define TYPE_FN_FIELD_PROTECTED(thisfn, n) ((thisfn)[n].is_protected)
538 #define TYPE_FN_FIELD_STUB(thisfn, n) ((thisfn)[n].is_stub)
539 #define TYPE_FN_FIELD_FCONTEXT(thisfn, n) ((thisfn)[n].fcontext)
540 #define TYPE_FN_FIELD_VOFFSET(thisfn, n) ((thisfn)[n].voffset-2)
541 #define TYPE_FN_FIELD_VIRTUAL_P(thisfn, n) ((thisfn)[n].voffset > 1)
542 #define TYPE_FN_FIELD_STATIC_P(thisfn, n) ((thisfn)[n].voffset == VOFFSET_STATIC)
543
544 extern struct type *builtin_type_void;
545 extern struct type *builtin_type_char;
546 extern struct type *builtin_type_short;
547 extern struct type *builtin_type_int;
548 extern struct type *builtin_type_long;
549 extern struct type *builtin_type_signed_char;
550 extern struct type *builtin_type_unsigned_char;
551 extern struct type *builtin_type_unsigned_short;
552 extern struct type *builtin_type_unsigned_int;
553 extern struct type *builtin_type_unsigned_long;
554 extern struct type *builtin_type_float;
555 extern struct type *builtin_type_double;
556 extern struct type *builtin_type_long_double;
557 extern struct type *builtin_type_complex;
558 extern struct type *builtin_type_double_complex;
559 extern struct type *builtin_type_string;
560
561 /* This type represents a type that was unrecognized in symbol
562 read-in. */
563
564 extern struct type *builtin_type_error;
565
566 extern struct type *builtin_type_long_long;
567 extern struct type *builtin_type_unsigned_long_long;
568
569 /* Modula-2 types */
570
571 extern struct type *builtin_type_m2_char;
572 extern struct type *builtin_type_m2_int;
573 extern struct type *builtin_type_m2_card;
574 extern struct type *builtin_type_m2_real;
575 extern struct type *builtin_type_m2_bool;
576
577 /* Chill types */
578
579 extern struct type *builtin_type_chill_bool;
580 extern struct type *builtin_type_chill_char;
581 extern struct type *builtin_type_chill_long;
582 extern struct type *builtin_type_chill_ulong;
583 extern struct type *builtin_type_chill_real;
584
585 /* CC_HAS_LONG_LONG is defined if the host has "long long". */
586
587 #ifdef CC_HAS_LONG_LONG
588
589 #define BUILTIN_TYPE_LONGEST builtin_type_long_long
590 #define BUILTIN_TYPE_UNSIGNED_LONGEST builtin_type_unsigned_long_long
591
592 #else /* not CC_HAS_LONG_LONG. */
593
594 #define BUILTIN_TYPE_LONGEST builtin_type_long
595 #define BUILTIN_TYPE_UNSIGNED_LONGEST builtin_type_unsigned_long
596
597 #endif /* not CC_HAS_LONG_LONG. */
598
599 /* Maximum and minimum values of built-in types */
600
601 #define MAX_OF_TYPE(t) \
602 TYPE_UNSIGNED(t) ? UMAX_OF_SIZE(TYPE_LENGTH(t)) \
603 : MAX_OF_SIZE(TYPE_LENGTH(t))
604
605 #define MIN_OF_TYPE(t) \
606 TYPE_UNSIGNED(t) ? UMIN_OF_SIZE(TYPE_LENGTH(t)) \
607 : MIN_OF_SIZE(TYPE_LENGTH(t))
608
609 /* Allocate space for storing data associated with a particular type.
610 We ensure that the space is allocated using the same mechanism that
611 was used to allocate the space for the type structure itself. I.E.
612 if the type is on an objfile's type_obstack, then the space for data
613 associated with that type will also be allocated on the type_obstack.
614 If the type is not associated with any particular objfile (such as
615 builtin types), then the data space will be allocated with xmalloc,
616 the same as for the type structure. */
617
618 #define TYPE_ALLOC(t,size) \
619 (TYPE_OBJFILE (t) != NULL \
620 ? obstack_alloc (&TYPE_OBJFILE (t) -> type_obstack, size) \
621 : xmalloc (size))
622
623 extern struct type *
624 alloc_type PARAMS ((struct objfile *));
625
626 extern struct type *
627 init_type PARAMS ((enum type_code, int, int, char *, struct objfile *));
628
629 extern struct type *
630 lookup_reference_type PARAMS ((struct type *));
631
632 extern struct type *
633 make_reference_type PARAMS ((struct type *, struct type **));
634
635 extern struct type *
636 lookup_member_type PARAMS ((struct type *, struct type *));
637
638 extern void
639 smash_to_method_type PARAMS ((struct type *, struct type *, struct type *,
640 struct type **));
641
642 extern void
643 smash_to_member_type PARAMS ((struct type *, struct type *, struct type *));
644
645 extern struct type *
646 allocate_stub_method PARAMS ((struct type *));
647
648 extern char *
649 type_name_no_tag PARAMS ((const struct type *));
650
651 extern struct type *
652 lookup_struct_elt_type PARAMS ((struct type *, char *, int));
653
654 extern struct type *
655 make_pointer_type PARAMS ((struct type *, struct type **));
656
657 extern struct type *
658 lookup_pointer_type PARAMS ((struct type *));
659
660 extern struct type *
661 make_function_type PARAMS ((struct type *, struct type **));
662
663 extern struct type *
664 lookup_function_type PARAMS ((struct type *));
665
666 extern struct type *
667 create_range_type PARAMS ((struct type *, struct type *, int, int));
668
669 extern struct type *
670 create_array_type PARAMS ((struct type *, struct type *, struct type *));
671
672 extern struct type *
673 create_string_type PARAMS ((struct type *, struct type *));
674
675 extern struct type *
676 create_set_type PARAMS ((struct type *, struct type *));
677
678 extern struct type *
679 lookup_unsigned_typename PARAMS ((char *));
680
681 extern struct type *
682 lookup_signed_typename PARAMS ((char *));
683
684 extern void
685 check_stub_type PARAMS ((struct type *));
686
687 extern void
688 check_stub_method PARAMS ((struct type *, int, int));
689
690 extern struct type *
691 lookup_primitive_typename PARAMS ((char *));
692
693 extern char *
694 gdb_mangle_name PARAMS ((struct type *, int, int));
695
696 extern struct type *
697 builtin_type PARAMS ((char **));
698
699 extern struct type *
700 lookup_typename PARAMS ((char *, struct block *, int));
701
702 extern struct type *
703 lookup_template_type PARAMS ((char *, struct type *, struct block *));
704
705 extern struct type *
706 lookup_fundamental_type PARAMS ((struct objfile *, int));
707
708 extern void
709 fill_in_vptr_fieldno PARAMS ((struct type *));
710
711 #if MAINTENANCE_CMDS
712 extern void recursive_dump_type PARAMS ((struct type *, int));
713 #endif
714
715 /* printcmd.c */
716
717 extern void
718 print_scalar_formatted PARAMS ((char *, struct type *, int, int, GDB_FILE *));
719
720 #if MAINTENANCE_CMDS
721 extern void maintenance_print_type PARAMS ((char *, int));
722 #endif
723
724 #endif /* GDBTYPES_H */