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