1 /* Support for printing C++ values for GDB, the GNU debugger.
2 Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
24 #include "expression.h"
31 int vtblprint
; /* Controls printing of vtbl's */
32 int objectprint
; /* Controls looking up an object's derived type
33 using what we find in its vtables. */
34 static int static_field_print
; /* Controls printing of static fields. */
35 struct obstack dont_print_obstack
;
38 cplus_print_value
PARAMS ((struct type
*, char *, GDB_FILE
*, int, int,
39 enum val_prettyprint
, struct type
**));
41 /* BEGIN-FIXME: Hooks into typeprint.c, find a better home for prototypes. */
44 c_type_print_base
PARAMS ((struct type
*, GDB_FILE
*, int, int));
47 c_type_print_varspec_prefix
PARAMS ((struct type
*, GDB_FILE
*, int, int));
50 cp_type_print_method_args
PARAMS ((struct type
**, char *, char *, int,
53 extern struct obstack dont_print_obstack
;
58 cp_print_class_method (valaddr
, type
, stream
)
64 struct fn_field
*f
= NULL
;
74 check_stub_type (TYPE_TARGET_TYPE (type
));
75 domain
= TYPE_DOMAIN_TYPE (TYPE_TARGET_TYPE (type
));
76 if (domain
== (struct type
*)NULL
)
78 fprintf_filtered (stream
, "<unknown>");
81 addr
= unpack_pointer (lookup_pointer_type (builtin_type_void
), valaddr
);
82 if (METHOD_PTR_IS_VIRTUAL (addr
))
84 offset
= METHOD_PTR_TO_VOFFSET (addr
);
85 len
= TYPE_NFN_FIELDS (domain
);
86 for (i
= 0; i
< len
; i
++)
88 f
= TYPE_FN_FIELDLIST1 (domain
, i
);
89 len2
= TYPE_FN_FIELDLIST_LENGTH (domain
, i
);
91 for (j
= 0; j
< len2
; j
++)
94 if (TYPE_FN_FIELD_VOFFSET (f
, j
) == offset
)
104 sym
= find_pc_function (addr
);
107 error ("invalid pointer to member function");
109 len
= TYPE_NFN_FIELDS (domain
);
110 for (i
= 0; i
< len
; i
++)
112 f
= TYPE_FN_FIELDLIST1 (domain
, i
);
113 len2
= TYPE_FN_FIELDLIST_LENGTH (domain
, i
);
115 for (j
= 0; j
< len2
; j
++)
118 if (TYPE_FN_FIELD_STUB (f
, j
))
119 check_stub_method (domain
, i
, j
);
120 if (STREQ (SYMBOL_NAME (sym
), TYPE_FN_FIELD_PHYSNAME (f
, j
)))
130 fprintf_filtered (stream
, "&");
131 c_type_print_varspec_prefix (TYPE_FN_FIELD_TYPE (f
, j
), stream
, 0, 0);
132 fprintf_unfiltered (stream
, kind
);
133 if (TYPE_FN_FIELD_PHYSNAME (f
, j
)[0] == '_'
134 && TYPE_FN_FIELD_PHYSNAME (f
, j
)[1] == CPLUS_MARKER
)
136 cp_type_print_method_args (TYPE_FN_FIELD_ARGS (f
, j
) + 1, "~",
137 TYPE_FN_FIELDLIST_NAME (domain
, i
),
142 cp_type_print_method_args (TYPE_FN_FIELD_ARGS (f
, j
), "",
143 TYPE_FN_FIELDLIST_NAME (domain
, i
),
149 fprintf_filtered (stream
, "(");
150 type_print (type
, "", stream
, -1);
151 fprintf_filtered (stream
, ") %d", (int) addr
>> 3);
155 /* This was what it was for gcc 2.4.5 and earlier. */
156 static const char vtbl_ptr_name_old
[] =
157 { CPLUS_MARKER
,'v','t','b','l','_','p','t','r','_','t','y','p','e', 0 };
158 /* It was changed to this after 2.4.5. */
159 const char vtbl_ptr_name
[] =
160 { '_','_','v','t','b','l','_','p','t','r','_','t','y','p','e', 0 };
162 /* Return truth value for assertion that TYPE is of the type
163 "pointer to virtual function". */
166 cp_is_vtbl_ptr_type(type
)
169 char *typename
= type_name_no_tag (type
);
171 return (typename
!= NULL
172 && (STREQ (typename
, vtbl_ptr_name
)
173 || STREQ (typename
, vtbl_ptr_name_old
)));
176 /* Return truth value for the assertion that TYPE is of the type
177 "pointer to virtual function table". */
180 cp_is_vtbl_member(type
)
183 if (TYPE_CODE (type
) == TYPE_CODE_PTR
)
185 type
= TYPE_TARGET_TYPE (type
);
186 if (TYPE_CODE (type
) == TYPE_CODE_ARRAY
)
188 type
= TYPE_TARGET_TYPE (type
);
189 if (TYPE_CODE (type
) == TYPE_CODE_STRUCT
/* if not using thunks */
190 || TYPE_CODE (type
) == TYPE_CODE_PTR
) /* if using thunks */
192 /* Virtual functions tables are full of pointers
193 to virtual functions. */
194 return cp_is_vtbl_ptr_type (type
);
201 /* Mutually recursive subroutines of cplus_print_value and c_val_print to
202 print out a structure's fields: cp_print_value_fields and cplus_print_value.
204 TYPE, VALADDR, STREAM, RECURSE, and PRETTY have the
205 same meanings as in cplus_print_value and c_val_print.
207 DONT_PRINT is an array of baseclass types that we
208 should not print, or zero if called from top level. */
211 cp_print_value_fields (type
, valaddr
, stream
, format
, recurse
, pretty
,
218 enum val_prettyprint pretty
;
219 struct type
**dont_print
;
221 int i
, len
, n_baseclasses
;
223 check_stub_type (type
);
225 fprintf_filtered (stream
, "{");
226 len
= TYPE_NFIELDS (type
);
227 n_baseclasses
= TYPE_N_BASECLASSES (type
);
229 /* Print out baseclasses such that we don't print
230 duplicates of virtual baseclasses. */
231 if (n_baseclasses
> 0)
232 cplus_print_value (type
, valaddr
, stream
, format
, recurse
+1, pretty
,
235 if (!len
&& n_baseclasses
== 1)
236 fprintf_filtered (stream
, "<No data fields>");
239 extern int inspect_it
;
242 for (i
= n_baseclasses
; i
< len
; i
++)
244 /* If requested, skip printing of static fields. */
245 if (!static_field_print
&& TYPE_FIELD_STATIC (type
, i
))
248 fprintf_filtered (stream
, ", ");
249 else if (n_baseclasses
> 0)
253 fprintf_filtered (stream
, "\n");
254 print_spaces_filtered (2 + 2 * recurse
, stream
);
255 fputs_filtered ("members of ", stream
);
256 fputs_filtered (type_name_no_tag (type
), stream
);
257 fputs_filtered (": ", stream
);
264 fprintf_filtered (stream
, "\n");
265 print_spaces_filtered (2 + 2 * recurse
, stream
);
269 wrap_here (n_spaces (2 + 2 * recurse
));
273 if (TYPE_CODE (TYPE_FIELD_TYPE (type
, i
)) == TYPE_CODE_PTR
)
274 fputs_filtered ("\"( ptr \"", stream
);
276 fputs_filtered ("\"( nodef \"", stream
);
277 if (TYPE_FIELD_STATIC (type
, i
))
278 fputs_filtered ("static ", stream
);
279 fprintf_symbol_filtered (stream
, TYPE_FIELD_NAME (type
, i
),
281 DMGL_PARAMS
| DMGL_ANSI
);
282 fputs_filtered ("\" \"", stream
);
283 fprintf_symbol_filtered (stream
, TYPE_FIELD_NAME (type
, i
),
285 DMGL_PARAMS
| DMGL_ANSI
);
286 fputs_filtered ("\") \"", stream
);
290 annotate_field_begin (TYPE_FIELD_TYPE (type
, i
));
292 if (TYPE_FIELD_STATIC (type
, i
))
293 fputs_filtered ("static ", stream
);
294 fprintf_symbol_filtered (stream
, TYPE_FIELD_NAME (type
, i
),
296 DMGL_PARAMS
| DMGL_ANSI
);
297 annotate_field_name_end ();
298 fputs_filtered (" = ", stream
);
299 annotate_field_value ();
302 if (!TYPE_FIELD_STATIC (type
, i
) && TYPE_FIELD_PACKED (type
, i
))
306 /* Bitfields require special handling, especially due to byte
308 if (TYPE_FIELD_IGNORE (type
, i
))
310 fputs_filtered ("<optimized out or zero length>", stream
);
314 v
= value_from_longest (TYPE_FIELD_TYPE (type
, i
),
315 unpack_field_as_long (type
, valaddr
, i
));
317 val_print (TYPE_FIELD_TYPE(type
, i
), VALUE_CONTENTS (v
), 0,
318 stream
, format
, 0, recurse
+ 1, pretty
);
323 if (TYPE_FIELD_IGNORE (type
, i
))
325 fputs_filtered ("<optimized out or zero length>", stream
);
327 else if (TYPE_FIELD_STATIC (type
, i
))
330 char *phys_name
= TYPE_FIELD_STATIC_PHYSNAME (type
, i
);
332 lookup_symbol (phys_name
, 0, VAR_NAMESPACE
, 0, NULL
);
334 fputs_filtered ("<optimized out>", stream
);
337 v
= value_at (TYPE_FIELD_TYPE (type
, i
),
338 (CORE_ADDR
)SYMBOL_BLOCK_VALUE (sym
));
339 val_print (TYPE_FIELD_TYPE (type
, i
),
340 VALUE_CONTENTS_RAW (v
),
342 stream
, format
, 0, recurse
+ 1, pretty
);
347 val_print (TYPE_FIELD_TYPE (type
, i
),
348 valaddr
+ TYPE_FIELD_BITPOS (type
, i
) / 8,
349 0, stream
, format
, 0, recurse
+ 1, pretty
);
352 annotate_field_end ();
357 fprintf_filtered (stream
, "\n");
358 print_spaces_filtered (2 * recurse
, stream
);
361 fprintf_filtered (stream
, "}");
364 /* Special val_print routine to avoid printing multiple copies of virtual
368 cplus_print_value (type
, valaddr
, stream
, format
, recurse
, pretty
, dont_print
)
374 enum val_prettyprint pretty
;
375 struct type
**dont_print
;
377 struct obstack tmp_obstack
;
378 struct type
**last_dont_print
379 = (struct type
**)obstack_next_free (&dont_print_obstack
);
380 int i
, n_baseclasses
= TYPE_N_BASECLASSES (type
);
384 /* If we're at top level, carve out a completely fresh
385 chunk of the obstack and use that until this particular
386 invocation returns. */
387 tmp_obstack
= dont_print_obstack
;
388 /* Bump up the high-water mark. Now alpha is omega. */
389 obstack_finish (&dont_print_obstack
);
392 for (i
= 0; i
< n_baseclasses
; i
++)
394 /* FIXME-32x64--assumes that a target pointer can fit in a char *.
395 Fix it by nuking baseclass_addr. */
400 check_stub_type (TYPE_BASECLASS (type
, i
));
401 basename
= TYPE_NAME (TYPE_BASECLASS (type
, i
));
403 if (BASETYPE_VIA_VIRTUAL (type
, i
))
405 struct type
**first_dont_print
406 = (struct type
**)obstack_base (&dont_print_obstack
);
408 int j
= (struct type
**)obstack_next_free (&dont_print_obstack
)
412 if (TYPE_BASECLASS (type
, i
) == first_dont_print
[j
])
415 obstack_ptr_grow (&dont_print_obstack
, TYPE_BASECLASS (type
, i
));
418 /* Fix to use baseclass_offset instead. FIXME */
419 baddr
= baseclass_addr (type
, i
, valaddr
, 0, &err
);
420 if (err
== 0 && baddr
== 0)
421 error ("could not find virtual baseclass %s\n",
422 basename
? basename
: "");
426 fprintf_filtered (stream
, "\n");
427 print_spaces_filtered (2 * recurse
, stream
);
429 fputs_filtered ("<", stream
);
430 /* Not sure what the best notation is in the case where there is no
432 fputs_filtered (basename
? basename
: "", stream
);
433 fputs_filtered ("> = ", stream
);
436 fprintf_filtered (stream
, "<invalid address ");
437 print_address_numeric ((CORE_ADDR
) baddr
, 1, stream
);
438 fprintf_filtered (stream
, ">");
441 cp_print_value_fields (TYPE_BASECLASS (type
, i
), baddr
, stream
, format
,
443 (struct type
**) obstack_base (&dont_print_obstack
));
444 fputs_filtered (", ", stream
);
452 /* Free the space used to deal with the printing
453 of this type from top level. */
454 obstack_free (&dont_print_obstack
, last_dont_print
);
455 /* Reset watermark so that we can continue protecting
456 ourselves from whatever we were protecting ourselves. */
457 dont_print_obstack
= tmp_obstack
;
462 cp_print_class_member (valaddr
, domain
, stream
, prefix
)
469 /* VAL is a byte offset into the structure type DOMAIN.
470 Find the name of the field for that offset and
474 register unsigned int i
;
475 unsigned len
= TYPE_NFIELDS (domain
);
476 /* @@ Make VAL into bit offset */
477 LONGEST val
= unpack_long (builtin_type_int
, valaddr
) << 3;
478 for (i
= TYPE_N_BASECLASSES (domain
); i
< len
; i
++)
480 int bitpos
= TYPE_FIELD_BITPOS (domain
, i
);
484 if (val
< bitpos
&& i
!= 0)
486 /* Somehow pointing into a field. */
488 extra
= (val
- TYPE_FIELD_BITPOS (domain
, i
));
499 fprintf_filtered (stream
, prefix
);
500 name
= type_name_no_tag (domain
);
502 fputs_filtered (name
, stream
);
504 c_type_print_base (domain
, stream
, 0, 0);
505 fprintf_filtered (stream
, "::");
506 fputs_filtered (TYPE_FIELD_NAME (domain
, i
), stream
);
508 fprintf_filtered (stream
, " + %d bytes", extra
);
510 fprintf_filtered (stream
, " (offset in bits)");
513 fprintf_filtered (stream
, "%d", val
>> 3);
517 _initialize_cp_valprint ()
520 (add_set_cmd ("static-members", class_support
, var_boolean
,
521 (char *)&static_field_print
,
522 "Set printing of C++ static members.",
525 /* Turn on printing of static fields. */
526 static_field_print
= 1;
529 (add_set_cmd ("vtbl", class_support
, var_boolean
, (char *)&vtblprint
,
530 "Set printing of C++ virtual function tables.",
535 (add_set_cmd ("object", class_support
, var_boolean
, (char *)&objectprint
,
536 "Set printing of object's derived type based on vtable info.",
540 /* Give people the defaults which they are used to. */
543 obstack_begin (&dont_print_obstack
, 32 * sizeof (struct type
*));