gas/testsuite/gas/h8300/t07_ari3.exp

   1 #
   2 # Some h8300sx tests -- t07_ari3
   3 #
   4
   5 proc do_t07_ari3_test {} {
   6     set testname "t07_ari3.s -- h8sx arithmetic tests"
   7
   8     gas_start "t07_ari3.s" "-al"
   9
  10     # Check each instruction bit pattern to verify it got assembled correctly.
  11
  12     set x 0
  13     expect {
  14         -re ".*   7 0000 1781" { set x [expr $x+1]; exp_continue; }
  15         -re ".*   8 0002 7D101780" { set x [expr $x+1]; exp_continue; }
  16         -re ".*   9 0006 01776818" { set x [expr $x+1]; exp_continue; }
  17         -re ".*   9      1780" { set x [expr $x+1]; exp_continue; }
  18         -re ".*  10 000c 01746C18" { set x [expr $x+1]; exp_continue; }
  19         -re ".*  10      1780" { set x [expr $x+1]; exp_continue; }
  20         -re ".*  11 0012 01776C18" { set x [expr $x+1]; exp_continue; }
  21         -re ".*  11      1780" { set x [expr $x+1]; exp_continue; }
  22         -re ".*  12 0018 01756C18" { set x [expr $x+1]; exp_continue; }
  23         -re ".*  12      1780" { set x [expr $x+1]; exp_continue; }
  24         -re ".*  13 001e 01766C18" { set x [expr $x+1]; exp_continue; }
  25         -re ".*  13      1780" { set x [expr $x+1]; exp_continue; }
  26         -re ".*  14 0024 01746E18" { set x [expr $x+1]; exp_continue; }
  27         -re ".*  14      12341780" { set x [expr $x+1]; exp_continue; }
  28         -re ".*  15 002c 78146A28" { set x [expr $x+1]; exp_continue; }
  29         -re ".*  15      12345678" { set x [expr $x+1]; exp_continue; }
  30         -re ".*  15      1780" { set x [expr $x+1]; exp_continue; }
  31         -re ".*  16 0036 01756E28" { set x [expr $x+1]; exp_continue; }
  32         -re ".*  16      12341780" { set x [expr $x+1]; exp_continue; }
  33         -re ".*  17 003e 01766E28" { set x [expr $x+1]; exp_continue; }
  34         -re ".*  17      12341780" { set x [expr $x+1]; exp_continue; }
  35         -re ".*  18 0046 01776E28" { set x [expr $x+1]; exp_continue; }
  36         -re ".*  18      12341780" { set x [expr $x+1]; exp_continue; }
  37         -re ".*  19 004e 78256A28" { set x [expr $x+1]; exp_continue; }
  38         -re ".*  19      12345678" { set x [expr $x+1]; exp_continue; }
  39         -re ".*  19      1780" { set x [expr $x+1]; exp_continue; }
  40         -re ".*  20 0058 78266A28" { set x [expr $x+1]; exp_continue; }
  41         -re ".*  20      12345678" { set x [expr $x+1]; exp_continue; }
  42         -re ".*  20      1780" { set x [expr $x+1]; exp_continue; }
  43         -re ".*  21 0062 78276A28" { set x [expr $x+1]; exp_continue; }
  44         -re ".*  21      12345678" { set x [expr $x+1]; exp_continue; }
  45         -re ".*  21      1780" { set x [expr $x+1]; exp_continue; }
  46         -re ".*  22 006c 7F121780" { set x [expr $x+1]; exp_continue; }
  47         -re ".*  23 0070 6A181234" { set x [expr $x+1]; exp_continue; }
  48         -re ".*  23      1780" { set x [expr $x+1]; exp_continue; }
  49         -re ".*  24 0076 6A381234" { set x [expr $x+1]; exp_continue; }
  50         -re ".*  24      56781780" { set x [expr $x+1]; exp_continue; }
  51         -re ".*  25              " {
  52             if [expr $x == 37] then {
  53                 pass "$testname: neg.b ..."
  54             } else {
  55                 fail "$testname: neg.b ... ($x)"
  56             }
  57         }
  58         default { fail "$testname: neg.b ... ($x)" }
  59     }
  60
  61     set x 0
  62     expect {
  63         -re ".*  26 007e 1791" { set x [expr $x+1]; exp_continue; }
  64         -re ".*  27 0080 7D901790" { set x [expr $x+1]; exp_continue; }
  65         -re ".*  28 0084 01576918" { set x [expr $x+1]; exp_continue; }
  66         -re ".*  28      1790" { set x [expr $x+1]; exp_continue; }
  67         -re ".*  29 008a 01546D18" { set x [expr $x+1]; exp_continue; }
  68         -re ".*  29      1790" { set x [expr $x+1]; exp_continue; }
  69         -re ".*  30 0090 01576D18" { set x [expr $x+1]; exp_continue; }
  70         -re ".*  30      1790" { set x [expr $x+1]; exp_continue; }
  71         -re ".*  31 0096 01556D18" { set x [expr $x+1]; exp_continue; }
  72         -re ".*  31      1790" { set x [expr $x+1]; exp_continue; }
  73         -re ".*  32 009c 01566D18" { set x [expr $x+1]; exp_continue; }
  74         -re ".*  32      1790" { set x [expr $x+1]; exp_continue; }
  75         -re ".*  33 00a2 01546F18" { set x [expr $x+1]; exp_continue; }
  76         -re ".*  33      12341790" { set x [expr $x+1]; exp_continue; }
  77         -re ".*  34 00aa 78146B28" { set x [expr $x+1]; exp_continue; }
  78         -re ".*  34      12345678" { set x [expr $x+1]; exp_continue; }
  79         -re ".*  34      1790" { set x [expr $x+1]; exp_continue; }
  80         -re ".*  35 00b4 01556F28" { set x [expr $x+1]; exp_continue; }
  81         -re ".*  35      12341790" { set x [expr $x+1]; exp_continue; }
  82         -re ".*  36 00bc 01566F28" { set x [expr $x+1]; exp_continue; }
  83         -re ".*  36      12341790" { set x [expr $x+1]; exp_continue; }
  84         -re ".*  37 00c4 01576F28" { set x [expr $x+1]; exp_continue; }
  85         -re ".*  37      12341790" { set x [expr $x+1]; exp_continue; }
  86         -re ".*  38 00cc 78256B28" { set x [expr $x+1]; exp_continue; }
  87         -re ".*  38      12345678" { set x [expr $x+1]; exp_continue; }
  88         -re ".*  38      1790" { set x [expr $x+1]; exp_continue; }
  89         -re ".*  39 00d6 78266B28" { set x [expr $x+1]; exp_continue; }
  90         -re ".*  39      12345678" { set x [expr $x+1]; exp_continue; }
  91         -re ".*  39      1790" { set x [expr $x+1]; exp_continue; }
  92         -re ".*  40 00e0 78276B28" { set x [expr $x+1]; exp_continue; }
  93         -re ".*  40      12345678" { set x [expr $x+1]; exp_continue; }
  94         -re ".*  40      1790" { set x [expr $x+1]; exp_continue; }
  95         -re ".*  41 00ea 6B181234" { set x [expr $x+1]; exp_continue; }
  96         -re ".*  41      1790" { set x [expr $x+1]; exp_continue; }
  97         -re ".*  42 00f0 6B381234" { set x [expr $x+1]; exp_continue; }
  98         -re ".*  42      56781790" { set x [expr $x+1]; exp_continue; }
  99         -re ".*  43              " {
 100             if [expr $x == 36] then {
 101                 pass "$testname: neg.w ..."
 102             } else {
 103                 fail "$testname: neg.w ... ($x)"
 104             }
 105         }
 106         default { fail "$testname: neg.w ... ($x)" }
 107     }
 108
 109     set x 0
 110     expect {
 111         -re ".*  44 00f8 17B1" { set x [expr $x+1]; exp_continue; }
 112         -re ".*  45 00fa 01046918" { set x [expr $x+1]; exp_continue; }
 113         -re ".*  45      17B0" { set x [expr $x+1]; exp_continue; }
 114         -re ".*  46 0100 01076918" { set x [expr $x+1]; exp_continue; }
 115         -re ".*  46      17B0" { set x [expr $x+1]; exp_continue; }
 116         -re ".*  47 0106 01046D18" { set x [expr $x+1]; exp_continue; }
 117         -re ".*  47      17B0" { set x [expr $x+1]; exp_continue; }
 118         -re ".*  48 010c 01076D18" { set x [expr $x+1]; exp_continue; }
 119         -re ".*  48      17B0" { set x [expr $x+1]; exp_continue; }
 120         -re ".*  49 0112 01056D18" { set x [expr $x+1]; exp_continue; }
 121         -re ".*  49      17B0" { set x [expr $x+1]; exp_continue; }
 122         -re ".*  50 0118 01066D18" { set x [expr $x+1]; exp_continue; }
 123         -re ".*  50      17B0" { set x [expr $x+1]; exp_continue; }
 124         -re ".*  51 011e 01046F18" { set x [expr $x+1]; exp_continue; }
 125         -re ".*  51      123417B0" { set x [expr $x+1]; exp_continue; }
 126         -re ".*  52 0126 78946B28" { set x [expr $x+1]; exp_continue; }
 127         -re ".*  52      12345678" { set x [expr $x+1]; exp_continue; }
 128         -re ".*  52      17B0" { set x [expr $x+1]; exp_continue; }
 129         -re ".*  53 0130 01056F28" { set x [expr $x+1]; exp_continue; }
 130         -re ".*  53      123417B0" { set x [expr $x+1]; exp_continue; }
 131         -re ".*  54 0138 01066F28" { set x [expr $x+1]; exp_continue; }
 132         -re ".*  54      123417B0" { set x [expr $x+1]; exp_continue; }
 133         -re ".*  55 0140 01076F28" { set x [expr $x+1]; exp_continue; }
 134         -re ".*  55      123417B0" { set x [expr $x+1]; exp_continue; }
 135         -re ".*  56 0148 78A56B28" { set x [expr $x+1]; exp_continue; }
 136         -re ".*  56      12345678" { set x [expr $x+1]; exp_continue; }
 137         -re ".*  56      17B0" { set x [expr $x+1]; exp_continue; }
 138         -re ".*  57 0152 78A66B28" { set x [expr $x+1]; exp_continue; }
 139         -re ".*  57      12345678" { set x [expr $x+1]; exp_continue; }
 140         -re ".*  57      17B0" { set x [expr $x+1]; exp_continue; }
 141         -re ".*  58 015c 78A76B28" { set x [expr $x+1]; exp_continue; }
 142         -re ".*  58      12345678" { set x [expr $x+1]; exp_continue; }
 143         -re ".*  58      17B0" { set x [expr $x+1]; exp_continue; }
 144         -re ".*  59 0166 01046B08" { set x [expr $x+1]; exp_continue; }
 145         -re ".*  59      123417B0" { set x [expr $x+1]; exp_continue; }
 146         -re ".*  60 016e 01046B28" { set x [expr $x+1]; exp_continue; }
 147         -re ".*  60      12345678" { set x [expr $x+1]; exp_continue; }
 148         -re ".*  60      17B0" { set x [expr $x+1]; exp_continue; }
 149         -re ".*  61              " {
 150             if [expr $x == 38] then {
 151                 pass "$testname: neg.l ..."
 152             } else {
 153                 fail "$testname: neg.l ... ($x)"
 154             }
 155         }
 156         default { fail "$testname: neg.l ... ($x)" }
 157     }
 158
 159     set x 0
 160     expect {
 161         -re ".*  62 0178 01E07B1C" { set x [expr $x+1]; exp_continue; }
 162         -re ".*  63              " {
 163             if [expr $x == 1] then {
 164                 pass "$testname: tas @er1"
 165             } else {
 166                 fail "$testname: tas @er1 ($x)"
 167             }
 168         }
 169         default { fail "$testname: tas @er1 ($x)" }
 170     }
 171
 172     set x 0
 173     expect {
 174         -re ".*  64 017c 1751" { set x [expr $x+1]; exp_continue; }
 175         -re ".*  65 017e 7D901750" { set x [expr $x+1]; exp_continue; }
 176         -re ".*  66 0182 01576918" { set x [expr $x+1]; exp_continue; }
 177         -re ".*  66      1750" { set x [expr $x+1]; exp_continue; }
 178         -re ".*  67 0188 01546D18" { set x [expr $x+1]; exp_continue; }
 179         -re ".*  67      1750" { set x [expr $x+1]; exp_continue; }
 180         -re ".*  68 018e 01576D18" { set x [expr $x+1]; exp_continue; }
 181         -re ".*  68      1750" { set x [expr $x+1]; exp_continue; }
 182         -re ".*  69 0194 01556D18" { set x [expr $x+1]; exp_continue; }
 183         -re ".*  69      1750" { set x [expr $x+1]; exp_continue; }
 184         -re ".*  70 019a 01566D18" { set x [expr $x+1]; exp_continue; }
 185         -re ".*  70      1750" { set x [expr $x+1]; exp_continue; }
 186         -re ".*  71 01a0 01546F18" { set x [expr $x+1]; exp_continue; }
 187         -re ".*  71      12341750" { set x [expr $x+1]; exp_continue; }
 188         -re ".*  72 01a8 78146B28" { set x [expr $x+1]; exp_continue; }
 189         -re ".*  72      12345678" { set x [expr $x+1]; exp_continue; }
 190         -re ".*  72      1750" { set x [expr $x+1]; exp_continue; }
 191         -re ".*  73 01b2 01556F28" { set x [expr $x+1]; exp_continue; }
 192         -re ".*  73      12341750" { set x [expr $x+1]; exp_continue; }
 193         -re ".*  74 01ba 01566F28" { set x [expr $x+1]; exp_continue; }
 194         -re ".*  74      12341750" { set x [expr $x+1]; exp_continue; }
 195         -re ".*  75 01c2 01576F28" { set x [expr $x+1]; exp_continue; }
 196         -re ".*  75      12341750" { set x [expr $x+1]; exp_continue; }
 197         -re ".*  76 01ca 78256B28" { set x [expr $x+1]; exp_continue; }
 198         -re ".*  76      12345678" { set x [expr $x+1]; exp_continue; }
 199         -re ".*  76      1750" { set x [expr $x+1]; exp_continue; }
 200         -re ".*  77 01d4 78266B28" { set x [expr $x+1]; exp_continue; }
 201         -re ".*  77      12345678" { set x [expr $x+1]; exp_continue; }
 202         -re ".*  77      1750" { set x [expr $x+1]; exp_continue; }
 203         -re ".*  78 01de 78276B28" { set x [expr $x+1]; exp_continue; }
 204         -re ".*  78      12345678" { set x [expr $x+1]; exp_continue; }
 205         -re ".*  78      1750" { set x [expr $x+1]; exp_continue; }
 206         -re ".*  79 01e8 6B181234" { set x [expr $x+1]; exp_continue; }
 207         -re ".*  79      1750" { set x [expr $x+1]; exp_continue; }
 208         -re ".*  80 01ee 6B381234" { set x [expr $x+1]; exp_continue; }
 209         -re ".*  80      56781750" { set x [expr $x+1]; exp_continue; }
 210         -re ".*  81              " {
 211             if [expr $x == 36] then {
 212                 pass "$testname: extu.w ..."
 213             } else {
 214                 fail "$testname: extu.w ... ($x)"
 215             }
 216         }
 217         default { fail "$testname: extu.w ... ($x)" }
 218     }
 219
 220     set x 0
 221     expect {
 222         -re ".*  82 01f6 1771" { set x [expr $x+1]; exp_continue; }
 223         -re ".*  83 01f8 01046918" { set x [expr $x+1]; exp_continue; }
 224         -re ".*  83      1770" { set x [expr $x+1]; exp_continue; }
 225         -re ".*  84 01fe 01076918" { set x [expr $x+1]; exp_continue; }
 226         -re ".*  84      1770" { set x [expr $x+1]; exp_continue; }
 227         -re ".*  85 0204 01046D18" { set x [expr $x+1]; exp_continue; }
 228         -re ".*  85      1770" { set x [expr $x+1]; exp_continue; }
 229         -re ".*  86 020a 01076D18" { set x [expr $x+1]; exp_continue; }
 230         -re ".*  86      1770" { set x [expr $x+1]; exp_continue; }
 231         -re ".*  87 0210 01056D18" { set x [expr $x+1]; exp_continue; }
 232         -re ".*  87      1770" { set x [expr $x+1]; exp_continue; }
 233         -re ".*  88 0216 01066D18" { set x [expr $x+1]; exp_continue; }
 234         -re ".*  88      1770" { set x [expr $x+1]; exp_continue; }
 235         -re ".*  89 021c 01046F18" { set x [expr $x+1]; exp_continue; }
 236         -re ".*  89      12341770" { set x [expr $x+1]; exp_continue; }
 237         -re ".*  90 0224 78946B28" { set x [expr $x+1]; exp_continue; }
 238         -re ".*  90      12345678" { set x [expr $x+1]; exp_continue; }
 239         -re ".*  90      1770" { set x [expr $x+1]; exp_continue; }
 240         -re ".*  91 022e 01056F28" { set x [expr $x+1]; exp_continue; }
 241         -re ".*  91      12341770" { set x [expr $x+1]; exp_continue; }
 242         -re ".*  92 0236 01066F28" { set x [expr $x+1]; exp_continue; }
 243         -re ".*  92      12341770" { set x [expr $x+1]; exp_continue; }
 244         -re ".*  93 023e 01076F28" { set x [expr $x+1]; exp_continue; }
 245         -re ".*  93      12341770" { set x [expr $x+1]; exp_continue; }
 246         -re ".*  94 0246 78A56B28" { set x [expr $x+1]; exp_continue; }
 247         -re ".*  94      12345678" { set x [expr $x+1]; exp_continue; }
 248         -re ".*  94      1770" { set x [expr $x+1]; exp_continue; }
 249         -re ".*  95 0250 78A66B28" { set x [expr $x+1]; exp_continue; }
 250         -re ".*  95      12345678" { set x [expr $x+1]; exp_continue; }
 251         -re ".*  95      1770" { set x [expr $x+1]; exp_continue; }
 252         -re ".*  96 025a 78A76B28" { set x [expr $x+1]; exp_continue; }
 253         -re ".*  96      12345678" { set x [expr $x+1]; exp_continue; }
 254         -re ".*  96      1770" { set x [expr $x+1]; exp_continue; }
 255         -re ".*  97 0264 01046B08" { set x [expr $x+1]; exp_continue; }
 256         -re ".*  97      12341770" { set x [expr $x+1]; exp_continue; }
 257         -re ".*  98 026c 01046B28" { set x [expr $x+1]; exp_continue; }
 258         -re ".*  98      12345678" { set x [expr $x+1]; exp_continue; }
 259         -re ".*  98      1770" { set x [expr $x+1]; exp_continue; }
 260         -re ".*  99              " {
 261             if [expr $x == 38] then {
 262                 pass "$testname: extu.l ..."
 263             } else {
 264                 fail "$testname: extu.l ... ($x)"
 265             }
 266         }
 267         default { fail "$testname: extu.l ... ($x)" }
 268     }
 269
 270     set x 0
 271     expect {
 272         -re ".* 100 0276 1761" { set x [expr $x+1]; exp_continue; }
 273         -re ".* 101 0278 01046918" { set x [expr $x+1]; exp_continue; }
 274         -re ".* 101      1760" { set x [expr $x+1]; exp_continue; }
 275         -re ".* 102 027e 01076918" { set x [expr $x+1]; exp_continue; }
 276         -re ".* 102      1760" { set x [expr $x+1]; exp_continue; }
 277         -re ".* 103 0284 01046D18" { set x [expr $x+1]; exp_continue; }
 278         -re ".* 103      1760" { set x [expr $x+1]; exp_continue; }
 279         -re ".* 104 028a 01076D18" { set x [expr $x+1]; exp_continue; }
 280         -re ".* 104      1760" { set x [expr $x+1]; exp_continue; }
 281         -re ".* 105 0290 01056D18" { set x [expr $x+1]; exp_continue; }
 282         -re ".* 105      1760" { set x [expr $x+1]; exp_continue; }
 283         -re ".* 106 0296 01066D18" { set x [expr $x+1]; exp_continue; }
 284         -re ".* 106      1760" { set x [expr $x+1]; exp_continue; }
 285         -re ".* 107 029c 01046F18" { set x [expr $x+1]; exp_continue; }
 286         -re ".* 107      12341760" { set x [expr $x+1]; exp_continue; }
 287         -re ".* 108 02a4 78946B28" { set x [expr $x+1]; exp_continue; }
 288         -re ".* 108      12345678" { set x [expr $x+1]; exp_continue; }
 289         -re ".* 108      1760" { set x [expr $x+1]; exp_continue; }
 290         -re ".* 109 02ae 01056F28" { set x [expr $x+1]; exp_continue; }
 291         -re ".* 109      12341760" { set x [expr $x+1]; exp_continue; }
 292         -re ".* 110 02b6 01066F28" { set x [expr $x+1]; exp_continue; }
 293         -re ".* 110      12341760" { set x [expr $x+1]; exp_continue; }
 294         -re ".* 111 02be 01076F28" { set x [expr $x+1]; exp_continue; }
 295         -re ".* 111      12341760" { set x [expr $x+1]; exp_continue; }
 296         -re ".* 112 02c6 78A56B28" { set x [expr $x+1]; exp_continue; }
 297         -re ".* 112      12345678" { set x [expr $x+1]; exp_continue; }
 298         -re ".* 112      1760" { set x [expr $x+1]; exp_continue; }
 299         -re ".* 113 02d0 78A66B28" { set x [expr $x+1]; exp_continue; }
 300         -re ".* 113      12345678" { set x [expr $x+1]; exp_continue; }
 301         -re ".* 113      1760" { set x [expr $x+1]; exp_continue; }
 302         -re ".* 114 02da 78A76B28" { set x [expr $x+1]; exp_continue; }
 303         -re ".* 114      12345678" { set x [expr $x+1]; exp_continue; }
 304         -re ".* 114      1760" { set x [expr $x+1]; exp_continue; }
 305         -re ".* 115 02e4 01046B08" { set x [expr $x+1]; exp_continue; }
 306         -re ".* 115      12341760" { set x [expr $x+1]; exp_continue; }
 307         -re ".* 116 02ec 01046B28" { set x [expr $x+1]; exp_continue; }
 308         -re ".* 116      12345678" { set x [expr $x+1]; exp_continue; }
 309         -re ".* 116      1760" { set x [expr $x+1]; exp_continue; }
 310         -re ".* 117              " {
 311             if [expr $x == 38] then {
 312                 pass "$testname: extu.l #2, ..."
 313             } else {
 314                 fail "$testname: extu.l #2, ... ($x)"
 315             }
 316         }
 317         default { fail "$testname: extu.l #2, ... ($x)" }
 318     }
 319
 320     set x 0
 321     expect {
 322         -re ".* 118 02f6 17D1" { set x [expr $x+1]; exp_continue; }
 323         -re ".* 119 02f8 7D9017D0" { set x [expr $x+1]; exp_continue; }
 324         -re ".* 120 02fc 01576918" { set x [expr $x+1]; exp_continue; }
 325         -re ".* 120      17D0" { set x [expr $x+1]; exp_continue; }
 326         -re ".* 121 0302 01546D18" { set x [expr $x+1]; exp_continue; }
 327         -re ".* 121      17D0" { set x [expr $x+1]; exp_continue; }
 328         -re ".* 122 0308 01576D18" { set x [expr $x+1]; exp_continue; }
 329         -re ".* 122      17D0" { set x [expr $x+1]; exp_continue; }
 330         -re ".* 123 030e 01556D18" { set x [expr $x+1]; exp_continue; }
 331         -re ".* 123      17D0" { set x [expr $x+1]; exp_continue; }
 332         -re ".* 124 0314 01566D18" { set x [expr $x+1]; exp_continue; }
 333         -re ".* 124      17D0" { set x [expr $x+1]; exp_continue; }
 334         -re ".* 125 031a 01546F18" { set x [expr $x+1]; exp_continue; }
 335         -re ".* 125      123417D0" { set x [expr $x+1]; exp_continue; }
 336         -re ".* 126 0322 78146B28" { set x [expr $x+1]; exp_continue; }
 337         -re ".* 126      12345678" { set x [expr $x+1]; exp_continue; }
 338         -re ".* 126      17D0" { set x [expr $x+1]; exp_continue; }
 339         -re ".* 127 032c 01556F28" { set x [expr $x+1]; exp_continue; }
 340         -re ".* 127      123417D0" { set x [expr $x+1]; exp_continue; }
 341         -re ".* 128 0334 01566F28" { set x [expr $x+1]; exp_continue; }
 342         -re ".* 128      123417D0" { set x [expr $x+1]; exp_continue; }
 343         -re ".* 129 033c 01576F28" { set x [expr $x+1]; exp_continue; }
 344         -re ".* 129      123417D0" { set x [expr $x+1]; exp_continue; }
 345         -re ".* 130 0344 78256B28" { set x [expr $x+1]; exp_continue; }
 346         -re ".* 130      12345678" { set x [expr $x+1]; exp_continue; }
 347         -re ".* 130      17D0" { set x [expr $x+1]; exp_continue; }
 348         -re ".* 131 034e 78266B28" { set x [expr $x+1]; exp_continue; }
 349         -re ".* 131      12345678" { set x [expr $x+1]; exp_continue; }
 350         -re ".* 131      17D0" { set x [expr $x+1]; exp_continue; }
 351         -re ".* 132 0358 78276B28" { set x [expr $x+1]; exp_continue; }
 352         -re ".* 132      12345678" { set x [expr $x+1]; exp_continue; }
 353         -re ".* 132      17D0" { set x [expr $x+1]; exp_continue; }
 354         -re ".* 133 0362 6B181234" { set x [expr $x+1]; exp_continue; }
 355         -re ".* 133      17D0" { set x [expr $x+1]; exp_continue; }
 356         -re ".* 134 0368 6B381234" { set x [expr $x+1]; exp_continue; }
 357         -re ".* 134      567817D0" { set x [expr $x+1]; exp_continue; }
 358         -re ".* 135              " {
 359             if [expr $x == 36] then {
 360                 pass "$testname: exts.w ..."
 361             } else {
 362                 fail "$testname: exts.w ... ($x)"
 363             }
 364         }
 365         default { fail "$testname: exts.w ... ($x)" }
 366     }
 367
 368     set x 0
 369     expect {
 370         -re ".* 136 0370 17F1" { set x [expr $x+1]; exp_continue; }
 371         -re ".* 137 0372 01046918" { set x [expr $x+1]; exp_continue; }
 372         -re ".* 137      17F0" { set x [expr $x+1]; exp_continue; }
 373         -re ".* 138 0378 01076918" { set x [expr $x+1]; exp_continue; }
 374         -re ".* 138      17F0" { set x [expr $x+1]; exp_continue; }
 375         -re ".* 139 037e 01046D18" { set x [expr $x+1]; exp_continue; }
 376         -re ".* 139      17F0" { set x [expr $x+1]; exp_continue; }
 377         -re ".* 140 0384 01076D18" { set x [expr $x+1]; exp_continue; }
 378         -re ".* 140      17F0" { set x [expr $x+1]; exp_continue; }
 379         -re ".* 141 038a 01056D18" { set x [expr $x+1]; exp_continue; }
 380         -re ".* 141      17F0" { set x [expr $x+1]; exp_continue; }
 381         -re ".* 142 0390 01066D18" { set x [expr $x+1]; exp_continue; }
 382         -re ".* 142      17F0" { set x [expr $x+1]; exp_continue; }
 383         -re ".* 143 0396 01046F18" { set x [expr $x+1]; exp_continue; }
 384         -re ".* 143      123417F0" { set x [expr $x+1]; exp_continue; }
 385         -re ".* 144 039e 78946B28" { set x [expr $x+1]; exp_continue; }
 386         -re ".* 144      12345678" { set x [expr $x+1]; exp_continue; }
 387         -re ".* 144      17F0" { set x [expr $x+1]; exp_continue; }
 388         -re ".* 145 03a8 01056F28" { set x [expr $x+1]; exp_continue; }
 389         -re ".* 145      123417F0" { set x [expr $x+1]; exp_continue; }
 390         -re ".* 146 03b0 01066F28" { set x [expr $x+1]; exp_continue; }
 391         -re ".* 146      123417F0" { set x [expr $x+1]; exp_continue; }
 392         -re ".* 147 03b8 01076F28" { set x [expr $x+1]; exp_continue; }
 393         -re ".* 147      123417F0" { set x [expr $x+1]; exp_continue; }
 394         -re ".* 148 03c0 78A56B28" { set x [expr $x+1]; exp_continue; }
 395         -re ".* 148      12345678" { set x [expr $x+1]; exp_continue; }
 396         -re ".* 148      17F0" { set x [expr $x+1]; exp_continue; }
 397         -re ".* 149 03ca 78A66B28" { set x [expr $x+1]; exp_continue; }
 398         -re ".* 149      12345678" { set x [expr $x+1]; exp_continue; }
 399         -re ".* 149      17F0" { set x [expr $x+1]; exp_continue; }
 400         -re ".* 150 03d4 78A76B28" { set x [expr $x+1]; exp_continue; }
 401         -re ".* 150      12345678" { set x [expr $x+1]; exp_continue; }
 402         -re ".* 150      17F0" { set x [expr $x+1]; exp_continue; }
 403         -re ".* 151 03de 01046B08" { set x [expr $x+1]; exp_continue; }
 404         -re ".* 151      123417F0" { set x [expr $x+1]; exp_continue; }
 405         -re ".* 152 03e6 01046B28" { set x [expr $x+1]; exp_continue; }
 406         -re ".* 152      12345678" { set x [expr $x+1]; exp_continue; }
 407         -re ".* 152      17F0" { set x [expr $x+1]; exp_continue; }
 408         -re ".* 153              " {
 409             if [expr $x == 38] then {
 410                 pass "$testname: exts.l ..."
 411             } else {
 412                 fail "$testname: exts.l ... ($x)"
 413             }
 414         }
 415         default { fail "$testname: exts.l ... ($x)" }
 416     }
 417
 418     set x 0
 419     expect {
 420         -re ".* 154 03f0 17E1" { set x [expr $x+1]; exp_continue; }
 421         -re ".* 155 03f2 01046918" { set x [expr $x+1]; exp_continue; }
 422         -re ".* 155      17E0" { set x [expr $x+1]; exp_continue; }
 423         -re ".* 156 03f8 01076918" { set x [expr $x+1]; exp_continue; }
 424         -re ".* 156      17E0" { set x [expr $x+1]; exp_continue; }
 425         -re ".* 157 03fe 01046D18" { set x [expr $x+1]; exp_continue; }
 426         -re ".* 157      17E0" { set x [expr $x+1]; exp_continue; }
 427         -re ".* 158 0404 01076D18" { set x [expr $x+1]; exp_continue; }
 428         -re ".* 158      17E0" { set x [expr $x+1]; exp_continue; }
 429         -re ".* 159 040a 01056D18" { set x [expr $x+1]; exp_continue; }
 430         -re ".* 159      17E0" { set x [expr $x+1]; exp_continue; }
 431         -re ".* 160 0410 01066D18" { set x [expr $x+1]; exp_continue; }
 432         -re ".* 160      17E0" { set x [expr $x+1]; exp_continue; }
 433         -re ".* 161 0416 01046F18" { set x [expr $x+1]; exp_continue; }
 434         -re ".* 161      123417E0" { set x [expr $x+1]; exp_continue; }
 435         -re ".* 162 041e 78946B28" { set x [expr $x+1]; exp_continue; }
 436         -re ".* 162      12345678" { set x [expr $x+1]; exp_continue; }
 437         -re ".* 162      17E0" { set x [expr $x+1]; exp_continue; }
 438         -re ".* 163 0428 01056F28" { set x [expr $x+1]; exp_continue; }
 439         -re ".* 163      123417E0" { set x [expr $x+1]; exp_continue; }
 440         -re ".* 164 0430 01066F28" { set x [expr $x+1]; exp_continue; }
 441         -re ".* 164      123417E0" { set x [expr $x+1]; exp_continue; }
 442         -re ".* 165 0438 01076F28" { set x [expr $x+1]; exp_continue; }
 443         -re ".* 165      123417E0" { set x [expr $x+1]; exp_continue; }
 444         -re ".* 166 0440 78A56B28" { set x [expr $x+1]; exp_continue; }
 445         -re ".* 166      12345678" { set x [expr $x+1]; exp_continue; }
 446         -re ".* 166      17E0" { set x [expr $x+1]; exp_continue; }
 447         -re ".* 167 044a 78A66B28" { set x [expr $x+1]; exp_continue; }
 448         -re ".* 167      12345678" { set x [expr $x+1]; exp_continue; }
 449         -re ".* 167      17E0" { set x [expr $x+1]; exp_continue; }
 450         -re ".* 168 0454 78A76B28" { set x [expr $x+1]; exp_continue; }
 451         -re ".* 168      12345678" { set x [expr $x+1]; exp_continue; }
 452         -re ".* 168      17E0" { set x [expr $x+1]; exp_continue; }
 453         -re ".* 169 045e 01046B08" { set x [expr $x+1]; exp_continue; }
 454         -re ".* 169      123417E0" { set x [expr $x+1]; exp_continue; }
 455         -re ".* 170 0466 01046B28" { set x [expr $x+1]; exp_continue; }
 456         -re ".* 170      12345678" { set x [expr $x+1]; exp_continue; }
 457         -re ".* 170      17E0" { set x [expr $x+1]; exp_continue; }
 458         -re ".* 171              " {
 459             if [expr $x == 38] then {
 460                 pass "$testname: exts.l #2, ..."
 461             } else {
 462                 fail "$testname: exts.l #2, ... ($x)"
 463             }
 464         }
 465         default { fail "$testname: exts.l #2, ... ($x)" }
 466     }
 467
 468     # This was intended to do any cleanup necessary.
 469     # It kinda looks like it isn't needed, but just
 470     # in case, please keep it in for now.
 471
 472     gas_finish
 473
 474 }
 475
 476 if [istarget h8300*-*-elf] then {
 477     # Test advanced h8300sx instructions.
 478     do_t07_ari3_test
 479 }
 480