* alpha-opc.c (alpha_opcodes): Fix thinko in ret pseudo

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

diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
index 944b97d711b5eb402a0eb2dcdb14011ed0791100..2beae0fed7f1ed1e4e5b22fcd4ed188d8addba36 100644 (file)
--- a/gdb/f-typeprint.c
+++ b/gdb/f-typeprint.c
@@ -1,5 +1,6 @@
 /* Support for printing Fortran types for GDB, the GNU debugger.
-   Copyright 1986, 1988, 1989, 1991, 1993, 1994, 1995, 1996, 1998, 2000
+   Copyright 1986, 1988, 1989, 1991, 1993, 1994, 1995, 1996, 1998, 2000,
+   2001, 2002
    Free Software Foundation, Inc.
    Contributed by Motorola.  Adapted from the C version by Farooq Butt
    (fmbutt@engage.sps.mot.com).
@@ -30,12 +31,7 @@
 #include "value.h"
 #include "gdbcore.h"
 #include "target.h"
-#include "command.h"
-#include "gdbcmd.h"
-#include "language.h"
 #include "f-lang.h"
-#include "typeprint.h"
-#include "frame.h"             /* ??? */
 
 #include "gdb_string.h"
 #include <errno.h>
@@ -151,42 +147,6 @@ f_type_print_varspec_prefix (struct type *type, struct ui_file *stream,
     }
 }
 
-#if 0                          /* Currently unused */
-
-static void
-f_type_print_args (struct type *type, struct ui_file *stream)
-{
-  int i;
-  struct type **args;
-
-  fprintf_filtered (stream, "(");
-  args = TYPE_ARG_TYPES (type);
-  if (args != NULL)
-    {
-      if (args[1] == NULL)
-       {
-         fprintf_filtered (stream, "...");
-       }
-      else
-       {
-         for (i = 1; args[i] != NULL && args[i]->code != TYPE_CODE_VOID; i++)
-           {
-             f_print_type (args[i], "", stream, -1, 0);
-             if (args[i + 1] == NULL)
-               fprintf_filtered (stream, "...");
-             else if (args[i + 1]->code != TYPE_CODE_VOID)
-               {
-                 fprintf_filtered (stream, ",");
-                 wrap_here ("    ");
-               }
-           }
-       }
-    }
-  fprintf_filtered (stream, ")");
-}
-
-#endif /* 0 */
-
 /* Print any array sizes, function arguments or close parentheses
    needed after the variable name (to describe its type).
    Args work like c_type_print_varspec_prefix.  */