2 # Free Software Foundation, Inc.
4 # This program 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 # Please email any bugs, comments, and/or additions to this file to:
21 # This scripts tests of all available SH architectures with all other SH
22 # architectures. It ensures that those combinations which should not work
23 # do not work, and that those that should work produce the correct output
26 # It looks for files in the same directory as this file named sh*.s .
27 # Each file must contain one or more instructions which uniquely identifies
28 # that architecture. The architecture name is inferred from the file name.
30 # It also creates another architecture named 'sh-unknown' by modifying
31 # another arch type (there is no way to assemble such an arch) in order
32 # to test what the linker would do with an older object file.
34 # The script generates the architecture permutations automatically,
35 # but it reads the expected results from the file arch_expected.txt (also
36 # found in the same directory as this script).
38 # The arch_expected.txt file should NOT be hand edited. Whenever the script
39 # is run (e.g. with 'make check') it creates a new (usually identical) file
40 # named arch_results.txt in the <objdir>/ld/testsuite directory. When the
41 # expected results change (or new architectures are added) this new file
42 # can be used to replace arch_expected.txt with no modification required.
45 # The procedure extracts the architecture name from the objdump output.
46 # If there is no architecture name (or objdump output changes significantly)
47 # then the behaviour is undefined, but it will most likely return junk.
49 proc get_sh_arch { ofile } {
52 set cmd "$OBJDUMP -f $ofile"
54 catch "exec $cmd" objdump_output
55 verbose -log $objdump_output
57 set objdump_output [string replace $objdump_output 0 \
58 [expr [string first "architecture:" $objdump_output] + 13] ""]
60 return [string range $objdump_output 0 [expr [string first "," $objdump_output] - 1]]
64 # This procedure runs two tests:
65 # Test 1: Check the linker can link the given files.
66 # Test 2: Check that the resultant architecture is as expected.
67 # It also writes an entry to the arch_results.txt file.
69 proc test_arch { file1 file2 arch resultfile } {
72 set name1 [file tail $file1]
73 set rootname1 [file rootname $name1]
75 set name2 [file tail $file2]
76 set rootname2 [file rootname $name2]
78 set result [default_ld_simple_link $LD "${rootname1}_${rootname2}.o" "$file1 $file2"]
80 if {$result == 1} then {
81 pass "$rootname1 file should link with $rootname2 file"
83 set result [get_sh_arch "${rootname1}_${rootname2}.o"]
84 puts $resultfile [format "%-20s %-20s %s" $file1 $file2 $result]
86 if {$result == $arch} then {
87 pass "$rootname1 file with $rootname2 file should link to arch $arch"
88 file delete "${rootname1}_${rootname2}.o"
90 fail "$rootname1 file with $rootname2 file should link to arch $arch"
93 fail "$rootname1 file should link with $rootname2 file"
95 puts $resultfile [format "%-20s %-20s ERROR" $file1 $file2]
96 untested "$rootname2 file with $rootname2 file should link to arch $arch"
103 # This procedure tests that a pair of files that are not
104 # suposed to link does, in fact, not link.
105 # It also writes an entry to the arch_results.txt file.
107 proc test_arch_error { file1 file2 resultfile} {
108 global link_output LD
110 set name1 [file tail $file1]
111 set rootname1 [file rootname $name1]
113 set name2 [file tail $file2]
114 set rootname2 [file rootname $name2]
116 set result [default_ld_simple_link $LD "${rootname1}_${rootname2}.o" "$file1 $file2"]
118 if {$result == 1} then {
119 fail "$rootname1 file should NOT link with $rootname2 file"
120 puts $resultfile [format "%-20s %-20s [get_sh_arch ${rootname1}_${rootname2}.o]" $file1 $file2]
122 pass "$rootname1 file should NOT link with $rootname2 file"
123 puts $resultfile [format "%-20s %-20s ERROR" $file1 $file2]
127 # These tests are not suitable for sh-coff because
128 # coff does not store the architecture information.
130 if [istarget sh*-*-elf] then {
134 # Find all the architectures and assemble all the files
135 # we will use for the linker tests.
137 set sfilelist [lsort -ascii [glob "$srcdir/$subdir/sh*.s"]]
139 foreach sfile $sfilelist {
140 set ofile "[file rootname [file tail $sfile]].o"
141 lappend ofilelist $ofile
144 if [string equal [big_or_little_endian] " -EL"] then {
148 set cmd "$AS $endian -isa=any $sfile -o $ofile"
150 catch "exec $cmd" as_output
151 if ![file exists $ofile] then {
152 verbose -log $as_output
153 perror "$sfile: assembly failed"
157 # Create the default arch ofile
158 # This cannot be created with the assembler
159 # sh4al-dsp is number 6, sh-unknown is 0
161 lappend ofilelist "sh-unknown.o"
163 if [string equal [big_or_little_endian] " -EL"] then {
164 set cmd {xxd sh4al-dsp.o | sed {s/\(^0000020: .... .... \)06/\100/} | xxd -r - sh-unknown.o}
166 set cmd {xxd sh4al-dsp.o | sed {s/\(^0000020: .... .... .... ..\)06/\100/} | xxd -r - sh-unknown.o}
169 catch "exec $cmd" xxd_output
170 verbose -log $xxd_output
171 if [string equal [get_sh_arch "sh-unknown.o"] "sh4al-dsp"] then {
172 perror "sh-unknown.o not generated correctly"
176 # Initialise the results file
178 set outfile [open "arch_results.txt" w 0666]
179 puts $outfile "# Generated file. DO NOT EDIT"
181 puts $outfile "# This file is generated by ld/testsuite/ld-sh/arch/arch.exp ."
182 puts $outfile "# It contains the expected results of the tests."
183 puts $outfile "# If the tests are failing because the expected results"
184 puts $outfile "# have changed then run 'make check' and copy the new file"
185 puts $outfile "# from <objdir>/ld/arch_results.txt"
186 puts $outfile "# to <srcdir>/ld/testsuite/ld-sh/arch/arch_expected.txt ."
187 puts $outfile "# Make sure the new expected results are ALL correct."
189 puts $outfile [format "# %-18s %-20s %s" "FILE1" "FILE2" "OUTPUT"]
190 puts $outfile [format "# %-18s %-20s %s" "-----" "-----" "------"]
192 # Open the expected results file and skip the header
194 set infile [open "$srcdir/$subdir/arch_expected.txt" r]
195 while {[gets $infile line] >= 0 && [string match {\#*} $line]} {verbose -log "reading '$line'"}
197 foreach file1 $ofilelist {
198 foreach file2 $ofilelist {
199 set name1 [file tail $file1]
200 set rootname1 [file rootname $name1]
202 set name2 [file tail $file2]
203 set rootname2 [file rootname $name2]
205 # Decode the expected result from the file
207 scan $line "%s %s %s" exfile1 exfile2 exarch
208 verbose -log "exfile1 = '$exfile1', exfile2 = '$exfile2', exarch = '$exarch'"
209 verbose -log " name1 = '$name1', name2 = '$name2'"
211 if {[string equal $exfile1 $name1] && [string equal $exfile2 $file2]} then {
212 # The expected result file makes sense and
213 # appears up-to-date (the file and options match)
215 if {[string equal $exarch "ERROR"]} then {
216 test_arch_error $file1 $file2 $outfile
218 test_arch $file1 $file2 $exarch $outfile
221 # The expected result file isn't right somehow
222 # so just try any old test. This will cause
223 # many failures, but will genrate the results file.
225 test_arch $file1 $file2 $rootname1 $outfile
228 # Read the next line from the expected result file.
229 # This is at the end because the process of skipping
230 # the header reads the first real line
232 if [gets $infile line] then {
233 verbose -log "reading '$line'"
241 foreach file $ofilelist {