diff options
| author | Tom Tromey <tromey@redhat.com> | 2012-09-26 19:05:09 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 2012-09-26 19:05:09 +0000 |
| commit | 965f07a88d697b5361258b1e771c616f54678461 (patch) | |
| tree | b2596737526c2897cfa6fcc5ef602d0032b9e67c /gdb/f-lang.h | |
| parent | 6f380991ba8ad44acd591d590a8dd974a0c2d561 (diff) | |
| download | gdb-965f07a88d697b5361258b1e771c616f54678461.zip gdb-965f07a88d697b5361258b1e771c616f54678461.tar.gz gdb-965f07a88d697b5361258b1e771c616f54678461.tar.bz2 | |
2012-09-26 Jan Kratochvil <jan.kratochvil@redhat.com>
Tom Tromey <tromey@redhat.com>
* 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.
Diffstat (limited to 'gdb/f-lang.h')
| -rw-r--r-- | gdb/f-lang.h | 18 |
1 files changed, 0 insertions, 18 deletions
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 *); |