X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gdb%2Fm2-lang.h;h=fc6de3450f8f270218850b8106b853d4d1c7be16;hb=dcc0705263d4af11b3bb1953d29a0ad99de7b647;hp=6e63e8d78013fe979f191c8ec010bd514b99e86d;hpb=abd8680d6efd97e7ba848a6392ee3ad72be18cd0;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/m2-lang.h b/gdb/m2-lang.h index 6e63e8d780..fc6de3450f 100644 --- a/gdb/m2-lang.h +++ b/gdb/m2-lang.h @@ -1,11 +1,13 @@ /* Modula 2 language support definitions for GDB, the GNU debugger. - Copyright 1992, 2000 Free Software Foundation, Inc. + + Copyright (C) 1992, 1998, 2000, 2005, 2007-2012 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, @@ -14,20 +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., 59 Temple Place - Suite 330, - Boston, MA 02111-1307, USA. */ + along with this program. If not, see . */ -extern int -m2_parse PARAMS ((void)); /* Defined in m2-exp.y */ +extern int m2_parse (void); /* Defined in m2-exp.y */ -extern void -m2_error PARAMS ((char *)); /* 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 int m2_val_print (struct type *, char *, int, CORE_ADDR, - struct ui_file *, int, int, int, - enum val_prettyprint); +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 void m2_val_print (struct type *, const gdb_byte *, int, CORE_ADDR, + 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); +