Merge GDB 7.5.1

gdb/testsuite/gdb.base/structs.exp

 # This testcase is part of GDB, the GNU debugger.
 
 # Copyright 1996-1997, 1999, 2003-2004, 2007-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
 # the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
 #
 # 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
-}
-
 
 # Some targets can't call functions, so don't even bother with this
 # test.
 
 if [target_info exists gdb,cannot_call_functions] {
     setup_xfail "*-*-*"
     fail "This target can not call functions"
     continue
 }
 
 set testfile "structs"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
 
 # Regex matching any value of `char' type like: a = 65 'A'
 set anychar_re {-?[0-9]{1,3} '(.|\\([0-7]{3}|[a-z]|\\|'))'}
 
 # Create and source the file that provides information about the
 # compiler used to compile the test case.
 
-if [get_compiler_info ${binfile}] {
+if [get_compiler_info] {
     return -1;
 }
 
 # Compile a variant of structs.c using TYPES to specify the type of
 # the first N struct elements (the remaining elements take the type of
 # the last TYPES field).  Run the compmiled program up to "main".
 # Also updates the global "testfile" to reflect the most recent build.
 
 set first 1
 proc start_structs_test { types } {
@@ skipping 642 matching lines @@
 test_struct_calls 2
 test_struct_returns 2
 
 # Approx size: (4+4)+8=16, 32, ...
 # d10v: 4+4=8, 12, ...
 start_structs_test { tf td }
 test_struct_calls 2
 test_struct_returns 2
 
 return 0