diff options
Diffstat (limited to 'gdb/p-lang.c')
| -rw-r--r-- | gdb/p-lang.c | 384 |
1 files changed, 132 insertions, 252 deletions
diff --git a/gdb/p-lang.c b/gdb/p-lang.c index 1610c0a..3e58ccc 100644 --- a/gdb/p-lang.c +++ b/gdb/p-lang.c @@ -84,20 +84,11 @@ pascal_main_name (void) return NULL; } -/* Determines if type TYPE is a pascal string type. - Returns a positive value if the type is a known pascal string type. - This function is used by p-valprint.c code to allow better string display. - If it is a pascal string type, then it also sets info needed - to get the length and the data of the string - length_pos, length_size and string_pos are given in bytes. - char_size gives the element size in bytes. - FIXME: if the position or the size of these fields - are not multiple of TARGET_CHAR_BIT then the results are wrong - but this does not happen for Free Pascal nor for GPC. */ +/* See p-lang.h. */ + int -is_pascal_string_type (struct type *type,int *length_pos, - int *length_size, int *string_pos, - struct type **char_type, +pascal_is_string_type (struct type *type,int *length_pos, int *length_size, + int *string_pos, struct type **char_type, const char **arrayname) { if (type != NULL && type->code () == TYPE_CODE_STRUCT) @@ -152,14 +143,11 @@ is_pascal_string_type (struct type *type,int *length_pos, return 0; } -static void pascal_one_char (int, struct ui_file *, int *); - -/* Print the character C on STREAM as part of the contents of a literal - string. - In_quotes is reset to 0 if a char is written with #4 notation. */ +/* See p-lang.h. */ -static void -pascal_one_char (int c, struct ui_file *stream, int *in_quotes) +void +pascal_language::print_one_char (int c, struct ui_file *stream, + int *in_quotes) const { if (c == '\'' || ((unsigned int) c <= 0xff && (PRINT_LITERAL_FORM (c)))) { @@ -182,12 +170,15 @@ pascal_one_char (int c, struct ui_file *stream, int *in_quotes) } } +/* See language.h. */ + void -pascal_printchar (int c, struct type *type, struct ui_file *stream) +pascal_language::printchar (int c, struct type *type, + struct ui_file *stream) const { int in_quotes = 0; - pascal_one_char (c, stream, &in_quotes); + print_one_char (c, stream, &in_quotes); if (in_quotes) fputs_filtered ("'", stream); } @@ -197,7 +188,7 @@ pascal_printchar (int c, struct type *type, struct ui_file *stream) /* Table mapping opcodes into strings for printing operators and precedences of the operators. */ -const struct op_print pascal_op_print_tab[] = +const struct op_print pascal_language::op_print_tab[] = { {",", BINOP_COMMA, PREC_COMMA, 0}, {":=", BINOP_ASSIGN, PREC_ASSIGN, 1}, @@ -228,249 +219,138 @@ const struct op_print pascal_op_print_tab[] = }; -/* Class representing the Pascal language. */ +/* See language.h. */ -class pascal_language : public language_defn +void pascal_language::language_arch_info + (struct gdbarch *gdbarch, struct language_arch_info *lai) const { -public: - pascal_language () - : language_defn (language_pascal) - { /* Nothing. */ } - - /* See language.h. */ - - const char *name () const override - { return "pascal"; } - - /* See language.h. */ - - const char *natural_name () const override - { return "Pascal"; } - - /* See language.h. */ - - const std::vector<const char *> &filename_extensions () const override - { - static const std::vector<const char *> extensions - = { ".pas", ".p", ".pp" }; - return extensions; - } - - /* See language.h. */ - void language_arch_info (struct gdbarch *gdbarch, - struct language_arch_info *lai) const override - { - const struct builtin_type *builtin = builtin_type (gdbarch); - - /* Helper function to allow shorter lines below. */ - auto add = [&] (struct type * t) - { - lai->add_primitive_type (t); - }; - - add (builtin->builtin_int); - add (builtin->builtin_long); - add (builtin->builtin_short); - add (builtin->builtin_char); - add (builtin->builtin_float); - add (builtin->builtin_double); - add (builtin->builtin_void); - add (builtin->builtin_long_long); - add (builtin->builtin_signed_char); - add (builtin->builtin_unsigned_char); - add (builtin->builtin_unsigned_short); - add (builtin->builtin_unsigned_int); - add (builtin->builtin_unsigned_long); - add (builtin->builtin_unsigned_long_long); - add (builtin->builtin_long_double); - add (builtin->builtin_complex); - add (builtin->builtin_double_complex); - - lai->set_string_char_type (builtin->builtin_char); - lai->set_bool_type (builtin->builtin_bool, "boolean"); - } - - /* 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 - { - pascal_print_type (type, varstring, stream, show, level, flags); - } - - /* See language.h. */ - - void value_print (struct value *val, struct ui_file *stream, - const struct value_print_options *options) const override - { - return pascal_value_print (val, stream, options); - } - - /* See language.h. */ - - void value_print_inner - (struct value *val, struct ui_file *stream, int recurse, - const struct value_print_options *options) const override - { - return pascal_value_print_inner (val, stream, recurse, options); - } - - /* See language.h. */ - - int parser (struct parser_state *ps) const override - { - return pascal_parse (ps); - } - - /* See language.h. */ - - void emitchar (int ch, struct type *chtype, - struct ui_file *stream, int quoter) const override - { - int in_quotes = 0; - - pascal_one_char (ch, stream, &in_quotes); - if (in_quotes) - fputs_filtered ("'", stream); - } - - /* See language.h. */ + const struct builtin_type *builtin = builtin_type (gdbarch); - void printchar (int ch, struct type *chtype, - struct ui_file *stream) const override + /* Helper function to allow shorter lines below. */ + auto add = [&] (struct type * t) { - pascal_printchar (ch, chtype, stream); - } + lai->add_primitive_type (t); + }; + + add (builtin->builtin_int); + add (builtin->builtin_long); + add (builtin->builtin_short); + add (builtin->builtin_char); + add (builtin->builtin_float); + add (builtin->builtin_double); + add (builtin->builtin_void); + add (builtin->builtin_long_long); + add (builtin->builtin_signed_char); + add (builtin->builtin_unsigned_char); + add (builtin->builtin_unsigned_short); + add (builtin->builtin_unsigned_int); + add (builtin->builtin_unsigned_long); + add (builtin->builtin_unsigned_long_long); + add (builtin->builtin_long_double); + add (builtin->builtin_complex); + add (builtin->builtin_double_complex); + + lai->set_string_char_type (builtin->builtin_char); + lai->set_bool_type (builtin->builtin_bool, "boolean"); +} - /* See language.h. */ +/* 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 - { - enum bfd_endian byte_order = type_byte_order (elttype); - unsigned int i; - unsigned int things_printed = 0; - int in_quotes = 0; - int need_comma = 0; - int width; - - /* Preserve ELTTYPE's original type, just set its LENGTH. */ - check_typedef (elttype); - width = TYPE_LENGTH (elttype); - - /* If the string was not truncated due to `set print elements', and - the last byte of it is a null, we don't print that, in traditional C - style. */ - if ((!force_ellipses) && length > 0 - && extract_unsigned_integer (string + (length - 1) * width, width, - byte_order) == 0) - length--; - - if (length == 0) - { - fputs_filtered ("''", stream); - return; - } - - for (i = 0; i < length && things_printed < options->print_max; ++i) - { - /* Position of the character we are examining - to see whether it is repeated. */ - unsigned int rep1; - /* Number of repetitions we have detected so far. */ - unsigned int reps; - unsigned long int current_char; - - QUIT; - - if (need_comma) - { - fputs_filtered (", ", stream); - need_comma = 0; - } - - current_char = extract_unsigned_integer (string + i * width, width, - byte_order); - - rep1 = i + 1; - reps = 1; - while (rep1 < length - && extract_unsigned_integer (string + rep1 * width, width, - byte_order) == current_char) - { - ++rep1; - ++reps; - } - - if (reps > options->repeat_count_threshold) - { - if (in_quotes) - { - fputs_filtered ("', ", stream); - in_quotes = 0; - } - pascal_printchar (current_char, elttype, stream); - fprintf_filtered (stream, " %p[<repeats %u times>%p]", - metadata_style.style ().ptr (), - reps, nullptr); - i = rep1 - 1; - things_printed += options->repeat_count_threshold; - need_comma = 1; - } - else - { - if ((!in_quotes) && (PRINT_LITERAL_FORM (current_char))) - { - fputs_filtered ("'", stream); - in_quotes = 1; - } - pascal_one_char (current_char, stream, &in_quotes); - ++things_printed; - } - } - - /* Terminate the quotes if necessary. */ - if (in_quotes) - fputs_filtered ("'", stream); - - if (force_ellipses || i < length) - fputs_filtered ("...", stream); - } - - /* See language.h. */ - - void print_typedef (struct type *type, struct symbol *new_symbol, - struct ui_file *stream) const override - { - pascal_print_typedef (type, new_symbol, stream); - } +void +pascal_language::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 +{ + enum bfd_endian byte_order = type_byte_order (elttype); + unsigned int i; + unsigned int things_printed = 0; + int in_quotes = 0; + int need_comma = 0; + int width; + + /* Preserve ELTTYPE's original type, just set its LENGTH. */ + check_typedef (elttype); + width = TYPE_LENGTH (elttype); + + /* If the string was not truncated due to `set print elements', and + the last byte of it is a null, we don't print that, in traditional C + style. */ + if ((!force_ellipses) && length > 0 + && extract_unsigned_integer (string + (length - 1) * width, width, + byte_order) == 0) + length--; + + if (length == 0) + { + fputs_filtered ("''", stream); + return; + } - /* See language.h. */ + for (i = 0; i < length && things_printed < options->print_max; ++i) + { + /* Position of the character we are examining + to see whether it is repeated. */ + unsigned int rep1; + /* Number of repetitions we have detected so far. */ + unsigned int reps; + unsigned long int current_char; - bool is_string_type_p (struct type *type) const override - { - return is_pascal_string_type (type, nullptr, nullptr, nullptr, - nullptr, nullptr) > 0; - } + QUIT; - /* See language.h. */ + if (need_comma) + { + fputs_filtered (", ", stream); + need_comma = 0; + } - const char *name_of_this () const override - { return "this"; } + current_char = extract_unsigned_integer (string + i * width, width, + byte_order); - /* See language.h. */ + rep1 = i + 1; + reps = 1; + while (rep1 < length + && extract_unsigned_integer (string + rep1 * width, width, + byte_order) == current_char) + { + ++rep1; + ++reps; + } - bool range_checking_on_by_default () const override - { return true; } + if (reps > options->repeat_count_threshold) + { + if (in_quotes) + { + fputs_filtered ("', ", stream); + in_quotes = 0; + } + printchar (current_char, elttype, stream); + fprintf_filtered (stream, " %p[<repeats %u times>%p]", + metadata_style.style ().ptr (), + reps, nullptr); + i = rep1 - 1; + things_printed += options->repeat_count_threshold; + need_comma = 1; + } + else + { + if ((!in_quotes) && (PRINT_LITERAL_FORM (current_char))) + { + fputs_filtered ("'", stream); + in_quotes = 1; + } + print_one_char (current_char, stream, &in_quotes); + ++things_printed; + } + } - /* See language.h. */ + /* Terminate the quotes if necessary. */ + if (in_quotes) + fputs_filtered ("'", stream); - const struct op_print *opcode_print_table () const override - { return pascal_op_print_tab; } -}; + if (force_ellipses || i < length) + fputs_filtered ("...", stream); +} /* Single instance of the Pascal language class. */ |