* configure.in: Add test for "long long" support.

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

diff --git a/gdb/f-lang.c b/gdb/f-lang.c
index 976211ed835ef1e3676f9e76cc85d48a9ef85c9f..a72b1032cc8876726c263599844ddbfb5459c808 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 *));
@@ -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;