t06_ari2.exp

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

		fail "$testname: das.b r1h ($x)"
	    }
	}
        default	{ fail "$testname: das.b r1h ($x)" }
    }

    set x 0
    expect {
	-re ".* 115 0178 01CC50F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 116              " {
	    if [expr $x == 1] then {
		pass "$testname: mulxu.b #0xf:4,r1"
	    } else {
		fail "$testname: mulxu.b #0xf:4,r1 ($x)"
	    }
	}
        default	{ fail "$testname: mulxu.b #0xf:4,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 117 017c 5031" { set x [expr $x+1]; exp_continue; }
	-re ".* 118              " {
	    if [expr $x == 1] then {
		pass "$testname: mulxu.b r3h,r1"
	    } else {
		fail "$testname: mulxu.b r3h,r1 ($x)"
	    }
	}
        default	{ fail "$testname: mulxu.b r3h,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 119 017e 01CC52F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 120              " {
	    if [expr $x == 1] then {
		pass "$testname: mulxu.w #0xf:4,er1"
	    } else {
		fail "$testname: mulxu.w #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: mulxu.w #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 121 0182 5231" { set x [expr $x+1]; exp_continue; }
	-re ".* 122              " {
	    if [expr $x == 1] then {
		pass "$testname: mulxu.w r3,er1"
	    } else {
		fail "$testname: mulxu.w r3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: mulxu.w r3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 123 0184 01DC51F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 124              " {
	    if [expr $x == 1] then {
		pass "$testname: divxu.b #0xf:4,r1"
	    } else {
		fail "$testname: divxu.b #0xf:4,r1 ($x)"
	    }
	}
        default	{ fail "$testname: divxu.b #0xf:4,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 125 0188 5131" { set x [expr $x+1]; exp_continue; }
	-re ".* 126              " {
	    if [expr $x == 1] then {
		pass "$testname: divxu.b r3h,r1"
	    } else {
		fail "$testname: divxu.b r3h,r1 ($x)"
	    }
	}
        default	{ fail "$testname: divxu.b r3h,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 127 018a 01DC53F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 128              " {
	    if [expr $x == 1] then {
		pass "$testname: divxu.w #0xf:4,er1"
	    } else {
		fail "$testname: divxu.w #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: divxu.w #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 129 018e 5331" { set x [expr $x+1]; exp_continue; }
	-re ".* 130              " {
	    if [expr $x == 1] then {
		pass "$testname: divxu.w r3,er1"
	    } else {
		fail "$testname: divxu.w r3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: divxu.w r3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 131 0190 01C450F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 132              " {
	    if [expr $x == 1] then {
		pass "$testname: mulxs.b #0xf:4,r1"
	    } else {
		fail "$testname: mulxs.b #0xf:4,r1 ($x)"
	    }
	}
        default	{ fail "$testname: mulxs.b #0xf:4,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 133 0194 01C05031" { set x [expr $x+1]; exp_continue; }
	-re ".* 134              " {
	    if [expr $x == 1] then {
		pass "$testname: mulxs.b r3h,r1"
	    } else {
		fail "$testname: mulxs.b r3h,r1 ($x)"
	    }
	}
        default	{ fail "$testname: mulxs.b r3h,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 135 0198 01C452F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 136              " {
	    if [expr $x == 1] then {
		pass "$testname: mulxs.w #0xf:4,er1"
	    } else {
		fail "$testname: mulxs.w #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: mulxs.w #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 137 019c 01C05231" { set x [expr $x+1]; exp_continue; }
	-re ".* 138              " {
	    if [expr $x == 1] then {
		pass "$testname: mulxs.w r3,er1"
	    } else {
		fail "$testname: mulxs.w r3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: mulxs.w r3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 139 01a0 01D451F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 140              " {
	    if [expr $x == 1] then {
		pass "$testname: divxs.b #0xf:4,r1"
	    } else {
		fail "$testname: divxs.b #0xf:4,r1 ($x)"
	    }
	}
        default	{ fail "$testname: divxs.b #0xf:4,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 141 01a4 01D05131" { set x [expr $x+1]; exp_continue; }
	-re ".* 142              " {
	    if [expr $x == 1] then {
		pass "$testname: divxs.b r3h,r1"
	    } else {
		fail "$testname: divxs.b r3h,r1 ($x)"
	    }
	}
        default	{ fail "$testname: divxs.b r3h,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 143 01a8 01D453F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 144              " {
	    if [expr $x == 1] then {
		pass "$testname: divxs.w #0xf:4,er1"
	    } else {
		fail "$testname: divxs.w #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: divxs.w #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 145 01ac 01D05331" { set x [expr $x+1]; exp_continue; }
	-re ".* 146              " {
	    if [expr $x == 1] then {
		pass "$testname: divxs.w r3,er1"
	    } else {
		fail "$testname: divxs.w r3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: divxs.w r3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 147 01b0 01CE50F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 148              " {
	    if [expr $x == 1] then {
		pass "$testname: mulu.w #0xf:4,r1"
	    } else {
		fail "$testname: mulu.w #0xf:4,r1 ($x)"
	    }
	}
        default	{ fail "$testname: mulu.w #0xf:4,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 149 01b4 01CA5031" { set x [expr $x+1]; exp_continue; }
	-re ".* 150              " {
	    if [expr $x == 1] then {
		pass "$testname: mulu.w r3,r1"
	    } else {
		fail "$testname: mulu.w r3,r1 ($x)"
	    }
	}
        default	{ fail "$testname: mulu.w r3,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 151 01b8 01CE52F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 152              " {
	    if [expr $x == 1] then {
		pass "$testname: mulu.l #0xf:4,er1"
	    } else {
		fail "$testname: mulu.l #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: mulu.l #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 153 01bc 01CA5231" { set x [expr $x+1]; exp_continue; }
	-re ".* 154              " {
	    if [expr $x == 1] then {
		pass "$testname: mulu.l er3,er1"
	    } else {
		fail "$testname: mulu.l er3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: mulu.l er3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 155 01c0 01CF52F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 156              " {
	    if [expr $x == 1] then {
		pass "$testname: mulu/u.l #0xf:4,er1"
	    } else {
		fail "$testname: mulu/u.l #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: mulu/u.l #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 157 01c4 01CB5231" { set x [expr $x+1]; exp_continue; }
	-re ".* 158              " {
	    if [expr $x == 1] then {
		pass "$testname: mulu/u.l er3,er1"
	    } else {
		fail "$testname: mulu/u.l er3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: mulu/u.l er3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 159 01c8 01C650F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 160              " {
	    if [expr $x == 1] then {
		pass "$testname: muls.w #0xf:4,r1"
	    } else {
		fail "$testname: muls.w #0xf:4,r1 ($x)"
	    }
	}
        default	{ fail "$testname: muls.w #0xf:4,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 161 01cc 01C25031" { set x [expr $x+1]; exp_continue; }
	-re ".* 162              " {
	    if [expr $x == 1] then {
		pass "$testname: muls.w r3,r1"
	    } else {
		fail "$testname: muls.w r3,r1 ($x)"
	    }
	}
        default	{ fail "$testname: muls.w r3,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 163 01d0 01C652F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 164              " {
	    if [expr $x == 1] then {
		pass "$testname: muls.l #0xf:4,er1"
	    } else {
		fail "$testname: muls.l #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: muls.l #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 165 01d4 01C25231" { set x [expr $x+1]; exp_continue; }
	-re ".* 166              " {
	    if [expr $x == 1] then {
		pass "$testname: muls.l er3,er1"
	    } else {
		fail "$testname: muls.l er3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: muls.l er3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 167 01d8 01C752F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 168              " {
	    if [expr $x == 1] then {
		pass "$testname: muls/u.l #0xf:4,er1"
	    } else {
		fail "$testname: muls/u.l #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: muls/u.l #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 169 01dc 01C35231" { set x [expr $x+1]; exp_continue; }
	-re ".* 170              " {
	    if [expr $x == 1] then {
		pass "$testname: muls/u.l er3,er1"
	    } else {
		fail "$testname: muls/u.l er3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: muls/u.l er3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 171 01e0 01DE51F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 172              " {
	    if [expr $x == 1] then {
		pass "$testname: divu.w #0xf:4,r1"
	    } else {
		fail "$testname: divu.w #0xf:4,r1 ($x)"
	    }
	}
        default	{ fail "$testname: divu.w #0xf:4,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 173 01e4 01DA5131" { set x [expr $x+1]; exp_continue; }
	-re ".* 174              " {
	    if [expr $x == 1] then {
		pass "$testname: divu.w r3,r1"
	    } else {
		fail "$testname: divu.w r3,r1 ($x)"
	    }
	}
        default	{ fail "$testname: divu.w r3,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 175 01e8 01DE53F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 176              " {
	    if [expr $x == 1] then {
		pass "$testname: divu.l #0xf:4,er1"
	    } else {
		fail "$testname: divu.l #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: divu.l #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 177 01ec 01DA5331" { set x [expr $x+1]; exp_continue; }
	-re ".* 178              " {
	    if [expr $x == 1] then {
		pass "$testname: divu.l er3,er1"
	    } else {
		fail "$testname: divu.l er3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: divu.l er3,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 179 01f0 01D651F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 180              " {
	    if [expr $x == 1] then {
		pass "$testname: divs.w #0xf:4,r1"
	    } else {
		fail "$testname: divs.w #0xf:4,r1 ($x)"
	    }
	}
        default	{ fail "$testname: divs.w #0xf:4,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 181 01f4 01D25131" { set x [expr $x+1]; exp_continue; }
	-re ".* 182              " {
	    if [expr $x == 1] then {
		pass "$testname: divs.w r3,r1"
	    } else {
		fail "$testname: divs.w r3,r1 ($x)"
	    }
	}
        default	{ fail "$testname: divs.w r3,r1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 183 01f8 01D653F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 184              " {
	    if [expr $x == 1] then {
		pass "$testname: divs.l #0xf:4,er1"
	    } else {
		fail "$testname: divs.l #0xf:4,er1 ($x)"
	    }
	}
        default	{ fail "$testname: divs.l #0xf:4,er1 ($x)" }
    }

    set x 0
    expect {
	-re ".* 185 01fc 01D25331" { set x [expr $x+1]; exp_continue; }
	-re ".* 186              " {
	    if [expr $x == 1] then {
		pass "$testname: divs.l er3,er1"
	    } else {
		fail "$testname: divs.l er3,er1 ($x)"
	    }
	}
        default	{ fail "$testname: divs.l er3,er1 ($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_t06_ari2_test
}