Remove C/C++ relevant code in Fortran specific file.

[thirdparty/binutils-gdb.git] / gdb / f-valprint.c

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 4234447bbb6a9c40c7cec9f346317acf9a1d95b1..8fc894ae62447034798e4d40a3df2e7dc67a3eed 100644 (file)
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -310,22 +310,8 @@ f_val_print (struct type *type, int embedded_offset,
                                      original_value, &opts, 0, stream);
        }
       else
-       {
-         val_print_scalar_formatted (type, embedded_offset,
-                                     original_value, options, 0, stream);
-         /* C and C++ has no single byte int type, char is used instead.
-            Since we don't know whether the value is really intended to
-            be used as an integer or a character, print the character
-            equivalent as well.  */
-         if (TYPE_LENGTH (type) == 1)
-           {
-             LONGEST c;
-
-             fputs_filtered (" ", stream);
-             c = unpack_long (type, valaddr + embedded_offset);
-             LA_PRINT_CHAR ((unsigned char) c, type, stream);
-           }
-       }
+       val_print_scalar_formatted (type, embedded_offset,
+                                   original_value, options, 0, stream);
       break;
 
     case TYPE_CODE_STRUCT: