diff options
| author | Tom Tromey <tom@tromey.com> | 2020-09-15 18:44:37 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2020-09-15 18:44:38 -0600 |
| commit | 12d8f940d0c09e808f56a898fe5936b2b8f0403c (patch) | |
| tree | ff8e232641aefa800617e59e7bc70e1c84543192 /gdb/f-valprint.c | |
| parent | 6b5a7bc768570edc15532759969cd9bff3f02c28 (diff) | |
| download | gdb-12d8f940d0c09e808f56a898fe5936b2b8f0403c.zip gdb-12d8f940d0c09e808f56a898fe5936b2b8f0403c.tar.gz gdb-12d8f940d0c09e808f56a898fe5936b2b8f0403c.tar.bz2 | |
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.
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index fabdf45..b58e10b 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: |