49 if (c ==
'\\' || c == quoter)
107 unsigned int length,
const char *
encoding,
int force_ellipses,
111 unsigned int things_printed = 0;
121 for (i = 0; i < length && things_printed < options->
print_max; ++i)
139 while (rep1 < length &&
string[rep1] ==
string[i])
174 if (force_ellipses || i < length)
178 static struct value *
202 struct value *temp = arg1;
207 _(
"unbounded structure "
208 "missing _m2_high field"));
216 case BINOP_SUBSCRIPT:
231 struct value *temp = arg1;
235 warning (
_(
"internal error: unbounded "
236 "array structure is unknown"));
241 _(
"unbounded structure "
242 "missing _m2_contents field"));
254 error (
_(
"cannot subscript something of type `%s'"),
257 error (
_(
"cannot subscript requested type"));
389 default_make_symbol_completion_list,
int m2_parse(struct parser_state *par_state)
struct value * value_zero(struct type *type, enum lval_type lv)
union exp_element elts[1]
unsigned int repeat_count_threshold
static const struct op_print m2_op_print_tab[]
void m2_print_type(struct type *, const char *, struct ui_file *, int, int, const struct type_print_options *)
void m2_print_typedef(struct type *, struct symbol *, struct ui_file *)
struct value * value_subscript(struct value *array, LONGEST index)
const struct builtin_m2_type * builtin_m2_type(struct gdbarch *gdbarch)
void _initialize_m2_language(void)
struct type * arch_boolean_type(struct gdbarch *gdbarch, int bit, int unsigned_p, char *name)
#define GDBARCH_OBSTACK_CALLOC(GDBARCH, NR, TYPE)
LONGEST value_as_long(struct value *val)
int gdbarch_int_bit(struct gdbarch *gdbarch)
void warning(const char *fmt,...)
static void * build_m2_types(struct gdbarch *gdbarch)
struct value * evaluate_subexp_with_coercion(struct expression *exp, int *pos, enum noside noside)
#define TYPE_NAME(thistype)
struct type * arch_float_type(struct gdbarch *gdbarch, int bit, char *name, const struct floatformat **floatformats)
static void m2_printstr(struct ui_file *stream, struct type *type, const gdb_byte *string, unsigned int length, const char *encoding, int force_ellipses, const struct value_print_options *options)
void * gdbarch_data(struct gdbarch *gdbarch, struct gdbarch_data *data)
struct ui_file * gdb_stdout
struct type * builtin_char
struct value * default_read_var_value(struct symbol *var, struct frame_info *frame)
struct value * coerce_ref(struct value *arg)
static void m2_emit_char(int, struct type *, struct ui_file *, int)
struct value * value_ind(struct value *arg1)
struct type * string_char_type
#define TYPE_FIELD_TYPE(thistype, n)
void add_language(const struct language_defn *lang)
#define GDBARCH_OBSTACK_ZALLOC(GDBARCH, TYPE)
struct type * arch_character_type(struct gdbarch *gdbarch, int bit, int unsigned_p, char *name)
struct value * value_ptradd(struct value *arg1, LONGEST arg2)
static struct gdbarch_data * m2_type_data
char * default_word_break_characters(void)
struct value * value_struct_elt(struct value **argp, struct value **args, const char *name, int *static_memfuncp, const char *err)
#define LA_EMIT_CHAR(ch, type, stream, quoter)
struct type * check_typedef(struct type *type)
struct type * bool_type_default
void null_post_parser(struct expression **exp, int void_context_p)
#define PRINT_LITERAL_FORM(c)
struct type * builtin_int
void fprintf_filtered(struct ui_file *stream, const char *format,...)
static void m2_language_arch_info(struct gdbarch *gdbarch, struct language_arch_info *lai)
void fputs_filtered(const char *linebuffer, struct ui_file *stream)
const char * bool_type_symbol
int default_pass_by_reference(struct type *type)
struct type * basic_lookup_transparent_type(const char *name)
struct type * builtin_card
int dump_subexp_body_standard(struct expression *exp, struct ui_file *stream, int elt)
struct value * value_from_longest(struct type *type, LONGEST num)
void iterate_over_symbols(const struct block *block, const char *name, const domain_enum domain, symbol_found_callback_ftype *callback, void *data)
struct value * value_cast(struct type *type, struct value *arg2)
void default_print_array_index(struct value *index_value, struct ui_file *stream, const struct value_print_options *options)
struct type * arch_integer_type(struct gdbarch *gdbarch, int bit, int unsigned_p, char *name)
char * op_name_standard(enum exp_opcode opcode)
int m2_is_unbounded_array(struct type *type)
const struct exp_descriptor exp_descriptor_modula2
static void m2_printchar(int, struct type *, struct ui_file *)
static struct value * evaluate_subexp_modula2(struct type *expect_type, struct expression *exp, int *pos, enum noside noside)
#define TYPE_TARGET_TYPE(thistype)
void print_subexp_standard(struct expression *exp, int *pos, struct ui_file *stream, enum precedence prec)
void default_get_string(struct value *value, gdb_byte **buffer, int *length, struct type **char_type, const char **charset)
#define TYPE_CODE(thistype)
#define default_varobj_ops
void m2_val_print(struct type *, const gdb_byte *, int, CORE_ADDR, struct ui_file *, int, const struct value *, const struct value_print_options *)
int operator_check_standard(struct expression *exp, int pos, int(*objfile_func)(struct objfile *objfile, void *data), void *data)
int gdbarch_float_bit(struct gdbarch *gdbarch)
struct value * evaluate_subexp_standard(struct type *expect_type, struct expression *exp, int *pos, enum noside noside)
void operator_length_standard(const struct expression *expr, int endpos, int *oplenp, int *argsp)
struct symbol * basic_lookup_symbol_nonlocal(const struct language_defn *langdef, const char *name, const struct block *block, const domain_enum domain)
struct type * value_type(const struct value *value)
struct type ** primitive_type_vector
void c_value_print(struct value *, struct ui_file *, const struct value_print_options *)
struct type * builtin_bool
void error(const char *fmt,...)
struct gdbarch_data * gdbarch_data_register_post_init(gdbarch_data_post_init_ftype *post_init)
struct type * builtin_real
struct type * builtin_int