gdb/testsuite/

[deliverable/binutils-gdb.git] / gdb / p-typeprint.c

diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c
index c0752b7d78ca26ca2ccbb6acdf960f1e9d8f31c2..0d476cec206791bbaa112687f3a90c7b05012a85 100644 (file)
--- a/gdb/p-typeprint.c
+++ b/gdb/p-typeprint.c
@@ -165,14 +165,15 @@ pascal_type_print_method_args (char *physname, char *methodname,
 
   if (physname && (*physname != 0))
     {
-      int i = 0;
-      int len = 0;
-      char storec;
-      char *argname;
       fputs_filtered (" (", stream);
       /* we must demangle this */
       while (isdigit (physname[0]))
        {
+         int len = 0;
+         int i;
+         char storec;
+         char *argname;
+
          while (isdigit (physname[len]))
            {
              len++;