[RFA:] sim-defs.exp: support xfail

[Hans-Peter Nilsson <hans-peter.nilsson@axis.com>]

Directly taken from the same option in the ld run_dump_test.

Ok to commit?

2004-11-10  Hans-Peter Nilsson  <hp@axis.com>

	* lib/sim-defs.exp (run_sim_test): Support "xfail" option.


Index: sim-defs.exp
===================================================================
RCS file: /cvs/src/src/sim/testsuite/lib/sim-defs.exp,v
retrieving revision 1.8
diff -c -p -r1.8 sim-defs.exp
*** sim-defs.exp	26 Oct 2004 08:07:59 -0000	1.8
--- sim-defs.exp	10 Nov 2004 09:49:44 -0000
*************** proc sim_run { prog sim_opts prog_opts r
*** 163,168 ****
--- 163,169 ----
  # sim[(mach-list)]: <simulator options>
  # output: program output pattern to match with string-match
  # xerror: program is expected to return with a "failure" exit code
+ # xfail: <target-triple-where-test-fails>
  # If `output' is not specified, the program must output "pass" if !xerror or
  # "fail" if xerror.
  # The parens in "optname()" are optional if the specification is for all machs.
*************** proc run_sim_test { name requested_machs
*** 196,201 ****
--- 197,203 ----
      set opts(mach) ""
      set opts(timeout) ""
      set opts(xerror) "no"
+     set opts(xfail) ""
  
      if ![info exists global_as_options] {
          set global_as_options ""
*************** proc run_sim_test { name requested_machs
*** 262,267 ****
--- 268,278 ----
  
  	verbose -log "Testing $name on machine $mach."
  
+ 	# Time to setup xfailures.
+ 	foreach targ $opts(xfail) {
+ 	    setup_xfail $targ
+ 	}
+ 
  	if ![info exists opts(as,$mach)] {
  	    set opts(as,$mach) $opts(as)
  	}

brgds, H-P