From 4a52dc15395e71b60e76b0cc66d7349b55f0830f Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Wed, 21 Mar 2007 23:57:14 +0000 Subject: [PATCH] * fix PR2232 according to patch submitted --- gdb/ChangeLog | 7 +++++++ gdb/p-valprint.c | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 2cff81744a6..e672488479d 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2007-03-21 Pierre Muller + + 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 * mep-tdep.c (mep_analyze_frame_prologue, mep_frame_this_id): diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index a383371ec3c..5b791eb641a 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)) -- 2.30.2