Merge GDB 7.5.1

gdb/testsuite/gdb.threads/linux-dp.exp

 # Copyright 1999, 2001-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
@@ skipping 15 matching lines @@
 #### However, if all goes well, Linux will soon have a libthread_db
 #### interface, and GDB will manage it the same way it does other
 #### libthread_db-based systems.  Then, we can adjust this file to
 #### work with any such system.
 
 ### Other things we ought to test:
 ### stepping a thread while others are running
 ### killing and restarting
 ### quitting gracefully
 
-if $tracelevel then {
-        strace $tracelevel
-}
-
 
 # This only works with Linux configurations.
 if ![istarget *-*-linux-gnu*] then {
     return
 }
 
-set testfile "linux-dp"
-set srcfile ${testfile}.c
-set binfile ${objdir}/${subdir}/${testfile}
+standard_testfile
 if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != ""} {
     return -1
 }
 
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load ${binfile}
+clean_restart ${binfile}
 gdb_test_no_output "set print sevenbit-strings"
 runto_main
 
 # There should be no threads initially.
 gdb_test "info threads" ".*" "info threads 1"
 
 # Try stepping over the thread creation function.
 gdb_breakpoint [gdb_get_line_number "linuxthreads.exp: create philosopher"]
 set expect_manager -1
 for {set i 0} {$i < 5} {incr i} {
@@ skipping 270 matching lines @@
             ## test suite totals.  But in my heart, I think it should
             ## be an xfail.
             pass $name
         }
     }
 
     return $interesting
 }
 
 set any_interesting 0
+catch {unset seen}
 array set seen {}
-unset seen
 for {set i 1} {$i <= $nthreads} {incr i} {
     if [check_philosopher_stack $i seen] {
         set any_interesting 1
     }
 }
+unset seen
 
 if {$any_interesting} {
     pass "found an interesting thread"
 } else {
     fail "found an interesting thread"
 }
 
 if {$manager_seen == $expect_manager} {
     pass "manager thread found (not found) when expected"
 } else {
     fail "manager thread found (not found) when expected"
 }