From: Pierre Muller <muller@sourceware.org>
Date: Fri, 13 Apr 2012 12:47:18 +0000 (+0000)
Subject: 	* p-typeprint.c (pascal_type_print_method_args):
X-Git-Tag: gdb_7_4_1-2012-04-26-release~15
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bc96c5b52e967bd59d85567d2e3ea57ef03eee98;p=thirdparty%2Fbinutils-gdb.git

	* p-typeprint.c (pascal_type_print_method_args):
	Fix display of parameter of methods.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f847ad6880d..dcc04763d9f 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-13  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+	* p-typeprint.c (pascal_type_print_method_args):
+	Fix display of parameter of methods.
+
 2012-03-20  Pedro Alves  <palves@redhat.com>
 
 	* remote.c (remote_start_remote): Clear `rs->starting_up' on early
diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c
index 7bcacdf1616..dae56d3a047 100644
--- a/gdb/p-typeprint.c
+++ b/gdb/p-typeprint.c
@@ -183,8 +183,7 @@ pascal_type_print_method_args (const char *physname, const char *methodname,
 	  physname += len;
 
 	  for (j = 0; j < i; ++j)
-	    fputc_filtered (physname[i], stream);
-	  fputs_filtered (physname, stream);
+	    fputc_filtered (physname[j], stream);
 
 	  physname += i;
 	  if (physname[0] != 0)