1 /* Modula 2 language support definitions for GDB, the GNU debugger. 2 3 Copyright (C) 1992, 1998, 2000, 2005, 2007, 2008, 2009, 2010, 2011 4 Free Software Foundation, Inc. 5 6 This file is part of GDB. 7 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 3 of the License, or 11 (at your option) any later version. 12 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. 17 18 You should have received a copy of the GNU General Public License 19 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 20 21 extern int m2_parse (void); /* Defined in m2-exp.y */ 22 23 extern void m2_error (char *); /* Defined in m2-exp.y */ 24 25 /* Defined in m2-typeprint.c */ 26 extern void m2_print_type (struct type *, const char *, struct ui_file *, int, 27 int); 28 29 extern void m2_print_typedef (struct type *, struct symbol *, 30 struct ui_file *); 31 32 extern int m2_is_long_set (struct type *type); 33 extern int m2_is_unbounded_array (struct type *type); 34 35 extern int m2_val_print (struct type *, const gdb_byte *, int, CORE_ADDR, 36 struct ui_file *, int, 37 const struct value *, 38 const struct value_print_options *); 39 40 extern int get_long_set_bounds (struct type *type, LONGEST *low, 41 LONGEST *high); 42 43 /* Modula-2 types */ 44 45 struct builtin_m2_type 46 { 47 struct type *builtin_char; 48 struct type *builtin_int; 49 struct type *builtin_card; 50 struct type *builtin_real; 51 struct type *builtin_bool; 52 }; 53 54 /* Return the Modula-2 type table for the specified architecture. */ 55 extern const struct builtin_m2_type *builtin_m2_type (struct gdbarch *gdbarch); 56 57