diff options
| author | Jim Kingdon <jkingdon@engr.sgi.com> | 1991-04-26 23:00:32 +0000 |
|---|---|---|
| committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1991-04-26 23:00:32 +0000 |
| commit | 3577f9b46989f9e27093b62beaf4c0511183666d (patch) | |
| tree | 05de12788526c8fc1af8ce187a89ad321f6f66db /gdb | |
| parent | 5f00ca54afeb7353ad97add734caad787b5583cc (diff) | |
| download | gdb-3577f9b46989f9e27093b62beaf4c0511183666d.zip gdb-3577f9b46989f9e27093b62beaf4c0511183666d.tar.gz gdb-3577f9b46989f9e27093b62beaf4c0511183666d.tar.bz2 | |
* printcmd.c (x_command): Dereference references.
* printcmd.c (print_command_1): Add if (objectprint) code.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/printcmd.c | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/gdb/printcmd.c b/gdb/printcmd.c index 663bfcd..3442e58 100644 --- a/gdb/printcmd.c +++ b/gdb/printcmd.c @@ -621,10 +621,30 @@ print_command_1 (exp, inspect, voidprint) if (exp && *exp) { + extern int objectprint; + struct type *type; expr = parse_c_expression (exp); old_chain = make_cleanup (free_current_contents, &expr); cleanup = 1; val = evaluate_expression (expr); + + /* C++: figure out what type we actually want to print it as. */ + type = VALUE_TYPE (val); + + if (objectprint + && (TYPE_CODE (type) == TYPE_CODE_PTR + || TYPE_CODE (type) == TYPE_CODE_REF) + && TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_STRUCT) + { + value v; + + v = value_from_vtable_info (val, TYPE_TARGET_TYPE (type)); + if (v != 0) + { + val = v; + type = VALUE_TYPE (val); + } + } } else val = access_value_history (0); @@ -853,6 +873,8 @@ x_command (exp, from_tty) *exp = 0; old_chain = make_cleanup (free_current_contents, &expr); val = evaluate_expression (expr); + if (TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_REF) + val = value_ind (val); /* In rvalue contexts, such as this, functions are coerced into pointers to functions. This makes "x/i main" work. */ if (/* last_format == 'i' @@ -958,7 +980,9 @@ ptype_command (typename, from_tty) (struct symtab **)NULL); if (sym == 0) { - whatis_exp (typename, 1 /* FIXME: right? */); + /* It's not the name of a type, either VAR_NAMESPACE + or STRUCT_NAMESPACE, so it must be an expression. */ + whatis_exp (typename, 1); return; } printf_filtered ("No type named %s, but there is a ", |