1 # Expect script for ld-plugin tests
2 # Copyright (C) 2010-2016 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 # These tests require the plugin API to be configured in.
22 if ![check_plugin_api_available] {
26 # And a compiler to be available.
28 set failure_kind "unresolved"
29 if { [which $CC] == 0 } {
30 # Don't fail immediately,
32 set failure_kind "unsupported"
35 pass "plugin API enabled"
39 # Look for the name we can dlopen in the test plugin's libtool control script.
40 set plugin_name [file_contents "$base_dir/libldtestplug.la"]
41 set plugin_name [regsub "'.*" [regsub ".*dlname='" "$plugin_name" ""] ""]
42 # Even though the API supports plugins it does not mean that the
43 # linker was configured with --enable-plugins. Check for that here.
44 if { $plugin_name == "" } {
45 verbose "The linker is not configured to support plugins"
48 verbose "plugin name is '$plugin_name'"
50 set plugin2_name [file_contents "$base_dir/libldtestplug2.la"]
51 set plugin2_name [regsub "'.*" [regsub ".*dlname='" "$plugin2_name" ""] ""]
52 verbose "plugin2 name is '$plugin2_name'"
54 set plugin3_name [file_contents "$base_dir/libldtestplug3.la"]
55 set plugin3_name [regsub "'.*" [regsub ".*dlname='" "$plugin3_name" ""] ""]
56 verbose "plugin3 name is '$plugin3_name'"
58 # Use libtool to find full path to plugin rather than worrying
59 # about run paths or anything like that.
60 catch "exec $base_dir/libtool --config" lt_config
61 verbose "Full lt config: $lt_config" 3
62 # Look for "objdir=.libs"
63 regexp -line "^objdir=.*$" "$lt_config" lt_objdir
64 verbose "lt_objdir line is '$lt_objdir'" 3
65 set lt_objdir [regsub "objdir=" "$lt_objdir" ""]
66 set plugin_path "$base_dir/$lt_objdir/$plugin_name"
67 set plugin2_path "$base_dir/$lt_objdir/$plugin2_name"
68 set plugin3_path "$base_dir/$lt_objdir/$plugin3_name"
69 verbose "Full plugin path $plugin_path" 2
70 verbose "Full plugin2 path $plugin2_path" 2
71 verbose "Full plugin3 path $plugin3_path" 2
73 set regclm "-plugin-opt registerclaimfile"
74 set regas "-plugin-opt registerallsymbolsread"
75 set regassilent "-plugin-opt registerallsymbolsreadsilent"
76 set regcln "-plugin-opt registercleanup"
78 if { [istarget m681*-*-*] || [istarget m68hc1*-*-*] || [istarget m9s12x*-*-*] } {
79 # otherwise get FAILS due to _.frame
80 set CFLAGS "$CFLAGS -fomit-frame-pointer"
82 # In order to define symbols in plugin options in the list of tests below,
83 # we need to know if the platform prepends an underscore to C symbols,
84 # which we find out by compiling the test objects now. If there is any
85 # error compiling, we defer reporting it until after the list of tests has
86 # been initialised, so that we can use the names in the list to report;
87 # otherwise, we scan one of the files with 'nm' and look for a known symbol
88 # in the output to see if it is prefixed or not.
91 set plugin_nm_output ""
92 if { $can_compile && \
93 (![ld_compile "$CC $CFLAGS" $srcdir/$subdir/main.c tmpdir/main.o] \
94 || ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/func.c tmpdir/func.o] \
95 || ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/text.c tmpdir/text.o] \
96 || ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/dummy.s tmpdir/dummy.o] \
97 || ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/pr17973.s tmpdir/pr17973.o]) } {
98 # Defer fail until we have list of tests set.
102 if { $can_compile && !$failed_compile } {
103 # Find out if symbols have prefix on this platform before setting tests.
104 catch "exec $NM tmpdir/func.o" plugin_nm_output
105 if { [regexp "_func" "$plugin_nm_output"] } {
110 set testobjfiles "tmpdir/main.o tmpdir/func.o tmpdir/text.o"
111 set testobjfiles_notext "tmpdir/main.o tmpdir/func.o"
112 set testsrcfiles "tmpdir/main.o $srcdir/$subdir/func.c tmpdir/text.o"
113 set testsrcfiles_notext "tmpdir/main.o $srcdir/$subdir/func.c"
114 # Rather than having libs we just define dummy values for anything
115 # we may need to link a target exe; we aren't going to run it anyway.
116 set libs "[ld_simple_link_defsyms] --defsym ${_}printf=${_}main --defsym ${_}puts=${_}main"
118 set plugin_tests [list \
119 [list "load plugin" "-plugin $plugin_path \
120 $testobjfiles $libs" "" "" "" {{ld plugin-1.d}} "main.x" ] \
121 [list "fail plugin onload" "-plugin $plugin_path -plugin-opt failonload \
122 $testobjfiles $libs" "" "" "" {{ld plugin-2.d}} "main.x" ] \
123 [list "fail plugin allsymbolsread" "-plugin $plugin_path $regas \
124 -plugin-opt failallsymbolsread \
125 $testobjfiles $libs" "" "" "" {{ld plugin-3.d}} "main.x" ] \
126 [list "fail plugin cleanup" "-plugin $plugin_path -plugin-opt failcleanup \
128 $testobjfiles $libs" "" "" "" {{ld plugin-4.d}} "main.x" ] \
129 [list "plugin all hooks" "-plugin $plugin_path $regclm $regas $regcln \
130 $testobjfiles $libs" "" "" "" {{ld plugin-5.d}} "main.x" ] \
131 [list "plugin claimfile lost symbol" "-plugin $plugin_path $regclm \
132 $regas $regcln -plugin-opt claim:tmpdir/func.o \
133 $testobjfiles $libs" "" "" "" {{ld plugin-6.d}} "main.x" ] \
134 [list "plugin claimfile replace symbol" "-plugin $plugin_path $regclm \
135 $regas $regcln -plugin-opt claim:tmpdir/func.o \
136 -plugin-opt sym:${_}func::0:0:0 \
137 $testobjfiles $libs" "" "" "" {{ld plugin-7.d}} "main.x" ] \
138 [list "plugin claimfile resolve symbol" "-plugin $plugin_path $regclm \
139 $regas $regcln -plugin-opt claim:tmpdir/func.o \
140 -plugin-opt sym:${_}func::0:0:0 \
141 -plugin-opt sym:${_}func2::0:0:0 \
142 -plugin-opt dumpresolutions \
143 $testobjfiles $libs" "" "" "" {{ld plugin-8.d}} "main.x" ] \
144 [list "plugin claimfile replace file" "-plugin $plugin_path $regclm \
145 $regas $regcln -plugin-opt claim:tmpdir/func.o \
146 -plugin-opt sym:${_}func::0:0:0 \
147 -plugin-opt sym:${_}func2::0:0:0 \
148 -plugin-opt dumpresolutions \
149 -plugin-opt add:tmpdir/func.o \
150 $testobjfiles $libs" "" "" "" {{ld plugin-9.d}} "main.x" ] \
151 [list "load plugin with source" "-plugin $plugin_path $regclm \
152 -plugin-opt claim:$srcdir/$subdir/func.c \
153 $testsrcfiles $libs" "" "" "" {{ld plugin-13.d}} "main.x" ] \
154 [list "plugin claimfile lost symbol with source" \
155 "-plugin $plugin_path $regclm $regas $regcln \
156 -plugin-opt claim:$srcdir/$subdir/func.c \
157 $testsrcfiles $libs" "" "" "" {{ld plugin-14.d}} "main.x" ] \
158 [list "plugin claimfile replace symbol with source" \
159 "-plugin $plugin_path $regclm $regas $regcln \
160 -plugin-opt claim:$srcdir/$subdir/func.c \
161 -plugin-opt sym:${_}func::0:0:0 \
162 $testsrcfiles $libs" "" "" "" {{ld plugin-15.d}} "main.x" ] \
163 [list "plugin claimfile resolve symbol with source" \
164 "-plugin $plugin_path $regclm $regas $regcln \
165 -plugin-opt claim:$srcdir/$subdir/func.c \
166 -plugin-opt sym:${_}func::0:0:0 \
167 -plugin-opt sym:${_}func2::0:0:0 \
168 -plugin-opt dumpresolutions \
169 $testsrcfiles $libs" "" "" "" {{ld plugin-16.d}} "main.x" ] \
170 [list "plugin claimfile replace file with source" \
171 "-plugin $plugin_path $regclm $regas $regcln \
172 -plugin-opt claim:$srcdir/$subdir/func.c \
173 -plugin-opt sym:${_}func::0:0:0 \
174 -plugin-opt sym:${_}func2::0:0:0 \
175 -plugin-opt dumpresolutions \
176 -plugin-opt add:tmpdir/func.o \
177 $testsrcfiles $libs" "" "" "" {{ld plugin-17.d}} "main.x" ] \
178 [list "load plugin with source not claimed" "-plugin $plugin_path $regclm \
179 $testsrcfiles $libs" "" "" "" {{ld plugin-26.d}} "main.x" ] \
180 [list "plugin fatal error" "-plugin $plugin2_path -plugin-opt fatal \
181 $testobjfiles $libs" "" "" "" {{ld plugin-27.d}} "main.x" ] \
182 [list "plugin error" "-plugin $plugin2_path -plugin-opt error \
183 $testobjfiles $libs" "" "" "" {{ld plugin-28.d}} "main.x" ] \
184 [list "plugin warning" "-plugin $plugin2_path -plugin-opt warning \
185 $testobjfiles $libs" "" "" "" {{ld plugin-29.d}} "main.x" ] \
188 if [check_shared_lib_support] {
189 lappend plugin_tests [list "PR ld/17973" "-plugin $plugin2_path -shared $regassilent \
190 -plugin-opt add:tmpdir/pr17973.o \
191 tmpdir/dummy.o" "" "" "" {{readelf -sW pr17973.d}} "main.x" ]
195 set plugin_lib_tests [list \
196 [list "plugin ignore lib" "-plugin $plugin_path $regclm \
197 $regas $regcln -plugin-opt claim:tmpdir/func.o \
198 -plugin-opt sym:${_}func::0:0:0 \
199 -plugin-opt sym:${_}func2::0:0:0 \
200 -plugin-opt dumpresolutions \
201 -plugin-opt add:tmpdir/func.o \
202 $testobjfiles_notext -Ltmpdir -ltext $libs" "" "" "" {{ld plugin-10.d}} "main.x" ] \
203 [list "plugin claimfile replace lib" "-plugin $plugin_path $regclm \
204 $regas $regcln -plugin-opt claim:tmpdir/func.o \
205 -plugin-opt sym:${_}func::0:0:0 \
206 -plugin-opt sym:${_}func2::0:0:0 \
207 -plugin-opt dumpresolutions \
208 -plugin-opt add:tmpdir/func.o \
209 -plugin-opt claim:tmpdir/libtext.a \
210 -plugin-opt sym:${_}text::0:0:0 \
211 -plugin-opt add:tmpdir/text.o \
212 $testobjfiles_notext -Ltmpdir -ltext $libs" "" "" "" {{ld plugin-11.d}} "main.x" ] \
213 [list "plugin ignore lib with source" \
214 "-plugin $plugin_path $regclm $regas $regcln \
215 -plugin-opt claim:$srcdir/$subdir/func.c \
216 -plugin-opt sym:${_}func::0:0:0 \
217 -plugin-opt sym:${_}func2::0:0:0 \
218 -plugin-opt dumpresolutions \
219 -plugin-opt add:tmpdir/func.o \
220 $testsrcfiles_notext -Ltmpdir -ltext $libs" "" "" "" {{ld plugin-18.d}} "main.x" ] \
221 [list "plugin claimfile replace lib with source" \
222 "-plugin $plugin_path $regclm $regas $regcln \
223 -plugin-opt claim:$srcdir/$subdir/func.c \
224 -plugin-opt sym:${_}func::0:0:0 \
225 -plugin-opt sym:${_}func2::0:0:0 \
226 -plugin-opt dumpresolutions \
227 -plugin-opt add:tmpdir/func.o \
228 -plugin-opt claim:tmpdir/libtext.a \
229 -plugin-opt sym:${_}text::0:0:0 \
230 -plugin-opt add:tmpdir/text.o \
231 $testsrcfiles_notext -Ltmpdir -ltext $libs" "" "" "" {{ld plugin-19.d}} "main.x" ] \
234 set plugin_extra_elf_tests [list \
235 [list "plugin set symbol visibility" "-plugin $plugin_path $regclm \
236 $regas $regcln -plugin-opt claim:tmpdir/func.o \
237 -plugin-opt sym:${_}func::0:0:0 \
238 -plugin-opt sym:${_}func1::0:1:0 \
239 -plugin-opt sym:${_}func2::0:2:0 \
240 -plugin-opt sym:${_}func3::0:3:0 \
241 -plugin-opt dumpresolutions \
242 -plugin-opt add:tmpdir/func.o \
243 -plugin-opt add:tmpdir/func1p.o \
244 -plugin-opt add:tmpdir/func2i.o \
245 -plugin-opt add:tmpdir/func3h.o \
246 $testobjfiles $libs --verbose=2" "" "" "" {{ld plugin-12.d} \
247 {readelf -s plugin-vis-1.d}} "main.x" ] \
248 [list "plugin set symbol visibility with source" \
249 "-plugin $plugin_path $regclm $regas $regcln \
250 -plugin-opt claim:$srcdir/$subdir/func.c \
251 -plugin-opt sym:${_}func::0:0:0 \
252 -plugin-opt sym:${_}func1::0:1:0 \
253 -plugin-opt sym:${_}func2::0:2:0 \
254 -plugin-opt sym:${_}func3::0:3:0 \
255 -plugin-opt dumpresolutions \
256 -plugin-opt add:tmpdir/func.o \
257 -plugin-opt add:tmpdir/func1p.o \
258 -plugin-opt add:tmpdir/func2i.o \
259 -plugin-opt add:tmpdir/func3h.o \
260 $testsrcfiles $libs --verbose=2" "" "" "" {{ld plugin-12.d} \
261 {readelf -s plugin-vis-1.d}} "main.x" ] \
264 if { !$can_compile || $failed_compile } {
265 foreach testitem $plugin_tests {
266 $failure_kind [lindex $testitem 0]
268 if { [is_elf_format] } {
269 foreach testitem $plugin_extra_elf_tests {
270 $failure_kind [lindex $testitem 0]
276 run_ld_link_tests $plugin_tests
278 if { [is_elf_format] \
279 && [ld_compile "$CC $CFLAGS" $srcdir/$subdir/func1p.c tmpdir/func1p.o] \
280 && [ld_compile "$CC $CFLAGS" $srcdir/$subdir/func2i.c tmpdir/func2i.o] \
281 && [ld_compile "$CC $CFLAGS" $srcdir/$subdir/func3h.c tmpdir/func3h.o] } {
282 run_ld_link_tests $plugin_extra_elf_tests
285 if ![ar_simple_create $ar "" "tmpdir/libtext.a" "tmpdir/text.o"] {
286 foreach testitem $plugin_lib_tests {
287 unresolved [lindex $testitem 0]
290 run_ld_link_tests $plugin_lib_tests
293 set plugin_src_tests [list \
294 [list "plugin 2 with source lib" \
295 "-plugin $plugin2_path $regclm $regas $regcln \
296 -plugin-opt dumpresolutions \
297 tmpdir/main.o -Ltmpdir -ltext -lfunc $libs" "" "" "" {{ld plugin-20.d}} "main.x" ] \
298 [list "load plugin 2 with source" \
299 "-plugin $plugin2_path $regclm $regas $regcln \
300 -plugin-opt dumpresolutions \
301 $testsrcfiles $libs" "" "" "" {{ld plugin-21.d}} "main.x" ] \
302 [list "load plugin 2 with source and -r" \
303 "-r -plugin $plugin2_path $regclm $regas $regcln \
304 -plugin-opt dumpresolutions \
305 $testsrcfiles $libs" "" "" "" {{ld plugin-24.d}} "main.x" ] \
306 [list "plugin 3 with source lib" \
307 "-plugin $plugin3_path $regclm $regas $regcln \
308 -plugin-opt dumpresolutions \
309 tmpdir/main.o -Ltmpdir -ltext -lfunc $libs" "" "" "" {{ld plugin-22.d}} "main.x" ] \
310 [list "load plugin 3 with source" \
311 "-plugin $plugin3_path $regclm $regas $regcln \
312 -plugin-opt dumpresolutions \
313 $testsrcfiles $libs" "" "" "" {{ld plugin-23.d}} "main.x" ] \
314 [list "load plugin 3 with source and -r" \
315 "-r -plugin $plugin3_path $regclm $regas $regcln \
316 -plugin-opt dumpresolutions \
317 $testsrcfiles $libs" "" "" "" {{ld plugin-25.d}} "main.x" ] \
320 # Check if nm --plugin works.
321 set testname "nm --plugin"
322 set nm_plugin "$NM --plugin $plugin2_path $srcdir/$subdir/func.c"
323 catch "exec $nm_plugin" plugin_nm_output
324 send_log "$nm_plugin\n"
325 send_log "$plugin_nm_output\n"
326 if { [regexp "0+ T func" "$plugin_nm_output"] &&
327 [regexp "0+ T _func" "$plugin_nm_output"] } {
333 # Check if ar --plugin works.
334 file delete tmpdir/libfunc.a
335 if [ar_simple_create $ar "--plugin $plugin2_path" "tmpdir/libfunc.a" \
336 "tmpdir/main.o $srcdir/$subdir/func.c"] {
337 set testname "ar --plugin"
338 set nm_plugin "$NM -s --plugin $plugin2_path tmpdir/libfunc.a"
339 catch "exec $nm_plugin" plugin_nm_output
340 send_log "$nm_plugin\n"
341 send_log "$plugin_nm_output\n"
342 if { [regexp "func in func.c" "$plugin_nm_output"] &&
343 [regexp "_func in func.c" "$plugin_nm_output"] } {
345 run_ld_link_tests $plugin_src_tests
350 foreach testitem $plugin_src_tests {
351 unresolved [lindex $testitem 0]