t04_sub.exp

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

	-re ".* 101 0236 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 101      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 102 023c 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 102      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 103 0242 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 103      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 104 024a 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 104      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 104      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 105 0254 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 105      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 106 025c 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 106      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 107 0264 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 107      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 108 026c 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 108      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 108      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 109 0276 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 109      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 109      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 110 0280 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 110      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 110      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 111 028a 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 111      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 112 0292 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 112      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 112      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 113              " {
	    if [expr $x == 37] then {
		pass "$testname: sub.b @er3+, ..."
	    } else {
		fail "$testname: sub.b @er3+, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @er3+, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 114 029c 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 114      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 115 02a2 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 115      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 116 02a8 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 116      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 117 02ae 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 117      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 118 02b4 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 118      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 119 02ba 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 119      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 120 02c0 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 120      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 121 02c8 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 121      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 121      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 122 02d2 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 122      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 123 02da 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 123      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 124 02e2 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 124      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 125 02ea 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 125      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 125      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 126 02f4 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 126      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 126      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 127 02fe 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 127      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 127      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 128 0308 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 128      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 129 0310 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 129      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 129      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 130              " {
	    if [expr $x == 37] then {
		pass "$testname: sub.b @er3-, ..."
	    } else {
		fail "$testname: sub.b @er3-, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @er3-, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 131 031a 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 131      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 132 0320 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 132      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 133 0326 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 133      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 134 032c 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 134      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 135 0332 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 135      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 136 0338 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 136      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 137 033e 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 137      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 138 0346 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 138      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 138      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 139 0350 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 139      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 140 0358 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 140      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 141 0360 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 141      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 142 0368 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 142      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 142      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 143 0372 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 143      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 143      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 144 037c 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 144      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 144      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 145 0386 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 145      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 146 038e 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 146      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 146      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 147              " {
	    if [expr $x == 37] then {
		pass "$testname: sub.b @+er3, ..."
	    } else {
		fail "$testname: sub.b @+er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @+er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 148 0398 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 148      12340130" { set x [expr $x+1]; exp_continue; }
	-re ".* 149 03a0 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 149      12343130" { set x [expr $x+1]; exp_continue; }
	-re ".* 150 03a8 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 150      1234B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 151 03b0 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 151      12348130" { set x [expr $x+1]; exp_continue; }
	-re ".* 152 03b8 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 152      1234A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 153 03c0 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 153      12349130" { set x [expr $x+1]; exp_continue; }
	-re ".* 154 03c8 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 154      1234C130" { set x [expr $x+1]; exp_continue; }
	-re ".* 154      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 155 03d2 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 155      1234C930" { set x [expr $x+1]; exp_continue; }
	-re ".* 155      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 156 03de 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 156      1234D230" { set x [expr $x+1]; exp_continue; }
	-re ".* 156      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 157 03e8 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 157      1234E230" { set x [expr $x+1]; exp_continue; }
	-re ".* 157      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 158 03f2 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 158      1234F230" { set x [expr $x+1]; exp_continue; }
	-re ".* 158      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 159 03fc 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 159      1234DA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 159      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 160 0408 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 160      1234EA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 160      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 161 0414 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 161      1234FA30" { set x [expr $x+1]; exp_continue; }
	-re ".* 161      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 162 0420 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 162      12344030" { set x [expr $x+1]; exp_continue; }
	-re ".* 162      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 163 042a 01746E3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 163      12344830" { set x [expr $x+1]; exp_continue; }
	-re ".* 163      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 164              " {
	    if [expr $x == 42] then {
		pass "$testname: sub.b @(0x1234:16,er3), ..."
	    } else {
		fail "$testname: sub.b @(0x1234:16,er3), ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @(0x1234:16,er3), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 165 0436 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 165      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 165      0130" { set x [expr $x+1]; exp_continue; }
	-re ".* 166 0440 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 166      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 166      3130" { set x [expr $x+1]; exp_continue; }
	-re ".* 167 044a 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 167      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 167      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 168 0454 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 168      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 168      8130" { set x [expr $x+1]; exp_continue; }
	-re ".* 169 045e 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 169      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 169      A130" { set x [expr $x+1]; exp_continue; }
	-re ".* 170 0468 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 170      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 170      9130" { set x [expr $x+1]; exp_continue; }
	-re ".* 171 0472 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 171      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 171      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 172 047e 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 172      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 172      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 172      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 173 048c 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 173      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 173      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 174 0498 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 174      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 174      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 175 04a4 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 175      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 175      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 176 04b0 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 176      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 176      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 176      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 177 04be 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 177      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 177      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 177      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 178 04cc 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 178      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 178      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 178      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 179 04da 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 179      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 179      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 180 04e6 78346A2C" { set x [expr $x+1]; exp_continue; }
	-re ".* 180      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 180      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".* 180      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".* 181              " {