Merge GDB 7.5.1

gdb/testsuite/gdb.ada/whatis_array_val.exp

Index: gdb/testsuite/gdb.ada/whatis_array_val.exp
diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/whatis_array_val.exp
similarity index 80%
copy from gdb/testsuite/gdb.ada/rec_return.exp
copy to gdb/testsuite/gdb.ada/whatis_array_val.exp
index e291d11e366b79614a19c4773784b17f19d344eb..e937f0a57457857e8ef41f9d9f238aa74a86555f 100644
--- a/gdb/testsuite/gdb.ada/rec_return.exp
+++ b/gdb/testsuite/gdb.ada/whatis_array_val.exp
@@ -1,4 +1,4 @@
-# Copyright 2010-2012 Free Software Foundation, Inc.
+# Copyright 2012 Free Software Foundation, Inc.
 #
 # 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
@@ -13,13 +13,9 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"
 
-set testdir "rec_return"
+set testdir "whatis_array_val"
 set testfile "${testdir}/foo"
 set srcfile ${srcdir}/${subdir}/${testfile}.adb
 set binfile ${objdir}/${subdir}/${testfile}
@@ -35,9 +31,14 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
 if ![runto "foo.adb:$bp_location" ] then {
   perror "Couldn't run ${testfile}"
   return
-}
+} 
+
+gdb_test "whatis full" \
+         "type = foo\\.full_table"
+
+gdb_test "print full" \
+         " = \\(144, 233, 377, 610, 987\\)"
 
-gdb_test "print bar" \
-         "= \\(x => 42, s => \"ABCDEFGH\"\\)" \
-         "print bar"
+gdb_test "whatis $" \
+         "type = foo\\.full_table"