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

/* Modula 2 language support definitions for GDB, the GNU debugger.

   Copyright (C) 1992-2019 Free Software Foundation, Inc.

   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 3 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, see <http://www.gnu.org/licenses/>.  */

#ifndef M2_LANG_H
#define M2_LANG_H

struct type_print_options;
struct parser_state;

extern int m2_parse (struct parser_state *); /* Defined in m2-exp.y */

/* Defined in m2-typeprint.c */
extern void m2_print_type (struct type *, const char *, struct ui_file *, int,
			   int, const struct type_print_options *);

extern void m2_print_typedef (struct type *, struct symbol *,
			      struct ui_file *);

extern int m2_is_long_set (struct type *type);
extern int m2_is_unbounded_array (struct type *type);

extern void m2_val_print (struct type *, int, CORE_ADDR,
			  struct ui_file *, int,
			  struct value *,
			  const struct value_print_options *);

extern int get_long_set_bounds (struct type *type, LONGEST *low,
				LONGEST *high);

/* Modula-2 types */

struct builtin_m2_type
{
  struct type *builtin_char;
  struct type *builtin_int;
  struct type *builtin_card;
  struct type *builtin_real;
  struct type *builtin_bool;
};

/* Return the Modula-2 type table for the specified architecture.  */
extern const struct builtin_m2_type *builtin_m2_type (struct gdbarch *gdbarch);

#endif /* M2_LANG_H */
Commit	Line	Data
	1	/* Modula 2 language support definitions for GDB, the GNU debugger.
	2
	3	Copyright (C) 1992-2019 Free Software Foundation, Inc.
	4
	5	This file is part of GDB.
	6
	7	This program is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
	9	the Free Software Foundation; either version 3 of the License, or
	10	(at your option) any later version.
	11
	12	This program is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
	16
	17	You should have received a copy of the GNU General Public License
	18	along with this program. If not, see <http://www.gnu.org/licenses/>. */
	19
	20	#ifndef M2_LANG_H
	21	#define M2_LANG_H
	22
	23	struct type_print_options;
	24	struct parser_state;
	25
	26	extern int m2_parse (struct parser_state ); / Defined in m2-exp.y */
	27
	28	/* Defined in m2-typeprint.c */
	29	extern void m2_print_type (struct type , const char , struct ui_file *, int,
	30	int, const struct type_print_options *);
	31
	32	extern void m2_print_typedef (struct type , struct symbol ,
	33	struct ui_file *);
	34
	35	extern int m2_is_long_set (struct type *type);
	36	extern int m2_is_unbounded_array (struct type *type);
	37
	38	extern void m2_val_print (struct type *, int, CORE_ADDR,
	39	struct ui_file *, int,
	40	struct value *,
	41	const struct value_print_options *);
	42
	43	extern int get_long_set_bounds (struct type type, LONGEST low,
	44	LONGEST *high);
	45
	46	/* Modula-2 types */
	47
	48	struct builtin_m2_type
	49	{
	50	struct type *builtin_char;
	51	struct type *builtin_int;
	52	struct type *builtin_card;
	53	struct type *builtin_real;
	54	struct type *builtin_bool;
	55	};
	56
	57	/* Return the Modula-2 type table for the specified architecture. */
	58	extern const struct builtin_m2_type builtin_m2_type (struct gdbarch gdbarch);
	59
	60	#endif /* M2_LANG_H */