Automatic date update in version.in
[binutils-gdb.git] / ld / testsuite / ld-pe / pe-compile.exp
blobff867ce111860d1fa298938fae6e2f3fec976ff5
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,
20 # MA 02110-1301, USA.
23 # These tests can only be run on PE/COFF platforms.
24 if {![is_pecoff_format]} {
25 return
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.
33 return
36 proc build_basefile1_o {} {
37 global CC_FOR_TARGET
38 global srcdir
39 global subdir
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 } {
48 global LD
49 global DLLTOOL
50 global srcdir
51 global subdir
52 global verbose
54 if ![ld_link "$LD -e start \
55 --base-file=tmpdir/$testname.base \
56 --export-all-symbols" tmpdir/$testname.dll \
57 "tmpdir/basefile1.o"] {
58 fail "linking DLL"
59 return
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 {
67 send_log "$err\n"
68 if { $verbose == 2 } then { verbose "$err" 2 }
69 fail $testname
70 return
73 pass "$testname"
76 proc build_vers_script_dll_o {} {
77 global CC_FOR_TARGET
78 global srcdir
79 global subdir
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 } {
88 global CC_FOR_TARGET
89 global srcdir
90 global subdir
91 global verbose
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"] {
97 fail "linking DLL"
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 {
102 fail $testname
103 if { $verbose == 2 } then { verbose "output is [file_contents tmpdir/$testname.def]" 2 }
104 return
107 pass "$testname"
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*] } {
123 build_basefile1_o
124 run_basefile_test "basefile-secrel"
125 } else {
126 untested "PE basefile test"
129 set align_tests {
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