Add support for torture_eval_before_compile and torture_eval_before_execute

variables.

From-SVN: r22139

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ba2eaf265e514d2bcae69d790924cadcb9db2925..ad8c70d31278daa53574f2102083da951d272550 100644 (file)
--- 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 9e93ac85fb26a1496911a3d07b60e83393bc74bc..3ff1de0e459a39e29809f2f8befcbff6bd87bbf2 100644 (file)
--- 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"
     }
 }