* p-typeprint.c (pascal_type_print_method_args):

	Fix display of parameter of methods.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ebe8683..3d0f837 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 2012-03-16  Pierre Muller  <muller@ics.u-strasbg.fr>
 
+       * p-typeprint.c (pascal_type_print_method_args):
+       Fix display of parameter of methods.
+
+2012-03-16  Pierre Muller  <muller@ics.u-strasbg.fr>
+
        * amd64-windows-nat.c (_initialize_amd64_windows_nat):
        Add missing prototype.
 

diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c
index ab82d90..bc24495 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)