t03_add.exp

GNU binutils是GNU交叉工具链中的一个源码包

	-re ".* 330      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 331 0a72 015EF210" { set x [expr $x+1]; exp_continue; }
	-re ".* 331      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 332 0a7a 015EDA10" { set x [expr $x+1]; exp_continue; }
	-re ".* 332      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 332      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 333 0a84 015EEA10" { set x [expr $x+1]; exp_continue; }
	-re ".* 333      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 333      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 334 0a8e 015EFA10" { set x [expr $x+1]; exp_continue; }
	-re ".* 334      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 334      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 335 0a98 015E4010" { set x [expr $x+1]; exp_continue; }
	-re ".* 335      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 336 0aa0 015E4810" { set x [expr $x+1]; exp_continue; }
	-re ".* 336      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 336      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 337              " {
	    if [expr $x == 39] then {
		pass "$testname: add.w #0x1234:16, ..."
	    } else {
		fail "$testname: add.w #0x1234:16, ... ($x)"
	    }
	}
        default	{ fail "$testname: add.w #0x1234:16, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 338 0aaa 7D900A70" { set x [expr $x+1]; exp_continue; }
	-re ".* 339 0aae 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 339      0A70" { set x [expr $x+1]; exp_continue; }
	-re ".* 340 0ab4 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 340      56780A70" { set x [expr $x+1]; exp_continue; }
	-re ".* 341              " {
	    if [expr $x == 5] then {
		pass "$testname: add.w #0x7:3, ..."
	    } else {
		fail "$testname: add.w #0x7:3, ... ($x)"
	    }
	}
        default	{ fail "$testname: add.w #0x7:3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 342 0abc 0931" { set x [expr $x+1]; exp_continue; }
	-re ".* 343              " {
	    if [expr $x == 1] then {
		pass "$testname: add.w r3, r1"
	    } else {
		fail "$testname: add.w r3, r1 ($x)"
	    }
	}
        default	{ fail "$testname: add.w r3, r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 344 0abe 7D900930" { set x [expr $x+1]; exp_continue; }
	-re ".* 345 0ac2 01593113" { set x [expr $x+1]; exp_continue; }
	-re ".* 346 0ac6 01598113" { set x [expr $x+1]; exp_continue; }
	-re ".* 347 0aca 0159B113" { set x [expr $x+1]; exp_continue; }
	-re ".* 348 0ace 01599113" { set x [expr $x+1]; exp_continue; }
	-re ".* 349 0ad2 0159A113" { set x [expr $x+1]; exp_continue; }
	-re ".* 350 0ad6 0159C113" { set x [expr $x+1]; exp_continue; }
	-re ".* 350      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 351 0adc 0159C913" { set x [expr $x+1]; exp_continue; }
	-re ".* 351      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 352 0ae4 0159D213" { set x [expr $x+1]; exp_continue; }
	-re ".* 352      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 353 0aea 0159E213" { set x [expr $x+1]; exp_continue; }
	-re ".* 353      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 354 0af0 0159F213" { set x [expr $x+1]; exp_continue; }
	-re ".* 354      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 355 0af6 0159DA13" { set x [expr $x+1]; exp_continue; }
	-re ".* 355      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 356 0afe 0159EA13" { set x [expr $x+1]; exp_continue; }
	-re ".* 356      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 357 0b06 0159FA13" { set x [expr $x+1]; exp_continue; }
	-re ".* 357      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 358 0b0e 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 358      0930" { set x [expr $x+1]; exp_continue; }
	-re ".* 359 0b14 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 359      56780930" { set x [expr $x+1]; exp_continue; }
	-re ".* 360              " {
	    if [expr $x == 26] then {
		pass "$testname: add.w r3, ..."
	    } else {
		fail "$testname: add.w r3, ... ($x)"
	    }
	}
        default	{ fail "$testname: add.w r3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 361 0b1c 7CB00901" { set x [expr $x+1]; exp_continue; }
	-re ".* 362 0b20 015A3111" { set x [expr $x+1]; exp_continue; }
	-re ".* 363 0b24 015A8311" { set x [expr $x+1]; exp_continue; }
	-re ".* 364 0b28 015AB311" { set x [expr $x+1]; exp_continue; }
	-re ".* 365 0b2c 015A9311" { set x [expr $x+1]; exp_continue; }
	-re ".* 366 0b30 015AA311" { set x [expr $x+1]; exp_continue; }
	-re ".* 367 0b34 015AC111" { set x [expr $x+1]; exp_continue; }
	-re ".* 367      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 368 0b3a 015AC911" { set x [expr $x+1]; exp_continue; }
	-re ".* 368      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 369 0b42 015AD211" { set x [expr $x+1]; exp_continue; }
	-re ".* 369      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 370 0b48 015AE211" { set x [expr $x+1]; exp_continue; }
	-re ".* 370      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 371 0b4e 015AF211" { set x [expr $x+1]; exp_continue; }
	-re ".* 371      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 372 0b54 015ADA11" { set x [expr $x+1]; exp_continue; }
	-re ".* 372      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 373 0b5c 015AEA11" { set x [expr $x+1]; exp_continue; }
	-re ".* 373      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 374 0b64 015AFA11" { set x [expr $x+1]; exp_continue; }
	-re ".* 374      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 375 0b6c 6B101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 375      0901" { set x [expr $x+1]; exp_continue; }
	-re ".* 376 0b72 6B301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 376      56780901" { set x [expr $x+1]; exp_continue; }
	-re ".* 377              " {
	    if [expr $x == 26] then {
		pass "$testname: add.w ..., r1"
	    } else {
		fail "$testname: add.w ..., r1 ($x)"
	    }
	}
        default	{ fail "$testname: add.w ..., r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 378 0b7a 7CB50110" { set x [expr $x+1]; exp_continue; }
	-re ".* 379 0b7e 7CB53110" { set x [expr $x+1]; exp_continue; }
	-re ".* 380 0b82 7CB5B110" { set x [expr $x+1]; exp_continue; }
	-re ".* 381 0b86 7CB58110" { set x [expr $x+1]; exp_continue; }
	-re ".* 382 0b8a 7CB5A110" { set x [expr $x+1]; exp_continue; }
	-re ".* 383 0b8e 7CB59110" { set x [expr $x+1]; exp_continue; }
	-re ".* 384 0b92 7CB5C110" { set x [expr $x+1]; exp_continue; }
	-re ".* 384      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 385 0b98 7CB5C910" { set x [expr $x+1]; exp_continue; }
	-re ".* 385      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 386 0ba0 7CB5D210" { set x [expr $x+1]; exp_continue; }
	-re ".* 386      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 387 0ba6 7CB5E210" { set x [expr $x+1]; exp_continue; }
	-re ".* 387      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 388 0bac 7CB5F210" { set x [expr $x+1]; exp_continue; }
	-re ".* 388      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 389 0bb2 7CB5DA10" { set x [expr $x+1]; exp_continue; }
	-re ".* 389      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 390 0bba 7CB5EA10" { set x [expr $x+1]; exp_continue; }
	-re ".* 390      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 391 0bc2 7CB5FA10" { set x [expr $x+1]; exp_continue; }
	-re ".* 391      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 392 0bca 7CB54010" { set x [expr $x+1]; exp_continue; }
	-re ".* 392      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 393 0bd0 7CB54810" { set x [expr $x+1]; exp_continue; }
	-re ".* 393      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 394              " {
	    if [expr $x == 26] then {
		pass "$testname: add.w @er3, ..."
	    } else {
		fail "$testname: add.w @er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: add.w @er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 395 0bd8 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 395      0110" { set x [expr $x+1]; exp_continue; }
	-re ".* 396 0bde 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 396      3110" { set x [expr $x+1]; exp_continue; }
	-re ".* 397 0be4 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 397      B110" { set x [expr $x+1]; exp_continue; }
	-re ".* 398 0bea 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 398      8110" { set x [expr $x+1]; exp_continue; }
	-re ".* 399 0bf0 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 399      A110" { set x [expr $x+1]; exp_continue; }
	-re ".* 400 0bf6 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 400      9110" { set x [expr $x+1]; exp_continue; }
	-re ".* 401 0bfc 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 401      C1109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 402 0c04 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 402      C9109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 402      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 403 0c0e 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 403      D2109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 404 0c16 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 404      E2109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 405 0c1e 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 405      F2109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 406 0c26 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 406      DA109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 406      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 407 0c30 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 407      EA109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 407      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 408 0c3a 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 408      FA109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 408      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 409 0c44 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 409      40109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 410 0c4c 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 410      48109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 410      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 411              " {
	    if [expr $x == 37] then {
		pass "$testname: add.w @-er3, ..."
	    } else {
		fail "$testname: add.w @-er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: add.w @-er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 412 0c56 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 412      0110" { set x [expr $x+1]; exp_continue; }
	-re ".* 413 0c5c 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 413      3110" { set x [expr $x+1]; exp_continue; }
	-re ".* 414 0c62 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 414      B110" { set x [expr $x+1]; exp_continue; }
	-re ".* 415 0c68 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 415      8110" { set x [expr $x+1]; exp_continue; }
	-re ".* 416 0c6e 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 416      A110" { set x [expr $x+1]; exp_continue; }
	-re ".* 417 0c74 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 417      9110" { set x [expr $x+1]; exp_continue; }
	-re ".* 418 0c7a 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 418      C1109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 419 0c82 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 419      C9109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 419      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 420 0c8c 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 420      D2109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 421 0c94 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 421      E2109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 422 0c9c 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 422      F2109ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 423 0ca4 01546D3C" { set x [expr $x+1]; exp_co