Add support for torture_eval_before_compile and torture_eval_before_execute

variables.

From-SVN: r22139
This commit is contained in:
Nick Clifton 1998-08-31 15:20:41 +00:00 committed by Nick Clifton
parent 3ae32cb790
commit 9a8467e96b
2 changed files with 23 additions and 0 deletions

View File

@ -1,3 +1,9 @@
Mon Aug 31 15:19:32 1998 Nick Clifton <nickc@cygnus.com>
* lib/c-torture.exp: Add support for
torture_eval_before_compile and torture_eval_before_execute
variables.
Sun Aug 30 17:38:20 1998 Jeffrey A Law (law@cygnus.com)
* gcc.dg/980626-1.c: Delete this test. We've declared the warning

View File

@ -184,6 +184,13 @@ proc c-torture-execute { src args } {
if [info exists torture_compile_xfail] {
setup_xfail $torture_compile_xfail
}
# torture_execute_before_{compile,execute} can be set by the .x script
# (if present)
if [info exists torture_eval_before_compile] {
set ignore_me [eval $torture_eval_before_compile]
}
remote_file build delete $execname;
verbose "Testing $testcase, $option" 1
@ -252,6 +259,11 @@ proc c-torture-execute { src args } {
if [info exists torture_execute_xfail] {
setup_xfail $torture_execute_xfail
}
if [info exists torture_eval_before_execute] {
set ignore_me [eval $torture_eval_before_execute]
}
set skip 0;
if [info exists oldexec] {
if { [remote_file build cmp $oldexec $execname] == 0 } {
@ -343,6 +355,11 @@ proc c-torture { args } {
setup_xfail $torture_compile_xfail
}
# torture_execute_before_compile is set by the .x script (if present)
if [info exists torture_eval_before_compile] {
set ignore_me [eval $torture_eval_before_compile]
}
c-torture-compile $src "$option $options"
}
}