diff options
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/f-valprint.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 3fd02bd..bfd50c3 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +Tue May 23 13:20:00 1999 Gregory Lielens <info@fft.be> + + * f-valprint.c : Corrected f_val_print function for TYPE_CODE + (type) = TYPE_CODE_COMPLEX + Wed May 24 00:38:09 2000 Andrew Cagney <cagney@b1.cygnus.com> * utils.c (make_cleanup_close, do_close_cleanup): New functions. diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index a007c87..92a10f2 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -564,7 +564,7 @@ f_val_print (type, valaddr, embedded_offset, address, stream, format, deref_ref, fputs_filtered ("(", stream); print_floating (valaddr, type, stream); fputs_filtered (",", stream); - print_floating (valaddr, type, stream); + print_floating (valaddr + TYPE_LENGTH (type), type, stream); fputs_filtered (")", stream); break; |