From: Pierre Muller <muller@sourceware.org>
Date: Wed, 21 Mar 2007 23:57:14 +0000 (+0000)
Subject:  * fix PR2232 according to patch submitted
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4a52dc15395e71b60e76b0cc66d7349b55f0830f;p=binutils-gdb.git

 * fix PR2232 according to patch submitted
---

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  <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 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))