t12_bit.exp

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

	-re ".*  91 015e 7E126330" { set x [expr $x+1]; exp_continue; }
	-re ".*  92 0162 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      6330" { set x [expr $x+1]; exp_continue; }
	-re ".*  93 0168 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      56786330" { set x [expr $x+1]; exp_continue; }
	-re ".*  94              " {
	    if [expr $x == 7] then {
		pass "$testname: btst r3h, ..."
	    } else {
		fail "$testname: btst r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: btst r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  95 0170 7471" { set x [expr $x+1]; exp_continue; }
	-re ".*  96 0172 7C107470" { set x [expr $x+1]; exp_continue; }
	-re ".*  97 0176 7E127470" { set x [expr $x+1]; exp_continue; }
	-re ".*  98 017a 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".*  98      7470" { set x [expr $x+1]; exp_continue; }
	-re ".*  99 0180 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".*  99      56787470" { set x [expr $x+1]; exp_continue; }
	-re ".* 100              " {
	    if [expr $x == 7] then {
		pass "$testname: bor #0x7, ..."
	    } else {
		fail "$testname: bor #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bor #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 101 0188 74F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 102 018a 7C1074F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 103 018e 7E1274F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 104 0192 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 104      74F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 105 0198 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 105      567874F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 106              " {
	    if [expr $x == 7] then {
		pass "$testname: bior #0x7, ..."
	    } else {
		fail "$testname: bior #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bior #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 107 01a0 7571" { set x [expr $x+1]; exp_continue; }
	-re ".* 108 01a2 7C107570" { set x [expr $x+1]; exp_continue; }
	-re ".* 109 01a6 7E127570" { set x [expr $x+1]; exp_continue; }
	-re ".* 110 01aa 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 110      7570" { set x [expr $x+1]; exp_continue; }
	-re ".* 111 01b0 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 111      56787570" { set x [expr $x+1]; exp_continue; }
	-re ".* 112              " {
	    if [expr $x == 7] then {
		pass "$testname: bxor #0x7, ..."
	    } else {
		fail "$testname: bxor #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bxor #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 113 01b8 75F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 114 01ba 7C1075F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 115 01be 7E1275F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 116 01c2 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 116      75F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 117 01c8 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 117      567875F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 118              " {
	    if [expr $x == 7] then {
		pass "$testname: bixor #0x7, ..."
	    } else {
		fail "$testname: bixor #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bixor #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 119 01d0 7671" { set x [expr $x+1]; exp_continue; }
	-re ".* 120 01d2 7C107670" { set x [expr $x+1]; exp_continue; }
	-re ".* 121 01d6 7E127670" { set x [expr $x+1]; exp_continue; }
	-re ".* 122 01da 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 122      7670" { set x [expr $x+1]; exp_continue; }
	-re ".* 123 01e0 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 123      56787670" { set x [expr $x+1]; exp_continue; }
	-re ".* 124              " {
	    if [expr $x == 7] then {
		pass "$testname: band #0x7, ..."
	    } else {
		fail "$testname: band #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: band #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 125 01e8 76F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 126 01ea 7C1076F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 127 01ee 7E1276F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 128 01f2 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 128      76F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 129 01f8 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 129      567876F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 130              " {
	    if [expr $x == 7] then {
		pass "$testname: biand #0x7, ..."
	    } else {
		fail "$testname: biand #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: biand #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 131 0200 7771" { set x [expr $x+1]; exp_continue; }
	-re ".* 132 0202 7C107770" { set x [expr $x+1]; exp_continue; }
	-re ".* 133 0206 7E127770" { set x [expr $x+1]; exp_continue; }
	-re ".* 134 020a 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 134      7770" { set x [expr $x+1]; exp_continue; }
	-re ".* 135 0210 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 135      56787770" { set x [expr $x+1]; exp_continue; }
	-re ".* 136              " {
	    if [expr $x == 7] then {
		pass "$testname: bld #0x7, ..."
	    } else {
		fail "$testname: bld #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bld #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 137 0218 77F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 138 021a 7C1077F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 139 021e 7E1277F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 140 0222 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 140      77F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 141 0228 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 141      567877F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 142              " {
	    if [expr $x == 7] then {
		pass "$testname: bild #0x7, ..."
	    } else {
		fail "$testname: bild #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bild #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 143 0230 6771" { set x [expr $x+1]; exp_continue; }
	-re ".* 144 0232 7D106770" { set x [expr $x+1]; exp_continue; }
	-re ".* 145 0236 7F126770" { set x [expr $x+1]; exp_continue; }
	-re ".* 146 023a 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 146      6770" { set x [expr $x+1]; exp_continue; }
	-re ".* 147 0240 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 147      56786770" { set x [expr $x+1]; exp_continue; }
	-re ".* 148              " {
	    if [expr $x == 7] then {
		pass "$testname: bst #0x7, ..."
	    } else {
		fail "$testname: bst #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bst #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 149 0248 7D106777" { set x [expr $x+1]; exp_continue; }
	-re ".* 150 024c 7F126777" { set x [expr $x+1]; exp_continue; }
	-re ".* 151 0250 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 151      6777" { set x [expr $x+1]; exp_continue; }
	-re ".* 152 0256 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 152      56786777" { set x [expr $x+1]; exp_continue; }
	-re ".* 153              " {
	    if [expr $x == 6] then {
		pass "$testname: bstz #0x7, ..."
	    } else {
		fail "$testname: bstz #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bstz #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 154 025e 67F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 155 0260 7D1067F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 156 0264 7F1267F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 157 0268 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 157      67F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 158 026e 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 158      567867F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 159              " {
	    if [expr $x == 7] then {
		pass "$testname: bist #0x7, ..."
	    } else {
		fail "$testname: bist #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bist #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 160 0276 7D1067F7" { set x [expr $x+1]; exp_continue; }
	-re ".* 161 027a 7F1267F7" { set x [expr $x+1]; exp_continue; }
	-re ".* 162 027e 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 162      67F7" { set x [expr $x+1]; exp_continue; }
	-re ".* 163 0284 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 163      567867F7" { set x [expr $x+1]; exp_continue; }
	-re ".* 164              " {
	    if [expr $x == 6] then {
		pass "$testname: bistz #0x7, ..."
	    } else {
		fail "$testname: bistz #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bistz #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 165 028c 7C10F334" { set x [expr $x+1]; exp_continue; }
	-re ".* 166 0290 7E12F334" { set x [expr $x+1]; exp_continue; }
	-re ".* 167 0294 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".* 167      F334" { set x [expr $x+1]; exp_continue; }
	-re ".* 168 029a 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".* 168      5678F334" { set x [expr $x+1]; exp_continue; }
	-re ".* 169              " {
	    if [expr $x == 6] then {
		pass "$testname: bfld #0x34:8, ..., r3h"
	    } else {
		fail "$testname: bfld #0x34:8, ..., r3h ($x)"
	    }
	}
        default	{ fail "$testname: bfld #0x34:8, ..., r3h ($x)" }
    }

    set x 0
    expect {
	-re ".* 170 02a2 7D10F334" { set x [expr $x+1]; exp_continue; }
	-re ".* 171 02a6 7F12F334" { set x [expr $x+1]; exp_continue; }
	-re ".* 172 02aa 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 172      F334" { set x [expr $x+1]; exp_continue; }
	-re ".* 173 02b0 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 173      5678F334" { set x [expr $x+1]; exp_continue; }
	-re ".* 174              " {
	    if [expr $x == 6] then {
		pass "$testname: bfst r3h, #0x34:8, ..."
	    } else {
		fail "$testname: bfst r3h, #0x34:8, ... ($x)"
	    }
	}
        default	{ fail "$testname: bfst r3h, #0x34:8, ... ($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_t12_bit_test
}