diff options
| author | Christoph Weinmann <christoph.t.weinmann@intel.com> | 2017-09-08 15:11:47 +0200 |
|---|---|---|
| committer | Tim Wiederhake <tim.wiederhake@intel.com> | 2017-09-08 15:11:47 +0200 |
| commit | 469412dd9ccc4de5874fd3299b105833f36b34cd (patch) | |
| tree | 30e8da1d0d3fa6cba70ecbf911babbd6b2ffdf6e /gdb/f-valprint.c | |
| parent | e0f86435f8b3c61e21070a232a07c03928c2d544 (diff) | |
Remove C/C++ relevant code in Fortran specific file.
Remove code relevant for printing C/C++ Integer values in a
Fortran specific file to unify printing of Fortran values.
This does not change the output.
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 4234447bbb..8fc894ae62 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -310,22 +310,8 @@ f_val_print (struct type *type, int embedded_offset, original_value, &opts, 0, stream); } else - { - val_print_scalar_formatted (type, embedded_offset, - original_value, options, 0, stream); - /* C and C++ has no single byte int type, char is used instead. - Since we don't know whether the value is really intended to - be used as an integer or a character, print the character - equivalent as well. */ - if (TYPE_LENGTH (type) == 1) - { - LONGEST c; - - fputs_filtered (" ", stream); - c = unpack_long (type, valaddr + embedded_offset); - LA_PRINT_CHAR ((unsigned char) c, type, stream); - } - } + val_print_scalar_formatted (type, embedded_offset, + original_value, options, 0, stream); break; case TYPE_CODE_STRUCT: |