* inftarg.c (child_thread_alive): New function to see if a

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

diff --git a/gdb/f-lang.h b/gdb/f-lang.h
index 9611366879a9d39d789c0635d1f13fa6c77bd85a..3ae9af3a43ed68a7ecc8647446b08c02614eacf4 100644 (file)
--- a/gdb/f-lang.h
+++ b/gdb/f-lang.h
@@ -57,6 +57,8 @@ extern SAVED_F77_COMMON_PTR head_common_list;   /* Ptr to 1st saved COMMON  */
 extern SAVED_F77_COMMON_PTR tail_common_list;   /* Ptr to last saved COMMON  */
 extern SAVED_F77_COMMON_PTR current_common;     /* Ptr to current COMMON */
 
+extern SAVED_F77_COMMON_PTR find_common_for_function PARAMS ((char *, char *));
+
 #define UNINITIALIZED_SECNUM -1 
 #define COMMON_NEEDS_PATCHING(blk) ((blk)->secnum == UNINITIALIZED_SECNUM)
 
@@ -84,6 +86,8 @@ extern int f77_get_dynamic_lowerbound PARAMS ((struct type *, int *));
 
 extern void f77_get_dynamic_array_length PARAMS ((struct type *)); 
 
+extern int calc_f77_array_dims PARAMS ((struct type *));
+
 #define DEFAULT_DOTMAIN_NAME_IN_MF77            ".MAIN_"
 #define DEFAULT_MAIN_NAME_IN_MF77               "MAIN_"
 #define DEFAULT_DOTMAIN_NAME_IN_XLF_BUGGY       ".main "