1 /* Modula 2 language support definitions for GDB, the GNU debugger. 2 3 Copyright (C) 1992-2015 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 struct type_print_options; 21 struct parser_state; 22 23 extern int m2_parse (struct parser_state *); /* Defined in m2-exp.y */ 24 25 extern void m2_error (char *); /* Defined in m2-exp.y */ 26 27 /* Defined in m2-typeprint.c */ 28 extern void m2_print_type (struct type *, const char *, struct ui_file *, int, 29 int, const struct type_print_options *); 30 31 extern void m2_print_typedef (struct type *, struct symbol *, 32 struct ui_file *); 33 34 extern int m2_is_long_set (struct type *type); 35 extern int m2_is_unbounded_array (struct type *type); 36 37 extern void m2_val_print (struct type *, const gdb_byte *, int, CORE_ADDR, 38 struct ui_file *, int, 39 const struct value *, 40 const struct value_print_options *); 41 42 extern int get_long_set_bounds (struct type *type, LONGEST *low, 43 LONGEST *high); 44 45 /* Modula-2 types */ 46 47 struct builtin_m2_type 48 { 49 struct type *builtin_char; 50 struct type *builtin_int; 51 struct type *builtin_card; 52 struct type *builtin_real; 53 struct type *builtin_bool; 54 }; 55 56 /* Return the Modula-2 type table for the specified architecture. */ 57 extern const struct builtin_m2_type *builtin_m2_type (struct gdbarch *gdbarch); 58 59