From 8e0933b18b6e75f48256a48ea6e3f61bd8d8a45d Mon Sep 17 00:00:00 2001 From: Janis Johnson Date: Mon, 15 Nov 2004 19:03:02 +0000 Subject: [PATCH] * lib/gcc-dg.exp (dg-target-list): Remove. From-SVN: r90679 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/lib/gcc-dg.exp | 20 -------------------- 2 files changed, 4 insertions(+), 20 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9791be73777..b7135130b85 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2004-11-15 Janis Johnson + + * lib/gcc-dg.exp (dg-target-list): Remove. + 2004-11-15 Steve Ellcey * gcc.dg/ia64-postinc.c: New test. diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index 83c0a5b8b3a..feb1461b5f2 100644 --- 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 -- 2.30.2