1# v850 simulator testsuite. 2 3if [istarget v850*-*] { 4 global opt 5 6 # load support procs (none yet) 7 # load_lib cgen.exp 8 # all machines 9 10 switch -regexp -- $opt { 11 .*v850e.* { 12 set all_machs "v850e" 13 } 14 default { 15 set all_machs "v850" 16 } 17 } 18 # gas doesn't support any '=' option for v850. 19 #set cpu_option -m 20 21 # The .cgs suffix is for "cgen .s". 22 foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.cgs]] { 23 # If we're only testing specific files and this isn't one of them, 24 # skip it. 25 if ![runtest_file_p $runtests $src] { 26 continue 27 } 28 run_sim_test $src $all_machs 29 } 30} 31 32#foreach var [lsort [info globals]] { 33# if [array exists ::$var] { 34# puts [format "%-27s %s" $var Array:] 35# continue 36# } 37# puts [format "%-30s %s" $var "[set ::$var]"] 38#} 39