* mips-dis.c (print_insn_mips16): Set insn_info information.

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

diff --git a/gdb/f-lang.c b/gdb/f-lang.c
index 976211ed835ef1e3676f9e76cc85d48a9ef85c9f..a477c40d047e4c59dd90939f4bbe895929c7c69c 100644 (file)
--- a/gdb/f-lang.c
+++ b/gdb/f-lang.c
@@ -78,9 +78,9 @@ static SAVED_FUNCTION *allocate_saved_function_node PARAMS ((void));
 static SAVED_BF_PTR allocate_saved_bf_node PARAMS ((void));
 static COMMON_ENTRY_PTR allocate_common_entry_node PARAMS ((void));
 static SAVED_F77_COMMON_PTR allocate_saved_f77_common_node PARAMS ((void));
+static void patch_common_entries PARAMS ((SAVED_F77_COMMON_PTR, CORE_ADDR, int));
 #endif
 
-static void patch_common_entries PARAMS ((SAVED_F77_COMMON_PTR, CORE_ADDR, int));
 static struct type *f_create_fundamental_type PARAMS ((struct objfile *, int));
 static void f_printstr PARAMS ((FILE *, char *, unsigned int, int));
 static void f_printchar PARAMS ((int, FILE *));
@@ -434,7 +434,7 @@ static const struct op_print f_op_print_tab[] = {
   { NULL,    0, 0, 0 }
 };
 \f
-struct type ** const (f_builtin_types[]) = 
+struct type ** CONST_PTR (f_builtin_types[]) = 
 {
   &builtin_type_f_character,
   &builtin_type_f_logical,
@@ -774,13 +774,12 @@ SAVED_F77_COMMON_PTR find_common_for_function(name, funcname)
 }
 
 
-
+#if 0
 
 /* The following function is called to patch up the offsets 
    for the statics contained in the COMMON block named
    "name."  */ 
 
-
 static void
 patch_common_entries (blk, offset, secnum)
      SAVED_F77_COMMON_PTR blk;
@@ -803,14 +802,12 @@ patch_common_entries (blk, offset, secnum)
   blk->secnum = secnum; 
 }
 
-
 /* Patch all commons named "name" that need patching.Since COMMON
    blocks occur with relative infrequency, we simply do a linear scan on
    the name.  Eventually, the best way to do this will be a
    hashed-lookup.  Secnum is the section number for the .bss section
    (which is where common data lives). */
 
-#if 0
 static void
 patch_all_commons_by_name (name, offset, secnum)
      char *name;