t05_cmp.exp

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

	-re ".* 235      C9209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 235      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 236 07fc 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 236      D2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 237 0804 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 237      E2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 238 080c 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 238      F2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 239 0814 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 239      DA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 239      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 240 081e 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 240      EA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 240      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 241 0828 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 241      FA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 241      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 242 0832 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 242      40209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 243 083a 6A151234" { set x [expr $x+1]; exp_continue; }
	-re ".* 243      48209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 243      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 244              " {
	    if [expr $x == 37] then {
		pass "$testname: cmp.b @0x1234:16, ..."
	    } else {
		fail "$testname: cmp.b @0x1234:16, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.b @0x1234:16, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 245 0844 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 245      56780120" { set x [expr $x+1]; exp_continue; }
	-re ".* 246 084c 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 246      56783120" { set x [expr $x+1]; exp_continue; }
	-re ".* 247 0854 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 247      5678B120" { set x [expr $x+1]; exp_continue; }
	-re ".* 248 085c 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 248      56788120" { set x [expr $x+1]; exp_continue; }
	-re ".* 249 0864 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 249      5678A120" { set x [expr $x+1]; exp_continue; }
	-re ".* 250 086c 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 250      56789120" { set x [expr $x+1]; exp_continue; }
	-re ".* 251 0874 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 251      5678C120" { set x [expr $x+1]; exp_continue; }
	-re ".* 251      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 252 087e 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 252      5678C920" { set x [expr $x+1]; exp_continue; }
	-re ".* 252      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 253 088a 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 253      5678D220" { set x [expr $x+1]; exp_continue; }
	-re ".* 253      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 254 0894 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 254      5678E220" { set x [expr $x+1]; exp_continue; }
	-re ".* 254      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 255 089e 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 255      5678F220" { set x [expr $x+1]; exp_continue; }
	-re ".* 255      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 256 08a8 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 256      5678DA20" { set x [expr $x+1]; exp_continue; }
	-re ".* 256      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 257 08b4 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 257      5678EA20" { set x [expr $x+1]; exp_continue; }
	-re ".* 257      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 258 08c0 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 258      5678FA20" { set x [expr $x+1]; exp_continue; }
	-re ".* 258      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 259 08cc 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 259      56784020" { set x [expr $x+1]; exp_continue; }
	-re ".* 259      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 260 08d6 6A351234" { set x [expr $x+1]; exp_continue; }
	-re ".* 260      56784820" { set x [expr $x+1]; exp_continue; }
	-re ".* 260      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 261              " {
	    if [expr $x == 42] then {
		pass "$testname: cmp.b @0x12345678:32, ..."
	    } else {
		fail "$testname: cmp.b @0x12345678:32, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.b @0x12345678:32, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 262 08e2 79211234" { set x [expr $x+1]; exp_continue; }
	-re ".* 263 08e6 1F72" { set x [expr $x+1]; exp_continue; }
	-re ".* 264 08e8 015E0120" { set x [expr $x+1]; exp_continue; }
	-re ".* 264      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 265 08ee 015E3120" { set x [expr $x+1]; exp_continue; }
	-re ".* 265      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 266 08f4 015E8120" { set x [expr $x+1]; exp_continue; }
	-re ".* 266      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 267 08fa 015EB120" { set x [expr $x+1]; exp_continue; }
	-re ".* 267      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 268 0900 015E9120" { set x [expr $x+1]; exp_continue; }
	-re ".* 268      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 269 0906 015EA120" { set x [expr $x+1]; exp_continue; }
	-re ".* 269      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 270 090c 015EC120" { set x [expr $x+1]; exp_continue; }
	-re ".* 270      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 271 0914 015EC920" { set x [expr $x+1]; exp_continue; }
	-re ".* 271      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 271      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 272 091e 015ED220" { set x [expr $x+1]; exp_continue; }
	-re ".* 272      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 273 0926 015EE220" { set x [expr $x+1]; exp_continue; }
	-re ".* 273      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 274 092e 015EF220" { set x [expr $x+1]; exp_continue; }
	-re ".* 274      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 275 0936 015EDA20" { set x [expr $x+1]; exp_continue; }
	-re ".* 275      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 275      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 276 0940 015EEA20" { set x [expr $x+1]; exp_continue; }
	-re ".* 276      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 276      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 277 094a 015EFA20" { set x [expr $x+1]; exp_continue; }
	-re ".* 277      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 277      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 278 0954 015E4020" { set x [expr $x+1]; exp_continue; }
	-re ".* 278      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 279 095c 015E4820" { set x [expr $x+1]; exp_continue; }
	-re ".* 279      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 279      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 280              " {
	    if [expr $x == 39] then {
		pass "$testname: cmp.w #0x1234:16, ..."
	    } else {
		fail "$testname: cmp.w #0x1234:16, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.w #0x1234:16, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 281 0966 7D901F70" { set x [expr $x+1]; exp_continue; }
	-re ".* 282 096a 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 282      1F70" { set x [expr $x+1]; exp_continue; }
	-re ".* 283 0970 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 283      56781F70" { set x [expr $x+1]; exp_continue; }
	-re ".* 284              " {
	    if [expr $x == 5] then {
		pass "$testname: cmp.w #0x7:3, ..."
	    } else {
		fail "$testname: cmp.w #0x7:3, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.w #0x7:3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 285 0978 1D31" { set x [expr $x+1]; exp_continue; }
	-re ".* 286              " {
	    if [expr $x == 1] then {
		pass "$testname: cmp.w r3, r1"
	    } else {
		fail "$testname: cmp.w r3, r1 ($x)"
	    }
	}
        default	{ fail "$testname: cmp.w r3, r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 287 097a 7D901D30" { set x [expr $x+1]; exp_continue; }
	-re ".* 288 097e 01593123" { set x [expr $x+1]; exp_continue; }
	-re ".* 289 0982 01598123" { set x [expr $x+1]; exp_continue; }
	-re ".* 290 0986 0159B123" { set x [expr $x+1]; exp_continue; }
	-re ".* 291 098a 01599123" { set x [expr $x+1]; exp_continue; }
	-re ".* 292 098e 0159A123" { set x [expr $x+1]; exp_continue; }
	-re ".* 293 0992 0159C123" { set x [expr $x+1]; exp_continue; }
	-re ".* 293      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 294 0998 0159C923" { set x [expr $x+1]; exp_continue; }
	-re ".* 294      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 295 09a0 0159D223" { set x [expr $x+1]; exp_continue; }
	-re ".* 295      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 296 09a6 0159E223" { set x [expr $x+1]; exp_continue; }
	-re ".* 296      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 297 09ac 0159F223" { set x [expr $x+1]; exp_continue; }
	-re ".* 297      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 298 09b2 0159DA23" { set x [expr $x+1]; exp_continue; }
	-re ".* 298      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 299 09ba 0159EA23" { set x [expr $x+1]; exp_continue; }
	-re ".* 299      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 300 09c2 0159FA23" { set x [expr $x+1]; exp_continue; }
	-re ".* 300      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 301 09ca 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 301      1D30" { set x [expr $x+1]; exp_continue; }
	-re ".* 302 09d0 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 302      56781D30" { set x [expr $x+1]; exp_continue; }
	-re ".* 303              " {
	    if [expr $x == 26] then {
		pass "$testname: cmp.w r3, ..."
	    } else {
		fail "$testname: cmp.w r3, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.w r3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 304 09d8 7CB01D01" { set x [expr $x+1]; exp_continue; }
	-re ".* 305 09dc 015A3321" { set x [expr $x+1]; exp_continue; }
	-re ".* 306 09e0 015A8321" { set x [expr $x+1]; exp_continue; }
	-re ".* 307 09e4 015AB321" { set x [expr $x+1]; exp_continue; }
	-re ".* 308 09e8 015A9321" { set x [expr $x+1]; exp_continue; }
	-re ".* 309 09ec 015AA321" { set x [expr $x+1]; exp_continue; }
	-re ".* 310 09f0 015AC121" { set x [expr $x+1]; exp_continue; }
	-re ".* 310      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 311 09f6 015AC921" { set x [expr $x+1]; exp_continue; }
	-re ".* 311      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 312 09fe 015AD221" { set x [expr $x+1]; exp_continue; }
	-re ".* 312      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 313 0a04 015AE221" { set x [expr $x+1]; exp_continue; }
	-re ".* 313      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 314 0a0a 015AF221" { set x [expr $x+1]; exp_continue; }
	-re ".* 314      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 315 0a10 015ADA21" { set x [expr $x+1]; exp_continue; }
	-re ".* 315      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 316 0a18 015AEA21" { set x [expr $x+1]; exp_continue; }
	-re ".* 316      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 317 0a20 015AFA21" { set x [expr $x+1]; exp_continue; }
	-re ".* 317      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 318 0a28 6B101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 318      1D01" { set x [expr $x+1]; exp_continue; }
	-re ".* 319 0a2e 6B301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 319      56781D01" { set x [expr $x+1]; exp_continue; }
	-re ".* 320              " {
	    if [expr $x == 26] then {
		pass "$testname: cmp.w ..., r1"
	    } else {
		fail "$testname: cmp.w ..., r1 ($x)"
	    }
	}
        default	{ fail "$testname: cmp.w ..., r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 321 0a36 7CB50120" { set x [expr $x+1]; exp_continue; }