* misc.exp: If executable does not exist, issue warning and skip
remaining tests, like other chill tests.
This commit is contained in:
parent
60fdbf97c7
commit
ff0a7ea5cd
|
@ -1,3 +1,8 @@
|
||||||
|
Thu Mar 2 06:17:41 1995 Jim Kingdon (kingdon@lioth.cygnus.com)
|
||||||
|
|
||||||
|
* misc.exp: If executable does not exist, issue warning and skip
|
||||||
|
remaining tests, like other chill tests.
|
||||||
|
|
||||||
Wed Mar 1 20:28:42 1995 Per Bothner <bothner@kalessin.cygnus.com>
|
Wed Mar 1 20:28:42 1995 Per Bothner <bothner@kalessin.cygnus.com>
|
||||||
|
|
||||||
* misc.ch, misc.exp, Makefile.in: New test case.
|
* misc.ch, misc.exp, Makefile.in: New test case.
|
||||||
|
|
|
@ -36,7 +36,8 @@ proc set_lang_chill {} {
|
||||||
global binfile objdir subdir
|
global binfile objdir subdir
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
return 0
|
warning "$binfile does not exist; tests suppressed."
|
||||||
|
return 1
|
||||||
}
|
}
|
||||||
verbose "loading file '$objdir/$subdir/$binfile'"
|
verbose "loading file '$objdir/$subdir/$binfile'"
|
||||||
gdb_load $objdir/$subdir/$binfile
|
gdb_load $objdir/$subdir/$binfile
|
||||||
|
|
Loading…
Reference in New Issue