Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

Introduce pascal_value_print_inner

Browse Source 
This introduces pascal_value_print_inner.

gdb/ChangeLog
2020-03-13  Tom Tromey  <tom@tromey.com>

	* p-valprint.c (pascal_value_print_inner): New function.
	* p-lang.h (pascal_value_print_inner): Declare.
	* p-lang.c (pascal_language_defn): Use pascal_value_print_inner.
This commit is contained in:
Tom Tromey
2020-03-13 17:39:52 -06:00
parent 62c4663d3c
commit c0941be613
4 changed files with 25 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gdb/ChangeLog
View File

@@ -1,3 +1,9 @@
2020-03-13 Tom Tromey <tom@tromey.com>
* p-valprint.c (pascal_value_print_inner): New function.
* p-lang.h (pascal_value_print_inner): Declare.
* p-lang.c (pascal_language_defn): Use pascal_value_print_inner.
2020-03-13 Tom Tromey <tom@tromey.com> 2020-03-13 Tom Tromey <tom@tromey.com>
* m2-valprint.c (m2_value_print_inner): New function. * m2-valprint.c (m2_value_print_inner): New function.

2
gdb/p-lang.c
View File

@@ -448,7 +448,7 @@ extern const struct language_defn pascal_language_defn =
pascal_print_type, /* Print a type using appropriate syntax */ pascal_print_type, /* Print a type using appropriate syntax */
pascal_print_typedef, /* Print a typedef using appropriate syntax */ pascal_print_typedef, /* Print a typedef using appropriate syntax */
pascal_val_print, /* Print a value using appropriate syntax */ pascal_val_print, /* Print a value using appropriate syntax */
nullptr, /* la_value_print_inner */ pascal_value_print_inner, /* la_value_print_inner */
pascal_value_print, /* Print a top-level value */ pascal_value_print, /* Print a top-level value */
default_read_var_value, /* la_read_var_value */ default_read_var_value, /* la_read_var_value */
NULL, /* Language specific skip_trampoline */ NULL, /* Language specific skip_trampoline */

5
gdb/p-lang.h
View File

@@ -42,6 +42,11 @@ extern void pascal_val_print (struct type *, int,
struct value *, struct value *,
const struct value_print_options *); const struct value_print_options *);
/* Implement la_value_print_inner for Pascal. */
extern void pascal_value_print_inner (struct value *, struct ui_file *, int,
const struct value_print_options *);
extern void pascal_value_print (struct value *, struct ui_file *, extern void pascal_value_print (struct value *, struct ui_file *,
const struct value_print_options *); const struct value_print_options *);

13
gdb/p-valprint.c
View File

@@ -425,6 +425,19 @@ pascal_val_print (struct type *type,
TYPE_CODE (type)); TYPE_CODE (type));
} }
} }
/* See p-lang.h. */
void
pascal_value_print_inner (struct value *val, struct ui_file *stream,
int recurse,
const struct value_print_options *options)
{
pascal_val_print (value_type (val), value_embedded_offset (val),
value_address (val), stream, recurse, val, options);
}
void void
pascal_value_print (struct value *val, struct ui_file *stream, pascal_value_print (struct value *val, struct ui_file *stream,