15796c8dcSSimon Schubert /* Modula 2 language support definitions for GDB, the GNU debugger. 25796c8dcSSimon Schubert 3*ef5ccd6cSJohn Marino Copyright (C) 1992-2013 Free Software Foundation, Inc. 45796c8dcSSimon Schubert 55796c8dcSSimon Schubert This file is part of GDB. 65796c8dcSSimon Schubert 75796c8dcSSimon Schubert This program is free software; you can redistribute it and/or modify 85796c8dcSSimon Schubert it under the terms of the GNU General Public License as published by 95796c8dcSSimon Schubert the Free Software Foundation; either version 3 of the License, or 105796c8dcSSimon Schubert (at your option) any later version. 115796c8dcSSimon Schubert 125796c8dcSSimon Schubert This program is distributed in the hope that it will be useful, 135796c8dcSSimon Schubert but WITHOUT ANY WARRANTY; without even the implied warranty of 145796c8dcSSimon Schubert MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 155796c8dcSSimon Schubert GNU General Public License for more details. 165796c8dcSSimon Schubert 175796c8dcSSimon Schubert You should have received a copy of the GNU General Public License 185796c8dcSSimon Schubert along with this program. If not, see <http://www.gnu.org/licenses/>. */ 195796c8dcSSimon Schubert 20*ef5ccd6cSJohn Marino struct type_print_options; 21*ef5ccd6cSJohn Marino 225796c8dcSSimon Schubert extern int m2_parse (void); /* Defined in m2-exp.y */ 235796c8dcSSimon Schubert 245796c8dcSSimon Schubert extern void m2_error (char *); /* Defined in m2-exp.y */ 255796c8dcSSimon Schubert 265796c8dcSSimon Schubert /* Defined in m2-typeprint.c */ 27cf7f2e2dSJohn Marino extern void m2_print_type (struct type *, const char *, struct ui_file *, int, 28*ef5ccd6cSJohn Marino int, const struct type_print_options *); 295796c8dcSSimon Schubert 305796c8dcSSimon Schubert extern void m2_print_typedef (struct type *, struct symbol *, 315796c8dcSSimon Schubert struct ui_file *); 325796c8dcSSimon Schubert 335796c8dcSSimon Schubert extern int m2_is_long_set (struct type *type); 345796c8dcSSimon Schubert extern int m2_is_unbounded_array (struct type *type); 355796c8dcSSimon Schubert 36*ef5ccd6cSJohn Marino extern void m2_val_print (struct type *, const gdb_byte *, int, CORE_ADDR, 375796c8dcSSimon Schubert struct ui_file *, int, 38cf7f2e2dSJohn Marino const struct value *, 395796c8dcSSimon Schubert const struct value_print_options *); 405796c8dcSSimon Schubert 415796c8dcSSimon Schubert extern int get_long_set_bounds (struct type *type, LONGEST *low, 425796c8dcSSimon Schubert LONGEST *high); 435796c8dcSSimon Schubert 445796c8dcSSimon Schubert /* Modula-2 types */ 455796c8dcSSimon Schubert 465796c8dcSSimon Schubert struct builtin_m2_type 475796c8dcSSimon Schubert { 485796c8dcSSimon Schubert struct type *builtin_char; 495796c8dcSSimon Schubert struct type *builtin_int; 505796c8dcSSimon Schubert struct type *builtin_card; 515796c8dcSSimon Schubert struct type *builtin_real; 525796c8dcSSimon Schubert struct type *builtin_bool; 535796c8dcSSimon Schubert }; 545796c8dcSSimon Schubert 555796c8dcSSimon Schubert /* Return the Modula-2 type table for the specified architecture. */ 565796c8dcSSimon Schubert extern const struct builtin_m2_type *builtin_m2_type (struct gdbarch *gdbarch); 575796c8dcSSimon Schubert 58