t02_mova.exp

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

	    } else {
		fail "$testname: j ($x)"
	    }
	}
        default	{ fail "$testname: j ($x)" }
    }

    set x 0
    expect {
	-re ".* 169 04d8 017F02A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 169      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 170 04e0 017F12A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 170      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 171 04e8 017F82A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 171      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 172 04f0 017FB2A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 172      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 173 04f8 017F92A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 173      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 174 0500 017FA2A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 174      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 175 0508 017FC2A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 175      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 175      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 176 0512 017FCAA9" { set x [expr $x+1]; exp_continue; }
	-re ".* 176      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 176      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 177 051e 017FD2A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 177      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 177      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 178 0528 017FE2A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 178      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 178      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 179 0532 017FF2A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 179      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 179      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 180 053c 017FDAA9" { set x [expr $x+1]; exp_continue; }
	-re ".* 180      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 180      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 181 0548 017FEAA9" { set x [expr $x+1]; exp_continue; }
	-re ".* 181      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 181      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 182 0554 017FFAA9" { set x [expr $x+1]; exp_continue; }
	-re ".* 182      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 182      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 183 0560 017F40A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 183      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 183      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 184 056a 017F48A9" { set x [expr $x+1]; exp_continue; }
	-re ".* 184      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 184      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 185              " {
	    if [expr $x == 42] then {
		pass "$testname: k"
	    } else {
		fail "$testname: k ($x)"
	    }
	}
        default	{ fail "$testname: k ($x)" }
    }

    set x 0
    expect {
	-re ".* 186 0576 015F02B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 186      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 187 057e 015F12B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 187      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 188 0586 015F82B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 188      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 189 058e 015FB2B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 189      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 190 0596 015F92B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 190      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 191 059e 015FA2B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 191      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 192 05a6 015FC2B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 192      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 192      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 193 05b0 015FCAB9" { set x [expr $x+1]; exp_continue; }
	-re ".* 193      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 193      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 194 05bc 015FD2B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 194      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 194      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 195 05c6 015FE2B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 195      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 195      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 196 05d0 015FF2B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 196      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 196      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 197 05da 015FDAB9" { set x [expr $x+1]; exp_continue; }
	-re ".* 197      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 197      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 198 05e6 015FEAB9" { set x [expr $x+1]; exp_continue; }
	-re ".* 198      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 198      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 199 05f2 015FFAB9" { set x [expr $x+1]; exp_continue; }
	-re ".* 199      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 199      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 200 05fe 015F40B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 200      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 200      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 201 0608 015F48B9" { set x [expr $x+1]; exp_continue; }
	-re ".* 201      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 201      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 202              " {
	    if [expr $x == 42] then {
		pass "$testname: l"
	    } else {
		fail "$testname: l ($x)"
	    }
	}
        default	{ fail "$testname: l ($x)" }
    }

    set x 0
    expect {
	-re ".* 203 0614 017F02C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 203      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 204 061c 017F12C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 204      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 205 0624 017F82C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 205      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 206 062c 017FB2C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 206      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 207 0634 017F92C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 207      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 208 063c 017FA2C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 208      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 209 0644 017FC2C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 209      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 209      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 210 064e 017FCAC9" { set x [expr $x+1]; exp_continue; }
	-re ".* 210      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 210      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 211 065a 017FD2C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 211      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 211      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 212 0664 017FE2C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 212      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 212      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 213 066e 017FF2C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 213      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 213      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 214 0678 017FDAC9" { set x [expr $x+1]; exp_continue; }
	-re ".* 214      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 214      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 215 0684 017FEAC9" { set x [expr $x+1]; exp_continue; }
	-re ".* 215      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 215      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 216 0690 017FFAC9" { set x [expr $x+1]; exp_continue; }
	-re ".* 216      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 216      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 217 069c 017F40C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 217      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 217      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 218 06a6 017F48C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 218      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 218      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 219              " {
	    if [expr $x == 42] then {
		pass "$testname: m"
	    } else {
		fail "$testname: m ($x)"
	    }
	}
        default	{ fail "$testname: m ($x)" }
    }

    set x 0
    expect {
	-re ".* 220 06b2 015F02D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 220      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 221 06ba 015F12D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 221      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 222 06c2 015F82D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 222      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 223 06ca 015FB2D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 223      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 224 06d2 015F92D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 224      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 225 06da 015FA2D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 225      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 226 06e2 015FC2D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 226      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 226      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 227 06ec 015FCAD9" { set x [expr $x+1]; exp_continue; }
	-re ".* 227      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 227      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 228 06f8 015FD2D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 228      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 228      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 229 0702 015FE2D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 229      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 229      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 230 070c 015FF2D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 230      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 230      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 231 0716 015FDAD9" { set x [expr $x+1]; exp_continue; }
	-re ".* 231      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 231      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 232 0722 015FEAD9" { set x [expr $x+1]; exp_continue; }
	-re ".* 232      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 232      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 233 072e 015FFAD9" { set x [expr $x+1]; exp_continue; }
	-re ".* 233      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 233      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 234 073a 015F40D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 234      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 234      5678"     { set x [expr $x+1]; exp_continue; }
	-re ".* 235 0744 015F48D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 235      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 235      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 236              " {
	    if [expr $x == 42] then {
		pass "$testname: n"
	    } else {
		fail "$testname: n ($x)"
	    }
	}
        default	{ fail "$testname: n ($x)" }
    }

    # This was intended to do any cleanup necessary.
    # It kinda looks like it isn't needed, but just
    # in case, please keep it in for now.

    gas_finish

}

if [istarget h8300*-*-elf] then {
    # Test advanced h8300sx instructions.
    do_t02_mova_test
}