t04_sub.exp

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

	-re ".* 330 0a70 015EF230" { set x [expr $x+1]; exp_continue; }
	-re ".* 330      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 331 0a78 015EDA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 331      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 331      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 332 0a82 015EEA30" { 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 0a8c 015EFA30" { 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 0a96 015E4030" { set x [expr $x+1]; exp_continue; }
	-re ".* 334      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 335 0a9e 015E4830" { set x [expr $x+1]; exp_continue; }
	-re ".* 335      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 335      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 336              " {
	    if [expr $x == 39] then {
		pass "$testname: sub.w #0x1234:16, ..."
	    } else {
		fail "$testname: sub.w #0x1234:16, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.w #0x1234:16, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 337 0aa8 7D901A70" { set x [expr $x+1]; exp_continue; }
	-re ".* 338 0aac 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 338      1A70" { set x [expr $x+1]; exp_continue; }
	-re ".* 339 0ab2 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 339      56781A70" { set x [expr $x+1]; exp_continue; }
	-re ".* 340              " {
	    if [expr $x == 5] then {
		pass "$testname: sub.w #0x7:3, ..."
	    } else {
		fail "$testname: sub.w #0x7:3, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.w #0x7:3, ... ($x)" }
    }

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

    set x 0
    expect {
	-re ".* 343 0abc 7D901930" { set x [expr $x+1]; exp_continue; }
	-re ".* 344 0ac0 01593133" { set x [expr $x+1]; exp_continue; }
	-re ".* 345 0ac4 01598133" { set x [expr $x+1]; exp_continue; }
	-re ".* 346 0ac8 0159B133" { set x [expr $x+1]; exp_continue; }
	-re ".* 347 0acc 01599133" { set x [expr $x+1]; exp_continue; }
	-re ".* 348 0ad0 0159A133" { set x [expr $x+1]; exp_continue; }
	-re ".* 349 0ad4 0159C133" { set x [expr $x+1]; exp_continue; }
	-re ".* 349      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 350 0ada 0159C933" { set x [expr $x+1]; exp_continue; }
	-re ".* 350      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 351 0ae2 0159D233" { set x [expr $x+1]; exp_continue; }
	-re ".* 351      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 352 0ae8 0159E233" { set x [expr $x+1]; exp_continue; }
	-re ".* 352      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 353 0aee 0159F233" { set x [expr $x+1]; exp_continue; }
	-re ".* 353      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 354 0af4 0159DA33" { set x [expr $x+1]; exp_continue; }
	-re ".* 354      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 355 0afc 0159EA33" { set x [expr $x+1]; exp_continue; }
	-re ".* 355      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 356 0b04 0159FA33" { set x [expr $x+1]; exp_continue; }
	-re ".* 356      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 357 0b0c 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 357      1930" { set x [expr $x+1]; exp_continue; }
	-re ".* 358 0b12 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 358      56781930" { set x [expr $x+1]; exp_continue; }
	-re ".* 359              " {
	    if [expr $x == 26] then {
		pass "$testname: sub.w r3, ..."
	    } else {
		fail "$testname: sub.w r3, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.w r3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 360 0b1a 7CB01901" { set x [expr $x+1]; exp_continue; }
	-re ".* 361 0b1e 015A3331" { set x [expr $x+1]; exp_continue; }
	-re ".* 362 0b22 015A8331" { set x [expr $x+1]; exp_continue; }
	-re ".* 363 0b26 015AB331" { set x [expr $x+1]; exp_continue; }
	-re ".* 364 0b2a 015A9331" { set x [expr $x+1]; exp_continue; }
	-re ".* 365 0b2e 015AA331" { set x [expr $x+1]; exp_continue; }
	-re ".* 366 0b32 015AC131" { set x [expr $x+1]; exp_continue; }
	-re ".* 366      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 367 0b38 015AC931" { set x [expr $x+1]; exp_continue; }
	-re ".* 367      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 368 0b40 015AD231" { set x [expr $x+1]; exp_continue; }
	-re ".* 368      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 369 0b46 015AE231" { set x [expr $x+1]; exp_continue; }
	-re ".* 369      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 370 0b4c 015AF231" { set x [expr $x+1]; exp_continue; }
	-re ".* 370      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 371 0b52 015ADA31" { set x [expr $x+1]; exp_continue; }
	-re ".* 371      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 372 0b5a 015AEA31" { set x [expr $x+1]; exp_continue; }
	-re ".* 372      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 373 0b62 015AFA31" { set x [expr $x+1]; exp_continue; }
	-re ".* 373      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 374 0b6a 6B101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 374      1901" { set x [expr $x+1]; exp_continue; }
	-re ".* 375 0b70 6B301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 375      56781901" { set x [expr $x+1]; exp_continue; }
	-re ".* 376              " {
	    if [expr $x == 26] then {
		pass "$testname: sub.w ..., r1"
	    } else {
		fail "$testname: sub.w ..., r1 ($x)"
	    }
	}
        default	{ fail "$testname: sub.w ..., r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 377 0b78 7CB50130" { set x [expr $x+1]; exp_continue; }
	-re ".* 378 0b7c 7CB53130" { set x [expr $x+1]; exp_continue; }
	-re ".* 379 0b80 7CB5B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 380 0b84 7CB58130" { set x [expr $x+1]; exp_continue; }
	-re ".* 381 0b88 7CB5A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 382 0b8c 7CB59130" { set x [expr $x+1]; exp_continue; }
	-re ".* 383 0b90 7CB5C130" { set x [expr $x+1]; exp_continue; }
	-re ".* 383      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 384 0b96 7CB5C930" { set x [expr $x+1]; exp_continue; }
	-re ".* 384      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 385 0b9e 7CB5D230" { set x [expr $x+1]; exp_continue; }
	-re ".* 385      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 386 0ba4 7CB5E230" { set x [expr $x+1]; exp_continue; }
	-re ".* 386      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 387 0baa 7CB5F230" { set x [expr $x+1]; exp_continue; }
	-re ".* 387      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 388 0bb0 7CB5DA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 388      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 389 0bb8 7CB5EA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 389      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 390 0bc0 7CB5FA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 390      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 391 0bc8 7CB54030" { set x [expr $x+1]; exp_continue; }
	-re ".* 391      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 392 0bce 7CB54830" { set x [expr $x+1]; exp_continue; }
	-re ".* 392      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 393              " {
	    if [expr $x == 26] then {
		pass "$testname: sub.w @er3, ..."
	    } else {
		fail "$testname: sub.w @er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.w @er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 394 0bd6 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 394      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 395 0bdc 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 395      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 396 0be2 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 396      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 397 0be8 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 397      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 398 0bee 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 398      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 399 0bf4 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 399      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 400 0bfa 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 400      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 401 0c02 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 401      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 401      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 402 0c0c 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 402      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 403 0c14 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 403      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 404 0c1c 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 404      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 405 0c24 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 405      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 405      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 406 0c2e 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 406      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 406      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 407 0c38 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 407      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 407      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 408 0c42 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 408      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 409 0c4a 01576D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 409      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 409      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 410              " {
	    if [expr $x == 37] then {
		pass "$testname: sub.w @-er3, ..."
	    } else {
		fail "$testname: sub.w @-er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.w @-er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 411 0c54 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 411      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 412 0c5a 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 412      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 413 0c60 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 413      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 414 0c66 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 414      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 415 0c6c 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 415      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 416 0c72 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 416      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 417 0c78 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 417      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 418 0c80 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 418      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 418      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 419 0c8a 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 419      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 420 0c92 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 420      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 421 0c9a 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 421      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 422 0ca2 01546D3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 422      DA309ABC" { set x [expr $x+1]; ex