+2017-03-27  Pedro Alves  <palves@redhat.com>
+
+       * xml-support.h (gdb_xml_debug): Pass a "first-to-check" argument
+       to ATTRIBUTE_PRINTF.
+       * solib-target.c (library_list_start_list): Print "string" not
+       "version".
+       * xml-tdesc.c (tdesc_start_field): Pass "field_name" to
+       gdb_xml_error call.
+
 2017-03-27  Pedro Alves  <palves@redhat.com>
 
        * dwarf2read.c (struct file_and_directory): New.
 
       if (strcmp (string, "1.0") != 0)
        gdb_xml_error (parser,
                       _("Library list has unsupported version \"%s\""),
-                      version);
+                      string);
     }
 }
 
 
 /* Issue a debugging message from one of PARSER's handlers.  */
 
 void gdb_xml_debug (struct gdb_xml_parser *parser, const char *format, ...)
-     ATTRIBUTE_PRINTF (2, 0);
+  ATTRIBUTE_PRINTF (2, 3);
 
 /* Issue an error message from one of PARSER's handlers, and stop
    parsing.  */
 
 void gdb_xml_error (struct gdb_xml_parser *parser, const char *format, ...)
-     ATTRIBUTE_NORETURN ATTRIBUTE_PRINTF (2, 0);
+  ATTRIBUTE_NORETURN ATTRIBUTE_PRINTF (2, 3);
 
 /* Find the attribute named NAME in the set of parsed attributes
    ATTRIBUTES.  Returns NULL if not found.  */
 
        gdb_xml_error (parser, _("Bitfield \"%s\" has start after end"),
                       field_name);
       if (end >= data->current_type_size * TARGET_CHAR_BIT)
-       gdb_xml_error (parser,
-                      _("Bitfield \"%s\" does not fit in struct"));
+       gdb_xml_error (parser, _("Bitfield \"%s\" does not fit in struct"),
+                      field_name);
 
       if (field_type != NULL)
        tdesc_add_typed_bitfield (t, field_name, start, end, field_type);