1 # Expect script
for binutils tests
2 # Copyright
(C
) 2009-2024 Free Software Foundation
, Inc.
4 # This file is part of the GNU Binutils.
6 # This
program is free software
; you can redistribute it and
/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation
; either version
3 of the License
, or
9 #
(at your option
) any later version.
11 # This
program is distributed in the hope that it will be useful
,
12 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License
for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this
program; if not
, write to the Free Software
18 # Foundation
, Inc.
, 51 Franklin Street
- Fifth Floor
, Boston
,
21 # Written by H.J. Lu
(hongjiu.lu@intel.com
)
24 # Make sure that binutils can correctly handle
ld output in ELF with
25 # STT_GNU_IFUNC symbols.
27 if { !([istarget
"i?86-*-elf*"]
28 ||
[istarget
"i?86-*-linux*"]
29 ||
[istarget
"i?86-*-gnu*"]
30 ||
[istarget
"x86_64-*-linux*"]
31 ||
[istarget
"amd64-*-linux*"]) } {
35 proc binutils_test
{ prog_name ld_options test
} {
45 eval
set prog \$$prog_name
46 set test_name
"$prog_name $ld_options ($test)"
48 if { ![ld_assemble $as $srcdir
/$subdir
/$test.s tmpdir
/$test.o
] } {
49 unsupported
"$test_name"
53 if { ![ld_link $
ld tmpdir
/$test
"$ld_options tmpdir/$test.o"] } {
54 if { [string match
"*not supported*" $link_output]
55 ||
[string match
"*unrecognized option*" $link_output] } {
56 unsupported
"$ld_options is not supported by this target"
63 send_log
"$READELF -l --wide tmpdir/$test > tmpdir/$test.exp\n"
64 set got
[remote_exec host
"$READELF -l --wide tmpdir/$test" "" "/dev/null" "tmpdir/$test.exp"]
65 if { [lindex $got
0] != 0 ||
![string match
"" [lindex $got 1]] } then {
71 send_log
"$prog tmpdir/$test\n"
72 set got
[remote_exec host
"$prog tmpdir/$test"]
73 if { [lindex $got
0] != 0 ||
![string match
"" [lindex $got 1]] } then {
79 send_log
"$READELF -l --wide tmpdir/$test > tmpdir/$test.out\n"
80 set got
[remote_exec host
"$READELF -l --wide tmpdir/$test" "" "/dev/null" "tmpdir/$test.out"]
81 if { [lindex $got
0] != 0 ||
![string match
"" [lindex $got 1]] } then {
87 if { [catch
{exec cmp tmpdir
/$test.exp tmpdir
/$test.out
}] } then {
88 send_log
"tmpdir/$test.exp tmpdir/$test.out differ.\n"
96 binutils_test
strip "" ifunc-4-x86
97 binutils_test objcopy
"" ifunc-4-x86
98 binutils_test
strip "" ifunc-4-local-x86
99 binutils_test objcopy
"" ifunc-4-local-x86