diff options
Diffstat (limited to 'gdb/testsuite/gdb.gdb/selftest.exp')
-rw-r--r-- | gdb/testsuite/gdb.gdb/selftest.exp | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp index 5430aeec9c1..8faf8c99723 100644 --- a/gdb/testsuite/gdb.gdb/selftest.exp +++ b/gdb/testsuite/gdb.gdb/selftest.exp @@ -15,6 +15,7 @@ # This file was written by Rob Savoye. (rob@cygnus.com) +load_lib selftest-support.exp # are we on a target board if { [is_remote target] || ![isnative] } then { @@ -472,29 +473,6 @@ proc test_with_self { executable } { return 0 } -# Find a pathname to a file that we would execute if the shell was asked -# to run $arg using the current PATH. - -proc find_gdb { arg } { - - # If the arg directly specifies an existing executable file, then - # simply use it. - - if [file executable $arg] then { - return $arg - } - - set result [which $arg] - if [string match "/" [ string range $result 0 0 ]] then { - return $result - } - - # If everything fails, just return the unqualified pathname as default - # and hope for best. - - return $arg -} - # Run the test with self. # Copy the file executable file in case this OS doesn't like to edit its own # text space. |