Support tcl procedure calls in run_dump_test xfail

[deliverable/binutils-gdb.git] / ld / testsuite / ld-elf / elf.exp

diff --git a/ld/testsuite/ld-elf/elf.exp b/ld/testsuite/ld-elf/elf.exp
index 9121936c2101bacf79668153cb133a8bd83b2e6f..cf4ed422e4ac739f894d7e82fa1168b1f172513a 100644 (file)
--- a/ld/testsuite/ld-elf/elf.exp
+++ b/ld/testsuite/ld-elf/elf.exp
@@ -91,7 +91,7 @@ run_ld_link_tests {
       {"PR ld/21703 -r"
        "-r --allow-multiple-definition tmpdir/pr21703-3.o tmpdir/pr21703-4.o" "" "" \
        {pr21703-3.s pr21703-4.s} {{readelf {-s} pr21703-r.sd}} "pr21703.o" }
-} "d30v-*-*" "dlx-*-*" "pj-*-*" "xgate-*-*"
+} \[is_generic\]
 
 if [is_underscore_target] {
     set ASFLAGS "$ASFLAGS --defsym UNDERSCORE=1"
@@ -112,14 +112,8 @@ foreach t $test_list {
 
 set ASFLAGS "$saved_ASFLAGS"
 
-# Targets using the generic linker backend don't support generating
-# an import library.
-set xfail_implib ""
-if [is_generic_elf] {
-    set xfail_implib "*-*-*"
-}
-
 # Check that the --out-implib option work correctly.
+# Targets that don't use elf32.em won't support this.
 run_ld_link_tests [list \
     [list "Generate empty import library" \
        "--out-implib=tmpdir/implib.lib" "" \
@@ -133,7 +127,7 @@ run_ld_link_tests [list \
        {implib.s} \
        {{readelf {-s tmpdir/implib.lib} implib.rd}} \
        "implib" ] \
-] $xfail_implib
+] \[uses_genelf\]
 
 #v850 gas complains about .tbss.var section attributes.
 if { [check_gc_sections_available] && ![istarget "v850-*-*"] } {