* p-typeprint.c (pascal_type_print_method_args):

	Fix display of parameter of methods.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ebe8683b23b75d11eebd2079543eae98cd557dd9..3d0f83756d538756146c9f923fb203e52983db90 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+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):

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