This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Proposed patch to testsuite/lib/c-torture.exp


Hi,

  I would like to submit the enclosed patch.  It adds support for two
new variables which can be initialised in individual <test name>.x
files: 'torture_eval_before_compile' and 'torture_eval_before_execute'.
The contents of these variables (if they exist) will be evaluated just
before the test is compiled or executed, respectively.  This in turn
means that a more intellegent setting of setup_xfail can be
implemented.

Cheers
	Nick



Wed Aug 26 16:25:38 1998  Nick Clifton  <nickc@cygnus.com>

	* lib/c-torture.exp: Add support for
	torture_eval_before_compile and torture_eval_before_execute
	variables.


Index: c-torture.exp
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/gcc/testsuite/lib/c-torture.exp,v
retrieving revision 1.5
diff -p -w -r1.5 c-torture.exp
*** c-torture.exp	1998/07/12 09:02:56	1.5
--- c-torture.exp	1998/08/26 23:28:53
*************** proc c-torture-execute { src args } {
*** 184,189 ****
--- 184,196 ----
  	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
  
*************** proc c-torture-execute { src args } {
*** 252,257 ****
--- 259,269 ----
  	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 } {
*************** proc c-torture { args } {
*** 343,348 ****
--- 355,365 ----
  	    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"
      }
  }


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]