1 # Copyright (C) 2012-2018 Free Software Foundation, Inc.
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.
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.
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.
18 # Some h8300sx tests -- t06_ari2
21 proc do_t06_ari2_test {} {
22 set testname "t06_ari2.s -- h8sx arithmetic tests"
24 gas_start "t06_ari2.s" "-al"
26 # Check each instruction bit pattern to verify it got assembled correctly.
30 -re ".* 7 0000 9112" { set x [expr $x+1]; exp_continue; }
31 -re ".* 8 0002 7D109012" { set x [expr $x+1]; exp_continue; }
32 -re ".* 9 0006 01766C18" { set x [expr $x+1]; exp_continue; }
33 -re ".* 9 9012" { set x [expr $x+1]; exp_continue; }
35 if [expr $x == 4] then {
36 pass "$testname: addx.b #0x12:8, ..."
38 fail "$testname: addx.b #0x12:8, ... ($x)"
41 default { fail "$testname: addx.b #0x12:8, ... ($x)" }
46 -re ".* 11 000c 0E31" { set x [expr $x+1]; exp_continue; }
47 -re ".* 12 000e 7D100E30" { set x [expr $x+1]; exp_continue; }
48 -re ".* 13 0012 01766C18" { set x [expr $x+1]; exp_continue; }
49 -re ".* 13 0E30" { set x [expr $x+1]; exp_continue; }
51 if [expr $x == 4] then {
52 pass "$testname: addx.b r3h, ..."
54 fail "$testname: addx.b r3h, ... ($x)"
57 default { fail "$testname: addx.b r3h, ... ($x)" }
62 -re ".* 15 0018 7C300E01" { set x [expr $x+1]; exp_continue; }
63 -re ".* 16 001c 0174683D" { set x [expr $x+1]; exp_continue; }
64 -re ".* 16 0110" { set x [expr $x+1]; exp_continue; }
66 if [expr $x == 3] then {
67 pass "$testname: addx.b @er3, ..."
69 fail "$testname: addx.b @er3, ... ($x)"
72 default { fail "$testname: addx.b @er3, ... ($x)" }
77 -re ".* 18 0022 01766C30" { set x [expr $x+1]; exp_continue; }
78 -re ".* 18 0E01" { set x [expr $x+1]; exp_continue; }
79 -re ".* 19 0028 01766C3D" { set x [expr $x+1]; exp_continue; }
80 -re ".* 19 A110" { set x [expr $x+1]; exp_continue; }
82 if [expr $x == 4] then {
83 pass "$testname: addx.b @er3-, ..."
85 fail "$testname: addx.b @er3-, ... ($x)"
88 default { fail "$testname: addx.b @er3-, ... ($x)" }
93 -re ".* 21 002e 01517911" { set x [expr $x+1]; exp_continue; }
94 -re ".* 21 1234" { set x [expr $x+1]; exp_continue; }
95 -re ".* 22 0034 7D917910" { set x [expr $x+1]; exp_continue; }
96 -re ".* 22 1234" { set x [expr $x+1]; exp_continue; }
97 -re ".* 23 003a 01566D19" { set x [expr $x+1]; exp_continue; }
98 -re ".* 23 79101234" { set x [expr $x+1]; exp_continue; }
100 if [expr $x == 6] then {
101 pass "$testname: addx.w #0x1234:16, ..."
103 fail "$testname: addx.w #0x1234:16, ... ($x)"
106 default { fail "$testname: addx.w #0x1234:16, ... ($x)" }
111 -re ".* 25 0042 01510931" { set x [expr $x+1]; exp_continue; }
112 -re ".* 26 0046 7D910930" { set x [expr $x+1]; exp_continue; }
113 -re ".* 27 004a 01566D19" { set x [expr $x+1]; exp_continue; }
114 -re ".* 27 0930" { set x [expr $x+1]; exp_continue; }
116 if [expr $x == 4] then {
117 pass "$testname: addx.w r3, ..."
119 fail "$testname: addx.w r3, ... ($x)"
122 default { fail "$testname: addx.w r3, ... ($x)" }
127 -re ".* 29 0050 7CB10901" { set x [expr $x+1]; exp_continue; }
128 -re ".* 30 0054 0154693D" { set x [expr $x+1]; exp_continue; }
129 -re ".* 30 0110" { set x [expr $x+1]; exp_continue; }
131 if [expr $x == 3] then {
132 pass "$testname: addx.w @er3, ..."
134 fail "$testname: addx.w @er3, ... ($x)"
137 default { fail "$testname: addx.w @er3, ... ($x)" }
142 -re ".* 32 005a 01566D31" { set x [expr $x+1]; exp_continue; }
143 -re ".* 32 0901" { set x [expr $x+1]; exp_continue; }
144 -re ".* 33 0060 01566D3D" { set x [expr $x+1]; exp_continue; }
145 -re ".* 33 A110" { set x [expr $x+1]; exp_continue; }
147 if [expr $x == 4] then {
148 pass "$testname: addx.w @er3-, ..."
150 fail "$testname: addx.w @er3-, ... ($x)"
153 default { fail "$testname: addx.w @er3-, ... ($x)" }
158 -re ".* 35 0066 01017A11" { set x [expr $x+1]; exp_continue; }
159 -re ".* 35 12345678" { set x [expr $x+1]; exp_continue; }
160 -re ".* 36 006e 01046919" { set x [expr $x+1]; exp_continue; }
161 -re ".* 36 7A101234" { set x [expr $x+1]; exp_continue; }
162 -re ".* 36 5678" { set x [expr $x+1]; exp_continue; }
163 -re ".* 37 0078 01066D19" { set x [expr $x+1]; exp_continue; }
164 -re ".* 37 7A101234" { set x [expr $x+1]; exp_continue; }
165 -re ".* 37 5678" { set x [expr $x+1]; exp_continue; }
167 if [expr $x == 8] then {
168 pass "$testname: addx.l #0x12345678:32, ..."
170 fail "$testname: addx.l #0x12345678:32, ... ($x)"
173 default { fail "$testname: addx.l #0x12345678:32, ... ($x)" }
178 -re ".* 39 0082 01010AB1" { set x [expr $x+1]; exp_continue; }
179 -re ".* 40 0086 01046919" { set x [expr $x+1]; exp_continue; }
180 -re ".* 40 0AB0" { set x [expr $x+1]; exp_continue; }
181 -re ".* 41 008c 01066D19" { set x [expr $x+1]; exp_continue; }
182 -re ".* 41 0AB0" { set x [expr $x+1]; exp_continue; }
184 if [expr $x == 5] then {
185 pass "$testname: addx.l er3, ..."
187 fail "$testname: addx.l er3, ... ($x)"
190 default { fail "$testname: addx.l er3, ... ($x)" }
195 -re ".* 43 0092 01046931" { set x [expr $x+1]; exp_continue; }
196 -re ".* 43 0A81" { set x [expr $x+1]; exp_continue; }
197 -re ".* 44 0098 0104693D" { set x [expr $x+1]; exp_continue; }
198 -re ".* 44 0110" { set x [expr $x+1]; exp_continue; }
200 if [expr $x == 4] then {
201 pass "$testname: addx.l @er3, ..."
203 fail "$testname: addx.l @er3, ... ($x)"
206 default { fail "$testname: addx.l @er3, ... ($x)" }
211 -re ".* 46 009e 01066D31" { set x [expr $x+1]; exp_continue; }
212 -re ".* 46 0A81" { set x [expr $x+1]; exp_continue; }
213 -re ".* 47 00a4 01066D3D" { set x [expr $x+1]; exp_continue; }
214 -re ".* 47 A110" { set x [expr $x+1]; exp_continue; }
216 if [expr $x == 4] then {
217 pass "$testname: addx.l @er3-, ..."
219 fail "$testname: addx.l @er3-, ... ($x)"
222 default { fail "$testname: addx.l @er3-, ... ($x)" }
227 -re ".* 49 00aa B112" { set x [expr $x+1]; exp_continue; }
228 -re ".* 50 00ac 7D10B012" { set x [expr $x+1]; exp_continue; }
229 -re ".* 51 00b0 01766C18" { set x [expr $x+1]; exp_continue; }
230 -re ".* 51 B012" { set x [expr $x+1]; exp_continue; }
232 if [expr $x == 4] then {
233 pass "$testname: subx.b #0x12:8, ..."
235 fail "$testname: subx.b #0x12:8, ... ($x)"
238 default { fail "$testname: subx.b #0x12:8, ... ($x)" }
243 -re ".* 53 00b6 1E31" { set x [expr $x+1]; exp_continue; }
244 -re ".* 54 00b8 7D101E30" { set x [expr $x+1]; exp_continue; }
245 -re ".* 55 00bc 01766C18" { set x [expr $x+1]; exp_continue; }
246 -re ".* 55 1E30" { set x [expr $x+1]; exp_continue; }
248 if [expr $x == 4] then {
249 pass "$testname: subx.b r3h, ..."
251 fail "$testname: subx.b r3h, ... ($x)"
254 default { fail "$testname: subx.b r3h, ... ($x)" }
259 -re ".* 57 00c2 7C301E01" { set x [expr $x+1]; exp_continue; }
260 -re ".* 58 00c6 0174683D" { set x [expr $x+1]; exp_continue; }
261 -re ".* 58 0130" { set x [expr $x+1]; exp_continue; }
263 if [expr $x == 3] then {
264 pass "$testname: subx.b @er3, ..."
266 fail "$testname: subx.b @er3, ... ($x)"
269 default { fail "$testname: subx.b @er3, ... ($x)" }
274 -re ".* 60 00cc 01766C30" { set x [expr $x+1]; exp_continue; }
275 -re ".* 60 1E01" { set x [expr $x+1]; exp_continue; }
276 -re ".* 61 00d2 01766C3D" { set x [expr $x+1]; exp_continue; }
277 -re ".* 61 A130" { set x [expr $x+1]; exp_continue; }
279 if [expr $x == 4] then {
280 pass "$testname: subx.b @er3-, ..."
282 fail "$testname: subx.b @er3-, ... ($x)"
285 default { fail "$testname: subx.b @er3-, ... ($x)" }
290 -re ".* 63 00d8 01517931" { set x [expr $x+1]; exp_continue; }
291 -re ".* 63 1234" { set x [expr $x+1]; exp_continue; }
292 -re ".* 64 00de 7D917930" { set x [expr $x+1]; exp_continue; }
293 -re ".* 64 1234" { set x [expr $x+1]; exp_continue; }
294 -re ".* 65 00e4 01566D19" { set x [expr $x+1]; exp_continue; }
295 -re ".* 65 79301234" { set x [expr $x+1]; exp_continue; }
297 if [expr $x == 6] then {
298 pass "$testname: subx.w #0x1234:16, ..."
300 fail "$testname: subx.w #0x1234:16, ... ($x)"
303 default { fail "$testname: subx.w #0x1234:16, ... ($x)" }
308 -re ".* 67 00ec 01511931" { set x [expr $x+1]; exp_continue; }
309 -re ".* 68 00f0 7D911930" { set x [expr $x+1]; exp_continue; }
310 -re ".* 69 00f4 01566D19" { set x [expr $x+1]; exp_continue; }
311 -re ".* 69 1930" { set x [expr $x+1]; exp_continue; }
313 if [expr $x == 4] then {
314 pass "$testname: subx.w r3, ..."
316 fail "$testname: subx.w r3, ... ($x)"
319 default { fail "$testname: subx.w r3, ... ($x)" }
324 -re ".* 71 00fa 7CB11901" { set x [expr $x+1]; exp_continue; }
325 -re ".* 72 00fe 0154693D" { set x [expr $x+1]; exp_continue; }
326 -re ".* 72 0130" { set x [expr $x+1]; exp_continue; }
328 if [expr $x == 3] then {
329 pass "$testname: subx.w @er3, ..."
331 fail "$testname: subx.w @er3, ... ($x)"
334 default { fail "$testname: subx.w @er3, ... ($x)" }
339 -re ".* 74 0104 01566D31" { set x [expr $x+1]; exp_continue; }
340 -re ".* 74 1901" { set x [expr $x+1]; exp_continue; }
341 -re ".* 75 010a 01566D3D" { set x [expr $x+1]; exp_continue; }
342 -re ".* 75 A130" { set x [expr $x+1]; exp_continue; }
344 if [expr $x == 4] then {
345 pass "$testname: subx.w @er3-, ..."
347 fail "$testname: subx.w @er3-, ... ($x)"
350 default { fail "$testname: subx.w @er3-, ... ($x)" }
355 -re ".* 77 0110 01017A31" { set x [expr $x+1]; exp_continue; }
356 -re ".* 77 12345678" { set x [expr $x+1]; exp_continue; }
357 -re ".* 78 0118 01046919" { set x [expr $x+1]; exp_continue; }
358 -re ".* 78 7A301234" { set x [expr $x+1]; exp_continue; }
359 -re ".* 78 5678" { set x [expr $x+1]; exp_continue; }
360 -re ".* 79 0122 01066D19" { set x [expr $x+1]; exp_continue; }
361 -re ".* 79 7A301234" { set x [expr $x+1]; exp_continue; }
362 -re ".* 79 5678" { set x [expr $x+1]; exp_continue; }
364 if [expr $x == 8] then {
365 pass "$testname: subx.l #0x12345678:32, ..."
367 fail "$testname: subx.l #0x12345678:32, ... ($x)"
370 default { fail "$testname: subx.l #0x12345678:32, ... ($x)" }
375 -re ".* 81 012c 01011AB1" { set x [expr $x+1]; exp_continue; }
376 -re ".* 82 0130 01046919" { set x [expr $x+1]; exp_continue; }
377 -re ".* 82 1AB0" { set x [expr $x+1]; exp_continue; }
378 -re ".* 83 0136 01066D19" { set x [expr $x+1]; exp_continue; }
379 -re ".* 83 1AB0" { set x [expr $x+1]; exp_continue; }
381 if [expr $x == 5] then {
382 pass "$testname: subx.l er3, ..."
384 fail "$testname: subx.l er3, ... ($x)"
387 default { fail "$testname: subx.l er3, ... ($x)" }
392 -re ".* 85 013c 01046931" { set x [expr $x+1]; exp_continue; }
393 -re ".* 85 1A81" { set x [expr $x+1]; exp_continue; }
394 -re ".* 86 0142 0104693D" { set x [expr $x+1]; exp_continue; }
395 -re ".* 86 0130" { set x [expr $x+1]; exp_continue; }
397 if [expr $x == 4] then {
398 pass "$testname: subx.l @er3, ..."
400 fail "$testname: subx.l @er3, ... ($x)"
403 default { fail "$testname: subx.l @er3, ... ($x)" }
408 -re ".* 88 0148 01066D31" { set x [expr $x+1]; exp_continue; }
409 -re ".* 88 1A81" { set x [expr $x+1]; exp_continue; }
410 -re ".* 89 014e 01066D3D" { set x [expr $x+1]; exp_continue; }
411 -re ".* 89 A130" { set x [expr $x+1]; exp_continue; }
413 if [expr $x == 4] then {
414 pass "$testname: subx.l @er3-, ..."
416 fail "$testname: subx.l @er3-, ... ($x)"
419 default { fail "$testname: subx.l @er3-, ... ($x)" }
424 -re ".* 91 0154 0A01" { set x [expr $x+1]; exp_continue; }
425 -re ".* 92 0156 0B51" { set x [expr $x+1]; exp_continue; }
426 -re ".* 93 0158 0BD1" { set x [expr $x+1]; exp_continue; }
427 -re ".* 94 015a 0B71" { set x [expr $x+1]; exp_continue; }
428 -re ".* 95 015c 0BF1" { set x [expr $x+1]; exp_continue; }
430 if [expr $x == 5] then {
431 pass "$testname: inc"
433 fail "$testname: inc ($x)"
436 default { fail "$testname: inc ($x)" }
441 -re ".* 97 015e 1A01" { set x [expr $x+1]; exp_continue; }
442 -re ".* 98 0160 1B51" { set x [expr $x+1]; exp_continue; }
443 -re ".* 99 0162 1BD1" { set x [expr $x+1]; exp_continue; }
444 -re ".* 100 0164 1B71" { set x [expr $x+1]; exp_continue; }
445 -re ".* 101 0166 1BF1" { set x [expr $x+1]; exp_continue; }
447 if [expr $x == 5] then {
448 pass "$testname: dec"
450 fail "$testname: dec ($x)"
453 default { fail "$testname: dec ($x)" }
458 -re ".* 103 0168 0B01" { set x [expr $x+1]; exp_continue; }
459 -re ".* 104 016a 0B81" { set x [expr $x+1]; exp_continue; }
460 -re ".* 105 016c 0B91" { set x [expr $x+1]; exp_continue; }
462 if [expr $x == 3] then {
463 pass "$testname: adds.l ..., er1"
465 fail "$testname: adds.l ..., er1 ($x)"
468 default { fail "$testname: adds.l ..., er1 ($x)" }
473 -re ".* 107 016e 1B01" { set x [expr $x+1]; exp_continue; }
474 -re ".* 108 0170 1B81" { set x [expr $x+1]; exp_continue; }
475 -re ".* 109 0172 1B91" { set x [expr $x+1]; exp_continue; }
477 if [expr $x == 3] then {
478 pass "$testname: subs.l #4,er1"
480 fail "$testname: subs.l #4,er1 ($x)"
483 default { fail "$testname: subs.l #4,er1 ($x)" }
488 -re ".* 111 0174 0F01" { set x [expr $x+1]; exp_continue; }
490 if [expr $x == 1] then {
491 pass "$testname: daa.b r1h"
493 fail "$testname: daa.b r1h ($x)"
496 default { fail "$testname: daa.b r1h ($x)" }
501 -re ".* 113 0176 1F01" { set x [expr $x+1]; exp_continue; }
503 if [expr $x == 1] then {
504 pass "$testname: das.b r1h"
506 fail "$testname: das.b r1h ($x)"
509 default { fail "$testname: das.b r1h ($x)" }
514 -re ".* 115 0178 01CC50F1" { set x [expr $x+1]; exp_continue; }
516 if [expr $x == 1] then {
517 pass "$testname: mulxu.b #0xf:4,r1"
519 fail "$testname: mulxu.b #0xf:4,r1 ($x)"
522 default { fail "$testname: mulxu.b #0xf:4,r1 ($x)" }
527 -re ".* 117 017c 5031" { set x [expr $x+1]; exp_continue; }
529 if [expr $x == 1] then {
530 pass "$testname: mulxu.b r3h,r1"
532 fail "$testname: mulxu.b r3h,r1 ($x)"
535 default { fail "$testname: mulxu.b r3h,r1 ($x)" }
540 -re ".* 119 017e 01CC52F1" { set x [expr $x+1]; exp_continue; }
542 if [expr $x == 1] then {
543 pass "$testname: mulxu.w #0xf:4,er1"
545 fail "$testname: mulxu.w #0xf:4,er1 ($x)"
548 default { fail "$testname: mulxu.w #0xf:4,er1 ($x)" }
553 -re ".* 121 0182 5231" { set x [expr $x+1]; exp_continue; }
555 if [expr $x == 1] then {
556 pass "$testname: mulxu.w r3,er1"
558 fail "$testname: mulxu.w r3,er1 ($x)"
561 default { fail "$testname: mulxu.w r3,er1 ($x)" }
566 -re ".* 123 0184 01DC51F1" { set x [expr $x+1]; exp_continue; }
568 if [expr $x == 1] then {
569 pass "$testname: divxu.b #0xf:4,r1"
571 fail "$testname: divxu.b #0xf:4,r1 ($x)"
574 default { fail "$testname: divxu.b #0xf:4,r1 ($x)" }
579 -re ".* 125 0188 5131" { set x [expr $x+1]; exp_continue; }
581 if [expr $x == 1] then {
582 pass "$testname: divxu.b r3h,r1"
584 fail "$testname: divxu.b r3h,r1 ($x)"
587 default { fail "$testname: divxu.b r3h,r1 ($x)" }
592 -re ".* 127 018a 01DC53F1" { set x [expr $x+1]; exp_continue; }
594 if [expr $x == 1] then {
595 pass "$testname: divxu.w #0xf:4,er1"
597 fail "$testname: divxu.w #0xf:4,er1 ($x)"
600 default { fail "$testname: divxu.w #0xf:4,er1 ($x)" }
605 -re ".* 129 018e 5331" { set x [expr $x+1]; exp_continue; }
607 if [expr $x == 1] then {
608 pass "$testname: divxu.w r3,er1"
610 fail "$testname: divxu.w r3,er1 ($x)"
613 default { fail "$testname: divxu.w r3,er1 ($x)" }
618 -re ".* 131 0190 01C450F1" { set x [expr $x+1]; exp_continue; }
620 if [expr $x == 1] then {
621 pass "$testname: mulxs.b #0xf:4,r1"
623 fail "$testname: mulxs.b #0xf:4,r1 ($x)"
626 default { fail "$testname: mulxs.b #0xf:4,r1 ($x)" }
631 -re ".* 133 0194 01C05031" { set x [expr $x+1]; exp_continue; }
633 if [expr $x == 1] then {
634 pass "$testname: mulxs.b r3h,r1"
636 fail "$testname: mulxs.b r3h,r1 ($x)"
639 default { fail "$testname: mulxs.b r3h,r1 ($x)" }
644 -re ".* 135 0198 01C452F1" { set x [expr $x+1]; exp_continue; }
646 if [expr $x == 1] then {
647 pass "$testname: mulxs.w #0xf:4,er1"
649 fail "$testname: mulxs.w #0xf:4,er1 ($x)"
652 default { fail "$testname: mulxs.w #0xf:4,er1 ($x)" }
657 -re ".* 137 019c 01C05231" { set x [expr $x+1]; exp_continue; }
659 if [expr $x == 1] then {
660 pass "$testname: mulxs.w r3,er1"
662 fail "$testname: mulxs.w r3,er1 ($x)"
665 default { fail "$testname: mulxs.w r3,er1 ($x)" }
670 -re ".* 139 01a0 01D451F1" { set x [expr $x+1]; exp_continue; }
672 if [expr $x == 1] then {
673 pass "$testname: divxs.b #0xf:4,r1"
675 fail "$testname: divxs.b #0xf:4,r1 ($x)"
678 default { fail "$testname: divxs.b #0xf:4,r1 ($x)" }
683 -re ".* 141 01a4 01D05131" { set x [expr $x+1]; exp_continue; }
685 if [expr $x == 1] then {
686 pass "$testname: divxs.b r3h,r1"
688 fail "$testname: divxs.b r3h,r1 ($x)"
691 default { fail "$testname: divxs.b r3h,r1 ($x)" }
696 -re ".* 143 01a8 01D453F1" { set x [expr $x+1]; exp_continue; }
698 if [expr $x == 1] then {
699 pass "$testname: divxs.w #0xf:4,er1"
701 fail "$testname: divxs.w #0xf:4,er1 ($x)"
704 default { fail "$testname: divxs.w #0xf:4,er1 ($x)" }
709 -re ".* 145 01ac 01D05331" { set x [expr $x+1]; exp_continue; }
711 if [expr $x == 1] then {
712 pass "$testname: divxs.w r3,er1"
714 fail "$testname: divxs.w r3,er1 ($x)"
717 default { fail "$testname: divxs.w r3,er1 ($x)" }
722 -re ".* 147 01b0 01CE50F1" { set x [expr $x+1]; exp_continue; }
724 if [expr $x == 1] then {
725 pass "$testname: mulu.w #0xf:4,r1"
727 fail "$testname: mulu.w #0xf:4,r1 ($x)"
730 default { fail "$testname: mulu.w #0xf:4,r1 ($x)" }
735 -re ".* 149 01b4 01CA5031" { set x [expr $x+1]; exp_continue; }
737 if [expr $x == 1] then {
738 pass "$testname: mulu.w r3,r1"
740 fail "$testname: mulu.w r3,r1 ($x)"
743 default { fail "$testname: mulu.w r3,r1 ($x)" }
748 -re ".* 151 01b8 01CE52F1" { set x [expr $x+1]; exp_continue; }
750 if [expr $x == 1] then {
751 pass "$testname: mulu.l #0xf:4,er1"
753 fail "$testname: mulu.l #0xf:4,er1 ($x)"
756 default { fail "$testname: mulu.l #0xf:4,er1 ($x)" }
761 -re ".* 153 01bc 01CA5231" { set x [expr $x+1]; exp_continue; }
763 if [expr $x == 1] then {
764 pass "$testname: mulu.l er3,er1"
766 fail "$testname: mulu.l er3,er1 ($x)"
769 default { fail "$testname: mulu.l er3,er1 ($x)" }
774 -re ".* 155 01c0 01CF52F1" { set x [expr $x+1]; exp_continue; }
776 if [expr $x == 1] then {
777 pass "$testname: mulu/u.l #0xf:4,er1"
779 fail "$testname: mulu/u.l #0xf:4,er1 ($x)"
782 default { fail "$testname: mulu/u.l #0xf:4,er1 ($x)" }
787 -re ".* 157 01c4 01CB5231" { set x [expr $x+1]; exp_continue; }
789 if [expr $x == 1] then {
790 pass "$testname: mulu/u.l er3,er1"
792 fail "$testname: mulu/u.l er3,er1 ($x)"
795 default { fail "$testname: mulu/u.l er3,er1 ($x)" }
800 -re ".* 159 01c8 01C650F1" { set x [expr $x+1]; exp_continue; }
802 if [expr $x == 1] then {
803 pass "$testname: muls.w #0xf:4,r1"
805 fail "$testname: muls.w #0xf:4,r1 ($x)"
808 default { fail "$testname: muls.w #0xf:4,r1 ($x)" }
813 -re ".* 161 01cc 01C25031" { set x [expr $x+1]; exp_continue; }
815 if [expr $x == 1] then {
816 pass "$testname: muls.w r3,r1"
818 fail "$testname: muls.w r3,r1 ($x)"
821 default { fail "$testname: muls.w r3,r1 ($x)" }
826 -re ".* 163 01d0 01C652F1" { set x [expr $x+1]; exp_continue; }
828 if [expr $x == 1] then {
829 pass "$testname: muls.l #0xf:4,er1"
831 fail "$testname: muls.l #0xf:4,er1 ($x)"
834 default { fail "$testname: muls.l #0xf:4,er1 ($x)" }
839 -re ".* 165 01d4 01C25231" { set x [expr $x+1]; exp_continue; }
841 if [expr $x == 1] then {
842 pass "$testname: muls.l er3,er1"
844 fail "$testname: muls.l er3,er1 ($x)"
847 default { fail "$testname: muls.l er3,er1 ($x)" }
852 -re ".* 167 01d8 01C752F1" { set x [expr $x+1]; exp_continue; }
854 if [expr $x == 1] then {
855 pass "$testname: muls/u.l #0xf:4,er1"
857 fail "$testname: muls/u.l #0xf:4,er1 ($x)"
860 default { fail "$testname: muls/u.l #0xf:4,er1 ($x)" }
865 -re ".* 169 01dc 01C35231" { set x [expr $x+1]; exp_continue; }
867 if [expr $x == 1] then {
868 pass "$testname: muls/u.l er3,er1"
870 fail "$testname: muls/u.l er3,er1 ($x)"
873 default { fail "$testname: muls/u.l er3,er1 ($x)" }
878 -re ".* 171 01e0 01DE51F1" { set x [expr $x+1]; exp_continue; }
880 if [expr $x == 1] then {
881 pass "$testname: divu.w #0xf:4,r1"
883 fail "$testname: divu.w #0xf:4,r1 ($x)"
886 default { fail "$testname: divu.w #0xf:4,r1 ($x)" }
891 -re ".* 173 01e4 01DA5131" { set x [expr $x+1]; exp_continue; }
893 if [expr $x == 1] then {
894 pass "$testname: divu.w r3,r1"
896 fail "$testname: divu.w r3,r1 ($x)"
899 default { fail "$testname: divu.w r3,r1 ($x)" }
904 -re ".* 175 01e8 01DE53F1" { set x [expr $x+1]; exp_continue; }
906 if [expr $x == 1] then {
907 pass "$testname: divu.l #0xf:4,er1"
909 fail "$testname: divu.l #0xf:4,er1 ($x)"
912 default { fail "$testname: divu.l #0xf:4,er1 ($x)" }
917 -re ".* 177 01ec 01DA5331" { set x [expr $x+1]; exp_continue; }
919 if [expr $x == 1] then {
920 pass "$testname: divu.l er3,er1"
922 fail "$testname: divu.l er3,er1 ($x)"
925 default { fail "$testname: divu.l er3,er1 ($x)" }
930 -re ".* 179 01f0 01D651F1" { set x [expr $x+1]; exp_continue; }
932 if [expr $x == 1] then {
933 pass "$testname: divs.w #0xf:4,r1"
935 fail "$testname: divs.w #0xf:4,r1 ($x)"
938 default { fail "$testname: divs.w #0xf:4,r1 ($x)" }
943 -re ".* 181 01f4 01D25131" { set x [expr $x+1]; exp_continue; }
945 if [expr $x == 1] then {
946 pass "$testname: divs.w r3,r1"
948 fail "$testname: divs.w r3,r1 ($x)"
951 default { fail "$testname: divs.w r3,r1 ($x)" }
956 -re ".* 183 01f8 01D653F1" { set x [expr $x+1]; exp_continue; }
958 if [expr $x == 1] then {
959 pass "$testname: divs.l #0xf:4,er1"
961 fail "$testname: divs.l #0xf:4,er1 ($x)"
964 default { fail "$testname: divs.l #0xf:4,er1 ($x)" }
969 -re ".* 185 01fc 01D25331" { set x [expr $x+1]; exp_continue; }
971 if [expr $x == 1] then {
972 pass "$testname: divs.l er3,er1"
974 fail "$testname: divs.l er3,er1 ($x)"
977 default { fail "$testname: divs.l er3,er1 ($x)" }
980 # This was intended to do any cleanup necessary.
981 # It kinda looks like it isn't needed, but just
982 # in case, please keep it in for now.
988 if [istarget h8300*-*-elf] then {
989 # Test advanced h8300sx instructions.