diff options
| author | Richard Henderson <rth@redhat.com> | 2003-10-14 06:51:14 +0000 |
|---|---|---|
| committer | Richard Henderson <rth@redhat.com> | 2003-10-14 06:51:14 +0000 |
| commit | 0501c382d2d81738a91ca53dcfc7621bfdc2dc44 (patch) | |
| tree | c8f81b638330df0fcf86a459947464d29c964a54 /gdb/f-typeprint.c | |
| parent | c9239e59a1a40c0467a654651f91bd2bce0dc9e1 (diff) | |
| download | gdb-0501c382d2d81738a91ca53dcfc7621bfdc2dc44.tar.gz | |
* f-typeprint.c (f_type_print_base): Handle TYPE_CODE_REF.
* f-valprint.c (f_val_print): Likewise. Tweak TYPE_CODE_PTR to
match c_val_print a bit closer.
Diffstat (limited to 'gdb/f-typeprint.c')
| -rw-r--r-- | gdb/f-typeprint.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index 3a153a34075..9e148fb8306 100644 --- a/gdb/f-typeprint.c +++ b/gdb/f-typeprint.c @@ -329,6 +329,11 @@ f_type_print_base (struct type *type, struct ui_file *stream, int show, f_type_print_base (TYPE_TARGET_TYPE (type), stream, 0, level); break; + case TYPE_CODE_REF: + fprintf_filtered (stream, "REF TO -> ( "); + f_type_print_base (TYPE_TARGET_TYPE (type), stream, 0, level); + break; + case TYPE_CODE_VOID: fprintf_filtered (stream, "VOID"); break; |