1 # Expect script
for LD selective linking tests
2 # Copyright
1998, 1999, 2000, 2001, 2002 Free Software Foundation
, Inc.
4 # This file is free software
; you can redistribute it and
/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation
; either version
2 of the License
, or
7 #
(at your option
) any later version.
9 # This
program is distributed in the hope that it will be useful
,
10 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License
for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this
program; if not
, write to the Free Software
16 # Foundation
, Inc.
, 59 Temple Place
- Suite
330, Boston
, MA
02111-1307, USA.
18 # Written by Catherine Moore
(clm@cygnus.com
)
19 # Make sure that constructors are handled correctly.
21 # Only ELF based ports support selective linking
26 # List contains test
-items with three items followed by four lists
:
27 #
1:name 2:test
-type
(CC or C
++; add as needed
) 3:filename
4:ld-flags
28 #
5:must
-have
-symbols
6:must
-not
-have
-symbols
7:xfail
-targets.
30 #
If a must
(-not
)-have symbol is a list
, then that list must have two
31 # items
; the symbol
name and a value the symbol must
(not
) have.
33 # Note
: ld_nm trims leading `_
' from _start
35 # FIXME: Instead of table, read settings from each source-file.
37 {selective1 C 1.c {} {} {dropme1 dropme2} {}}
38 {selective2 C 2.c {} {} {foo} {mips*-*}}
39 {selective3 C 2.c {-u foo} {foo} {{foo 0}} {mips*-*}}
40 {selective4 C++ 3.cc {} {start a A::foo() B::foo()} {A::bar()} {mips*-*}}
41 {selective5 C++ 4.cc {} {start a A::bar()} {A::foo() B::foo()} {mips*-*}}
42 {selective6 C++ 5.cc {} {start a A::bar()}
43 {A::foo() B::foo() dropme1() dropme2()} {*-*-*}}
46 set cflags "-w -O -ffunction-sections -fdata-sections"
47 set cxxflags "-fvtable-gc -fno-exceptions -fno-rtti"
48 set ldflags "--gc-sections -Bstatic"
50 if [istarget sh64*-*-elf] {
51 # This is what gcc passes to ld by default, plus switch to the
52 # "usual" ELF _start (shelf32 normally uses just `start' for COFF
54 set ldflags
"-e _start -mshelf32 $ldflags"
57 #
If we don
't have g++ for the target, mark all tests as untested.
58 if { [which $CXX] == 0 } {
59 foreach testitem $seltests {
60 untested "[lindex $testitem 0]"
65 foreach testitem $seltests {
66 set testname [lindex $testitem 0]
67 set testtype [lindex $testitem 1]
68 set testfile [lindex $testitem 2]
69 set objfile "tmpdir/[file rootname $testfile].o"
70 set ldfile "tmpdir/[file rootname $testfile].x"
73 set ldargs [lindex $testitem 3]
74 set mustsyms [lindex $testitem 4]
75 set mustnotsyms [lindex $testitem 5]
76 set xfails [lindex $testitem 6]
78 foreach xfail_target $xfails {
79 setup_xfail $xfail_target
81 setup_xfail "alpha*-*" "arc*-*" "d30v*-*" "dlx*-*" "i370*-*" "i860*-*"
82 setup_xfail "i960*-*" "ia64*-*" "mn10200-*" "or32-*" "pj-*" "sparc64*-*"
84 # It's either C or C
++ at the moment.
85 if { $testtype
== "C++" } {
86 set testflags
"$cflags $cxxflags"
88 set testflags
"$cflags"
91 # Note that we
do not actually
*use
* CXX
; we just add cxxflags
for C
++
92 # tests. It might have been a buglet originally
; now I think better
94 if { ![ld_compile
"$CC $testflags" $srcdir/$subdir/$testfile $objfile] } {
99 # V850 targets need libgcc.a
100 # FIXME
: This does not work with installed toolchains
!
101 if [istarget v850
*-*-elf
] {
102 set objfile
"$objfile -L ../gcc -lgcc"
105 # ARM targets need libgcc.a in THUMB
mode so that __call_via_r3 is provided
106 # FIXME
: This does not work with installed toolchains
!
107 if {[istarget arm
-*-*] ||
[istarget xscale
-*-*]} {
108 set objfile
"$objfile -L ../gcc -lgcc"
111 # HPPA linux targets need libgcc.a
for millicode routines
($$dyncall
).
112 if [istarget hppa
*-*-linux
*] {
113 catch
"exec $CC -print-libgcc-file-name" libgcc
114 set objfile
"$objfile $libgcc"
117 # m6811
/m6812 code has references to soft registers.
118 if {[istarget m6811
-*-*] ||
[istarget m6812
-*-*]} {
119 set objfile
"$objfile --defsym _.frame=0 --defsym _.d1=0"
120 set objfile
"$objfile --defsym _.d2=0"
123 if ![ld_simple_link $
ld $ldfile
"$ldflags [join $ldargs] $objfile"] {
128 if ![ld_nm $nm
--demangle $ldfile
] {
133 # Must make V2 demangled names look like V3
134 foreach nm_output_key
[array names nm_output
] {
135 if [regsub
\\(void
\\) $nm_output_key
() new_nm_output_key
] {
136 set nm_output
($new_nm_output_key
) nm_output
($nm_output_key
)
140 # Check each mandated symbol and optionally mandated
values.
141 foreach mustsym $mustsyms
{
142 if { [llength
[concat $mustsym
]] == 1 } {
143 if { ![info exists nm_output
($mustsym
)] } {
144 verbose
-log "$testname: missing $mustsym"
150 set mustsymname
[lindex $mustsym
0]
151 set mustsymvalue
[lindex $mustsym
1]
152 if { ![info exists nm_output
($mustsymname
)] } {
153 verbose
-log "$testname: missing $mustsymname"
158 if { $nm_output
($mustsymname
) != $mustsymvalue
} {
159 verbose
-log "$testname: $mustsymname != $mustsymvalue"
160 verbose
-log "is instead $nm_output($mustsymname)"
169 if { $failed
!= 0 } {
173 # Check each unwanted symbol
, or that symbols
do not have specific
175 foreach mustnotsym $mustnotsyms
{
176 if { [llength
[concat $mustnotsym
]] == 1 } {
177 if { [info exists nm_output
($mustnotsym
)] } {
178 verbose
-log "$testname: $mustnotsym == $nm_output($mustnotsym)"
184 set mustnotsymname
[lindex $mustnotsym
0]
185 set mustnotsymvalue
[lindex $mustnotsym
1]
186 if { [info exists nm_output
($mustnotsymname
)] \
187 && $nm_output
($mustnotsymname
) == $mustnotsymvalue
} {
188 verbose
-log "$testname: $mustnotsymname == $mustnotsymvalue"
196 if { $failed
== 0 } {