91 int *string_pos,
struct type **char_type,
92 const char **arrayname)
135 if ((*char_type)->code () == TYPE_CODE_ARRAY)
150 int *in_quotes)
const
196 auto add = [&] (
struct type * t)
227 const gdb_byte *
string,
unsigned int length,
228 const char *encoding,
int force_ellipses,
233 unsigned int things_printed = 0;
240 width = elttype->
length ();
245 if ((!force_ellipses) && length > 0
257 for (i = 0; i < length && things_printed < print_max_chars; ++i)
264 unsigned long int current_char;
281 byte_order) == current_char)
294 printchar (current_char, elttype, stream);
295 gdb_printf (stream,
" %p[<repeats %u times>%p]",
318 if (force_ellipses || i < length)
ui_file_style style() const
void language_arch_info(struct gdbarch *gdbarch, struct language_arch_info *lai) const override
void print_one_char(int c, struct ui_file *stream, int *in_quotes) const
void printchar(int ch, struct type *chtype, struct ui_file *stream) const override
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
cli_style_option metadata_style
static ULONGEST extract_unsigned_integer(gdb::array_view< const gdb_byte > buf, enum bfd_endian byte_order)
enum bfd_endian type_byte_order(const struct type *type)
const struct builtin_type * builtin_type(struct gdbarch *gdbarch)
struct type * check_typedef(struct type *type)
#define PRINT_LITERAL_FORM(c)
struct bound_minimal_symbol lookup_minimal_symbol(const char *name, const char *sfile, struct objfile *objf)
static const char GPC_P_INITIALIZE[]
static const char GPC_MAIN_PROGRAM_NAME_1[]
const char * pascal_main_name(void)
static const char GPC_MAIN_PROGRAM_NAME_2[]
int pascal_is_string_type(struct type *type, int *length_pos, int *length_size, int *string_pos, struct type **char_type, const char **arrayname)
static pascal_language pascal_language_defn
struct minimal_symbol * minsym
struct type * builtin_signed_char
struct type * builtin_long_long
struct type * builtin_double
struct type * builtin_long
struct type * builtin_bool
struct type * builtin_unsigned_char
struct type * builtin_complex
struct type * builtin_long_double
struct type * builtin_unsigned_long_long
struct type * builtin_short
struct type * builtin_double_complex
struct type * builtin_char
struct type * builtin_int
struct type * builtin_unsigned_short
struct type * builtin_unsigned_int
struct type * builtin_unsigned_long
struct type * builtin_void
struct type * builtin_float
LONGEST loc_bitpos() const
const char * name() const
struct type * type() const
void set_string_char_type(struct type *type)
void add_primitive_type(struct type *type)
void set_bool_type(struct type *type, const char *name=nullptr)
struct type * target_type() const
struct field & field(int idx) const
unsigned int num_fields() const
const ui_file_style * ptr() const
unsigned int repeat_count_threshold
void gdb_printf(struct ui_file *stream, const char *format,...)
void gdb_puts(const char *linebuffer, struct ui_file *stream)
static unsigned int get_print_max_chars(const struct value_print_options *options)