Remove TYPE_CODE_INT case from f_value_print_inner

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-09-15  Tom Tromey  <tom@tromey.com>

	* f-valprint.c (f_value_print_inner) <case TYPE_CODE_INT>:
	Remove.
This commit is contained in:
Tom Tromey
2020-09-15 18:44:37 -06:00
parent 6b5a7bc768
commit 12d8f940d0
2 changed files with 6 additions and 13 deletions

View File

@ -1,3 +1,8 @@
2020-09-15 Tom Tromey <tom@tromey.com>
* f-valprint.c (f_value_print_inner) <case TYPE_CODE_INT>:
Remove.
2020-09-15 Tom Tromey <tom@tromey.com>
* rust-lang.c (rust_value_print_inner): Remove TYPE_CODE_MEMBERPTR

View File

@ -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: