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

From-SVN: r90679

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9791be737771ec89a0d02ea8735ce1cbb7f5f353..b7135130b854b16ff0635e9746508fc00c3c2599 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2004-11-15  Janis Johnson  <janis187@us.ibm.com>
+
+       * lib/gcc-dg.exp (dg-target-list): Remove.
+
 2004-11-15  Steve Ellcey  <sje@cup.hp.com>
 
        * gcc.dg/ia64-postinc.c: New test.

diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 83c0a5b8b3aaa147b39562d9f7486def0631f096..feb1461b5f285f00e65d23af66cc3550ff55a43e 100644 (file)
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/gcc/testsuite/lib/gcc-dg.exp
@@ -506,26 +506,6 @@ 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
 # because gcc-target-compile gets run directly from some .exp files