GDB 7.6.50

gdb/testsuite/gdb.base/shreloc.exp

-# Copyright (C) 2003, 2005, 2007-2012 Free Software Foundation, Inc.
+# Copyright (C) 2003-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.
 #
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #
 
 # Tests for shared object file relocation. If two shared objects have
 # the same load address (actually, overlapping load spaces), one of
 # them gets relocated at load-time. Check that gdb gets the right
 # values for the debugging and minimal symbols.
 
 if {[skip_shlib_tests]} {
     return 0
 }
 
 #
 # This file uses shreloc.c, shreloc1.c and shreloc2.c
 #
 
 
-set workdir ${objdir}/${subdir}
-set testfile "shreloc"
-set libfile1 "shreloc1"
-set libfile2 "shreloc2"
-set srcfile $srcdir/$subdir/$testfile.c
-set lib1src $srcdir/$subdir/$libfile1.c
-set lib2src $srcdir/$subdir/$libfile2.c
-set binfile $objdir/$subdir/$testfile
-set lib1_sl $objdir/$subdir/$libfile1.sl
-set lib2_sl $objdir/$subdir/$libfile2.sl
+standard_testfile .c shreloc1.c shreloc2.c
+
+set srcfile $srcdir/$subdir/$srcfile
+set lib1src $srcdir/$subdir/$srcfile2
+set lib2src $srcdir/$subdir/$srcfile3
+set binfile [standard_output_file $testfile]
+set lib1_sl [standard_output_file shreloc1.sl]
+set lib2_sl [standard_output_file shreloc2.sl]
 
 if [get_compiler_info] {
     return -1
 }
 
 set lib_opts "debug"
 set exec_opts [list debug shlib=$lib1_sl shlib=$lib2_sl]
 
 if {([istarget "*pc-cygwin"] || [istarget "*pc-mingw32"]) } {
     lappend lib_opts "ldflags=-Wl,--image-base,0x04000000"
@@ skipping 15 matching lines @@
 } elseif { [gdb_compile_shlib $lib2src $lib2_sl $lib_opts] != ""} {
     untested "Could not build $lib1_s2."
     return -1
 } elseif { [gdb_compile $srcfile $binfile executable $exec_opts] != ""} {
     untested "Could not build $binfile."
     return -1
 }
 
 # Start with a fresh gdb.
 
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load ${workdir}/shreloc
+clean_restart $binfile
 gdb_load_shlibs $lib1_sl $lib2_sl
 
 # Load up the shared objects
 if ![runto_main] then {
     fail "Can't run to main"
     return 0
 }
 
 proc get_var_address { var } {
     global gdb_prompt hex
@@ skipping 129 matching lines @@
     foreach addr ${addr_list} {
         if { ${prev} == ${addr} } {
           return 0
         }
         set prev ${addr}
     }
 
     return 1
 }
 
-set msymfile "${workdir}/shreloc.txt"
+if [is_remote host] {
+    set msymfile shreloc.txt
+} else {
+    set msymfile [standard_output_file shreloc.txt]
+}
 
 if [send_gdb_discard "maint print msymbols ${msymfile}"] {
     if {[check_different "static_var_\[12\]" "${msymfile}"]} {
         pass "(msymbol) relocated static vars have different addresses"
     } else {
         fail "(msymbol) relocated static vars have different addresses"
     }
 
     if {[check_different "extern_var_\[12\]" "${msymfile}"]} {
         pass "(msymbol) relocated extern vars have different addresses"
@@ skipping 15 matching lines @@
     # relocated.
     #
     # A better approach would be include absolute symbols via the assembler.
     #
     if {[check_same "_minor_os_version__" "${msymfile}"]} {
         pass "Absolute symbols not relocated"
     } else {
         fail "Absolute symbols not relocated"
     }
 }