diff options
| author | Nick Clifton <nickc@cygnus.com> | 1998-08-31 15:20:41 +0000 |
|---|---|---|
| committer | Nick Clifton <nickc@gcc.gnu.org> | 1998-08-31 15:20:41 +0000 |
| commit | 9a8467e96bc7593401c4a2558fd5956f2b91bc83 (patch) | |
| tree | a26b9afd3aea8d3c06ee0d80542b707f232d1cff | |
| parent | 3ae32cb7903b5afb7f788e19607a3e8c2e4a8038 (diff) | |
| download | gcc-9a8467e96bc7593401c4a2558fd5956f2b91bc83.zip gcc-9a8467e96bc7593401c4a2558fd5956f2b91bc83.tar.gz gcc-9a8467e96bc7593401c4a2558fd5956f2b91bc83.tar.bz2 | |
Add support for torture_eval_before_compile and torture_eval_before_execute
variables.
From-SVN: r22139
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/lib/c-torture.exp | 17 |
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ba2eaf2..ad8c70d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/lib/c-torture.exp b/gcc/testsuite/lib/c-torture.exp index 9e93ac8..3ff1de0 100644 --- a/gcc/testsuite/lib/c-torture.exp +++ b/gcc/testsuite/lib/c-torture.exp @@ -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" } } |