Remove TYPE_CODE_INT case from f_value_print_inner

I looked through the various language value-print functions, to see if
any code could be consolidated.  Pretty much all I found was that
f_value_print_inner does not need to handle TYPE_CODE_INT itself, but
can simply dispatch to the generic printer.

gdb/ChangeLog
2020-09-15  Tom Tromey  <tom@tromey.com>

	* f-valprint.c (f_value_print_inner) <case TYPE_CODE_INT>:
	Remove.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index fe4b185e1934b668d133a71e77f12eb12e7294fe..40c0c29ad1d48fb42457563252effd695d9b8e4d 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2020-09-15  Tom Tromey  <tom@tromey.com>
+
+       * f-valprint.c (f_value_print_inner) <case TYPE_CODE_INT>:
+       Remove.
+
 2020-09-15  Tom Tromey  <tom@tromey.com>
 
        * rust-lang.c (rust_value_print_inner): Remove TYPE_CODE_MEMBERPTR

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index fabdf4586168d17dc4dc944ce14bc9e194fa2f6b..b58e10b13360fba298949c579e9c09b978a9b66a 100644 (file)
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -295,19 +295,6 @@ f_value_print_inner (struct value *val, struct ui_file *stream, int recurse,
        }
       break;
 
-    case TYPE_CODE_INT:
-      if (options->format || options->output_format)
-       {
-         struct value_print_options opts = *options;
-
-         opts.format = (options->format ? options->format
-                        : options->output_format);
-         value_print_scalar_formatted (val, &opts, 0, stream);
-       }
-      else
-       value_print_scalar_formatted (val, options, 0, stream);
-      break;
-
     case TYPE_CODE_STRUCT:
     case TYPE_CODE_UNION:
       /* Starting from the Fortran 90 standard, Fortran supports derived
@@ -365,6 +352,7 @@ f_value_print_inner (struct value *val, struct ui_file *stream, int recurse,
        }
       break;
 
+    case TYPE_CODE_INT:
     case TYPE_CODE_REF:
     case TYPE_CODE_FUNC:
     case TYPE_CODE_FLAGS: