/* Fortran language support definitions for GDB, the GNU debugger.
- Copyright (C) 1992-1995, 1998, 2000, 2005, 2007-2012 Free Software
- Foundation, Inc.
+ Copyright (C) 1992-2014 Free Software Foundation, Inc.
Contributed by Motorola. Adapted from the C definitions by Farooq Butt
(fmbutt@engage.sps.mot.com).
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>. */
-extern int f_parse (void);
+struct type_print_options;
+struct parser_state;
+
+extern int f_parse (struct parser_state *);
extern void f_error (char *); /* Defined in f-exp.y */
extern void f_print_type (struct type *, const char *, struct ui_file *, int,
- int);
+ int, const struct type_print_options *);
extern void f_val_print (struct type *, const gdb_byte *, int, CORE_ADDR,
struct ui_file *, int,
struct symbol *contents[1];
};
-#define BLANK_COMMON_NAME_LOCAL "__BLANK" /* Local GDB */
-
extern int f77_get_upperbound (struct type *);
extern int f77_get_lowerbound (struct type *);