From: Nick Clifton <nickc@cygnus.com>
Date: Mon, 31 Aug 1998 15:20:41 +0000 (+0000)
Subject: Add support for torture_eval_before_compile and torture_eval_before_execute
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9a8467e96bc7593401c4a2558fd5956f2b91bc83;p=gcc.git

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 ba2eaf265e5..ad8c70d3127 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 9e93ac85fb2..3ff1de0e459 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"
     }
 }