FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

7
gdb/testsuite/ChangeLog
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> Sun Feb 2 00:55:14 1997 Bob Manson <manson@charmed.cygnus.com>
* lib/gdb.exp(gdb_test): Surround the result pattern with * lib/gdb.exp(gdb_test): Surround the result pattern with

9
gdb/testsuite/gdb.base/a1-selftest.exp
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 the timeout back to the value it had when we were called.
set timeout $oldtimeout set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2 verbose "Timeout is now $timeout seconds" 2
# Restart gdb in case next test expects it to be started already. # Restart gdb in case next test expects it to be started already.
gdb_start
return 0 return 0
} }
@ -414,12 +412,13 @@ proc find_gdb { arg } {
set GDB_FULLPATH [find_gdb $GDB] set GDB_FULLPATH [find_gdb $GDB]
# Remove any old copy lying around. # Remove any old copy lying around.
remote_file build delete x$tool remote_file host delete x$tool
gdb_start 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]; set result [test_with_self $file];
remote_file build delete $file; gdb_exit;
catch "remote_file host delete $file";
if {$result <0} then { if {$result <0} then {
warning "Couldn't test self" warning "Couldn't test self"