1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
# Expect script for ld-sh tests
# Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007 Free Software Foundation
#
# This file is part of the GNU Binutils.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
# MA 02110-1301, USA.
#
# Test SH relaxing - that is, that it's disabled when SHmedia sections
# are present.
if ![istarget sh64-*-*] {
return
}
# There are four source files: the first is SHcompact only, the second
# is SHmedia only, the third has both, and the fourth has only a
# .cranges section. The table below has:
# Title
# as flags for first source (else "n/a" to skip)
# ditto, other three files
# ld flags
# 1/0 whether relaxing should have been done or not, or -1 if we expect
# the linker to not produce an output file.
if [istarget sh64*-*-linux*] {
set emul32 "shlelf32_linux"
} elseif { [istarget sh64*-*-netbsd*] || [istarget sh5*-*-netbsd*] } {
set emul32 "shelf32_nbsd"
} else {
set emul32 "shelf32"
}
set sh64relaxtests {
{"SH64 not relaxing, shcompact"
{"-relax -isa shcompact" "n/a" "n/a" "n/a"} "-m$emul32" 0}
{"SH64 relaxing, shcompact"
{"-relax -isa shcompact" "n/a" "n/a" "n/a"} "-relax -m$emul32" 1}
{"SH64 relaxing, shcompacts"
{"-relax -isa shcompact" "-isa shcompact" "n/a" "n/a"} "-relax -m$emul32" 1}
{"SH64 relaxing disabled, shmedia"
{"-relax -isa shcompact" "-isa shmedia -no-mix" "n/a" "n/a"} "-relax -m$emul32" 0}
{"SH64 relaxing disabled, mixed"
{"-relax -isa shcompact" "n/a" "-isa shcompact" "n/a"} "-relax -m$emul32" 0}
{"SH64 relaxing disabled, cranges"
{"-relax -isa shcompact" "n/a" "n/a" ""} "-relax -m$emul32" 0}
}
proc run_sh64relaxtest {sh64relaxtests} {
global ld
global as
global nm
global objdump
global readelf
global srcdir
global subdir
global emul32
set testindex 0
set sh64relaxfiles {
"relax1.s" "relax2.s" "relax3.s" "relax4.s"
}
foreach testentry $sh64relaxtests {
set testname [lindex $testentry 0]
set as_options [lindex $testentry 1]
set ld_options [subst [lindex $testentry 2]]
set expect_relaxed [lindex $testentry 3]
set is_unresolved 0
set objfiles {}
incr testindex
# Assemble each file in the test.
for {set i 0} {$i < 4} {incr i} {
set as_file [lindex $sh64relaxfiles $i]
set as_opt [lindex $as_options $i]
if { [string compare $as_opt "n/a"] != 0 } {
set objfile "tmpdir/[file rootname $as_file]-$testindex.o"
lappend objfiles $objfile
if ![ld_assemble $as "$as_opt $srcdir/$subdir/$as_file" $objfile] {
set is_unresolved 1
break
}
}
}
# Catch assembler errors.
if { $is_unresolved != 0 } {
unresolved $testname
continue
}
set binfile "tmpdir/relax-$testindex.x"
# We're not interested in the pass/fail of the linker as much
# as we're interested in whether or not relaxing got properly
# disabled. Hence the lax checking here.
file delete $binfile
set result [ld_simple_link $ld $binfile " --no-warn-mismatch $ld_options $objfiles"]
if ![file exists $binfile] {
if {$expect_relaxed == -1} {
pass $testname
continue
}
verbose "$testname: file $binfile doesn't exist" 1
fail $testname
continue
}
catch "exec $objdump -d $binfile" objdump_output
regexp "\[ \t](jsr|bsr)\[ \t]" $objdump_output ignore calltype
if [string match $calltype "bsr"] {
set relaxed 1
} elseif [string match $calltype "jsr"] {
set relaxed 0
} else {
verbose "$testname: neither jsr nor bsr found" 1
verbose $objdump_output 2
fail $testname
continue
}
if {$relaxed != $expect_relaxed} {
verbose $objdump_output 2
fail $testname
exit
} else {
pass $testname
}
}
}
run_sh64relaxtest $sh64relaxtests
|
