mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-02 23:04:09 +08:00
1d506c26d9
This commit is the result of the following actions:
- Running gdb/copyright.py to update all of the copyright headers to
include 2024,
- Manually updating a few files the copyright.py script told me to
update, these files had copyright headers embedded within the
file,
- Regenerating gdbsupport/Makefile.in to refresh it's copyright
date,
- Using grep to find other files that still mentioned 2023. If
these files were updated last year from 2022 to 2023 then I've
updated them this year to 2024.
I'm sure I've probably missed some dates. Feel free to fix them up as
you spot them.
153 lines
4.0 KiB
C++
153 lines
4.0 KiB
C++
/* Modula 2 language support definitions for GDB, the GNU debugger.
|
|
|
|
Copyright (C) 1992-2024 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/>. */
|
|
|
|
#ifndef M2_LANG_H
|
|
#define M2_LANG_H
|
|
|
|
struct type_print_options;
|
|
struct parser_state;
|
|
|
|
/* Defined in m2-typeprint.c */
|
|
extern void m2_print_type (struct type *, const char *, struct ui_file *, int,
|
|
int, const struct type_print_options *);
|
|
|
|
extern int m2_is_long_set (struct type *type);
|
|
extern int m2_is_unbounded_array (struct type *type);
|
|
|
|
extern int get_long_set_bounds (struct type *type, LONGEST *low,
|
|
LONGEST *high);
|
|
|
|
/* Modula-2 types */
|
|
|
|
struct builtin_m2_type
|
|
{
|
|
struct type *builtin_char = nullptr;
|
|
struct type *builtin_int = nullptr;
|
|
struct type *builtin_card = nullptr;
|
|
struct type *builtin_real = nullptr;
|
|
struct type *builtin_bool = nullptr;
|
|
};
|
|
|
|
/* Return the Modula-2 type table for the specified architecture. */
|
|
extern const struct builtin_m2_type *builtin_m2_type (struct gdbarch *gdbarch);
|
|
|
|
/* Class representing the M2 language. */
|
|
|
|
class m2_language : public language_defn
|
|
{
|
|
public:
|
|
m2_language ()
|
|
: language_defn (language_m2)
|
|
{ /* Nothing. */ }
|
|
|
|
/* See language.h. */
|
|
|
|
const char *name () const override
|
|
{ return "modula-2"; }
|
|
|
|
/* See language.h. */
|
|
|
|
const char *natural_name () const override
|
|
{ return "Modula-2"; }
|
|
|
|
/* See language.h. */
|
|
|
|
void language_arch_info (struct gdbarch *gdbarch,
|
|
struct language_arch_info *lai) const override;
|
|
|
|
/* See language.h. */
|
|
|
|
void print_type (struct type *type, const char *varstring,
|
|
struct ui_file *stream, int show, int level,
|
|
const struct type_print_options *flags) const override
|
|
{
|
|
m2_print_type (type, varstring, stream, show, level, flags);
|
|
}
|
|
|
|
/* See language.h. */
|
|
|
|
void value_print_inner (struct value *val, struct ui_file *stream,
|
|
int recurse,
|
|
const struct value_print_options *options) const override;
|
|
|
|
/* See language.h. */
|
|
|
|
int parser (struct parser_state *ps) const override;
|
|
|
|
/* See language.h. */
|
|
|
|
void emitchar (int ch, struct type *chtype,
|
|
struct ui_file *stream, int quoter) const override;
|
|
|
|
/* See language.h. */
|
|
|
|
void printchar (int ch, struct type *chtype,
|
|
struct ui_file *stream) const override;
|
|
|
|
/* See language.h. */
|
|
|
|
void printstr (struct ui_file *stream, struct type *elttype,
|
|
const gdb_byte *string, unsigned int length,
|
|
const char *encoding, int force_ellipses,
|
|
const struct value_print_options *options) const override;
|
|
|
|
/* See language.h. */
|
|
|
|
void print_typedef (struct type *type, struct symbol *new_symbol,
|
|
struct ui_file *stream) const override;
|
|
|
|
/* See language.h. */
|
|
|
|
bool is_string_type_p (struct type *type) const override
|
|
{
|
|
type = check_typedef (type);
|
|
if (type->code () == TYPE_CODE_ARRAY
|
|
&& type->length () > 0
|
|
&& type->target_type ()->length () > 0)
|
|
{
|
|
struct type *elttype = check_typedef (type->target_type ());
|
|
|
|
if (elttype->length () == 1
|
|
&& (elttype->code () == TYPE_CODE_INT
|
|
|| elttype->code () == TYPE_CODE_CHAR))
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
/* See language.h. */
|
|
|
|
bool c_style_arrays_p () const override
|
|
{ return false; }
|
|
|
|
/* See language.h. Despite not having C-style arrays, Modula-2 uses 0
|
|
for its string lower bounds. */
|
|
|
|
char string_lower_bound () const override
|
|
{ return 0; }
|
|
|
|
/* See language.h. */
|
|
|
|
bool range_checking_on_by_default () const override
|
|
{ return true; }
|
|
};
|
|
|
|
#endif /* M2_LANG_H */
|