X-Git-Url: https://git.libre-soc.org/?a=blobdiff_plain;f=gdb%2Fm2-lang.h;h=87df81c3f09ade502b099cbf9b1aaa1a5072bd6b;hb=e7fbb131d42983eec31231f8bb69cdd8d5a33ee6;hp=a57cef066a7601612568578148afc8782ecb201e;hpb=01f0fe5e0450edf168c1f612feb93cf588e4e7ea;p=binutils-gdb.git diff --git a/gdb/m2-lang.h b/gdb/m2-lang.h index a57cef066a7..87df81c3f09 100644 --- a/gdb/m2-lang.h +++ b/gdb/m2-lang.h @@ -1,12 +1,13 @@ /* Modula 2 language support definitions for GDB, the GNU debugger. - Copyright (C) 1992, 1998, 2000, 2005 Free Software Foundation, Inc. + Copyright (C) 1992, 1998, 2000, 2005, 2007, 2008, 2009, 2010 + 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 2 of the License, or + 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, @@ -15,18 +16,41 @@ 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, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, - Boston, MA 02110-1301, USA. */ + along with this program. If not, see . */ extern int m2_parse (void); /* Defined in m2-exp.y */ extern void m2_error (char *); /* Defined in m2-exp.y */ /* Defined in m2-typeprint.c */ -extern void m2_print_type (struct type *, char *, struct ui_file *, int, +extern void m2_print_type (struct type *, const char *, struct ui_file *, int, int); +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 int m2_val_print (struct type *, const gdb_byte *, int, CORE_ADDR, - struct ui_file *, int, int, int, - enum val_prettyprint); + struct ui_file *, int, + const 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); +