]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gas/testsuite/gas/h8300/t13_otr.exp
projects / thirdparty / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Update year range in copyright notice of binutils files
[thirdparty/binutils-gdb.git] / gas / testsuite / gas / h8300 / t13_otr.exp
CommitLineData
250d07de 1# Copyright (C) 2012-2021 Free Software Foundation, Inc.
5bf135a7
NC		 2
3# This program is free software; you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation; either version 3 of the License, or
6# (at your option) any later version.
7#
8# This program is distributed in the hope that it will be useful,
9# but WITHOUT ANY WARRANTY; without even the implied warranty of
10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11# GNU General Public License for more details.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program; if not, write to the Free Software
15# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
16
fe8aec39
MS		 17#
18# Some h8300sx tests -- t13_otr
19#
20
21proc do_t13_otr_test {} {
22 set testname "t13_otr.s -- h8sx misc tests"
23
24 gas_start "t13_otr.s" "-al"
25
26 # Check each instruction bit pattern to verify it got assembled correctly.
27
28 set x 0
29 expect {
30 -re ".* 11 1234 4000" { set x [expr $x+1]; exp_continue; }
31 -re ".* 12 1236 4100" { set x [expr $x+1]; exp_continue; }
32 -re ".* 13 1238 4200" { set x [expr $x+1]; exp_continue; }
33 -re ".* 14 123a 4300" { set x [expr $x+1]; exp_continue; }
34 -re ".* 15 123c 4400" { set x [expr $x+1]; exp_continue; }
35 -re ".* 16 123e 4500" { set x [expr $x+1]; exp_continue; }
36 -re ".* 17 1240 4600" { set x [expr $x+1]; exp_continue; }
37 -re ".* 18 1242 4700" { set x [expr $x+1]; exp_continue; }
38 -re ".* 19 1244 4800" { set x [expr $x+1]; exp_continue; }
39 -re ".* 20 1246 4900" { set x [expr $x+1]; exp_continue; }
40 -re ".* 21 1248 4A00" { set x [expr $x+1]; exp_continue; }
41 -re ".* 22 124a 4B00" { set x [expr $x+1]; exp_continue; }
42 -re ".* 23 124c 4C00" { set x [expr $x+1]; exp_continue; }
43 -re ".* 24 124e 4D00" { set x [expr $x+1]; exp_continue; }
44 -re ".* 25 1250 4E00" { set x [expr $x+1]; exp_continue; }
45 -re ".* 26 1252 4F00" { set x [expr $x+1]; exp_continue; }
46 -re ".* 27 " {
47 if [expr $x == 16] then {
48 pass "$testname: b\[cc\] 0x12+.+2"
49 } else {
50 fail "$testname: b\[cc\] 0x12+.+2 ($x)"
51 }
52 }
53 default { fail "$testname: b\[cc\] 0x12+.+2 ($x)" }
54 }
55
56 set x 0
57 expect {
58 -re ".* 28 1254 58000000" { set x [expr $x+1]; exp_continue; }
59 -re ".* 29 1258 58100000" { set x [expr $x+1]; exp_continue; }
60 -re ".* 30 125c 58200000" { set x [expr $x+1]; exp_continue; }
61 -re ".* 31 1260 58300000" { set x [expr $x+1]; exp_continue; }
62 -re ".* 32 1264 58400000" { set x [expr $x+1]; exp_continue; }
63 -re ".* 33 1268 58500000" { set x [expr $x+1]; exp_continue; }
64 -re ".* 34 126c 58600000" { set x [expr $x+1]; exp_continue; }
65 -re ".* 35 1270 58700000" { set x [expr $x+1]; exp_continue; }
66 -re ".* 36 1274 58800000" { set x [expr $x+1]; exp_continue; }
67 -re ".* 37 1278 58900000" { set x [expr $x+1]; exp_continue; }
68 -re ".* 38 127c 58A00000" { set x [expr $x+1]; exp_continue; }
69 -re ".* 39 1280 58B00000" { set x [expr $x+1]; exp_continue; }
70 -re ".* 40 1284 58C00000" { set x [expr $x+1]; exp_continue; }
71 -re ".* 41 1288 58D00000" { set x [expr $x+1]; exp_continue; }
72 -re ".* 42 128c 58E00000" { set x [expr $x+1]; exp_continue; }
73 -re ".* 43 1290 58F00000" { set x [expr $x+1]; exp_continue; }
74 -re ".* 44 " {
75 if [expr $x == 16] then {
76 pass "$testname: b\[cc\] 0x1234+.+4"
77 } else {
78 fail "$testname: b\[cc\] 0x1234+.+4 ($x)"
79 }
80 }
81 default { fail "$testname: b\[cc\] 0x1234+.+4 ($x)" }
82 }
83
84 set x 0
85 expect {
86 -re ".* 45 1294 4001" { set x [expr $x+1]; exp_continue; }
87 -re ".* 46 1296 0000" { set x [expr $x+1]; exp_continue; }
88 -re ".* 47 " {
89 if [expr $x == 2] then {
90 pass "$testname: bra/s"
91 } else {
92 fail "$testname: bra/s ($x)"
93 }
94 }
95 default { fail "$testname: bra/s ($x)" }
96 }
97
98 set x 0
99 expect {
100 -re ".* 48 1298 7C204700" { set x [expr $x+1]; exp_continue; }
101 -re ".* 49 129c 7E9A4700" { set x [expr $x+1]; exp_continue; }
102 -re ".* 50 12a0 6A101234" { set x [expr $x+1]; exp_continue; }
103 -re ".* 50 4700" { set x [expr $x+1]; exp_continue; }
104 -re ".* 51 12a6 6A301234" { set x [expr $x+1]; exp_continue; }
105 -re ".* 51 56784700" { set x [expr $x+1]; exp_continue; }
106 -re ".* 52 12ae 7C205870" { set x [expr $x+1]; exp_continue; }
107 -re ".* 52 0000" { set x [expr $x+1]; exp_continue; }
108 -re ".* 53 12b4 7E125870" { set x [expr $x+1]; exp_continue; }
109 -re ".* 53 0000" { set x [expr $x+1]; exp_continue; }
110 -re ".* 54 12ba 6A109ABC" { set x [expr $x+1]; exp_continue; }
111 -re ".* 54 58700000" { set x [expr $x+1]; exp_continue; }
112 -re ".* 55 12c2 6A301234" { set x [expr $x+1]; exp_continue; }
113 -re ".* 55 56785870" { set x [expr $x+1]; exp_continue; }
114 -re ".* 55 0000" { set x [expr $x+1]; exp_continue; }
115 -re ".* 56 " {
116 if [expr $x == 15] then {
117 pass "$testname: bra/bc #0x7, ..."
118 } else {
119 fail "$testname: bra/bc #0x7, ... ($x)"
120 }
121 }
122 default { fail "$testname: bra/bc #0x7, ... ($x)" }
123 }
124
125 set x 0
126 expect {
127 -re ".* 57 12cc 7C204F00" { set x [expr $x+1]; exp_continue; }
128 -re ".* 58 12d0 7E9A4F00" { set x [expr $x+1]; exp_continue; }
129 -re ".* 59 12d4 6A101234" { set x [expr $x+1]; exp_continue; }
130 -re ".* 59 4F00" { set x [expr $x+1]; exp_continue; }
131 -re ".* 60 12da 6A301234" { set x [expr $x+1]; exp_continue; }
132 -re ".* 60 56784F00" { set x [expr $x+1]; exp_continue; }
133 -re ".* 61 12e2 7C2058F0" { set x [expr $x+1]; exp_continue; }
134 -re ".* 61 0000" { set x [expr $x+1]; exp_continue; }
135 -re ".* 62 12e8 7E1258F0" { set x [expr $x+1]; exp_continue; }
136 -re ".* 62 0000" { set x [expr $x+1]; exp_continue; }
137 -re ".* 63 12ee 6A109ABC" { set x [expr $x+1]; exp_continue; }
138 -re ".* 63 58F00000" { set x [expr $x+1]; exp_continue; }
139 -re ".* 64 12f6 6A301234" { set x [expr $x+1]; exp_continue; }
140 -re ".* 64 567858F0" { set x [expr $x+1]; exp_continue; }
141 -re ".* 64 0000" { set x [expr $x+1]; exp_continue; }
142 -re ".* 65 " {
143 if [expr $x == 15] then {
144 pass "$testname: bra/bs #0x7, ..."
145 } else {
146 fail "$testname: bra/bs #0x7, ... ($x)"
147 }
148 }
149 default { fail "$testname: bra/bs #0x7, ... ($x)" }
150 }
151
152 set x 0
153 expect {
154 -re ".* 66 1300 7C205C70" { set x [expr $x+1]; exp_continue; }
155 -re ".* 66 0000" { set x [expr $x+1]; exp_continue; }
156 -re ".* 67 1306 7E125C70" { set x [expr $x+1]; exp_continue; }
157 -re ".* 67 0000" { set x [expr $x+1]; exp_continue; }
158 -re ".* 68 130c 6A109ABC" { set x [expr $x+1]; exp_continue; }
159 -re ".* 68 5C700000" { set x [expr $x+1]; exp_continue; }
160 -re ".* 69 1314 6A301234" { set x [expr $x+1]; exp_continue; }
161 -re ".* 69 56785C70" { set x [expr $x+1]; exp_continue; }
162 -re ".* 69 0000" { set x [expr $x+1]; exp_continue; }
163 -re ".* 70 " {
164 if [expr $x == 9] then {
165 pass "$testname: bsr/bc #0x7, ..."
166 } else {
167 fail "$testname: bsr/bc #0x7, ... ($x)"
168 }
169 }
170 default { fail "$testname: bsr/bc #0x7, ... ($x)" }
171 }
172
173 set x 0
174 expect {
175 -re ".* 71 131e 7C205CF0" { set x [expr $x+1]; exp_continue; }
176 -re ".* 71 0000" { set x [expr $x+1]; exp_continue; }
177 -re ".* 72 1324 7E125CF0" { set x [expr $x+1]; exp_continue; }
178 -re ".* 72 0000" { set x [expr $x+1]; exp_continue; }
179 -re ".* 73 132a 6A109ABC" { set x [expr $x+1]; exp_continue; }
180 -re ".* 73 5CF00000" { set x [expr $x+1]; exp_continue; }
181 -re ".* 74 1332 6A301234" { set x [expr $x+1]; exp_continue; }
182 -re ".* 74 56785CF0" { set x [expr $x+1]; exp_continue; }
183 -re ".* 74 0000" { set x [expr $x+1]; exp_continue; }
184 -re ".* 75 " {
185 if [expr $x == 9] then {
186 pass "$testname: bsr/bs #0x7, ..."
187 } else {
188 fail "$testname: bsr/bs #0x7, ... ($x)"
189 }
190 }
191 default { fail "$testname: bsr/bs #0x7, ... ($x)" }
192 }
193
194 set x 0
195 expect {
196 -re ".* 76 133c 5925" { set x [expr $x+1]; exp_continue; }
197 -re ".* 77 133e 5926" { set x [expr $x+1]; exp_continue; }
198 -re ".* 78 1340 5927" { set x [expr $x+1]; exp_continue; }
199 -re ".* 79 " {
200 if [expr $x == 3] then {
201 pass "$testname: bra ..."
202 } else {
203 fail "$testname: bra ... ($x)"
204 }
205 }
206 default { fail "$testname: bra ... ($x)" }
207 }
208
209 set x 0
210 expect {
211 -re ".* 80 1342 5500" { set x [expr $x+1]; exp_continue; }
212 -re ".* 81 1344 5C000000" { set x [expr $x+1]; exp_continue; }
213 -re ".* 82 1348 5D25" { set x [expr $x+1]; exp_continue; }
214 -re ".* 83 134a 5D26" { set x [expr $x+1]; exp_continue; }
215 -re ".* 84 134c 5D27" { set x [expr $x+1]; exp_continue; }
216 -re ".* 85 " {
217 if [expr $x == 5] then {
218 pass "$testname: bsr ..."
219 } else {
220 fail "$testname: bsr ... ($x)"
221 }
222 }
223 default { fail "$testname: bsr ... ($x)" }
224 }
225
226 set x 0
227 expect {
228 -re ".* 86 134e 5920" { set x [expr $x+1]; exp_continue; }
229 -re ".* 87 1350 5A000000" { set x [expr $x+1]; exp_continue; }
230 -re ".* 88 1354 59080000" { set x [expr $x+1]; exp_continue; }
231 -re ".* 88 0000" { set x [expr $x+1]; exp_continue; }
232 -re ".* 89 135a 5B00" { set x [expr $x+1]; exp_continue; }
233 -re ".* 90 135c 5980" { set x [expr $x+1]; exp_continue; }
234 -re ".* 91 " {
235 if [expr $x == 6] then {
236 pass "$testname: jmp ..."
237 } else {
238 fail "$testname: jmp ... ($x)"
239 }
240 }
241 default { fail "$testname: jmp ... ($x)" }
242 }
243
244 set x 0
245 expect {
246 -re ".* 92 135e 5D20" { set x [expr $x+1]; exp_continue; }
247 -re ".* 93 1360 5E000000" { set x [expr $x+1]; exp_continue; }
248 -re ".* 94 1364 5D080000" { set x [expr $x+1]; exp_continue; }
249 -re ".* 94 0000" { set x [expr $x+1]; exp_continue; }
250 -re ".* 95 136a 5F00" { set x [expr $x+1]; exp_continue; }
251 -re ".* 96 136c 5D00" { set x [expr $x+1]; exp_continue; }
252 -re ".* 97 " {
253 if [expr $x == 6] then {
254 pass "$testname: jsr ..."
255 } else {
256 fail "$testname: jsr ... ($x)"
257 }
258 }
259 default { fail "$testname: jsr ... ($x)" }
260 }
261
262 set x 0
263 expect {
264 -re ".* 98 136e 5470" { set x [expr $x+1]; exp_continue; }
265 -re ".* 99 1370 5403" { set x [expr $x+1]; exp_continue; }
266 -re ".* 100 1372 5412" { set x [expr $x+1]; exp_continue; }
267 -re ".* 101 1374 5424" { set x [expr $x+1]; exp_continue; }
268 -re ".* 102 1376 5436" { set x [expr $x+1]; exp_continue; }
269 -re ".* 103 " {
270 if [expr $x == 5] then {
271 pass "$testname: rts\[/l\]"
272 } else {
273 fail "$testname: rts\[/l\] ($x)"
274 }
275 }
276 default { fail "$testname: rts\[/l\] ($x)" }
277 }
278
279 set x 0
280 expect {
281 -re ".* 104 1378 5730" { set x [expr $x+1]; exp_continue; }
282 -re ".* 105 " {
283 if [expr $x == 1] then {
284 pass "$testname: trapa #0x3"
285 } else {
286 fail "$testname: trapa #0x3 ($x)"
287 }
288 }
289 default { fail "$testname: trapa #0x3 ($x)" }
290 }
291
292 set x 0
293 expect {
294 -re ".* 106 137a 5670" { set x [expr $x+1]; exp_continue; }
295 -re ".* 107 137c 5603" { set x [expr $x+1]; exp_continue; }
296 -re ".* 108 137e 5612" { set x [expr $x+1]; exp_continue; }
297 -re ".* 109 1380 5624" { set x [expr $x+1]; exp_continue; }
298 -re ".* 110 1382 5636" { set x [expr $x+1]; exp_continue; }
299 -re ".* 111 " {
300 if [expr $x == 5] then {
301 pass "$testname: rte\[/l\]"
302 } else {
303 fail "$testname: rte\[/l\] ($x)"
304 }
305 }
306 default { fail "$testname: rte\[/l\] ($x)" }
307 }
308
309 set x 0
310 expect {
311 -re ".* 112 1384 0712" { set x [expr $x+1]; exp_continue; }
312 -re ".* 113 1386 0303" { set x [expr $x+1]; exp_continue; }
313 -re ".* 114 1388 01406930" { set x [expr $x+1]; exp_continue; }
314 -re ".* 115 138c 01406D30" { set x [expr $x+1]; exp_continue; }
315 -re ".* 116 1390 01406F30" { set x [expr $x+1]; exp_continue; }
316 -re ".* 116 1234" { set x [expr $x+1]; exp_continue; }
317 -re ".* 117 1396 01407830" { set x [expr $x+1]; exp_continue; }
318 -re ".* 117 6B201234" { set x [expr $x+1]; exp_continue; }
319 -re ".* 117 5678" { set x [expr $x+1]; exp_continue; }
320 -re ".* 118 13a0 01406B00" { set x [expr $x+1]; exp_continue; }
321 -re ".* 118 1234" { set x [expr $x+1]; exp_continue; }
322 -re ".* 119 13a6 01406B20" { set x [expr $x+1]; exp_continue; }
323 -re ".* 119 12345678" { set x [expr $x+1]; exp_continue; }
324 -re ".* 120 " {
325 if [expr $x == 13] then {
326 pass "$testname: ldc.w ..., ccr"
327 } else {
328 fail "$testname: ldc.w ..., ccr ($x)"
329 }
330 }
331 default { fail "$testname: ldc.w ..., ccr ($x)" }
332 }
333
334 set x 0
335 expect {
336 -re ".* 121 13ae 01410712" { set x [expr $x+1]; exp_continue; }
337 -re ".* 122 13b2 0313" { set x [expr $x+1]; exp_continue; }
338 -re ".* 123 13b4 01416930" { set x [expr $x+1]; exp_continue; }
339 -re ".* 124 13b8 01416D30" { set x [expr $x+1]; exp_continue; }
340 -re ".* 125 13bc 01416F30" { set x [expr $x+1]; exp_continue; }
341 -re ".* 125 1234" { set x [expr $x+1]; exp_continue; }
342 -re ".* 126 13c2 01417830" { set x [expr $x+1]; exp_continue; }
343 -re ".* 126 6B201234" { set x [expr $x+1]; exp_continue; }
344 -re ".* 126 5678" { set x [expr $x+1]; exp_continue; }
345 -re ".* 127 13cc 01416B00" { set x [expr $x+1]; exp_continue; }
346 -re ".* 127 1234" { set x [expr $x+1]; exp_continue; }
347 -re ".* 128 13d2 01416B20" { set x [expr $x+1]; exp_continue; }
348 -re ".* 128 12345678" { set x [expr $x+1]; exp_continue; }
349 -re ".* 129 " {
350 if [expr $x == 13] then {
351 pass "$testname: ldc.w ..., exr"
352 } else {
353 fail "$testname: ldc.w ..., exr ($x)"
354 }
355 }
356 default { fail "$testname: ldc.w ..., exr ($x)" }
357 }
358
359 set x 0
360 expect {
361 -re ".* 130 13da 0201" { set x [expr $x+1]; exp_continue; }
362 -re ".* 131 13dc 01406990" { set x [expr $x+1]; exp_continue; }
363 -re ".* 132 13e0 01406D90" { set x [expr $x+1]; exp_continue; }
364 -re ".* 133 13e4 01406F90" { set x [expr $x+1]; exp_continue; }
365 -re ".* 133 1234" { set x [expr $x+1]; exp_continue; }
366 -re ".* 134 13ea 01407810" { set x [expr $x+1]; exp_continue; }
367 -re ".* 134 6BA01234" { set x [expr $x+1]; exp_continue; }
368 -re ".* 134 5678" { set x [expr $x+1]; exp_continue; }
369 -re ".* 135 13f4 01406B80" { set x [expr $x+1]; exp_continue; }
370 -re ".* 135 1234" { set x [expr $x+1]; exp_continue; }
371 -re ".* 136 13fa 01406BA0" { set x [expr $x+1]; exp_continue; }
372 -re ".* 136 12345678" { set x [expr $x+1]; exp_continue; }
373 -re ".* 137 " {
374 if [expr $x == 12] then {
375 pass "$testname: stc.w ccr, ..."
376 } else {
377 fail "$testname: stc.w ccr, ... ($x)"
378 }
379 }
380 default { fail "$testname: stc.w ccr, ... ($x)" }
381 }
382
383 set x 0
384 expect {
385 -re ".* 138 1402 0211" { set x [expr $x+1]; exp_continue; }
386 -re ".* 139 1404 01416990" { set x [expr $x+1]; exp_continue; }
387 -re ".* 140 1408 01416D90" { set x [expr $x+1]; exp_continue; }
388 -re ".* 141 140c 01416F90" { set x [expr $x+1]; exp_continue; }
389 -re ".* 141 1234" { set x [expr $x+1]; exp_continue; }
390 -re ".* 142 1412 01417810" { set x [expr $x+1]; exp_continue; }
391 -re ".* 142 6BA01234" { set x [expr $x+1]; exp_continue; }
392 -re ".* 142 5678" { set x [expr $x+1]; exp_continue; }
393 -re ".* 143 141c 01416B80" { set x [expr $x+1]; exp_continue; }
394 -re ".* 143 1234" { set x [expr $x+1]; exp_continue; }
395 -re ".* 144 1422 01416BA0" { set x [expr $x+1]; exp_continue; }
396 -re ".* 144 12345678" { set x [expr $x+1]; exp_continue; }
397 -re ".* 145 " {
398 if [expr $x == 12] then {
399 pass "$testname: stc.w exr, ..."
400 } else {
401 fail "$testname: stc.w exr, ... ($x)"
402 }
403 }
404 default { fail "$testname: stc.w exr, ... ($x)" }
405 }
406
407 set x 0
408 expect {
409 -re ".* 146 142a 0412" { set x [expr $x+1]; exp_continue; }
410 -re ".* 147 142c 01410412" { set x [expr $x+1]; exp_continue; }
411 -re ".* 148 " {
412 if [expr $x == 2] then {
413 pass "$testname: orc.b #0x12:8, ..."
414 } else {
415 fail "$testname: orc.b #0x12:8, ... ($x)"
416 }
417 }
418 default { fail "$testname: orc.b #0x12:8, ... ($x)" }
419 }
420
421 set x 0
422 expect {
423 -re ".* 149 1430 0512" { set x [expr $x+1]; exp_continue; }
424 -re ".* 150 1432 01410512" { set x [expr $x+1]; exp_continue; }
425 -re ".* 151 " {
426 if [expr $x == 2] then {
427 pass "$testname: xorc.b #0x12:8, ..."
428 } else {
429 fail "$testname: xorc.b #0x12:8, ... ($x)"
430 }
431 }
432 default { fail "$testname: xorc.b #0x12:8, ... ($x)" }
433 }
434
435 set x 0
436 expect {
437 -re ".* 152 1436 0612" { set x [expr $x+1]; exp_continue; }
438 -re ".* 153 1438 01410612" { set x [expr $x+1]; exp_continue; }
439 -re ".* 154 " {
440 if [expr $x == 2] then {
441 pass "$testname: andc.b #0x12:8, ..."
442 } else {
443 fail "$testname: andc.b #0x12:8, ... ($x)"
444 }
445 }
446 default { fail "$testname: andc.b #0x12:8, ... ($x)" }
447 }
448
449 set x 0
450 expect {
451 -re ".* 155 143c 0180" { set x [expr $x+1]; exp_continue; }
452 -re ".* 156 " {
453 if [expr $x == 1] then {
454 pass "$testname: sleep"
455 } else {
456 fail "$testname: sleep ($x)"
457 }
458 }
459 default { fail "$testname: sleep ($x)" }
460 }
461
462 set x 0
463 expect {
464 -re ".* 157 143e 0000" { set x [expr $x+1]; exp_continue; }
465 -re ".* 158 " {
466 if [expr $x == 1] then {
467 pass "$testname: nop"
468 } else {
469 fail "$testname: nop ($x)"
470 }
471 }
472 default { fail "$testname: nop ($x)" }
473 }
474
475 # This was intended to do any cleanup necessary.
476 # It kinda looks like it isn't needed, but just
477 # in case, please keep it in for now.
478
479 gas_finish
480
481}
482
483if [istarget h8300*-*-elf] then {
484 # Test advanced h8300sx instructions.
485 do_t13_otr_test
486}
487
A mirror of the official binutils-gdb repository