OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [h8300/] [t13_otr.exp] - Blame information for rev 156

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius 
#
2 
# Some h8300sx tests -- t13_otr
3 
#
4 
 
5 
proc do_t13_otr_test {} {
6 
    set testname "t13_otr.s -- h8sx misc tests"
7 
 
8 
    gas_start "t13_otr.s" "-al"
9 
 
10 
    # Check each instruction bit pattern to verify it got assembled correctly.
11 
 
12 
    set x 0
13 
    expect {
14 
        -re ".*  11 1234 4000" { set x [expr $x+1]; exp_continue; }
15 
        -re ".*  12 1236 4100" { set x [expr $x+1]; exp_continue; }
16 
        -re ".*  13 1238 4200" { set x [expr $x+1]; exp_continue; }
17 
        -re ".*  14 123a 4300" { set x [expr $x+1]; exp_continue; }
18 
        -re ".*  15 123c 4400" { set x [expr $x+1]; exp_continue; }
19 
        -re ".*  16 123e 4500" { set x [expr $x+1]; exp_continue; }
20 
        -re ".*  17 1240 4600" { set x [expr $x+1]; exp_continue; }
21 
        -re ".*  18 1242 4700" { set x [expr $x+1]; exp_continue; }
22 
        -re ".*  19 1244 4800" { set x [expr $x+1]; exp_continue; }
23 
        -re ".*  20 1246 4900" { set x [expr $x+1]; exp_continue; }
24 
        -re ".*  21 1248 4A00" { set x [expr $x+1]; exp_continue; }
25 
        -re ".*  22 124a 4B00" { set x [expr $x+1]; exp_continue; }
26 
        -re ".*  23 124c 4C00" { set x [expr $x+1]; exp_continue; }
27 
        -re ".*  24 124e 4D00" { set x [expr $x+1]; exp_continue; }
28 
        -re ".*  25 1250 4E00" { set x [expr $x+1]; exp_continue; }
29 
        -re ".*  26 1252 4F00" { set x [expr $x+1]; exp_continue; }
30 
        -re ".*  27              " {
31 
            if [expr $x == 16] then {
32 
                pass "$testname: b\[cc\] 0x12+.+2"
33 
            } else {
34 
                fail "$testname: b\[cc\] 0x12+.+2 ($x)"
35 
            }
36 
        }
37 
        default { fail "$testname: b\[cc\] 0x12+.+2 ($x)" }
38 
    }
39 
 
40 
    set x 0
41 
    expect {
42 
        -re ".*  28 1254 58000000" { set x [expr $x+1]; exp_continue; }
43 
        -re ".*  29 1258 58100000" { set x [expr $x+1]; exp_continue; }
44 
        -re ".*  30 125c 58200000" { set x [expr $x+1]; exp_continue; }
45 
        -re ".*  31 1260 58300000" { set x [expr $x+1]; exp_continue; }
46 
        -re ".*  32 1264 58400000" { set x [expr $x+1]; exp_continue; }
47 
        -re ".*  33 1268 58500000" { set x [expr $x+1]; exp_continue; }
48 
        -re ".*  34 126c 58600000" { set x [expr $x+1]; exp_continue; }
49 
        -re ".*  35 1270 58700000" { set x [expr $x+1]; exp_continue; }
50 
        -re ".*  36 1274 58800000" { set x [expr $x+1]; exp_continue; }
51 
        -re ".*  37 1278 58900000" { set x [expr $x+1]; exp_continue; }
52 
        -re ".*  38 127c 58A00000" { set x [expr $x+1]; exp_continue; }
53 
        -re ".*  39 1280 58B00000" { set x [expr $x+1]; exp_continue; }
54 
        -re ".*  40 1284 58C00000" { set x [expr $x+1]; exp_continue; }
55 
        -re ".*  41 1288 58D00000" { set x [expr $x+1]; exp_continue; }
56 
        -re ".*  42 128c 58E00000" { set x [expr $x+1]; exp_continue; }
57 
        -re ".*  43 1290 58F00000" { set x [expr $x+1]; exp_continue; }
58 
        -re ".*  44              " {
59 
            if [expr $x == 16] then {
60 
                pass "$testname: b\[cc\] 0x1234+.+4"
61 
            } else {
62 
                fail "$testname: b\[cc\] 0x1234+.+4 ($x)"
63 
            }
64 
        }
65 
        default { fail "$testname: b\[cc\] 0x1234+.+4 ($x)" }
66 
    }
67 
 
68 
    set x 0
69 
    expect {
70 
        -re ".*  45 1294 4001" { set x [expr $x+1]; exp_continue; }
71 
        -re ".*  46 1296 0000" { set x [expr $x+1]; exp_continue; }
72 
        -re ".*  47              " {
73 
            if [expr $x == 2] then {
74 
                pass "$testname: bra/s"
75 
            } else {
76 
                fail "$testname: bra/s ($x)"
77 
            }
78 
        }
79 
        default { fail "$testname: bra/s ($x)" }
80 
    }
81 
 
82 
    set x 0
83 
    expect {
84 
        -re ".*  48 1298 7C204700" { set x [expr $x+1]; exp_continue; }
85 
        -re ".*  49 129c 7E9A4700" { set x [expr $x+1]; exp_continue; }
86 
        -re ".*  50 12a0 6A101234" { set x [expr $x+1]; exp_continue; }
87 
        -re ".*  50      4700" { set x [expr $x+1]; exp_continue; }
88 
        -re ".*  51 12a6 6A301234" { set x [expr $x+1]; exp_continue; }
89 
        -re ".*  51      56784700" { set x [expr $x+1]; exp_continue; }
90 
        -re ".*  52 12ae 7C205870" { set x [expr $x+1]; exp_continue; }
91 
        -re ".*  52      0000" { set x [expr $x+1]; exp_continue; }
92 
        -re ".*  53 12b4 7E125870" { set x [expr $x+1]; exp_continue; }
93 
        -re ".*  53      0000" { set x [expr $x+1]; exp_continue; }
94 
        -re ".*  54 12ba 6A109ABC" { set x [expr $x+1]; exp_continue; }
95 
        -re ".*  54      58700000" { set x [expr $x+1]; exp_continue; }
96 
        -re ".*  55 12c2 6A301234" { set x [expr $x+1]; exp_continue; }
97 
        -re ".*  55      56785870" { set x [expr $x+1]; exp_continue; }
98 
        -re ".*  55      0000" { set x [expr $x+1]; exp_continue; }
99 
        -re ".*  56              " {
100 
            if [expr $x == 15] then {
101 
                pass "$testname: bra/bc #0x7, ..."
102 
            } else {
103 
                fail "$testname: bra/bc #0x7, ... ($x)"
104 
            }
105 
        }
106 
        default { fail "$testname: bra/bc #0x7, ... ($x)" }
107 
    }
108 
 
109 
    set x 0
110 
    expect {
111 
        -re ".*  57 12cc 7C204F00" { set x [expr $x+1]; exp_continue; }
112 
        -re ".*  58 12d0 7E9A4F00" { set x [expr $x+1]; exp_continue; }
113 
        -re ".*  59 12d4 6A101234" { set x [expr $x+1]; exp_continue; }
114 
        -re ".*  59      4F00" { set x [expr $x+1]; exp_continue; }
115 
        -re ".*  60 12da 6A301234" { set x [expr $x+1]; exp_continue; }
116 
        -re ".*  60      56784F00" { set x [expr $x+1]; exp_continue; }
117 
        -re ".*  61 12e2 7C2058F0" { set x [expr $x+1]; exp_continue; }
118 
        -re ".*  61      0000" { set x [expr $x+1]; exp_continue; }
119 
        -re ".*  62 12e8 7E1258F0" { set x [expr $x+1]; exp_continue; }
120 
        -re ".*  62      0000" { set x [expr $x+1]; exp_continue; }
121 
        -re ".*  63 12ee 6A109ABC" { set x [expr $x+1]; exp_continue; }
122 
        -re ".*  63      58F00000" { set x [expr $x+1]; exp_continue; }
123 
        -re ".*  64 12f6 6A301234" { set x [expr $x+1]; exp_continue; }
124 
        -re ".*  64      567858F0" { set x [expr $x+1]; exp_continue; }
125 
        -re ".*  64      0000" { set x [expr $x+1]; exp_continue; }
126 
        -re ".*  65              " {
127 
            if [expr $x == 15] then {
128 
                pass "$testname: bra/bs #0x7, ..."
129 
            } else {
130 
                fail "$testname: bra/bs #0x7, ... ($x)"
131 
            }
132 
        }
133 
        default { fail "$testname: bra/bs #0x7, ... ($x)" }
134 
    }
135 
 
136 
    set x 0
137 
    expect {
138 
        -re ".*  66 1300 7C205C70" { set x [expr $x+1]; exp_continue; }
139 
        -re ".*  66      0000" { set x [expr $x+1]; exp_continue; }
140 
        -re ".*  67 1306 7E125C70" { set x [expr $x+1]; exp_continue; }
141 
        -re ".*  67      0000" { set x [expr $x+1]; exp_continue; }
142 
        -re ".*  68 130c 6A109ABC" { set x [expr $x+1]; exp_continue; }
143 
        -re ".*  68      5C700000" { set x [expr $x+1]; exp_continue; }
144 
        -re ".*  69 1314 6A301234" { set x [expr $x+1]; exp_continue; }
145 
        -re ".*  69      56785C70" { set x [expr $x+1]; exp_continue; }
146 
        -re ".*  69      0000" { set x [expr $x+1]; exp_continue; }
147 
        -re ".*  70              " {
148 
            if [expr $x == 9] then {
149 
                pass "$testname: bsr/bc #0x7, ..."
150 
            } else {
151 
                fail "$testname: bsr/bc #0x7, ... ($x)"
152 
            }
153 
        }
154 
        default { fail "$testname: bsr/bc #0x7, ... ($x)" }
155 
    }
156 
 
157 
    set x 0
158 
    expect {
159 
        -re ".*  71 131e 7C205CF0" { set x [expr $x+1]; exp_continue; }
160 
        -re ".*  71      0000" { set x [expr $x+1]; exp_continue; }
161 
        -re ".*  72 1324 7E125CF0" { set x [expr $x+1]; exp_continue; }
162 
        -re ".*  72      0000" { set x [expr $x+1]; exp_continue; }
163 
        -re ".*  73 132a 6A109ABC" { set x [expr $x+1]; exp_continue; }
164 
        -re ".*  73      5CF00000" { set x [expr $x+1]; exp_continue; }
165 
        -re ".*  74 1332 6A301234" { set x [expr $x+1]; exp_continue; }
166 
        -re ".*  74      56785CF0" { set x [expr $x+1]; exp_continue; }
167 
        -re ".*  74      0000" { set x [expr $x+1]; exp_continue; }
168 
        -re ".*  75              " {
169 
            if [expr $x == 9] then {
170 
                pass "$testname: bsr/bs #0x7, ..."
171 
            } else {
172 
                fail "$testname: bsr/bs #0x7, ... ($x)"
173 
            }
174 
        }
175 
        default { fail "$testname: bsr/bs #0x7, ... ($x)" }
176 
    }
177 
 
178 
    set x 0
179 
    expect {
180 
        -re ".*  76 133c 5925" { set x [expr $x+1]; exp_continue; }
181 
        -re ".*  77 133e 5926" { set x [expr $x+1]; exp_continue; }
182 
        -re ".*  78 1340 5927" { set x [expr $x+1]; exp_continue; }
183 
        -re ".*  79              " {
184 
            if [expr $x == 3] then {
185 
                pass "$testname: bra ..."
186 
            } else {
187 
                fail "$testname: bra ... ($x)"
188 
            }
189 
        }
190 
        default { fail "$testname: bra ... ($x)" }
191 
    }
192 
 
193 
    set x 0
194 
    expect {
195 
        -re ".*  80 1342 5500" { set x [expr $x+1]; exp_continue; }
196 
        -re ".*  81 1344 5C000000" { set x [expr $x+1]; exp_continue; }
197 
        -re ".*  82 1348 5D25" { set x [expr $x+1]; exp_continue; }
198 
        -re ".*  83 134a 5D26" { set x [expr $x+1]; exp_continue; }
199 
        -re ".*  84 134c 5D27" { set x [expr $x+1]; exp_continue; }
200 
        -re ".*  85              " {
201 
            if [expr $x == 5] then {
202 
                pass "$testname: bsr ..."
203 
            } else {
204 
                fail "$testname: bsr ... ($x)"
205 
            }
206 
        }
207 
        default { fail "$testname: bsr ... ($x)" }
208 
    }
209 
 
210 
    set x 0
211 
    expect {
212 
        -re ".*  86 134e 5920" { set x [expr $x+1]; exp_continue; }
213 
        -re ".*  87 1350 5A000000" { set x [expr $x+1]; exp_continue; }
214 
        -re ".*  88 1354 59080000" { set x [expr $x+1]; exp_continue; }
215 
        -re ".*  88      0000" { set x [expr $x+1]; exp_continue; }
216 
        -re ".*  89 135a 5B00" { set x [expr $x+1]; exp_continue; }
217 
        -re ".*  90 135c 5980" { set x [expr $x+1]; exp_continue; }
218 
        -re ".*  91              " {
219 
            if [expr $x == 6] then {
220 
                pass "$testname: jmp ..."
221 
            } else {
222 
                fail "$testname: jmp ... ($x)"
223 
            }
224 
        }
225 
        default { fail "$testname: jmp ... ($x)" }
226 
    }
227 
 
228 
    set x 0
229 
    expect {
230 
        -re ".*  92 135e 5D20" { set x [expr $x+1]; exp_continue; }
231 
        -re ".*  93 1360 5E000000" { set x [expr $x+1]; exp_continue; }
232 
        -re ".*  94 1364 5D080000" { set x [expr $x+1]; exp_continue; }
233 
        -re ".*  94      0000" { set x [expr $x+1]; exp_continue; }
234 
        -re ".*  95 136a 5F00" { set x [expr $x+1]; exp_continue; }
235 
        -re ".*  96 136c 5D00" { set x [expr $x+1]; exp_continue; }
236 
        -re ".*  97              " {
237 
            if [expr $x == 6] then {
238 
                pass "$testname: jsr ..."
239 
            } else {
240 
                fail "$testname: jsr ... ($x)"
241 
            }
242 
        }
243 
        default { fail "$testname: jsr ... ($x)" }
244 
    }
245 
 
246 
    set x 0
247 
    expect {
248 
        -re ".*  98 136e 5470" { set x [expr $x+1]; exp_continue; }
249 
        -re ".*  99 1370 5403" { set x [expr $x+1]; exp_continue; }
250 
        -re ".* 100 1372 5412" { set x [expr $x+1]; exp_continue; }
251 
        -re ".* 101 1374 5424" { set x [expr $x+1]; exp_continue; }
252 
        -re ".* 102 1376 5436" { set x [expr $x+1]; exp_continue; }
253 
        -re ".* 103              " {
254 
            if [expr $x == 5] then {
255 
                pass "$testname: rts\[/l\]"
256 
            } else {
257 
                fail "$testname: rts\[/l\] ($x)"
258 
            }
259 
        }
260 
        default { fail "$testname: rts\[/l\] ($x)" }
261 
    }
262 
 
263 
    set x 0
264 
    expect {
265 
        -re ".* 104 1378 5730" { set x [expr $x+1]; exp_continue; }
266 
        -re ".* 105              " {
267 
            if [expr $x == 1] then {
268 
                pass "$testname: trapa #0x3"
269 
            } else {
270 
                fail "$testname: trapa #0x3 ($x)"
271 
            }
272 
        }
273 
        default { fail "$testname: trapa #0x3 ($x)" }
274 
    }
275 
 
276 
    set x 0
277 
    expect {
278 
        -re ".* 106 137a 5670" { set x [expr $x+1]; exp_continue; }
279 
        -re ".* 107 137c 5603" { set x [expr $x+1]; exp_continue; }
280 
        -re ".* 108 137e 5612" { set x [expr $x+1]; exp_continue; }
281 
        -re ".* 109 1380 5624" { set x [expr $x+1]; exp_continue; }
282 
        -re ".* 110 1382 5636" { set x [expr $x+1]; exp_continue; }
283 
        -re ".* 111              " {
284 
            if [expr $x == 5] then {
285 
                pass "$testname: rte\[/l\]"
286 
            } else {
287 
                fail "$testname: rte\[/l\] ($x)"
288 
            }
289 
        }
290 
        default { fail "$testname: rte\[/l\] ($x)" }
291 
    }
292 
 
293 
    set x 0
294 
    expect {
295 
        -re ".* 112 1384 0712" { set x [expr $x+1]; exp_continue; }
296 
        -re ".* 113 1386 0303" { set x [expr $x+1]; exp_continue; }
297 
        -re ".* 114 1388 01406930" { set x [expr $x+1]; exp_continue; }
298 
        -re ".* 115 138c 01406D30" { set x [expr $x+1]; exp_continue; }
299 
        -re ".* 116 1390 01406F30" { set x [expr $x+1]; exp_continue; }
300 
        -re ".* 116      1234" { set x [expr $x+1]; exp_continue; }
301 
        -re ".* 117 1396 01407830" { set x [expr $x+1]; exp_continue; }
302 
        -re ".* 117      6B201234" { set x [expr $x+1]; exp_continue; }
303 
        -re ".* 117      5678" { set x [expr $x+1]; exp_continue; }
304 
        -re ".* 118 13a0 01406B00" { set x [expr $x+1]; exp_continue; }
305 
        -re ".* 118      1234" { set x [expr $x+1]; exp_continue; }
306 
        -re ".* 119 13a6 01406B20" { set x [expr $x+1]; exp_continue; }
307 
        -re ".* 119      12345678" { set x [expr $x+1]; exp_continue; }
308 
        -re ".* 120              " {
309 
            if [expr $x == 13] then {
310 
                pass "$testname: ldc.w ..., ccr"
311 
            } else {
312 
                fail "$testname: ldc.w ..., ccr ($x)"
313 
            }
314 
        }
315 
        default { fail "$testname: ldc.w ..., ccr ($x)" }
316 
    }
317 
 
318 
    set x 0
319 
    expect {
320 
        -re ".* 121 13ae 01410712" { set x [expr $x+1]; exp_continue; }
321 
        -re ".* 122 13b2 0313" { set x [expr $x+1]; exp_continue; }
322 
        -re ".* 123 13b4 01416930" { set x [expr $x+1]; exp_continue; }
323 
        -re ".* 124 13b8 01416D30" { set x [expr $x+1]; exp_continue; }
324 
        -re ".* 125 13bc 01416F30" { set x [expr $x+1]; exp_continue; }
325 
        -re ".* 125      1234" { set x [expr $x+1]; exp_continue; }
326 
        -re ".* 126 13c2 01417830" { set x [expr $x+1]; exp_continue; }
327 
        -re ".* 126      6B201234" { set x [expr $x+1]; exp_continue; }
328 
        -re ".* 126      5678" { set x [expr $x+1]; exp_continue; }
329 
        -re ".* 127 13cc 01416B00" { set x [expr $x+1]; exp_continue; }
330 
        -re ".* 127      1234" { set x [expr $x+1]; exp_continue; }
331 
        -re ".* 128 13d2 01416B20" { set x [expr $x+1]; exp_continue; }
332 
        -re ".* 128      12345678" { set x [expr $x+1]; exp_continue; }
333 
        -re ".* 129              " {
334 
            if [expr $x == 13] then {
335 
                pass "$testname: ldc.w ..., exr"
336 
            } else {
337 
                fail "$testname: ldc.w ..., exr ($x)"
338 
            }
339 
        }
340 
        default { fail "$testname: ldc.w ..., exr ($x)" }
341 
    }
342 
 
343 
    set x 0
344 
    expect {
345 
        -re ".* 130 13da 0201" { set x [expr $x+1]; exp_continue; }
346 
        -re ".* 131 13dc 01406990" { set x [expr $x+1]; exp_continue; }
347 
        -re ".* 132 13e0 01406D90" { set x [expr $x+1]; exp_continue; }
348 
        -re ".* 133 13e4 01406F90" { set x [expr $x+1]; exp_continue; }
349 
        -re ".* 133      1234" { set x [expr $x+1]; exp_continue; }
350 
        -re ".* 134 13ea 01407810" { set x [expr $x+1]; exp_continue; }
351 
        -re ".* 134      6BA01234" { set x [expr $x+1]; exp_continue; }
352 
        -re ".* 134      5678" { set x [expr $x+1]; exp_continue; }
353 
        -re ".* 135 13f4 01406B80" { set x [expr $x+1]; exp_continue; }
354 
        -re ".* 135      1234" { set x [expr $x+1]; exp_continue; }
355 
        -re ".* 136 13fa 01406BA0" { set x [expr $x+1]; exp_continue; }
356 
        -re ".* 136      12345678" { set x [expr $x+1]; exp_continue; }
357 
        -re ".* 137              " {
358 
            if [expr $x == 12] then {
359 
                pass "$testname: stc.w ccr, ..."
360 
            } else {
361 
                fail "$testname: stc.w ccr, ... ($x)"
362 
            }
363 
        }
364 
        default { fail "$testname: stc.w ccr, ... ($x)" }
365 
    }
366 
 
367 
    set x 0
368 
    expect {
369 
        -re ".* 138 1402 0211" { set x [expr $x+1]; exp_continue; }
370 
        -re ".* 139 1404 01416990" { set x [expr $x+1]; exp_continue; }
371 
        -re ".* 140 1408 01416D90" { set x [expr $x+1]; exp_continue; }
372 
        -re ".* 141 140c 01416F90" { set x [expr $x+1]; exp_continue; }
373 
        -re ".* 141      1234" { set x [expr $x+1]; exp_continue; }
374 
        -re ".* 142 1412 01417810" { set x [expr $x+1]; exp_continue; }
375 
        -re ".* 142      6BA01234" { set x [expr $x+1]; exp_continue; }
376 
        -re ".* 142      5678" { set x [expr $x+1]; exp_continue; }
377 
        -re ".* 143 141c 01416B80" { set x [expr $x+1]; exp_continue; }
378 
        -re ".* 143      1234" { set x [expr $x+1]; exp_continue; }
379 
        -re ".* 144 1422 01416BA0" { set x [expr $x+1]; exp_continue; }
380 
        -re ".* 144      12345678" { set x [expr $x+1]; exp_continue; }
381 
        -re ".* 145              " {
382 
            if [expr $x == 12] then {
383 
                pass "$testname: stc.w exr, ..."
384 
            } else {
385 
                fail "$testname: stc.w exr, ... ($x)"
386 
            }
387 
        }
388 
        default { fail "$testname: stc.w exr, ... ($x)" }
389 
    }
390 
 
391 
    set x 0
392 
    expect {
393 
        -re ".* 146 142a 0412" { set x [expr $x+1]; exp_continue; }
394 
        -re ".* 147 142c 01410412" { set x [expr $x+1]; exp_continue; }
395 
        -re ".* 148              " {
396 
            if [expr $x == 2] then {
397 
                pass "$testname: orc.b #0x12:8, ..."
398 
            } else {
399 
                fail "$testname: orc.b #0x12:8, ... ($x)"
400 
            }
401 
        }
402 
        default { fail "$testname: orc.b #0x12:8, ... ($x)" }
403 
    }
404 
 
405 
    set x 0
406 
    expect {
407 
        -re ".* 149 1430 0512" { set x [expr $x+1]; exp_continue; }
408 
        -re ".* 150 1432 01410512" { set x [expr $x+1]; exp_continue; }
409 
        -re ".* 151              " {
410 
            if [expr $x == 2] then {
411 
                pass "$testname: xorc.b #0x12:8, ..."
412 
            } else {
413 
                fail "$testname: xorc.b #0x12:8, ... ($x)"
414 
            }
415 
        }
416 
        default { fail "$testname: xorc.b #0x12:8, ... ($x)" }
417 
    }
418 
 
419 
    set x 0
420 
    expect {
421 
        -re ".* 152 1436 0612" { set x [expr $x+1]; exp_continue; }
422 
        -re ".* 153 1438 01410612" { set x [expr $x+1]; exp_continue; }
423 
        -re ".* 154              " {
424 
            if [expr $x == 2] then {
425 
                pass "$testname: andc.b #0x12:8, ..."
426 
            } else {
427 
                fail "$testname: andc.b #0x12:8, ... ($x)"
428 
            }
429 
        }
430 
        default { fail "$testname: andc.b #0x12:8, ... ($x)" }
431 
    }
432 
 
433 
    set x 0
434 
    expect {
435 
        -re ".* 155 143c 0180" { set x [expr $x+1]; exp_continue; }
436 
        -re ".* 156              " {
437 
            if [expr $x == 1] then {
438 
                pass "$testname: sleep"
439 
            } else {
440 
                fail "$testname: sleep ($x)"
441 
            }
442 
        }
443 
        default { fail "$testname: sleep ($x)" }
444 
    }
445 
 
446 
    set x 0
447 
    expect {
448 
        -re ".* 157 143e 0000" { set x [expr $x+1]; exp_continue; }
449 
        -re ".* 158              " {
450 
            if [expr $x == 1] then {
451 
                pass "$testname: nop"
452 
            } else {
453 
                fail "$testname: nop ($x)"
454 
            }
455 
        }
456 
        default { fail "$testname: nop ($x)" }
457 
    }
458 
 
459 
    # This was intended to do any cleanup necessary.
460 
    # It kinda looks like it isn't needed, but just
461 
    # in case, please keep it in for now.
462 
 
463 
    gas_finish
464 
 
465 
}
466 
 
467 
if [istarget h8300*-*-elf] then {
468 
    # Test advanced h8300sx instructions.
469 
    do_t13_otr_test
470 
}
471 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.