5c6ce71d76
* scm-lang.c (scm_language_defn): Update. * p-typeprint.c (pascal_print_typedef): New function. * p-lang.h: (pascal_print_typedef): Declare. * p-lang.c (pascal_language_defn): Update. * objc-lang.c (objc_language_defn): Update. * m2-typeprint.c (m2_print_typedef): New function. * m2-lang.h (m2_print_typedef): Declare. * m2-lang.c (m2_language_defn): Update. * language.h (_LANG_c, _LANG_m2, _LANG_fortran, _LANG_pascal): Remove. (struct language_defn) <la_print_typedef>: New field. (default_print_typedef): Declare. (LA_PRINT_TYPEDEF): New define. * language.c (unknown_language_defn): Update. (auto_language_defn): Update. (local_language_defn): Update. * jv-lang.c (java_language_defn): Update. * f-lang.c (f_language_defn): Update. * c-typeprint.c (c_print_typedef): New function. * c-lang.h (c_print_typedef): Declare. * c-lang.c (c_language_defn): Update. (cplus_language_defn): Update. (asm_language_defn): Update. (minimal_language_defn): Update. * ada-lang.c (ada_language_defn): Update. * typeprint.c (default_print_typedef): New function. gdb/doc * gdbint.texinfo (Language Support): Remove text about omitting support for a language.
55 lines
1.8 KiB
C
55 lines
1.8 KiB
C
/* Modula 2 language support definitions for GDB, the GNU debugger.
|
|
|
|
Copyright (C) 1992, 1998, 2000, 2005, 2007, 2008
|
|
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 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
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, see <http://www.gnu.org/licenses/>. */
|
|
|
|
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,
|
|
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);
|
|
|
|
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);
|
|
|