Merge GDB 7.5.1

gdb/ada-lang.c

 /* Ada language support routines for GDB, the GNU debugger.
 
    Copyright (C) 1992-1994, 1997-2000, 2003-2005, 2007-2012 Free
    Software Foundation, Inc.
 
    This file is part of GDB.
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 3 of the License, or
@@ skipping 39 matching lines @@
 #include "block.h"
 #include "infcall.h"
 #include "dictionary.h"
 #include "exceptions.h"
 #include "annotate.h"
 #include "valprint.h"
 #include "source.h"
 #include "observer.h"
 #include "vec.h"
 #include "stack.h"
+#include "gdb_vecs.h"
 
 #include "psymtab.h"
 #include "value.h"
 #include "mi/mi-common.h"
 #include "arch-utils.h"
 #include "exceptions.h"
+#include "cli/cli-utils.h"
 
 /* Define whether or not the C operator '/' truncates towards zero for
    differently signed operands (truncation direction is undefined in C).
    Copied from valarith.c.  */
 
 #ifndef TRUNCATION_TOWARDS_ZERO
 #define TRUNCATION_TOWARDS_ZERO ((-5 / 2) == -2)
 #endif
 
 static struct type *desc_base_type (struct type *);
@@ skipping 138 matching lines @@
 
 static struct symbol *standard_lookup (const char *, const struct block *,
                                        domain_enum);
 
 static struct value *ada_search_struct_field (char *, struct value *, int,
                                               struct type *);
 
 static struct value *ada_value_primitive_field (struct value *, int, int,
                                                 struct type *);
 
-static int find_struct_field (char *, struct type *, int,
+static int find_struct_field (const char *, struct type *, int,
                               struct type **, int *, int *, int *, int *);
 
 static struct value *ada_to_fixed_value_create (struct type *, CORE_ADDR,
                                                 struct value *);
 
 static int ada_resolve_function (struct ada_symbol_info *, int,
                                  struct value **, int, const char *,
                                  struct type *);
 
 static int ada_is_direct_array_type (struct type *);
@@ skipping 24 matching lines @@
 static void aggregate_assign_others (struct value *, struct value *,
                                      struct expression *,
                                      int *, LONGEST *, int, LONGEST, LONGEST);
 
 
 static void add_component_interval (LONGEST, LONGEST, LONGEST *, int *, int);
 
 
 static struct value *ada_evaluate_subexp (struct type *, struct expression *,
                                           int *, enum noside);