Fix search in TUI

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

diff --git a/ld/testsuite/ld-elf/eh-group.exp b/ld/testsuite/ld-elf/eh-group.exp
index 64d2cf409feb43ef3d726c127c0eef7684481d1e..a478877db92a2ded38d9ade4ca37705708a78fdd 100644 (file)
--- a/ld/testsuite/ld-elf/eh-group.exp
+++ b/ld/testsuite/ld-elf/eh-group.exp
@@ -1,5 +1,5 @@
 # Expect script for .eh_frame entries to a removed section.
-#   Copyright 2008  Free Software Foundation, Inc.
+#   Copyright (C) 2008-2020 Free Software Foundation, Inc.
 #
 # This file is part of the GNU Binutils.
 #
@@ -29,22 +29,43 @@
 # executable trying to create .eh_frame_hdr.  It needs a separate .exp file due
 # to the requirement of two `ld' runs.
 
-# Exclude non-ELF targets.
+# Exclude non-CFI (such as ia64) targets.
 
+if {![check_as_cfi]} {
+    return
+}
+
+# The test uses ELF .section directive
 if ![is_elf_format] {
     return
 }
 
-set build_tests_ld {
-  {"Build eh-group1.o"
-   "-r" ""
-   {eh-group1.s eh-group2.s} {} "eh-group.o"}
+# alpha-linux-gnu does not support 64-bit relocations:
+#   relocation truncated to fit: REFLONG against `.gcc_except_table'
+# arm-eabi does not support 64-bit relocations:
+#   bad relocation fixup type (1)
+set testname "Guess the target size from eh-group1size.o"
+if [ld_assemble $as "$srcdir/$subdir/eh-group1.s" "tmpdir/eh-group1size.o"] {
+    pass $testname
+} else {
+    fail $testname
+}
+
+set as_options ""
+if [is_elf64 "tmpdir/eh-group1size.o"] {
+    set as_options "$as_options --defsym ELF64=1"
 }
 
+set build_tests_ld [list                       \
+  [list "Build eh-group1.o"                    \
+   "-r" "" "$as_options"                       \
+   {eh-group1.s eh-group2.s} {} "eh-group.o"]  \
+]
+
 run_ld_link_tests $build_tests_ld
 
 set testname "Link eh-group.o to eh-group"
-if [ld_simple_link $ld "tmpdir/eh-group" "-e _start tmpdir/eh-group.o"] {
+if [ld_link $ld "tmpdir/eh-group" "-e _start tmpdir/eh-group.o"] {
     pass $testname
 } else {
     fail $testname