t04_sub.exp

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

	    if [expr $x == 53] then {
		pass "$testname: sub.b @(0x12345678:32,er3), ..."
	    } else {
		fail "$testname: sub.b @(0x12345678:32,er3), ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @(0x12345678:32,er3), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 182 04f4 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 182      12340130" { set x [expr $x+1]; exp_continue; }
	-re ".* 183 04fc 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 183      12343130" { set x [expr $x+1]; exp_continue; }
	-re ".* 184 0504 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 184      1234B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 185 050c 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 185      12348130" { set x [expr $x+1]; exp_continue; }
	-re ".* 186 0514 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 186      1234A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 187 051c 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 187      12349130" { set x [expr $x+1]; exp_continue; }
	-re ".* 188 0524 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 188      1234C130" { set x [expr $x+1]; exp_continue; }
	-re ".* 188      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 189 052e 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 189      1234C930" { set x [expr $x+1]; exp_continue; }
	-re ".* 189      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 190 053a 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 190      1234D230" { set x [expr $x+1]; exp_continue; }
	-re ".* 190      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 191 0544 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 191      1234E230" { set x [expr $x+1]; exp_continue; }
	-re ".* 191      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 192 054e 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 192      1234F230" { set x [expr $x+1]; exp_continue; }
	-re ".* 192      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 193 0558 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 193      1234DA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 193      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 194 0564 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 194      1234EA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 194      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 195 0570 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 195      1234FA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 195      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 196 057c 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 196      12344030" { set x [expr $x+1]; exp_continue; }
	-re ".* 196      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 197 0586 01756E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 197      12344830" { set x [expr $x+1]; exp_continue; }
	-re ".* 197      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 198              " {
	    if [expr $x == 42] then {
		pass "$testname: sub.b @(0x1234:16,r3l.b), ..."
	    } else {
		fail "$testname: sub.b @(0x1234:16,r3l.b), ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @(0x1234:16,r3l.b), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 199 0592 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 199      12340130" { set x [expr $x+1]; exp_continue; }
	-re ".* 200 059a 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 200      12343130" { set x [expr $x+1]; exp_continue; }
	-re ".* 201 05a2 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 201      1234B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 202 05aa 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 202      12348130" { set x [expr $x+1]; exp_continue; }
	-re ".* 203 05b2 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 203      1234A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 204 05ba 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 204      12349130" { set x [expr $x+1]; exp_continue; }
	-re ".* 205 05c2 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 205      1234C130" { set x [expr $x+1]; exp_continue; }
	-re ".* 205      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 206 05cc 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 206      1234C930" { set x [expr $x+1]; exp_continue; }
	-re ".* 206      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 207 05d8 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 207      1234D230" { set x [expr $x+1]; exp_continue; }
	-re ".* 207      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 208 05e2 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 208      1234E230" { set x [expr $x+1]; exp_continue; }
	-re ".* 208      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 209 05ec 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 209      1234F230" { set x [expr $x+1]; exp_continue; }
	-re ".* 209      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 210 05f6 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 210      1234DA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 210      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 211 0602 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 211      1234EA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 211      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 212 060e 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 212      1234FA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 212      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 213 061a 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 213      12344030" { set x [expr $x+1]; exp_continue; }
	-re ".* 213      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 214 0624 01766E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 214      12344830" { set x [expr $x+1]; exp_continue; }
	-re ".* 214      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 215              " {
	    if [expr $x == 42] then {
		pass "$testname: sub.b @(0x1234:16,r3.w), ..."
	    } else {
		fail "$testname: sub.b @(0x1234:16,r3.w), ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @(0x1234:16,r3.w), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 216 0630 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 216      12340130" { set x [expr $x+1]; exp_continue; }
	-re ".* 217 0638 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 217      12343130" { set x [expr $x+1]; exp_continue; }
	-re ".* 218 0640 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 218      1234B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 219 0648 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 219      12348130" { set x [expr $x+1]; exp_continue; }
	-re ".* 220 0650 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 220      1234A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 221 0658 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 221      12349130" { set x [expr $x+1]; exp_continue; }
	-re ".* 222 0660 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 222      1234C130" { set x [expr $x+1]; exp_continue; }
	-re ".* 222      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 223 066a 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 223      1234C930" { set x [expr $x+1]; exp_continue; }
	-re ".* 223      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 224 0676 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 224      1234D230" { set x [expr $x+1]; exp_continue; }
	-re ".* 224      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 225 0680 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 225      1234E230" { set x [expr $x+1]; exp_continue; }
	-re ".* 225      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 226 068a 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 226      1234F230" { set x [expr $x+1]; exp_continue; }
	-re ".* 226      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 227 0694 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 227      1234DA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 227      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 228 06a0 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 228      1234EA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 228      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 229 06ac 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 229      1234FA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 229      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 230 06b8 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 230      12344030" { set x [expr $x+1]; exp_continue; }
	-re ".* 230      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 231 06c2 01776E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 231      12344830" { set x [expr $x+1]; exp_continue; }
	-re ".* 231      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 232              " {
	    if [expr $x == 42] then {
		pass "$testname: sub.b @(0x1234:16,er3.l), ..."
	    } else {
		fail "$testname: sub.b @(0x1234:16,er3.l), ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @(0x1234:16,er3.l), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 233 06ce 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 233      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 233      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 234 06d8 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 234      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 234      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 235 06e2 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 235      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 235      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 236 06ec 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 236      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 236      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 237 06f6 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 237      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 237      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 238 0700 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 238      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 238      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 239 070a 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 239      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 239      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 240 0716 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 240      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 240      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 240      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 241 0724 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 241      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 241      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 242 0730 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 242      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 242      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 243 073c 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 243      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 243      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 244 0748 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 244      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 244      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 244      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 245 0756 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 245      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 245      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 245      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 246 0764 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 246      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 246      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 246      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 247 0772 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 247      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 247      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 248 077e 78356A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 248      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 248      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 248      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 249              " {
	    if [expr $x == 53] then {
		pass "$testname: sub.b @(0x12345678:32,r3l.b), ..."
	    } else {
		fail "$testname: sub.b @(0x12345678:32,r3l.b), ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @(0x12345678:32,r3l.b), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 250 078c 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 250      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 250      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 251 0796 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 251      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 251      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 252 07a0 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 252      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 252      B130" { set x [expr $x+1]; exp_continue; }