* lib/target-supports.exp (is-effective-target): Simplify.

From-SVN: r91541

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f642e1e..d2ca890 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 2004-11-30  Janis Johnson  <janis187@us.ibm.com>
 
+       * lib/target-supports.exp (is-effective-target): Simplify.
+
        * lib/target-supports.exp (check_effective_target_vect_long):
        Fix for powerpc64-*-*.
 

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index ed1394c..0e122e0 100644 (file)
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -525,17 +525,15 @@ proc check_effective_target_vect_double { } {
 
 proc is-effective-target { arg } {
     set selected 0
-    switch $arg {
-       "ilp32"  { set selected [check_effective_target_ilp32] }
-       "lp64"   { set selected [check_effective_target_lp64] }
-       "vmx_hw" { set selected [check_vmx_hw_available] }
-       "named_sections" { set selected [check_named_sections_available] }
-       "gc_sections" { set selected [check_gc_sections_available] }
-       "vect_int" { set selected [check_effective_target_vect_int] }
-       "vect_long" { set selected [check_effective_target_vect_long] }
-       "vect_float" { set selected [check_effective_target_vect_float] }
-       "vect_double" { set selected [check_effective_target_vect_double] }
-       default  { error "unknown effective target selector `$arg'" }
+    if { [info procs check_effective_target_${arg}] != [list] } {
+       set selected [check_effective_target_${arg}]
+    } else {
+       switch $arg {
+         "vmx_hw"         { set selected [check_vmx_hw_available] }
+         "named_sections" { set selected [check_named_sections_available] }
+         "gc_sections"    { set selected [check_gc_sections_available] }
+         default          { error "unknown effective target keyword `$arg'" }
+       }
     }
     verbose "is-effective-target: $arg $selected" 2
     return $selected