libctf: mmappable archives

[deliverable/binutils-gdb.git] / gdb / m2-valprint.c

diff --git a/gdb/m2-valprint.c b/gdb/m2-valprint.c
index f43a2d2afe84fb893b63b1cbc2e940eede773e34..74f89ee45fb33f70ec54b07b70000aba5b7883ca 100644 (file)
--- a/gdb/m2-valprint.c
+++ b/gdb/m2-valprint.c
@@ -1,6 +1,6 @@
 /* Support for printing Modula 2 values for GDB, the GNU debugger.
 
-   Copyright (C) 1986-2016 Free Software Foundation, Inc.
+   Copyright (C) 1986-2019 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -313,7 +313,6 @@ m2_val_print (struct type *type, int embedded_offset,
              struct value *original_value,
              const struct value_print_options *options)
 {
-  struct gdbarch *gdbarch = get_type_arch (type);
   unsigned len;
   struct type *elttype;
   CORE_ADDR addr;
@@ -398,7 +397,7 @@ m2_val_print (struct type *type, int embedded_offset,
        m2_print_unbounded_array (type, valaddr, embedded_offset,
                                  address, stream, recurse, options);
       else
-       cp_print_value_fields (type, type, valaddr, embedded_offset,
+       cp_print_value_fields (type, type, embedded_offset,
                               address, stream, recurse, original_value,
                               options, NULL, 0);
       break;
@@ -409,7 +408,6 @@ m2_val_print (struct type *type, int embedded_offset,
       if (TYPE_STUB (elttype))
        {
          fprintf_filtered (stream, _("<incomplete type>"));
-         gdb_flush (stream);
          break;
        }
       else
@@ -500,5 +498,4 @@ m2_val_print (struct type *type, int embedded_offset,
                         &m2_decorations);
       break;
     }
-  gdb_flush (stream);
 }