diff options
| author | Tom Tromey <tromey@redhat.com> | 2011-06-29 15:32:40 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 2011-06-29 15:32:40 +0000 |
| commit | 3b2b8feaf4aaa62c7d55ad845c3ff34165a3af22 (patch) | |
| tree | 05f9c11e7c9408d89574648e7b0b2a9c0aec63a7 /gdb/f-typeprint.c | |
| parent | 168e6d44026869c1cd8dd66d7ef7cdeecdcff77d (diff) | |
| download | fsf-binutils-gdb-3b2b8feaf4aaa62c7d55ad845c3ff34165a3af22.zip fsf-binutils-gdb-3b2b8feaf4aaa62c7d55ad845c3ff34165a3af22.tar.gz fsf-binutils-gdb-3b2b8feaf4aaa62c7d55ad845c3ff34165a3af22.tar.bz2 | |
gdb
PR fortran/10036:
* valprint.h (generic_emit_char, generic_printstr): Declare.
* valprint.c (wchar_printable, append_string_as_wide)
(print_wchar): Move from c-lang.c.
(generic_emit_char): New function; mostly taken from c_emit_char.
(generic_printstr): New function; mostly taken from c_printstr.
* f-valprint.c (f_val_print) <TYPE_CODE_ARRAY>: Handle strings
represented as arrays.
<TYPE_CODE_CHAR>: Treat as TYPE_CODE_INT; recognize as character
type.
* f-typeprint.c (f_type_print_base) <TYPE_CODE_CHAR>: Treat
identically to TYPE_CODE_INT.
* f-lang.c (f_get_encoding): New function.
(f_emit_char): Use generic_emit_char.
(f_printchar): Replace comment.
(f_printstr): Use generic_printstr.
* dwarf2read.c (read_base_type) <DW_ATE_unsigned>: Handle Fortran
"character" types specially.
<DW_ATE_signed_char, DW_ATE_unsigned_char>: Make TYPE_CODE_CHAR
for Fortran.
* c-lang.c (wchar_printable, append_string_as_wide, print_wchar):
Move to valprint.c
(c_emit_char): Call generic_emit_char.
(c_printstr): Call generic_printstr.
gdb/testsuite
* gdb.fortran/charset.exp: New file.
* gdb.fortran/charset.f90: New file.
Diffstat (limited to 'gdb/f-typeprint.c')
| -rw-r--r-- | gdb/f-typeprint.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index ad988d2..6d9e6ec 100644 --- a/gdb/f-typeprint.c +++ b/gdb/f-typeprint.c @@ -321,10 +321,6 @@ f_type_print_base (struct type *type, struct ui_file *stream, int show, break; case TYPE_CODE_CHAR: - /* Override name "char" and make it "character". */ - fprintfi_filtered (level, stream, "character"); - break; - case TYPE_CODE_INT: /* There may be some character types that attempt to come through as TYPE_CODE_INT since dbxstclass.h is so |