t04_sub.exp

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

	-re ".* 253 07aa 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 253      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 253      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 254 07b4 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 254      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 254      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 255 07be 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 255      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 255      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 256 07c8 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 256      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 256      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 257 07d4 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 257      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 257      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 257      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 258 07e2 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 258      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 258      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 259 07ee 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 259      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 259      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 260 07fa 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 260      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 260      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 261 0806 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 261      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 261      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 261      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 262 0814 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 262      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 262      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 262      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 263 0822 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 263      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 263      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 263      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 264 0830 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 264      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 264      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 265 083c 78366A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 265      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 265      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 265      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 266              " {
	    if [expr $x == 53] then {
		pass "$testname: sub.b @(0x12345678:32,r3.w), ..."
	    } else {
		fail "$testname: sub.b @(0x12345678:32,r3.w), ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @(0x12345678:32,r3.w), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 267 084a 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 267      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 267      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 268 0854 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 268      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 268      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 269 085e 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 269      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 269      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 270 0868 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 270      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 270      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 271 0872 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 271      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 271      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 272 087c 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 272      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 272      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 273 0886 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 273      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 273      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 274 0892 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 274      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 274      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 274      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 275 08a0 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 275      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 275      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 276 08ac 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 276      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 276      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 277 08b8 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 277      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 277      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 278 08c4 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 278      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 278      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 278      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 279 08d2 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 279      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 279      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 279      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 280 08e0 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 280      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 280      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 280      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 281 08ee 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 281      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 281      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 282 08fa 78376A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 282      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 282      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 282      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 283              " {
	    if [expr $x == 53] then {
		pass "$testname: sub.b @(0x12345678:32,er3.l), ..."
	    } else {
		fail "$testname: sub.b @(0x12345678:32,er3.l), ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @(0x12345678:32,er3.l), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 284 0908 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 284      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 285 090e 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 285      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 286 0914 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 286      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 287 091a 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 287      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 288 0920 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 288      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 289 0926 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 289      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 290 092c 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 290      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 291 0934 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 291      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 291      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 292 093e 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 292      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 293 0946 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 293      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 294 094e 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 294      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 295 0956 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 295      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 295      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 296 0960 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 296      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 296      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 297 096a 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 297      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 297      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 298 0974 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 298      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 299 097c 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 299      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 299      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 300              " {
	    if [expr $x == 37] then {
		pass "$testname: sub.b @0x1234:16, ..."
	    } else {
		fail "$testname: sub.b @0x1234:16, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @0x1234:16, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 301 0986 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 301      56780130" { set x [expr $x+1]; exp_continue; }
	-re ".* 302 098e 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 302      56783130" { set x [expr $x+1]; exp_continue; }
	-re ".* 303 0996 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 303      5678B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 304 099e 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 304      56788130" { set x [expr $x+1]; exp_continue; }
	-re ".* 305 09a6 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 305      5678A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 306 09ae 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 306      56789130" { set x [expr $x+1]; exp_continue; }
	-re ".* 307 09b6 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 307      5678C130" { set x [expr $x+1]; exp_continue; }
	-re ".* 307      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 308 09c0 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 308      5678C930" { set x [expr $x+1]; exp_continue; }
	-re ".* 308      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 309 09cc 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 309      5678D230" { set x [expr $x+1]; exp_continue; }
	-re ".* 309      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 310 09d6 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 310      5678E230" { set x [expr $x+1]; exp_continue; }
	-re ".* 310      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 311 09e0 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 311      5678F230" { set x [expr $x+1]; exp_continue; }
	-re ".* 311      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 312 09ea 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 312      5678DA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 312      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 313 09f6 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 313      5678EA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 313      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 314 0a02 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 314      5678FA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 314      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 315 0a0e 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 315      56784030" { set x [expr $x+1]; exp_continue; }
	-re ".* 315      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 316 0a18 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 316      56784830" { set x [expr $x+1]; exp_continue; }
	-re ".* 316      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 317              " {
	    if [expr $x == 42] then {
		pass "$testname: sub.b @0x12345678:32, ..."
	    } else {
		fail "$testname: sub.b @0x12345678:32, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @0x12345678:32, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 318 0a24 79311234" { set x [expr $x+1]; exp_continue; }
	-re ".* 319 0a28 1A72" { set x [expr $x+1]; exp_continue; }
	-re ".* 320 0a2a 015E0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 320      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 321 0a30 015E3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 321      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 322 0a36 015E8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 322      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 323 0a3c 015EB130" { set x [expr $x+1]; exp_continue; }
	-re ".* 323      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 324 0a42 015E9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 324      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 325 0a48 015EA130" { set x [expr $x+1]; exp_continue; }
	-re ".* 325      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 326 0a4e 015EC130" { set x [expr $x+1]; exp_continue; }
	-re ".* 326      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 327 0a56 015EC930" { set x [expr $x+1]; exp_continue; }
	-re ".* 327      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 327      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 328 0a60 015ED230" { set x [expr $x+1]; exp_continue; }
	-re ".* 328      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 329 0a68 015EE230" { set x [expr $x+1]; exp_continue; }
	-re ".* 329      9ABC1234" { set x [expr $x+1]; exp_continue; }