one line fix by Gregory Lielens <Gregory.Lielens@fft.be> to fix a problem

with the printing of complex numbers (it would print the real part twice).

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 3fd02bdbec8220a75e4976fbb409a26d7701e7eb..bfd50c334a077f90ebc87585ed8538f0be5847df 100644 (file)
--- 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 a007c871c1eae641064de22b003815902b661d4c..92a10f274da0f54f00c97b3743c77d062e8c1053 100644 (file)
--- 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;