1 # Copyright (C) 2012-2016 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 -- t12_bit 19 # 20 21 proc do_t12_bit_test {} { 22 set testname "t12_bit.s -- h8sx bit tests" 23 24 gas_start "t12_bit.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 7071" { set x [expr $x+1]; exp_continue; } 31 -re ".* 8 0002 7D107070" { set x [expr $x+1]; exp_continue; } 32 -re ".* 9 0006 7F127070" { set x [expr $x+1]; exp_continue; } 33 -re ".* 10 000a 6A181234" { set x [expr $x+1]; exp_continue; } 34 -re ".* 10 7070" { set x [expr $x+1]; exp_continue; } 35 -re ".* 11 0010 6A381234" { set x [expr $x+1]; exp_continue; } 36 -re ".* 11 56787070" { set x [expr $x+1]; exp_continue; } 37 -re ".* 12 " { 38 if [expr $x == 7] then { 39 pass "$testname: bset #0x7, ..." 40 } else { 41 fail "$testname: bset #0x7, ... ($x)" 42 } 43 } 44 default { fail "$testname: bset #0x7, ... ($x)" } 45 } 46 47 set x 0 48 expect { 49 -re ".* 13 0018 6031" { set x [expr $x+1]; exp_continue; } 50 -re ".* 14 001a 7D106030" { set x [expr $x+1]; exp_continue; } 51 -re ".* 15 001e 7F126030" { set x [expr $x+1]; exp_continue; } 52 -re ".* 16 0022 6A181234" { set x [expr $x+1]; exp_continue; } 53 -re ".* 16 6030" { set x [expr $x+1]; exp_continue; } 54 -re ".* 17 0028 6A381234" { set x [expr $x+1]; exp_continue; } 55 -re ".* 17 56786030" { set x [expr $x+1]; exp_continue; } 56 -re ".* 18 " { 57 if [expr $x == 7] then { 58 pass "$testname: bset r3h, ..." 59 } else { 60 fail "$testname: bset r3h, ... ($x)" 61 } 62 } 63 default { fail "$testname: bset r3h, ... ($x)" } 64 } 65 66 set x 0 67 expect { 68 -re ".* 19 0030 7D107077" { set x [expr $x+1]; exp_continue; } 69 -re ".* 20 0034 7F127077" { set x [expr $x+1]; exp_continue; } 70 -re ".* 21 0038 6A181234" { set x [expr $x+1]; exp_continue; } 71 -re ".* 21 7077" { set x [expr $x+1]; exp_continue; } 72 -re ".* 22 003e 6A381234" { set x [expr $x+1]; exp_continue; } 73 -re ".* 22 56787077" { set x [expr $x+1]; exp_continue; } 74 -re ".* 23 " { 75 if [expr $x == 6] then { 76 pass "$testname: bset/eq #0x7, ..." 77 } else { 78 fail "$testname: bset/eq #0x7, ... ($x)" 79 } 80 } 81 default { fail "$testname: bset/eq #0x7, ... ($x)" } 82 } 83 84 set x 0 85 expect { 86 -re ".* 24 0046 7D106037" { set x [expr $x+1]; exp_continue; } 87 -re ".* 25 004a 7F126037" { set x [expr $x+1]; exp_continue; } 88 -re ".* 26 004e 6A181234" { set x [expr $x+1]; exp_continue; } 89 -re ".* 26 6037" { set x [expr $x+1]; exp_continue; } 90 -re ".* 27 0054 6A381234" { set x [expr $x+1]; exp_continue; } 91 -re ".* 27 56786037" { set x [expr $x+1]; exp_continue; } 92 -re ".* 28 " { 93 if [expr $x == 6] then { 94 pass "$testname: bset/eq r3h, ..." 95 } else { 96 fail "$testname: bset/eq r3h, ... ($x)" 97 } 98 } 99 default { fail "$testname: bset/eq r3h, ... ($x)" } 100 } 101 102 set x 0 103 expect { 104 -re ".* 29 005c 7D107076" { set x [expr $x+1]; exp_continue; } 105 -re ".* 30 0060 7F127076" { set x [expr $x+1]; exp_continue; } 106 -re ".* 31 0064 6A181234" { set x [expr $x+1]; exp_continue; } 107 -re ".* 31 7076" { set x [expr $x+1]; exp_continue; } 108 -re ".* 32 006a 6A381234" { set x [expr $x+1]; exp_continue; } 109 -re ".* 32 56787076" { set x [expr $x+1]; exp_continue; } 110 -re ".* 33 " { 111 if [expr $x == 6] then { 112 pass "$testname: bset/ne #0x7, ..." 113 } else { 114 fail "$testname: bset/ne #0x7, ... ($x)" 115 } 116 } 117 default { fail "$testname: bset/ne #0x7, ... ($x)" } 118 } 119 120 set x 0 121 expect { 122 -re ".* 34 0072 7D106036" { set x [expr $x+1]; exp_continue; } 123 -re ".* 35 0076 7F126036" { set x [expr $x+1]; exp_continue; } 124 -re ".* 36 007a 6A181234" { set x [expr $x+1]; exp_continue; } 125 -re ".* 36 6036" { set x [expr $x+1]; exp_continue; } 126 -re ".* 37 0080 6A381234" { set x [expr $x+1]; exp_continue; } 127 -re ".* 37 56786036" { set x [expr $x+1]; exp_continue; } 128 -re ".* 38 " { 129 if [expr $x == 6] then { 130 pass "$testname: bset/ne r3h, ..." 131 } else { 132 fail "$testname: bset/ne r3h, ... ($x)" 133 } 134 } 135 default { fail "$testname: bset/ne r3h, ... ($x)" } 136 } 137 138 set x 0 139 expect { 140 -re ".* 39 0088 7171" { set x [expr $x+1]; exp_continue; } 141 -re ".* 40 008a 7D107170" { set x [expr $x+1]; exp_continue; } 142 -re ".* 41 008e 7F127170" { set x [expr $x+1]; exp_continue; } 143 -re ".* 42 0092 6A181234" { set x [expr $x+1]; exp_continue; } 144 -re ".* 42 7170" { set x [expr $x+1]; exp_continue; } 145 -re ".* 43 0098 6A381234" { set x [expr $x+1]; exp_continue; } 146 -re ".* 43 56787170" { set x [expr $x+1]; exp_continue; } 147 -re ".* 44 " { 148 if [expr $x == 7] then { 149 pass "$testname: bnot #0x7, ..." 150 } else { 151 fail "$testname: bnot #0x7, ... ($x)" 152 } 153 } 154 default { fail "$testname: bnot #0x7, ... ($x)" } 155 } 156 157 set x 0 158 expect { 159 -re ".* 45 00a0 6131" { set x [expr $x+1]; exp_continue; } 160 -re ".* 46 00a2 7D106130" { set x [expr $x+1]; exp_continue; } 161 -re ".* 47 00a6 7F126130" { set x [expr $x+1]; exp_continue; } 162 -re ".* 48 00aa 6A181234" { set x [expr $x+1]; exp_continue; } 163 -re ".* 48 6130" { set x [expr $x+1]; exp_continue; } 164 -re ".* 49 00b0 6A381234" { set x [expr $x+1]; exp_continue; } 165 -re ".* 49 56786130" { set x [expr $x+1]; exp_continue; } 166 -re ".* 50 " { 167 if [expr $x == 7] then { 168 pass "$testname: bnot r3h, ..." 169 } else { 170 fail "$testname: bnot r3h, ... ($x)" 171 } 172 } 173 default { fail "$testname: bnot r3h, ... ($x)" } 174 } 175 176 set x 0 177 expect { 178 -re ".* 51 00b8 7271" { set x [expr $x+1]; exp_continue; } 179 -re ".* 52 00ba 7D107270" { set x [expr $x+1]; exp_continue; } 180 -re ".* 53 00be 7F127270" { set x [expr $x+1]; exp_continue; } 181 -re ".* 54 00c2 6A181234" { set x [expr $x+1]; exp_continue; } 182 -re ".* 54 7270" { set x [expr $x+1]; exp_continue; } 183 -re ".* 55 00c8 6A381234" { set x [expr $x+1]; exp_continue; } 184 -re ".* 55 56787270" { set x [expr $x+1]; exp_continue; } 185 -re ".* 56 " { 186 if [expr $x == 7] then { 187 pass "$testname: bclr #0x7, ..." 188 } else { 189 fail "$testname: bclr #0x7, ... ($x)" 190 } 191 } 192 default { fail "$testname: bclr #0x7, ... ($x)" } 193 } 194 195 set x 0 196 expect { 197 -re ".* 57 00d0 6231" { set x [expr $x+1]; exp_continue; } 198 -re ".* 58 00d2 7D106230" { set x [expr $x+1]; exp_continue; } 199 -re ".* 59 00d6 7F126230" { set x [expr $x+1]; exp_continue; } 200 -re ".* 60 00da 6A181234" { set x [expr $x+1]; exp_continue; } 201 -re ".* 60 6230" { set x [expr $x+1]; exp_continue; } 202 -re ".* 61 00e0 6A381234" { set x [expr $x+1]; exp_continue; } 203 -re ".* 61 56786230" { set x [expr $x+1]; exp_continue; } 204 -re ".* 62 " { 205 if [expr $x == 7] then { 206 pass "$testname: bclr r3h, ..." 207 } else { 208 fail "$testname: bclr r3h, ... ($x)" 209 } 210 } 211 default { fail "$testname: bclr r3h, ... ($x)" } 212 } 213 214 set x 0 215 expect { 216 -re ".* 63 00e8 7D107277" { set x [expr $x+1]; exp_continue; } 217 -re ".* 64 00ec 7F127277" { set x [expr $x+1]; exp_continue; } 218 -re ".* 65 00f0 6A181234" { set x [expr $x+1]; exp_continue; } 219 -re ".* 65 7277" { set x [expr $x+1]; exp_continue; } 220 -re ".* 66 00f6 6A381234" { set x [expr $x+1]; exp_continue; } 221 -re ".* 66 56787277" { set x [expr $x+1]; exp_continue; } 222 -re ".* 67 " { 223 if [expr $x == 6] then { 224 pass "$testname: bclr/eq #0x7, ..." 225 } else { 226 fail "$testname: bclr/eq #0x7, ... ($x)" 227 } 228 } 229 default { fail "$testname: bclr/eq #0x7, ... ($x)" } 230 } 231 232 set x 0 233 expect { 234 -re ".* 68 00fe 7D106237" { set x [expr $x+1]; exp_continue; } 235 -re ".* 69 0102 7F126237" { set x [expr $x+1]; exp_continue; } 236 -re ".* 70 0106 6A181234" { set x [expr $x+1]; exp_continue; } 237 -re ".* 70 6237" { set x [expr $x+1]; exp_continue; } 238 -re ".* 71 010c 6A381234" { set x [expr $x+1]; exp_continue; } 239 -re ".* 71 56786237" { set x [expr $x+1]; exp_continue; } 240 -re ".* 72 " { 241 if [expr $x == 6] then { 242 pass "$testname: bclr/eq r3h, ..." 243 } else { 244 fail "$testname: bclr/eq r3h, ... ($x)" 245 } 246 } 247 default { fail "$testname: bclr/eq r3h, ... ($x)" } 248 } 249 250 set x 0 251 expect { 252 -re ".* 73 0114 7D107276" { set x [expr $x+1]; exp_continue; } 253 -re ".* 74 0118 7F127276" { set x [expr $x+1]; exp_continue; } 254 -re ".* 75 011c 6A181234" { set x [expr $x+1]; exp_continue; } 255 -re ".* 75 7276" { set x [expr $x+1]; exp_continue; } 256 -re ".* 76 0122 6A381234" { set x [expr $x+1]; exp_continue; } 257 -re ".* 76 56787276" { set x [expr $x+1]; exp_continue; } 258 -re ".* 77 " { 259 if [expr $x == 6] then { 260 pass "$testname: bclr/ne #0x7, ..." 261 } else { 262 fail "$testname: bclr/ne #0x7, ... ($x)" 263 } 264 } 265 default { fail "$testname: bclr/ne #0x7, ... ($x)" } 266 } 267 268 set x 0 269 expect { 270 -re ".* 78 012a 7D106236" { set x [expr $x+1]; exp_continue; } 271 -re ".* 79 012e 7F126236" { set x [expr $x+1]; exp_continue; } 272 -re ".* 80 0132 6A181234" { set x [expr $x+1]; exp_continue; } 273 -re ".* 80 6236" { set x [expr $x+1]; exp_continue; } 274 -re ".* 81 0138 6A381234" { set x [expr $x+1]; exp_continue; } 275 -re ".* 81 56786236" { set x [expr $x+1]; exp_continue; } 276 -re ".* 82 " { 277 if [expr $x == 6] then { 278 pass "$testname: bclr/ne r3h, ..." 279 } else { 280 fail "$testname: bclr/ne r3h, ... ($x)" 281 } 282 } 283 default { fail "$testname: bclr/ne r3h, ... ($x)" } 284 } 285 286 set x 0 287 expect { 288 -re ".* 83 0140 7371" { set x [expr $x+1]; exp_continue; } 289 -re ".* 84 0142 7C107370" { set x [expr $x+1]; exp_continue; } 290 -re ".* 85 0146 7E127370" { set x [expr $x+1]; exp_continue; } 291 -re ".* 86 014a 6A101234" { set x [expr $x+1]; exp_continue; } 292 -re ".* 86 7370" { set x [expr $x+1]; exp_continue; } 293 -re ".* 87 0150 6A301234" { set x [expr $x+1]; exp_continue; } 294 -re ".* 87 56787370" { set x [expr $x+1]; exp_continue; } 295 -re ".* 88 " { 296 if [expr $x == 7] then { 297 pass "$testname: btst #0x7, ..." 298 } else { 299 fail "$testname: btst #0x7, ... ($x)" 300 } 301 } 302 default { fail "$testname: btst #0x7, ... ($x)" } 303 } 304 305 set x 0 306 expect { 307 -re ".* 89 0158 6331" { set x [expr $x+1]; exp_continue; } 308 -re ".* 90 015a 7C106330" { set x [expr $x+1]; exp_continue; } 309 -re ".* 91 015e 7E126330" { set x [expr $x+1]; exp_continue; } 310 -re ".* 92 0162 6A101234" { set x [expr $x+1]; exp_continue; } 311 -re ".* 92 6330" { set x [expr $x+1]; exp_continue; } 312 -re ".* 93 0168 6A301234" { set x [expr $x+1]; exp_continue; } 313 -re ".* 93 56786330" { set x [expr $x+1]; exp_continue; } 314 -re ".* 94 " { 315 if [expr $x == 7] then { 316 pass "$testname: btst r3h, ..." 317 } else { 318 fail "$testname: btst r3h, ... ($x)" 319 } 320 } 321 default { fail "$testname: btst r3h, ... ($x)" } 322 } 323 324 set x 0 325 expect { 326 -re ".* 95 0170 7471" { set x [expr $x+1]; exp_continue; } 327 -re ".* 96 0172 7C107470" { set x [expr $x+1]; exp_continue; } 328 -re ".* 97 0176 7E127470" { set x [expr $x+1]; exp_continue; } 329 -re ".* 98 017a 6A101234" { set x [expr $x+1]; exp_continue; } 330 -re ".* 98 7470" { set x [expr $x+1]; exp_continue; } 331 -re ".* 99 0180 6A301234" { set x [expr $x+1]; exp_continue; } 332 -re ".* 99 56787470" { set x [expr $x+1]; exp_continue; } 333 -re ".* 100 " { 334 if [expr $x == 7] then { 335 pass "$testname: bor #0x7, ..." 336 } else { 337 fail "$testname: bor #0x7, ... ($x)" 338 } 339 } 340 default { fail "$testname: bor #0x7, ... ($x)" } 341 } 342 343 set x 0 344 expect { 345 -re ".* 101 0188 74F1" { set x [expr $x+1]; exp_continue; } 346 -re ".* 102 018a 7C1074F0" { set x [expr $x+1]; exp_continue; } 347 -re ".* 103 018e 7E1274F0" { set x [expr $x+1]; exp_continue; } 348 -re ".* 104 0192 6A101234" { set x [expr $x+1]; exp_continue; } 349 -re ".* 104 74F0" { set x [expr $x+1]; exp_continue; } 350 -re ".* 105 0198 6A301234" { set x [expr $x+1]; exp_continue; } 351 -re ".* 105 567874F0" { set x [expr $x+1]; exp_continue; } 352 -re ".* 106 " { 353 if [expr $x == 7] then { 354 pass "$testname: bior #0x7, ..." 355 } else { 356 fail "$testname: bior #0x7, ... ($x)" 357 } 358 } 359 default { fail "$testname: bior #0x7, ... ($x)" } 360 } 361 362 set x 0 363 expect { 364 -re ".* 107 01a0 7571" { set x [expr $x+1]; exp_continue; } 365 -re ".* 108 01a2 7C107570" { set x [expr $x+1]; exp_continue; } 366 -re ".* 109 01a6 7E127570" { set x [expr $x+1]; exp_continue; } 367 -re ".* 110 01aa 6A101234" { set x [expr $x+1]; exp_continue; } 368 -re ".* 110 7570" { set x [expr $x+1]; exp_continue; } 369 -re ".* 111 01b0 6A301234" { set x [expr $x+1]; exp_continue; } 370 -re ".* 111 56787570" { set x [expr $x+1]; exp_continue; } 371 -re ".* 112 " { 372 if [expr $x == 7] then { 373 pass "$testname: bxor #0x7, ..." 374 } else { 375 fail "$testname: bxor #0x7, ... ($x)" 376 } 377 } 378 default { fail "$testname: bxor #0x7, ... ($x)" } 379 } 380 381 set x 0 382 expect { 383 -re ".* 113 01b8 75F1" { set x [expr $x+1]; exp_continue; } 384 -re ".* 114 01ba 7C1075F0" { set x [expr $x+1]; exp_continue; } 385 -re ".* 115 01be 7E1275F0" { set x [expr $x+1]; exp_continue; } 386 -re ".* 116 01c2 6A101234" { set x [expr $x+1]; exp_continue; } 387 -re ".* 116 75F0" { set x [expr $x+1]; exp_continue; } 388 -re ".* 117 01c8 6A301234" { set x [expr $x+1]; exp_continue; } 389 -re ".* 117 567875F0" { set x [expr $x+1]; exp_continue; } 390 -re ".* 118 " { 391 if [expr $x == 7] then { 392 pass "$testname: bixor #0x7, ..." 393 } else { 394 fail "$testname: bixor #0x7, ... ($x)" 395 } 396 } 397 default { fail "$testname: bixor #0x7, ... ($x)" } 398 } 399 400 set x 0 401 expect { 402 -re ".* 119 01d0 7671" { set x [expr $x+1]; exp_continue; } 403 -re ".* 120 01d2 7C107670" { set x [expr $x+1]; exp_continue; } 404 -re ".* 121 01d6 7E127670" { set x [expr $x+1]; exp_continue; } 405 -re ".* 122 01da 6A101234" { set x [expr $x+1]; exp_continue; } 406 -re ".* 122 7670" { set x [expr $x+1]; exp_continue; } 407 -re ".* 123 01e0 6A301234" { set x [expr $x+1]; exp_continue; } 408 -re ".* 123 56787670" { set x [expr $x+1]; exp_continue; } 409 -re ".* 124 " { 410 if [expr $x == 7] then { 411 pass "$testname: band #0x7, ..." 412 } else { 413 fail "$testname: band #0x7, ... ($x)" 414 } 415 } 416 default { fail "$testname: band #0x7, ... ($x)" } 417 } 418 419 set x 0 420 expect { 421 -re ".* 125 01e8 76F1" { set x [expr $x+1]; exp_continue; } 422 -re ".* 126 01ea 7C1076F0" { set x [expr $x+1]; exp_continue; } 423 -re ".* 127 01ee 7E1276F0" { set x [expr $x+1]; exp_continue; } 424 -re ".* 128 01f2 6A101234" { set x [expr $x+1]; exp_continue; } 425 -re ".* 128 76F0" { set x [expr $x+1]; exp_continue; } 426 -re ".* 129 01f8 6A301234" { set x [expr $x+1]; exp_continue; } 427 -re ".* 129 567876F0" { set x [expr $x+1]; exp_continue; } 428 -re ".* 130 " { 429 if [expr $x == 7] then { 430 pass "$testname: biand #0x7, ..." 431 } else { 432 fail "$testname: biand #0x7, ... ($x)" 433 } 434 } 435 default { fail "$testname: biand #0x7, ... ($x)" } 436 } 437 438 set x 0 439 expect { 440 -re ".* 131 0200 7771" { set x [expr $x+1]; exp_continue; } 441 -re ".* 132 0202 7C107770" { set x [expr $x+1]; exp_continue; } 442 -re ".* 133 0206 7E127770" { set x [expr $x+1]; exp_continue; } 443 -re ".* 134 020a 6A101234" { set x [expr $x+1]; exp_continue; } 444 -re ".* 134 7770" { set x [expr $x+1]; exp_continue; } 445 -re ".* 135 0210 6A301234" { set x [expr $x+1]; exp_continue; } 446 -re ".* 135 56787770" { set x [expr $x+1]; exp_continue; } 447 -re ".* 136 " { 448 if [expr $x == 7] then { 449 pass "$testname: bld #0x7, ..." 450 } else { 451 fail "$testname: bld #0x7, ... ($x)" 452 } 453 } 454 default { fail "$testname: bld #0x7, ... ($x)" } 455 } 456 457 set x 0 458 expect { 459 -re ".* 137 0218 77F1" { set x [expr $x+1]; exp_continue; } 460 -re ".* 138 021a 7C1077F0" { set x [expr $x+1]; exp_continue; } 461 -re ".* 139 021e 7E1277F0" { set x [expr $x+1]; exp_continue; } 462 -re ".* 140 0222 6A101234" { set x [expr $x+1]; exp_continue; } 463 -re ".* 140 77F0" { set x [expr $x+1]; exp_continue; } 464 -re ".* 141 0228 6A301234" { set x [expr $x+1]; exp_continue; } 465 -re ".* 141 567877F0" { set x [expr $x+1]; exp_continue; } 466 -re ".* 142 " { 467 if [expr $x == 7] then { 468 pass "$testname: bild #0x7, ..." 469 } else { 470 fail "$testname: bild #0x7, ... ($x)" 471 } 472 } 473 default { fail "$testname: bild #0x7, ... ($x)" } 474 } 475 476 set x 0 477 expect { 478 -re ".* 143 0230 6771" { set x [expr $x+1]; exp_continue; } 479 -re ".* 144 0232 7D106770" { set x [expr $x+1]; exp_continue; } 480 -re ".* 145 0236 7F126770" { set x [expr $x+1]; exp_continue; } 481 -re ".* 146 023a 6A181234" { set x [expr $x+1]; exp_continue; } 482 -re ".* 146 6770" { set x [expr $x+1]; exp_continue; } 483 -re ".* 147 0240 6A381234" { set x [expr $x+1]; exp_continue; } 484 -re ".* 147 56786770" { set x [expr $x+1]; exp_continue; } 485 -re ".* 148 " { 486 if [expr $x == 7] then { 487 pass "$testname: bst #0x7, ..." 488 } else { 489 fail "$testname: bst #0x7, ... ($x)" 490 } 491 } 492 default { fail "$testname: bst #0x7, ... ($x)" } 493 } 494 495 set x 0 496 expect { 497 -re ".* 149 0248 7D106777" { set x [expr $x+1]; exp_continue; } 498 -re ".* 150 024c 7F126777" { set x [expr $x+1]; exp_continue; } 499 -re ".* 151 0250 6A181234" { set x [expr $x+1]; exp_continue; } 500 -re ".* 151 6777" { set x [expr $x+1]; exp_continue; } 501 -re ".* 152 0256 6A381234" { set x [expr $x+1]; exp_continue; } 502 -re ".* 152 56786777" { set x [expr $x+1]; exp_continue; } 503 -re ".* 153 " { 504 if [expr $x == 6] then { 505 pass "$testname: bstz #0x7, ..." 506 } else { 507 fail "$testname: bstz #0x7, ... ($x)" 508 } 509 } 510 default { fail "$testname: bstz #0x7, ... ($x)" } 511 } 512 513 set x 0 514 expect { 515 -re ".* 154 025e 67F1" { set x [expr $x+1]; exp_continue; } 516 -re ".* 155 0260 7D1067F0" { set x [expr $x+1]; exp_continue; } 517 -re ".* 156 0264 7F1267F0" { set x [expr $x+1]; exp_continue; } 518 -re ".* 157 0268 6A181234" { set x [expr $x+1]; exp_continue; } 519 -re ".* 157 67F0" { set x [expr $x+1]; exp_continue; } 520 -re ".* 158 026e 6A381234" { set x [expr $x+1]; exp_continue; } 521 -re ".* 158 567867F0" { set x [expr $x+1]; exp_continue; } 522 -re ".* 159 " { 523 if [expr $x == 7] then { 524 pass "$testname: bist #0x7, ..." 525 } else { 526 fail "$testname: bist #0x7, ... ($x)" 527 } 528 } 529 default { fail "$testname: bist #0x7, ... ($x)" } 530 } 531 532 set x 0 533 expect { 534 -re ".* 160 0276 7D1067F7" { set x [expr $x+1]; exp_continue; } 535 -re ".* 161 027a 7F1267F7" { set x [expr $x+1]; exp_continue; } 536 -re ".* 162 027e 6A181234" { set x [expr $x+1]; exp_continue; } 537 -re ".* 162 67F7" { set x [expr $x+1]; exp_continue; } 538 -re ".* 163 0284 6A381234" { set x [expr $x+1]; exp_continue; } 539 -re ".* 163 567867F7" { set x [expr $x+1]; exp_continue; } 540 -re ".* 164 " { 541 if [expr $x == 6] then { 542 pass "$testname: bistz #0x7, ..." 543 } else { 544 fail "$testname: bistz #0x7, ... ($x)" 545 } 546 } 547 default { fail "$testname: bistz #0x7, ... ($x)" } 548 } 549 550 set x 0 551 expect { 552 -re ".* 165 028c 7C10F334" { set x [expr $x+1]; exp_continue; } 553 -re ".* 166 0290 7E12F334" { set x [expr $x+1]; exp_continue; } 554 -re ".* 167 0294 6A101234" { set x [expr $x+1]; exp_continue; } 555 -re ".* 167 F334" { set x [expr $x+1]; exp_continue; } 556 -re ".* 168 029a 6A301234" { set x [expr $x+1]; exp_continue; } 557 -re ".* 168 5678F334" { set x [expr $x+1]; exp_continue; } 558 -re ".* 169 " { 559 if [expr $x == 6] then { 560 pass "$testname: bfld #0x34:8, ..., r3h" 561 } else { 562 fail "$testname: bfld #0x34:8, ..., r3h ($x)" 563 } 564 } 565 default { fail "$testname: bfld #0x34:8, ..., r3h ($x)" } 566 } 567 568 set x 0 569 expect { 570 -re ".* 170 02a2 7D10F334" { set x [expr $x+1]; exp_continue; } 571 -re ".* 171 02a6 7F12F334" { set x [expr $x+1]; exp_continue; } 572 -re ".* 172 02aa 6A181234" { set x [expr $x+1]; exp_continue; } 573 -re ".* 172 F334" { set x [expr $x+1]; exp_continue; } 574 -re ".* 173 02b0 6A381234" { set x [expr $x+1]; exp_continue; } 575 -re ".* 173 5678F334" { set x [expr $x+1]; exp_continue; } 576 -re ".* 174 " { 577 if [expr $x == 6] then { 578 pass "$testname: bfst r3h, #0x34:8, ..." 579 } else { 580 fail "$testname: bfst r3h, #0x34:8, ... ($x)" 581 } 582 } 583 default { fail "$testname: bfst r3h, #0x34:8, ... ($x)" } 584 } 585 586 # This was intended to do any cleanup necessary. 587 # It kinda looks like it isn't needed, but just 588 # in case, please keep it in for now. 589 590 gas_finish 591 592 } 593 594 if [istarget h8300*-*-elf] then { 595 # Test advanced h8300sx instructions. 596 do_t12_bit_test 597 } 598 599
