diff options
| author | Markus Deuling <deuling@de.ibm.com> | 2008-04-22 06:53:18 +0000 |
|---|---|---|
| committer | Markus Deuling <deuling@de.ibm.com> | 2008-04-22 06:53:18 +0000 |
| commit | 9eec4d1e39028b54f54638c90b2c628b958162fe (patch) | |
| tree | 01ab148246a55aa0a0bf1b48c8956d0e42a40094 /gdb/f-valprint.c | |
| parent | 68837c9d8d2b2fed53f1232a82d333b23d01e320 (diff) | |
| download | binutils-gdb-9eec4d1e39028b54f54638c90b2c628b958162fe.tar.gz | |
* eval.c (evaluate_subexp_standard): Use value_subscripted_rvalue for
multi_f77_subscript to support values from registers.
* valarith.c (value_subscripted_rvalue): Remove prototype and static.
* value.h (value_subscripted_rvalue): Add prototype.
* f-typeprint.c (f_type_print_base): Add support for TYPE_CODE_UNION.
Fix output.
* f-valprint.c (f_val_print): Likewise.
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index b2e327189b5..70ad59f9bf2 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -589,9 +589,10 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset, break; case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: /* Starting from the Fortran 90 standard, Fortran supports derived types. */ - fprintf_filtered (stream, "{ "); + fprintf_filtered (stream, "( "); for (index = 0; index < TYPE_NFIELDS (type); index++) { int offset = TYPE_FIELD_BITPOS (type, index) / 8; @@ -601,7 +602,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset, if (index != TYPE_NFIELDS (type) - 1) fputs_filtered (", ", stream); } - fprintf_filtered (stream, "}"); + fprintf_filtered (stream, " )"); break; default: |