Add support for torture_eval_before_compile and torture_eval_before_execute

variables.

From-SVN: r22139

gcc/testsuite/ChangeLog

+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

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"
     }
 }