From 965f07a88d697b5361258b1e771c616f54678461 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 26 Sep 2012 19:05:09 +0000 Subject: 2012-09-26 Jan Kratochvil Tom Tromey * f-lang.c (allocate_saved_bf_node, allocate_saved_function_node, allocate_saved_f77_common_node, allocate_common_entry_node, tail_common_list, current_common, saved_bf_list, saved_bf_list_end, current_head_bf_list, tmp_bf_ptr, add_common_block, add_common_entry, find_first_common_named, patch_common_entries, patch_all_commons_by_name, ADD_BF_SYMNUM, clear_bf_list, global_remote_debug, get_bf_for_fcn, saved_function_list, saved_function_list_end, clear_function_list, struct saved_fcn, struct saved_bf_symnum, SAVED_FUNCTION, SAVED_FUNCTION_PTR, SAVED_BF, SAVED_BF_PTR): Remove. * f-lang.h (tail_common_list, current_common, UNINITIALIZED_SECNUM, COMMON_NEEDS_PATCHING, BLANK_COMMON_NAME_ORIGINAL, BLANK_COMMON_NAME_MF77, DEFAULT_UPPER_BOUND, DEFAULT_LOWER_BOUND, real_main_name, real_main_c_value): Remove. * f-valprint.c (there_is_a_visible_common_named): Remove. --- gdb/f-lang.h | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'gdb/f-lang.h') diff --git a/gdb/f-lang.h b/gdb/f-lang.h index 4aae3c5..94001e8 100644 --- a/gdb/f-lang.h +++ b/gdb/f-lang.h @@ -72,30 +72,12 @@ typedef struct saved_f77_common SAVED_F77_COMMON, *SAVED_F77_COMMON_PTR; typedef struct common_entry COMMON_ENTRY, *COMMON_ENTRY_PTR; 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 (const char *, const char *); -#define UNINITIALIZED_SECNUM -1 -#define COMMON_NEEDS_PATCHING(blk) ((blk)->secnum == UNINITIALIZED_SECNUM) - -#define BLANK_COMMON_NAME_ORIGINAL "#BLNK_COM" /* XLF assigned */ -#define BLANK_COMMON_NAME_MF77 "__BLNK__" /* MF77 assigned */ #define BLANK_COMMON_NAME_LOCAL "__BLANK" /* Local GDB */ -/* When reasonable array bounds cannot be fetched, such as when - you ask to 'mt print symbols' and there is no stack frame and - therefore no way of knowing the bounds of stack-based arrays, - we have to assign default bounds, these are as good as any... */ - -#define DEFAULT_UPPER_BOUND 999999 -#define DEFAULT_LOWER_BOUND -999999 - -extern char *real_main_name; /* Name of main function. */ -extern int real_main_c_value; /* C_value field of main function. */ - extern int f77_get_upperbound (struct type *); extern int f77_get_lowerbound (struct type *); -- cgit v1.1