diff options
| author | Pierre Muller <muller@sourceware.org> | 2007-03-21 23:57:14 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2007-03-21 23:57:14 +0000 |
| commit | 4a52dc15395e71b60e76b0cc66d7349b55f0830f (patch) | |
| tree | 9f80ab719562fea0b90071ca4f2bcb18d59e2c59 | |
| parent | d5b57bda12886c62be1a494f538aff60afa3f819 (diff) | |
| download | gdb-4a52dc15395e71b60e76b0cc66d7349b55f0830f.zip gdb-4a52dc15395e71b60e76b0cc66d7349b55f0830f.tar.gz gdb-4a52dc15395e71b60e76b0cc66d7349b55f0830f.tar.bz2 | |
* fix PR2232 according to patch submitted
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/p-valprint.c | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 2cff817..e672488 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2007-03-21 Pierre Muller <muller@ics.u-strasbg.fr> + + Fix PR pascal/2232. + * p-valprint.c (pascal_object_print_value): Use type_name_no_tag + instead of TYPE_NAME for object base class name. + + 2007-03-19 Kevin Buettner <kevinb@redhat.com> * mep-tdep.c (mep_analyze_frame_prologue, mep_frame_this_id): diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index a383371..5b791eb 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -827,7 +827,7 @@ pascal_object_print_value (struct type *type, const gdb_byte *valaddr, { int boffset; struct type *baseclass = check_typedef (TYPE_BASECLASS (type, i)); - char *basename = TYPE_NAME (baseclass); + char *basename = type_name_no_tag (baseclass); const gdb_byte *base_valaddr; if (BASETYPE_VIA_VIRTUAL (type, i)) |