GDB 7.6.50

gdb/testsuite/gdb.base/attach.exp

-# Copyright 1997, 1999, 2002-2004, 2007-2012 Free Software Foundation,
-# Inc.
+# Copyright 1997-2013 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.
@@ skipping 11 matching lines @@
 # "kill", and also a test for the R3 register warning.  JB
 if { [istarget "hppa*-*-hpux*"] } {
     return 0
 }
 
 # are we on a target board
 if [is_remote target] then {
     return 0
 }
 
-set testfile "attach"
-set srcfile  ${testfile}.c
-set srcfile2 ${testfile}2.c
-set binfile  ${objdir}/${subdir}/${testfile}
-set binfile2 ${objdir}/${subdir}/${testfile}2
-set escapedbinfile  [string_to_regexp ${objdir}/${subdir}/${testfile}]
+standard_testfile attach.c attach2.c
+set binfile2 ${binfile}2
+set escapedbinfile  [string_to_regexp $binfile]
 
 #execute_anywhere "rm -f ${binfile} ${binfile2}"
 remote_exec build "rm -f ${binfile} ${binfile2}"
 # For debugging this test
 #
 #log_user 1
 
 # build the first test case
 #
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
@@ skipping 11 matching lines @@
 if [get_compiler_info] {
     return -1
 }
 
 proc do_attach_tests {} {
     global gdb_prompt
     global binfile
     global escapedbinfile
     global srcfile
     global testfile
-    global objdir
     global subdir
     global timeout
     
     # Start the program running and then wait for a bit, to be sure
     # that it can be attached to.
 
     set testpid [eval exec $binfile &]
     exec sleep 2
     if { [istarget "*-*-cygwin*"] } {
         # testpid is the Cygwin PID, GDB uses the Windows PID, which might be
@@ skipping 210 matching lines @@
     if { [istarget "*-*-cygwin*"] } {
         # testpid is the Cygwin PID, GDB uses the Windows PID, which might be
         # different due to the way fork/exec works.
         set testpid [ exec ps -e | gawk "{ if (\$1 == $testpid) print \$4; }" ]
     }
 
     # Verify that we can attach to the process, and find its a.out
     # when we're cd'd to some directory that doesn't contain the
     # a.out.  (We use the source path set by the "dir" command.)
     
-    gdb_test "dir ${objdir}/${subdir}" "Source directories searched: .*" \
+    gdb_test "dir [standard_output_file {}]" "Source directories searched: .*" \
         "set source path"
 
     gdb_test "cd /tmp" "Working directory /tmp." \
         "cd away from process working directory"
 
     # Explicitly flush out any knowledge of the previous attachment.
 
     set test "before attach3, flush symbols"
     gdb_test_multiple "symbol-file" "$test" {
         -re "Discard symbol table from.*y or n. $" {
@@ skipping 90 matching lines @@
 
 # Test attaching when the target is inside a system call
 
 gdb_exit
 gdb_start
 
 gdb_reinitialize_dir $srcdir/$subdir
 do_call_attach_tests
 
 return 0