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
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
# Copyright (C) 1995, 1996, 1997, 2002, 2003, 2004, 2005, 2006, 2007, 2009
# Free Software Foundation, Inc.
# 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.
# Please email any bugs, comments, and/or additions to this file to:
# dejagnu@gnu.org
# Written by Cygnus Support.
if {[istarget "sh*-*-linux-*"] || [istarget "sh*l*-*-netbsdelf*"]} then {
global ASFLAGS
set ASFLAGS "$ASFLAGS -big"
}
if {[istarget "sh64*-*-*"] || [istarget "sh5*-*-*"]} then {
global ASFLAGS
set old_ASFLAGS $ASFLAGS
set ASFLAGS "$ASFLAGS --abi=32 --isa=SHcompact"
}
proc do_fp {} {
set testname "fp.s: floating point tests (sh3e)"
set x 0
gas_start "fp.s" "-al"
# Check the assembled instruction against a table built by the HP assembler
# Any differences should be checked by hand -- with the number of problems
# I've seen in the HP assembler I don't completely trust it.
#
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 F008\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0002 F00A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0004 F009\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0006 F00B\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0008 F006\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000a F007\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c F10C\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000e F08D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0010 F09D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0012 F100\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0014 F101\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0016 F102\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 F103\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001a F10E\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001c F104\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001e F105\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020 F04D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0022 F05D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0024 F06D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0026 F02D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0028 F03D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002a F00D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002c F01D\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002e 435A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 4356\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0032 436A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0034 4366\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0036 035A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0038 4352\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003a 036A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c 4362\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0000 08F0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0002 0AF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0004 09F0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0006 0BF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0008 06F0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000a 07F0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c 0CF1\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000e 8DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0010 9DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0012 00F1\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0014 01F1\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0016 02F1\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 03F1\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001a 0EF1\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001c 04F1\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001e 05F1\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020 4DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0022 5DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0024 6DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0026 2DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0028 3DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002a 0DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002c 1DF0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002e 5A43\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 5643\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0032 6A43\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0034 6643\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0036 5A03\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0038 5243\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003a 6A03\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c 6243\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==31] then { pass $testname } else { fail $testname }
}
if [istarget sh*-*-*] then {
# Test the basic instruction parser.
do_fp
# coff is missing information about the machine type, so everything is
# dumped as sh4.
if {[istarget sh*-*coff] || [istarget sh*-pe*] || [istarget sh*-rtems]} then {
run_dump_test "pcrel-coff"
} elseif {[istarget sh*-hms] } {
run_dump_test "pcrel-hms"
} elseif {![istarget sh64*-*-*] && ![istarget sh5*-*-*] } {
# Test DSP instructions
run_dump_test "dsp"
run_dump_test "pcrel"
run_dump_test "pcrel2"
}
if {[istarget sh*-*elf] || [istarget sh*-*linux*]} then {
if {![istarget "sh64*-*-*"] && ![istarget "sh5*-*-*"]} then {
run_dump_test "sh4a"
run_dump_test "sh4a-fp"
run_dump_test "sh4a-dsp"
run_dump_test "sh4al-dsp"
run_dump_test "sh2a"
run_dump_test "sh2a-pic"
}
run_dump_test "pic"
run_dump_test "fdpic"
# Test TLS.
run_dump_test "tlsd"
run_dump_test "tlspic"
run_dump_test "tlsnopic"
# Test --renesas.
run_dump_test "renesas-1"
# Test --allow-reg-prefix.
run_dump_test "reg-prefix"
run_dump_test "too_large"
run_dump_test "sign-extension"
}
}
if {[info exists old_ASFLAGS]} {
global ASFLAGS
set ASFLAGS $old_ASFLAGS
}
|
