Merge GDB 7.5.1

gdb/testsuite/gdb.base/completion.exp

 # Copyright 1998-1999, 2002-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
@@ skipping 28 matching lines @@
 #   "p \"break1." unambiguous (should complete to "break1.c" but does not,
 #       due to readline limitations)
 #   "p 'arg" ambiguous (all symbols starting with arg)
 #   "p b-arg" ambiguous (all symbols starting with arg)
 #   "p b-" ambiguous (all symbols)
 #   "file Make" "file" (word break hard to screw up here)
 #   "file ../gdb.stabs/we" "ird" (needs to not break word at slash)
 #
 
 
-if $tracelevel then {
-        strace $tracelevel
-        }
-
-
-global usestubs
 
 #
 # test running programs
 #
 
 set testfile "break"
 set srcfile ${testfile}.c
 set srcfile1 ${testfile}1.c
 set binfile ${objdir}/${subdir}/${testfile}
 
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {
      untested completion.exp
      return -1
 }
 
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } {
      untested completion.exp
      return -1
 }
 
 if  { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } {
      untested completion.exp
      return -1
 }
 
-if [get_compiler_info ${binfile}] {
+if [get_compiler_info] {
     return -1;
 }
 
 gdb_exit
 
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
 gdb_load ${binfile}
 
 if ![runto_main] then {
@@ skipping 565 matching lines @@
 # If there is a non-deprecated completion, it should be returned.
 gdb_test "complete sav" "save" "test non-deprecated completion"
 # If there is only a deprecated completion, then it should be returned.
 gdb_test "complete save-t" "save-tracepoints" "test deprecated completion"
 
 
 # Restore globals modified in this test...
 set timeout $oldtimeout1
 
 return 0