diff options
| author | Stu Grossman <grossman@cygnus> | 1998-10-05 19:42:04 +0000 |
|---|---|---|
| committer | Stu Grossman <grossman@cygnus> | 1998-10-05 19:42:04 +0000 |
| commit | 242c0d81808102504721ac1289dccec5dce660f9 (patch) | |
| tree | a0d74af308640017ea9e48e4a98be116f50bac55 /gdb/f-valprint.c | |
| parent | ecd41d25b901d3fdee37e8215c288892b4c8c3d5 (diff) | |
| download | gdb-242c0d81808102504721ac1289dccec5dce660f9.zip gdb-242c0d81808102504721ac1289dccec5dce660f9.tar.gz gdb-242c0d81808102504721ac1289dccec5dce660f9.tar.bz2 | |
* c-lang.c (emit_char c_printchar c_printstr), c-lang.h (c_printstr)
ch-lang.c (chill_printstr chill_printchar) c-valprint.c (c_val_print)
ch-valprint.c (chill_val_print) expprint.c (print_subexp) f-lang.c
(f_printstr f_printchar emit_char) f-valprint.c (f_val_print) jv-lang.c
(java_printchar java_emit_char) jv-valprint.c (java_value_print
java_val_print) language.c (unk_lang_printchar unk_lang_printstr
unk_lang_emit_char) language.h (struct language_defn LA_PRINT_STRING
LA_EMIT_CHAR) m2-lang.c (m2_printstr m2_printchar emit_char) printcmd.c
(print_formatted) scm-lang.c (scm_printstr) valprint.c
(val_print_string) value.h (val_print_string): Add emit_char routines
to language_desc struct to allow finer control over language specific
character output issues. Add character width arg to printstr routines
to allow handling of wchar_t/Unicode strings. Fix c_printstr to handle
wide characters. Supply width argument to LA_PRINT_STRING and
val_print_string.
* jv-lang.c (java_object_type dynamics_objfile java_link_class_type
get_dynamics_objfile get_java_object_type) jv-lang.h
(get_java_object_type): Make lots of things static.
* expprint.c (dump_prefix_expression dump_subexp): Move opcode name
printing to common routine (op_name).
* (dump_subexp): Add support for OP_SCOPE.
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index e730f37..d629d8b 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -392,7 +392,7 @@ f_val_print (type, valaddr, address, stream, format, deref_ref, recurse, { case TYPE_CODE_STRING: f77_get_dynamic_length_of_aggregate (type); - LA_PRINT_STRING (stream, valaddr, TYPE_LENGTH (type), 0); + LA_PRINT_STRING (stream, valaddr, TYPE_LENGTH (type), 1, 0); break; case TYPE_CODE_ARRAY: @@ -434,7 +434,7 @@ f_val_print (type, valaddr, address, stream, format, deref_ref, recurse, && TYPE_CODE (elttype) == TYPE_CODE_INT && (format == 0 || format == 's') && addr != 0) - i = val_print_string (addr, 0, stream); + i = val_print_string (addr, -1, TYPE_LENGTH (elttype), stream); /* Return number of characters printed, plus one for the terminating null if we have "reached the end". */ |