diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2008-05-06 21:35:01 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2008-05-06 21:35:01 +0000 |
| commit | d8ca156b0e90ca9549bde4a88c2c2f27127f71a7 (patch) | |
| tree | 6e3dcc04ed2388f8fab12af288022cd1045e91f6 /gdb/f-valprint.c | |
| parent | 2b706932eef86b25a7a833b0e3136d3a0429bfab (diff) | |
| download | gdb-d8ca156b0e90ca9549bde4a88c2c2f27127f71a7.zip gdb-d8ca156b0e90ca9549bde4a88c2c2f27127f71a7.tar.gz gdb-d8ca156b0e90ca9549bde4a88c2c2f27127f71a7.tar.bz2 | |
* valprint.c (val_print): Add new language parameter and use it
instead of using the current_language. Update calls to val_print
throughout.
(common_val_print): Add new langauge parameter and pass it to
val_print.
* value.h (struct language_defn): Add opaque declaration.
(val_print, common_val_print): Update declarations.
* stack.c (print_frame_args): Update call to common_val_print
using the appropriate language.
* mi/mi-cmd-stack.c (list_args_or_locals): Likewise.
* c-valprint, f-valprint.c, m2-valprint.c, mt-tdep.c, infcmd.c,
mi/mi-main.c, jv-valprint.c, ada-valprint.c, varobj.c, p-valprint.c,
scm-valprint.c, cp-valprint.c, sh64-tdep.c, printcmd.c:
#include "language.h" if necessary.
Update calls to val_print and common_val_print.
* Makefile.in (mt-tdep.o, sh64-tdep.o, mi-cmds.o, mi-main.o):
Update dependencies.
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 70ad59f..2c482fa 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -308,7 +308,8 @@ f77_print_array_1 (int nss, int ndimensions, struct type *type, valaddr + i * F77_DIM_OFFSET (ndimensions), 0, address + i * F77_DIM_OFFSET (ndimensions), - stream, format, deref_ref, recurse, pretty); + stream, format, deref_ref, recurse, pretty, + current_language); if (i != (F77_DIM_SIZE (nss) - 1)) fprintf_filtered (stream, ", "); @@ -446,7 +447,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset, unpack_pointer (lookup_pointer_type (builtin_type_void), valaddr + embedded_offset)); common_val_print (deref_val, stream, format, deref_ref, recurse, - pretty); + pretty, current_language); } else fputs_filtered ("???", stream); |