[PATCH 2/2] Remove TYPE_CODE_INT case from f_value_print_inner
Tom Tromey
tom@tromey.com
Sun Aug 23 15:41:38 GMT 2020
I looked through the various language value-print functions, to see if
any code could be consolidated. Pretty much all I found was that
f_value_print_inner does not need to handle TYPE_CODE_INT itself, but
can simply dispatch to the generic printer.
gdb/ChangeLog
2020-08-23 Tom Tromey <tom@tromey.com>
* f-valprint.c (f_value_print_inner) <case TYPE_CODE_INT>:
Remove.
---
gdb/ChangeLog | 5 +++++
gdb/f-valprint.c | 14 +-------------
2 files changed, 6 insertions(+), 13 deletions(-)
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index fabdf458616..b58e10b1336 100644
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -295,19 +295,6 @@ f_value_print_inner (struct value *val, struct ui_file *stream, int recurse,
}
break;
- case TYPE_CODE_INT:
- if (options->format || options->output_format)
- {
- struct value_print_options opts = *options;
-
- opts.format = (options->format ? options->format
- : options->output_format);
- value_print_scalar_formatted (val, &opts, 0, stream);
- }
- else
- value_print_scalar_formatted (val, options, 0, stream);
- break;
-
case TYPE_CODE_STRUCT:
case TYPE_CODE_UNION:
/* Starting from the Fortran 90 standard, Fortran supports derived
@@ -365,6 +352,7 @@ f_value_print_inner (struct value *val, struct ui_file *stream, int recurse,
}
break;
+ case TYPE_CODE_INT:
case TYPE_CODE_REF:
case TYPE_CODE_FUNC:
case TYPE_CODE_FLAGS:
--
2.17.2
More information about the Gdb-patches
mailing list