* lib/gcc-dg.exp (dg-target-list): New.

From-SVN: r90516
This commit is contained in:
Janis Johnson 2004-11-12 01:13:02 +00:00 committed by Janis Johnson
parent b6dc500c52
commit c9dd202380
2 changed files with 23 additions and 0 deletions

View File

@ -1,3 +1,7 @@
2004-11-11 Janis Johnson <janis187@us.ibm.com>
* lib/gcc-dg.exp (dg-target-list): New.
2004-11-11 Janis Johnson <janis187@us.ibm.com>
Richard Sandiford <rsandifo@redhat.com>

View File

@ -471,6 +471,25 @@ proc dg-xfail-if { args } {
}
}
# Given an optional keyword "target" or "xfail" and the result of a
# condition which has been evaluated by the framework, return a list
# containing the keyword and "*-*-*" if the condition is true or
# "empty-empty-empty" if the condition is false.
proc dg-target-list { what cond } {
switch $what {
"target" { set result [list $what] }
"xfail" { set result [list $what] }
"" { set result [list] }
default { error "`$what' not allowed here" }
}
if { $cond } {
lappend result "*-*-*"
} else {
lappend result "empty-empty-empty"
}
return $result
}
# We need to make sure that additional_* are cleared out after every
# test. It is not enough to clear them out *before* the next test run