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