testsuite/lib/target-supports-dg.exp

26 	upvar dg-do-what dg-do-what
27 	set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
41 	upvar dg-do-what dg-do-what
42 	set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
56 	upvar dg-do-what dg-do-what
57 	set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
66 	upvar dg-do-what dg-do-what
67 	set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
75 	upvar dg-do-what dg-do-what
76 	set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
95     upvar dg-do-what dg-do-what
96     set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
101 	upvar dg-do-what dg-do-what
102         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
110 	upvar dg-do-what dg-do-what
111         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
120 	upvar dg-do-what dg-do-what
121         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
129 	upvar dg-do-what dg-do-what
130         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
138 	upvar dg-do-what dg-do-what
139         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
222     upvar dg-do-what dg-do-what
223     if { [lindex ${dg-do-what} 1] == "N" } {
236 	    upvar dg-do-what dg-do-what
237             set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
246     upvar dg-do-what dg-do-what
247     if { [lindex ${dg-do-what} 1] == "N" } {
265     upvar dg-do-what dg-do-what
266     if { [lindex ${dg-do-what} 1] == "N" } {
366 	# Extract the 'what' keyword from the argument list.
369 	    set what "xfail"
371 	    set what "target"
377 	regsub "^${what}" $selector "" rest
383 		return [expr { $what == "xfail" ? "F" : "S" }]
385 		return [expr { $what == "xfail" ? "P" : "N" }]
391 		return [expr { $what == "xfail" ? "F" : "S" }]
393 		return [expr { $what == "xfail" ? "P" : "N" }]