diff options
| author | Tom Tromey <tom@tromey.com> | 2020-03-13 17:39:52 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2020-03-13 18:03:42 -0600 |
| commit | 2e088f8b6ea61fa9db1b592cbd4a6aa80b4e0ab5 (patch) | |
| tree | f49d3c12f4dc4ff1c00509bfcf8bcefb3232ec56 /gdb | |
| parent | 39ef85a896e7efa0391a7ed14cc965fe1d46cbb9 (diff) | |
| download | gdb-2e088f8b6ea61fa9db1b592cbd4a6aa80b4e0ab5.zip gdb-2e088f8b6ea61fa9db1b592cbd4a6aa80b4e0ab5.tar.gz gdb-2e088f8b6ea61fa9db1b592cbd4a6aa80b4e0ab5.tar.bz2 | |
Convert ada_val_print_ref to value-based API
This converts ada_val_print_ref to the value-based API by using
common_val_print rather than val_print.
gdb/ChangeLog
2020-03-13 Tom Tromey <tom@tromey.com>
* ada-valprint.c (ada_val_print_ref): Use common_val_print.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/ada-valprint.c | 6 |
2 files changed, 6 insertions, 4 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index b235b0f..78ffe61 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,9 @@ 2020-03-13 Tom Tromey <tom@tromey.com> + * ada-valprint.c (ada_val_print_ref): Use common_val_print. + +2020-03-13 Tom Tromey <tom@tromey.com> + * ada-valprint.c (ada_value_print_num): New function. (ada_value_print_1): Use it. diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 4b89473..1d3b06d 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -1207,10 +1207,8 @@ ada_val_print_ref (struct type *type, const gdb_byte *valaddr, if (value_lazy (deref_val)) value_fetch_lazy (deref_val); - val_print (value_type (deref_val), - value_embedded_offset (deref_val), - value_address (deref_val), stream, recurse + 1, - deref_val, options, language_def (language_ada)); + common_val_print (deref_val, stream, recurse + 1, + options, language_def (language_ada)); } /* See the comment on ada_val_print. This function differs in that it |