t07_ari3.exp

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

	-re ".*  92 0236 01066F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      12341770" { set x [expr $x+1]; exp_continue; }
	-re ".*  93 023e 01076F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      12341770" { set x [expr $x+1]; exp_continue; }
	-re ".*  94 0246 78A56B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  94      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  94      1770" { set x [expr $x+1]; exp_continue; }
	-re ".*  95 0250 78A66B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  95      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  95      1770" { set x [expr $x+1]; exp_continue; }
	-re ".*  96 025a 78A76B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  96      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  96      1770" { set x [expr $x+1]; exp_continue; }
	-re ".*  97 0264 01046B08" { set x [expr $x+1]; exp_continue; }
	-re ".*  97      12341770" { set x [expr $x+1]; exp_continue; }
	-re ".*  98 026c 01046B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  98      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  98      1770" { set x [expr $x+1]; exp_continue; }
	-re ".*  99              " {
	    if [expr $x == 38] then {
		pass "$testname: extu.l ..."
	    } else {
		fail "$testname: extu.l ... ($x)"
	    }
	}
        default	{ fail "$testname: extu.l ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 100 0276 1761" { set x [expr $x+1]; exp_continue; }
	-re ".* 101 0278 01046918" { set x [expr $x+1]; exp_continue; }
	-re ".* 101      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 102 027e 01076918" { set x [expr $x+1]; exp_continue; }
	-re ".* 102      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 103 0284 01046D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 103      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 104 028a 01076D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 104      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 105 0290 01056D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 105      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 106 0296 01066D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 106      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 107 029c 01046F18" { set x [expr $x+1]; exp_continue; }
	-re ".* 107      12341760" { set x [expr $x+1]; exp_continue; }
	-re ".* 108 02a4 78946B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 108      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 108      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 109 02ae 01056F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 109      12341760" { set x [expr $x+1]; exp_continue; }
	-re ".* 110 02b6 01066F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 110      12341760" { set x [expr $x+1]; exp_continue; }
	-re ".* 111 02be 01076F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 111      12341760" { set x [expr $x+1]; exp_continue; }
	-re ".* 112 02c6 78A56B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 112      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 112      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 113 02d0 78A66B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 113      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 113      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 114 02da 78A76B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 114      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 114      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 115 02e4 01046B08" { set x [expr $x+1]; exp_continue; }
	-re ".* 115      12341760" { set x [expr $x+1]; exp_continue; }
	-re ".* 116 02ec 01046B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 116      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 116      1760" { set x [expr $x+1]; exp_continue; }
	-re ".* 117              " {
	    if [expr $x == 38] then {
		pass "$testname: extu.l #2, ..."
	    } else {
		fail "$testname: extu.l #2, ... ($x)"
	    }
	}
        default	{ fail "$testname: extu.l #2, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 118 02f6 17D1" { set x [expr $x+1]; exp_continue; }
	-re ".* 119 02f8 7D9017D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 120 02fc 01576918" { set x [expr $x+1]; exp_continue; }
	-re ".* 120      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 121 0302 01546D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 121      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 122 0308 01576D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 122      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 123 030e 01556D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 123      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 124 0314 01566D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 124      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 125 031a 01546F18" { set x [expr $x+1]; exp_continue; }
	-re ".* 125      123417D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 126 0322 78146B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 126      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 126      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 127 032c 01556F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 127      123417D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 128 0334 01566F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 128      123417D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 129 033c 01576F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 129      123417D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 130 0344 78256B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 130      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 130      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 131 034e 78266B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 131      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 131      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 132 0358 78276B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 132      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 132      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 133 0362 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".* 133      17D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 134 0368 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".* 134      567817D0" { set x [expr $x+1]; exp_continue; }
	-re ".* 135              " {
	    if [expr $x == 36] then {
		pass "$testname: exts.w ..."
	    } else {
		fail "$testname: exts.w ... ($x)"
	    }
	}
        default	{ fail "$testname: exts.w ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 136 0370 17F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 137 0372 01046918" { set x [expr $x+1]; exp_continue; }
	-re ".* 137      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 138 0378 01076918" { set x [expr $x+1]; exp_continue; }
	-re ".* 138      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 139 037e 01046D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 139      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 140 0384 01076D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 140      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 141 038a 01056D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 141      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 142 0390 01066D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 142      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 143 0396 01046F18" { set x [expr $x+1]; exp_continue; }
	-re ".* 143      123417F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 144 039e 78946B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 144      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 144      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 145 03a8 01056F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 145      123417F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 146 03b0 01066F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 146      123417F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 147 03b8 01076F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 147      123417F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 148 03c0 78A56B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 148      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 148      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 149 03ca 78A66B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 149      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 149      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 150 03d4 78A76B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 150      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 150      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 151 03de 01046B08" { set x [expr $x+1]; exp_continue; }
	-re ".* 151      123417F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 152 03e6 01046B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 152      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 152      17F0" { set x [expr $x+1]; exp_continue; }
	-re ".* 153              " {
	    if [expr $x == 38] then {
		pass "$testname: exts.l ..."
	    } else {
		fail "$testname: exts.l ... ($x)"
	    }
	}
        default	{ fail "$testname: exts.l ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 154 03f0 17E1" { set x [expr $x+1]; exp_continue; }
	-re ".* 155 03f2 01046918" { set x [expr $x+1]; exp_continue; }
	-re ".* 155      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 156 03f8 01076918" { set x [expr $x+1]; exp_continue; }
	-re ".* 156      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 157 03fe 01046D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 157      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 158 0404 01076D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 158      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 159 040a 01056D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 159      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 160 0410 01066D18" { set x [expr $x+1]; exp_continue; }
	-re ".* 160      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 161 0416 01046F18" { set x [expr $x+1]; exp_continue; }
	-re ".* 161      123417E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 162 041e 78946B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 162      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 162      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 163 0428 01056F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 163      123417E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 164 0430 01066F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 164      123417E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 165 0438 01076F28" { set x [expr $x+1]; exp_continue; }
	-re ".* 165      123417E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 166 0440 78A56B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 166      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 166      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 167 044a 78A66B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 167      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 167      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 168 0454 78A76B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 168      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 168      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 169 045e 01046B08" { set x [expr $x+1]; exp_continue; }
	-re ".* 169      123417E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 170 0466 01046B28" { set x [expr $x+1]; exp_continue; }
	-re ".* 170      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 170      17E0" { set x [expr $x+1]; exp_continue; }
	-re ".* 171              " {
	    if [expr $x == 38] then {
		pass "$testname: exts.l #2, ..."
	    } else {
		fail "$testname: exts.l #2, ... ($x)"
	    }
	}
        default	{ fail "$testname: exts.l #2, ... ($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_t07_ari3_test
}