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