* p-typeprint.c (pascal_type_print_method_args):

	Fix display of parameter of methods.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f847ad6880d6e2815b279981d53e522dc95120a4..dcc04763d9fcc7c51c5b1f90c6fd7c1e94201258 100644 (file)
--- 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 7bcacdf1616f341842563d3c03f2e03e34a4f68e..dae56d3a047dbe48fef1326d73f2d58334c2c87e 100644 (file)
--- 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)