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

/* Fortran language support definitions for GDB, the GNU debugger.
   Copyright 1992, 1993, 1994 Free Software Foundation, Inc.
   Contributed by Motorola.  Adapted from the C definitions by Farooq Butt
   (fmbutt@engage.sps.mot.com).

   This file is part of GDB.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.  */

extern int f_parse PARAMS ((void));

extern void f_error PARAMS ((char *));	/* Defined in f-exp.y */

extern void f_print_type PARAMS ((struct type *, char *,
				  GDB_FILE *, int, int));

extern int f_val_print PARAMS ((struct type *, char *, int,
				CORE_ADDR, GDB_FILE *,
				int, int, int, enum val_prettyprint));

/* Language-specific data structures */

struct common_entry
  {
    struct symbol *symbol;	/* The symbol node corresponding
				   to this component */
    struct common_entry *next;	/* The next component */
  };

struct saved_f77_common
  {
    char *name;			/* Name of COMMON */
    char *owning_function;	/* Name of parent function */
    int secnum;			/* Section # of .bss */
    CORE_ADDR offset;		/* Offset from .bss for 
				   this block */
    struct common_entry *entries;	/* List of block's components */
    struct common_entry *end_of_entries;	/* ptr. to end of components */
    struct saved_f77_common *next;	/* Next saved COMMON block */
  };

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 PARAMS ((char *, 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 */

#define BOUND_FETCH_OK 1
#define BOUND_FETCH_ERROR -999

/* 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_dynamic_upperbound PARAMS ((struct type *, int *));

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 "
#define DEFAULT_DOTMAIN_NAME_IN_XLF             ".main"
Commit	Line	Data
c906108c SS	1	/* Fortran language support definitions for GDB, the GNU debugger.
	2	Copyright 1992, 1993, 1994 Free Software Foundation, Inc.
	3	Contributed by Motorola. Adapted from the C definitions by Farooq Butt
	4	(fmbutt@engage.sps.mot.com).
	5
c5aa993b	6	This file is part of GDB.
c906108c	7
c5aa993b JM	8	This program is free software; you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
	10	the Free Software Foundation; either version 2 of the License, or
	11	(at your option) any later version.
c906108c	12
c5aa993b JM	13	This program is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	GNU General Public License for more details.
c906108c	17
c5aa993b JM	18	You should have received a copy of the GNU General Public License
	19	along with this program; if not, write to the Free Software
	20	Foundation, Inc., 59 Temple Place - Suite 330,
	21	Boston, MA 02111-1307, USA. */
c906108c SS	22
	23	extern int f_parse PARAMS ((void));
	24
	25	extern void f_error PARAMS ((char )); / Defined in f-exp.y */
	26
	27	extern void f_print_type PARAMS ((struct type , char ,
	28	GDB_FILE *, int, int));
	29
c5aa993b	30	extern int f_val_print PARAMS ((struct type , char , int,
c906108c SS	31	CORE_ADDR, GDB_FILE *,
	32	int, int, int, enum val_prettyprint));
	33
c5aa993b	34	/* Language-specific data structures */
c906108c SS	35
c906108c SS	36	struct common_entry
c5aa993b JM	37	{
	38	struct symbol symbol; / The symbol node corresponding
	39	to this component */
	40	struct common_entry next; / The next component */
	41	};
c906108c SS	42
c906108c SS	43	struct saved_f77_common
c5aa993b JM	44	{
	45	char name; / Name of COMMON */
	46	char owning_function; / Name of parent function */
	47	int secnum; /* Section # of .bss */
	48	CORE_ADDR offset; /* Offset from .bss for
	49	this block */
	50	struct common_entry entries; / List of block's components */
	51	struct common_entry end_of_entries; / ptr. to end of components */
	52	struct saved_f77_common next; / Next saved COMMON block */
	53	};
c906108c	54
c5aa993b	55	typedef struct saved_f77_common SAVED_F77_COMMON, *SAVED_F77_COMMON_PTR;
c906108c	56
c5aa993b	57	typedef struct common_entry COMMON_ENTRY, *COMMON_ENTRY_PTR;
c906108c	58
c5aa993b JM	59	extern SAVED_F77_COMMON_PTR head_common_list; /* Ptr to 1st saved COMMON */
	60	extern SAVED_F77_COMMON_PTR tail_common_list; /* Ptr to last saved COMMON */
	61	extern SAVED_F77_COMMON_PTR current_common; /* Ptr to current COMMON */
c906108c SS	62
	63	extern SAVED_F77_COMMON_PTR find_common_for_function PARAMS ((char , char ));
	64
c5aa993b	65	#define UNINITIALIZED_SECNUM -1
c906108c SS	66	#define COMMON_NEEDS_PATCHING(blk) ((blk)->secnum == UNINITIALIZED_SECNUM)
c906108c SS	67
c5aa993b JM	68	#define BLANK_COMMON_NAME_ORIGINAL "#BLNK_COM" /* XLF assigned */
	69	#define BLANK_COMMON_NAME_MF77 "__BLNK__" /* MF77 assigned */
	70	#define BLANK_COMMON_NAME_LOCAL "__BLANK" /* Local GDB */
c906108c SS	71
	72	#define BOUND_FETCH_OK 1
	73	#define BOUND_FETCH_ERROR -999
	74
	75	/* When reasonable array bounds cannot be fetched, such as when
c5aa993b JM	76	you ask to 'mt print symbols' and there is no stack frame and
	77	therefore no way of knowing the bounds of stack-based arrays,
	78	we have to assign default bounds, these are as good as any... */
c906108c SS	79
	80	#define DEFAULT_UPPER_BOUND 999999
	81	#define DEFAULT_LOWER_BOUND -999999
	82
c5aa993b JM	83	extern char real_main_name; / Name of main function */
c5aa993b JM	84	extern int real_main_c_value; /* C_value field of main function */
c906108c SS	85
	86	extern int f77_get_dynamic_upperbound PARAMS ((struct type , int ));
	87
	88	extern int f77_get_dynamic_lowerbound PARAMS ((struct type , int ));
	89
c5aa993b	90	extern void f77_get_dynamic_array_length PARAMS ((struct type *));
c906108c SS	91
	92	extern int calc_f77_array_dims PARAMS ((struct type *));
	93
	94	#define DEFAULT_DOTMAIN_NAME_IN_MF77 ".MAIN_"
	95	#define DEFAULT_MAIN_NAME_IN_MF77 "MAIN_"
	96	#define DEFAULT_DOTMAIN_NAME_IN_XLF_BUGGY ".main "
	97	#define DEFAULT_DOTMAIN_NAME_IN_XLF ".main"