1 # Expect script
for complex PE tests that require a C compiler
2 # in addition to the just
-built binutils.
3 # Copyright
(C
) 2009-2024 Free Software Foundation
, Inc.
5 # This file is part of the GNU Binutils.
7 # This
program is free software
; you can redistribute it and
/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation
; either version
3 of the License
, or
10 #
(at your option
) any later version.
12 # This
program is distributed in the hope that it will be useful
,
13 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License
for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this
program; if not
, write to the Free Software
19 # Foundation
, Inc.
, 51 Franklin Street
- Fifth Floor
, Boston
,
23 # These tests can only be run
on PE
/COFF platforms.
24 if {![is_pecoff_format
]} {
28 # No compiler
, no test.
29 if { ![check_compiler_available
] } {
30 untested
"PE version scripts"
31 untested
"aligned common tests"
32 # Add more
"untested" directives here when adding more tests below.
36 proc build_basefile1_o
{} {
41 #
Compile the object file.
42 if ![ld_compile $CC_FOR_TARGET $srcdir
/$subdir
/basefile1.s tmpdir
/basefile1.o
] {
43 fail
"compiling basefile1 object"
47 proc run_basefile_test
{ testname
} {
54 if ![ld_link
"$LD -e start \
55 --base
-file
=tmpdir
/$testname.base \
56 --export-all
-symbols
" tmpdir/$testname.dll \
57 "tmpdir/basefile1.o"] {
62 if { $verbose
> 2 } then { verbose
"output is [file_contents tmpdir/$testname.base]" 3 }
64 catch
"exec wc -c tmpdir/$testname.base" err
66 if ![string match
"0 tmpdir/$testname.base" [string trim $err]] then {
68 if { $verbose
== 2 } then { verbose
"$err" 2 }
76 proc build_vers_script_dll_o
{} {
81 #
Compile the object file.
82 if ![ld_compile
"$CC_FOR_TARGET -shared" $srcdir/$subdir/vers-script-dll.c tmpdir/vers-script-dll.o] {
83 fail
"compiling shared lib object"
87 proc run_ver_script_test
{ testname
} {
93 if ![ld_link
"$CC_FOR_TARGET -shared \
94 -Wl
,--version
-script
,$srcdir
/$subdir
/$testname.ver \
95 -Wl
,--output
-def
,tmpdir
/$testname.def
" tmpdir/$testname.dll \
96 "tmpdir/vers-script-dll.o"] {
100 if { $verbose
> 2 } then { verbose
"output is [file_contents tmpdir/$testname.def]" 3 }
101 if { [regexp_diff tmpdir
/$testname.def $srcdir
/$subdir
/$testname.d
] } then {
103 if { $verbose
== 2 } then { verbose
"output is [file_contents tmpdir/$testname.def]" 2 }
111 build_vers_script_dll_o
113 run_ver_script_test
"vers-script-1"
114 run_ver_script_test
"vers-script-2"
115 run_ver_script_test
"vers-script-3"
116 run_ver_script_test
"vers-script-4"
118 if {[istarget i
*86-*-cygwin
*]
119 ||
[istarget i
*86-*-pe
]
120 ||
[istarget i
*86-*-mingw
*]
121 ||
[istarget x86_64
-*-mingw
*] } {
124 run_basefile_test
"basefile-secrel"
126 untested
"PE basefile test"
130 {"aligned common 1" "" "" "" {aligncomm-1.c}
131 {{nm
-C aligncomm.d
}} "aligncomm-1.x"}
132 {"aligned common 2" "" "" "" {aligncomm-2.c}
133 {{nm
-C aligncomm.d
}} "aligncomm-2.x"}
134 {"aligned common 3" "" "" "" {aligncomm-3.c}
135 {{nm
-C aligncomm.d
}} "aligncomm-3.x"}
136 {"aligned common 4" "" "" "" {aligncomm-4.c}
137 {{nm
-C aligncomm.d
}} "aligncomm-4.x"}
140 run_ld_link_tests $align_tests