* gdb.base/a1-selftest.exp: Make sure we call gdb_exit before

trying to delete the copy of gdb. Catch the file delete so we
 	don't die if the delete fails; also, the file should be copied to
 	the host, not to the build.

Fixes problems when gdb isn't built with debugging.
This commit is contained in:
Bob Manson 1997-02-03 20:36:39 +00:00
parent 5a50eec623
commit 94b25813b1
2 changed files with 11 additions and 5 deletions

View File

@ -1,3 +1,10 @@
Mon Feb 3 12:09:37 1997 Bob Manson <manson@charmed.cygnus.com>
* gdb.base/a1-selftest.exp: Make sure we call gdb_exit before
trying to delete the copy of gdb. Catch the file delete so we
don't die if the delete fails; also, the file should be copied to
the host, not to the build.
Sun Feb 2 00:55:14 1997 Bob Manson <manson@charmed.cygnus.com>
* lib/gdb.exp(gdb_test): Surround the result pattern with

View File

@ -373,14 +373,12 @@ GDB.*Copyright \[0-9\]+ Free Software Foundation, Inc..*$gdb_prompt $"\
}
}
gdb_exit
# Set the timeout back to the value it had when we were called.
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
# Restart gdb in case next test expects it to be started already.
gdb_start
return 0
}
@ -414,12 +412,13 @@ proc find_gdb { arg } {
set GDB_FULLPATH [find_gdb $GDB]
# Remove any old copy lying around.
remote_file build delete x$tool
remote_file host delete x$tool
gdb_start
set file [remote_download build $GDB_FULLPATH x$tool]
set file [remote_download host $GDB_FULLPATH x$tool]
set result [test_with_self $file];
remote_file build delete $file;
gdb_exit;
catch "remote_file host delete $file";
if {$result <0} then {
warning "Couldn't test self"