Commit | Line | Data |
---|---|---|
50f7abfa JL |
1 | # Copyright (C) 1996 Free Software Foundation, Inc. |
2 | ||
3 | # This program is free software; you can redistribute it and/or modify | |
4 | # it under the terms of the GNU General Public License as published by | |
5 | # the Free Software Foundation; either version 2 of the License, or | |
6 | # (at your option) any later version. | |
7 | # | |
8 | # This program is distributed in the hope that it will be useful, | |
9 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
11 | # GNU General Public License for more details. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
14 | # along with this program; if not, write to the Free Software | |
15 | # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
16 | ||
17 | # Please email any bugs, comments, and/or additions to this file to: | |
18 | # DejaGnu@cygnus.com | |
19 | ||
20 | # Written by Cygnus Support. | |
21 | ||
22 | proc do_arith {} { | |
23 | set testname "arith.s: Arithmetic operations" | |
24 | set x 0 | |
25 | ||
26 | gas_start "arith.s" "-al" | |
27 | ||
28 | # Instead of having a variable for each match string just increment the | |
29 | # total number of matches seen. That's simpler when testing large numbers | |
30 | # of instructions (as these tests to). | |
31 | # -re "^ +\[0-9\]+ 0000 489A0000\[^\n\]*\n" { set x [expr $x+1] } | |
32 | while 1 { | |
33 | expect { | |
34 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
35 | -re "^ +\[0-9\]+ 0002\[^\n\]*\n" { set x [expr $x+1] } | |
36 | -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] } | |
37 | -re "^ +\[0-9\]+ 0008\[^\n\]*\n" { set x [expr $x+1] } | |
38 | -re "^ +\[0-9\]+ 000a\[^\n\]*\n" { set x [expr $x+1] } | |
39 | -re "^ +\[0-9\]+ 000c\[^\n\]*\n" { set x [expr $x+1] } | |
40 | -re "^ +\[0-9\]+ 000e\[^\n\]*\n" { set x [expr $x+1] } | |
41 | -re "^ +\[0-9\]+ 0012\[^\n\]*\n" { set x [expr $x+1] } | |
42 | -re "^ +\[0-9\]+ 0016\[^\n\]*\n" { set x [expr $x+1] } | |
43 | -re "^ +\[0-9\]+ 0018\[^\n\]*\n" { set x [expr $x+1] } | |
44 | -re "^ +\[0-9\]+ 001a\[^\n\]*\n" { set x [expr $x+1] } | |
45 | -re "^ +\[0-9\]+ 001c\[^\n\]*\n" { set x [expr $x+1] } | |
46 | -re "^ +\[0-9\]+ 001e\[^\n\]*\n" { set x [expr $x+1] } | |
47 | -re "^ +\[0-9\]+ 0022\[^\n\]*\n" { set x [expr $x+1] } | |
48 | -re "^ +\[0-9\]+ 0024\[^\n\]*\n" { set x [expr $x+1] } | |
49 | -re "^ +\[0-9\]+ 0028\[^\n\]*\n" { set x [expr $x+1] } | |
50 | -re "^ +\[0-9\]+ 002a\[^\n\]*\n" { set x [expr $x+1] } | |
51 | -re "^ +\[0-9\]+ 002e\[^\n\]*\n" { set x [expr $x+1] } | |
52 | -re "^ +\[0-9\]+ 0030\[^\n\]*\n" { set x [expr $x+1] } | |
53 | -re "^ +\[0-9\]+ 0032\[^\n\]*\n" { set x [expr $x+1] } | |
54 | -re "\[^\n\]*\n" { } | |
55 | timeout { perror "timeout\n"; break } | |
56 | eof { break } | |
57 | } | |
58 | } | |
59 | ||
60 | # This was intended to do any cleanup necessary. It kinda looks like it | |
61 | # isn't needed, but just in case, please keep it in for now. | |
62 | gas_finish | |
63 | ||
64 | # Did we find what we were looking for? If not, flunk it. | |
65 | if [expr $x==20] then { pass $testname } else { fail $testname } | |
66 | } | |
67 | ||
68 | proc do_bit {} { | |
69 | set testname "bit.s: bit operations" | |
70 | set x 0 | |
71 | ||
72 | gas_start "bit.s" "-al" | |
73 | ||
74 | # Instead of having a variable for each match string just increment the | |
75 | # total number of matches seen. That's simpler when testing large numbers | |
76 | # of instructions (as these tests to). | |
77 | while 1 { | |
78 | expect { | |
79 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
80 | -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] } | |
81 | -re "^ +\[0-9\]+ 0008\[^\n\]*\n" { set x [expr $x+1] } | |
82 | -re "^ +\[0-9\]+ 000c\[^\n\]*\n" { set x [expr $x+1] } | |
83 | -re "\[^\n\]*\n" { } | |
84 | timeout { perror "timeout\n"; break } | |
85 | eof { break } | |
86 | } | |
87 | } | |
88 | ||
89 | # This was intended to do any cleanup necessary. It kinda looks like it | |
90 | # isn't needed, but just in case, please keep it in for now. | |
91 | gas_finish | |
92 | ||
93 | # Did we find what we were looking for? If not, flunk it. | |
94 | if [expr $x==4] then { pass $testname } else { fail $testname } | |
95 | } | |
96 | ||
97 | proc do_branch {} { | |
98 | set testname "branch.s: branch operations" | |
99 | set x 0 | |
100 | ||
101 | gas_start "branch.s" "-al" | |
102 | ||
103 | # Instead of having a variable for each match string just increment the | |
104 | # total number of matches seen. That's simpler when testing large numbers | |
105 | # of instructions (as these tests to). | |
106 | while 1 { | |
107 | expect { | |
108 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
109 | -re "^ +\[0-9\]+ 0002\[^\n\]*\n" { set x [expr $x+1] } | |
110 | -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] } | |
111 | -re "^ +\[0-9\]+ 0006\[^\n\]*\n" { set x [expr $x+1] } | |
112 | -re "^ +\[0-9\]+ 0008\[^\n\]*\n" { set x [expr $x+1] } | |
113 | -re "^ +\[0-9\]+ 000a\[^\n\]*\n" { set x [expr $x+1] } | |
114 | -re "^ +\[0-9\]+ 000c\[^\n\]*\n" { set x [expr $x+1] } | |
115 | -re "^ +\[0-9\]+ 000e\[^\n\]*\n" { set x [expr $x+1] } | |
116 | -re "^ +\[0-9\]+ 0010\[^\n\]*\n" { set x [expr $x+1] } | |
117 | -re "^ +\[0-9\]+ 0012\[^\n\]*\n" { set x [expr $x+1] } | |
118 | -re "^ +\[0-9\]+ 0014\[^\n\]*\n" { set x [expr $x+1] } | |
119 | -re "^ +\[0-9\]+ 0016\[^\n\]*\n" { set x [expr $x+1] } | |
120 | -re "^ +\[0-9\]+ 0018\[^\n\]*\n" { set x [expr $x+1] } | |
121 | -re "^ +\[0-9\]+ 001a\[^\n\]*\n" { set x [expr $x+1] } | |
122 | -re "^ +\[0-9\]+ 001c\[^\n\]*\n" { set x [expr $x+1] } | |
123 | -re "^ +\[0-9\]+ 001e\[^\n\]*\n" { set x [expr $x+1] } | |
124 | -re "^ +\[0-9\]+ 0020\[^\n\]*\n" { set x [expr $x+1] } | |
125 | -re "^ +\[0-9\]+ 0022\[^\n\]*\n" { set x [expr $x+1] } | |
126 | -re "^ +\[0-9\]+ 0024\[^\n\]*\n" { set x [expr $x+1] } | |
127 | -re "^ +\[0-9\]+ 0026\[^\n\]*\n" { set x [expr $x+1] } | |
128 | -re "\[^\n\]*\n" { } | |
129 | timeout { perror "timeout\n"; break } | |
130 | eof { break } | |
131 | } | |
132 | } | |
133 | ||
134 | # This was intended to do any cleanup necessary. It kinda looks like it | |
135 | # isn't needed, but just in case, please keep it in for now. | |
136 | gas_finish | |
137 | ||
138 | # Did we find what we were looking for? If not, flunk it. | |
139 | if [expr $x==20] then { pass $testname } else { fail $testname } | |
140 | } | |
141 | ||
142 | proc do_compare {} { | |
143 | set testname "compare.s: compare operations" | |
144 | set x 0 | |
145 | ||
146 | gas_start "compare.s" "-al" | |
147 | ||
148 | # Instead of having a variable for each match string just increment the | |
149 | # total number of matches seen. That's simpler when testing large numbers | |
150 | # of instructions (as these tests to). | |
151 | while 1 { | |
152 | expect { | |
153 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
154 | -re "^ +\[0-9\]+ 0002\[^\n\]*\n" { set x [expr $x+1] } | |
155 | -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] } | |
156 | -re "^ +\[0-9\]+ 0008\[^\n\]*\n" { set x [expr $x+1] } | |
157 | -re "^ +\[0-9\]+ 000c\[^\n\]*\n" { set x [expr $x+1] } | |
158 | -re "^ +\[0-9\]+ 0010\[^\n\]*\n" { set x [expr $x+1] } | |
159 | -re "^ +\[0-9\]+ 0014\[^\n\]*\n" { set x [expr $x+1] } | |
160 | -re "^ +\[0-9\]+ 0018\[^\n\]*\n" { set x [expr $x+1] } | |
161 | -re "^ +\[0-9\]+ 001c\[^\n\]*\n" { set x [expr $x+1] } | |
162 | -re "^ +\[0-9\]+ 0020\[^\n\]*\n" { set x [expr $x+1] } | |
163 | -re "^ +\[0-9\]+ 0024\[^\n\]*\n" { set x [expr $x+1] } | |
164 | -re "^ +\[0-9\]+ 0028\[^\n\]*\n" { set x [expr $x+1] } | |
165 | -re "^ +\[0-9\]+ 002c\[^\n\]*\n" { set x [expr $x+1] } | |
166 | -re "^ +\[0-9\]+ 0030\[^\n\]*\n" { set x [expr $x+1] } | |
167 | -re "^ +\[0-9\]+ 0034\[^\n\]*\n" { set x [expr $x+1] } | |
168 | -re "^ +\[0-9\]+ 0038\[^\n\]*\n" { set x [expr $x+1] } | |
169 | -re "^ +\[0-9\]+ 003c\[^\n\]*\n" { set x [expr $x+1] } | |
170 | -re "^ +\[0-9\]+ 0040\[^\n\]*\n" { set x [expr $x+1] } | |
171 | -re "^ +\[0-9\]+ 0044\[^\n\]*\n" { set x [expr $x+1] } | |
172 | -re "^ +\[0-9\]+ 0048\[^\n\]*\n" { set x [expr $x+1] } | |
173 | -re "^ +\[0-9\]+ 004c\[^\n\]*\n" { set x [expr $x+1] } | |
174 | -re "^ +\[0-9\]+ 0050\[^\n\]*\n" { set x [expr $x+1] } | |
175 | -re "^ +\[0-9\]+ 0054\[^\n\]*\n" { set x [expr $x+1] } | |
176 | -re "\[^\n\]*\n" { } | |
177 | timeout { perror "timeout\n"; break } | |
178 | eof { break } | |
179 | } | |
180 | } | |
181 | ||
182 | # This was intended to do any cleanup necessary. It kinda looks like it | |
183 | # isn't needed, but just in case, please keep it in for now. | |
184 | gas_finish | |
185 | ||
186 | # Did we find what we were looking for? If not, flunk it. | |
187 | if [expr $x==23] then { pass $testname } else { fail $testname } | |
188 | } | |
189 | ||
190 | proc do_jumps {} { | |
191 | set testname "jumps.s: jumps operations" | |
192 | set x 0 | |
193 | ||
194 | gas_start "jumps.s" "-al" | |
195 | ||
196 | # Instead of having a variable for each match string just increment the | |
197 | # total number of matches seen. That's simpler when testing large numbers | |
198 | # of instructions (as these tests to). | |
199 | while 1 { | |
200 | expect { | |
201 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
202 | -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] } | |
203 | -re "^ +\[0-9\]+ 0006\[^\n\]*\n" { set x [expr $x+1] } | |
204 | -re "\[^\n\]*\n" { } | |
205 | timeout { perror "timeout\n"; break } | |
206 | eof { break } | |
207 | } | |
208 | } | |
209 | ||
210 | # This was intended to do any cleanup necessary. It kinda looks like it | |
211 | # isn't needed, but just in case, please keep it in for now. | |
212 | gas_finish | |
213 | ||
214 | # Did we find what we were looking for? If not, flunk it. | |
215 | if [expr $x==3] then { pass $testname } else { fail $testname } | |
216 | } | |
217 | ||
218 | proc do_logical {} { | |
219 | set testname "logical.s: logical operations" | |
220 | set x 0 | |
221 | ||
222 | gas_start "logical.s" "-al" | |
223 | ||
224 | # Instead of having a variable for each match string just increment the | |
225 | # total number of matches seen. That's simpler when testing large numbers | |
226 | # of instructions (as these tests to). | |
227 | while 1 { | |
228 | expect { | |
229 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
230 | -re "^ +\[0-9\]+ 0002\[^\n\]*\n" { set x [expr $x+1] } | |
231 | -re "^ +\[0-9\]+ 0006\[^\n\]*\n" { set x [expr $x+1] } | |
232 | -re "^ +\[0-9\]+ 000a\[^\n\]*\n" { set x [expr $x+1] } | |
233 | -re "^ +\[0-9\]+ 000c\[^\n\]*\n" { set x [expr $x+1] } | |
234 | -re "^ +\[0-9\]+ 0010\[^\n\]*\n" { set x [expr $x+1] } | |
235 | -re "^ +\[0-9\]+ 0012\[^\n\]*\n" { set x [expr $x+1] } | |
236 | -re "\[^\n\]*\n" { } | |
237 | timeout { perror "timeout\n"; break } | |
238 | eof { break } | |
239 | } | |
240 | } | |
241 | ||
242 | # This was intended to do any cleanup necessary. It kinda looks like it | |
243 | # isn't needed, but just in case, please keep it in for now. | |
244 | gas_finish | |
245 | ||
246 | # Did we find what we were looking for? If not, flunk it. | |
247 | if [expr $x==7] then { pass $testname } else { fail $testname } | |
248 | } | |
249 | ||
250 | proc do_mem {} { | |
251 | set testname "mem.s: memory operations" | |
252 | set x 0 | |
253 | ||
254 | gas_start "mem.s" "-al" | |
255 | ||
256 | # Instead of having a variable for each match string just increment the | |
257 | # total number of matches seen. That's simpler when testing large numbers | |
258 | # of instructions (as these tests to). | |
259 | while 1 { | |
260 | expect { | |
261 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
262 | -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] } | |
263 | -re "^ +\[0-9\]+ 0008\[^\n\]*\n" { set x [expr $x+1] } | |
264 | -re "^ +\[0-9\]+ 000c\[^\n\]*\n" { set x [expr $x+1] } | |
265 | -re "^ +\[0-9\]+ 000e\[^\n\]*\n" { set x [expr $x+1] } | |
266 | -re "^ +\[0-9\]+ 0010\[^\n\]*\n" { set x [expr $x+1] } | |
267 | -re "^ +\[0-9\]+ 0012\[^\n\]*\n" { set x [expr $x+1] } | |
268 | -re "^ +\[0-9\]+ 0016\[^\n\]*\n" { set x [expr $x+1] } | |
269 | -re "^ +\[0-9\]+ 001a\[^\n\]*\n" { set x [expr $x+1] } | |
270 | -re "^ +\[0-9\]+ 001e\[^\n\]*\n" { set x [expr $x+1] } | |
271 | -re "^ +\[0-9\]+ 0020\[^\n\]*\n" { set x [expr $x+1] } | |
272 | -re "^ +\[0-9\]+ 0022\[^\n\]*\n" { set x [expr $x+1] } | |
273 | -re "\[^\n\]*\n" { } | |
274 | timeout { perror "timeout\n"; break } | |
275 | eof { break } | |
276 | } | |
277 | } | |
278 | ||
279 | # This was intended to do any cleanup necessary. It kinda looks like it | |
280 | # isn't needed, but just in case, please keep it in for now. | |
281 | gas_finish | |
282 | ||
283 | # Did we find what we were looking for? If not, flunk it. | |
284 | if [expr $x==12] then { pass $testname } else { fail $testname } | |
285 | } | |
286 | ||
287 | proc do_misc {} { | |
288 | set testname "misc.s: misc operations" | |
289 | set x 0 | |
290 | ||
291 | gas_start "misc.s" "-al" | |
292 | ||
293 | # Instead of having a variable for each match string just increment the | |
294 | # total number of matches seen. That's simpler when testing large numbers | |
295 | # of instructions (as these tests to). | |
296 | while 1 { | |
297 | expect { | |
298 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
299 | -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] } | |
300 | -re "^ +\[0-9\]+ 0008\[^\n\]*\n" { set x [expr $x+1] } | |
301 | -re "^ +\[0-9\]+ 000c\[^\n\]*\n" { set x [expr $x+1] } | |
302 | -re "^ +\[0-9\]+ 000e\[^\n\]*\n" { set x [expr $x+1] } | |
4fc797ff JL |
303 | -re "^ +\[0-9\]+ 0012\[^\n\]*\n" { set x [expr $x+1] } |
304 | -re "^ +\[0-9\]+ 0016\[^\n\]*\n" { set x [expr $x+1] } | |
827b8074 JL |
305 | -re "^ +\[0-9\]+ 001a\[^\n\]*\n" { set x [expr $x+1] } |
306 | -re "^ +\[0-9\]+ 001e\[^\n\]*\n" { set x [expr $x+1] } | |
50f7abfa JL |
307 | -re "\[^\n\]*\n" { } |
308 | timeout { perror "timeout\n"; break } | |
309 | eof { break } | |
310 | } | |
311 | } | |
312 | ||
313 | # This was intended to do any cleanup necessary. It kinda looks like it | |
314 | # isn't needed, but just in case, please keep it in for now. | |
315 | gas_finish | |
316 | ||
317 | # Did we find what we were looking for? If not, flunk it. | |
827b8074 | 318 | if [expr $x==9] then { pass $testname } else { fail $testname } |
50f7abfa JL |
319 | } |
320 | ||
321 | proc do_move {} { | |
322 | set testname "move.s: move operations" | |
323 | set x 0 | |
324 | ||
325 | gas_start "move.s" "-al" | |
326 | ||
327 | # Instead of having a variable for each match string just increment the | |
328 | # total number of matches seen. That's simpler when testing large numbers | |
329 | # of instructions (as these tests to). | |
330 | while 1 { | |
331 | expect { | |
332 | -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] } | |
333 | -re "^ +\[0-9\]+ 0002\[^\n\]*\n" { set x [expr $x+1] } | |
334 | -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] } | |
335 | -re "^ +\[0-9\]+ 0008\[^\n\]*\n" { set x [expr $x+1] } | |
336 | -re "\[^\n\]*\n" { } | |
337 | timeout { perror "timeout\n"; break } | |
338 | eof { break } | |
339 | } | |
340 | } | |
341 | ||
342 | # This was intended to do any cleanup necessary. It kinda looks like it | |
343 | # isn't needed, but just in case, please keep it in for now. | |
344 | gas_finish | |
345 | ||
346 | # Did we find what we were looking for? If not, flunk it. | |
347 | if [expr $x==4] then { pass $testname } else { setup_xfail "*-*-*" ; fail $testname } | |
348 | } | |
349 | ||
350 | if [istarget v850*-*-*] then { | |
351 | # Test the basic instruction parser. | |
352 | do_arith | |
353 | do_bit | |
354 | do_branch | |
355 | do_compare | |
356 | do_jumps | |
357 | do_logical | |
358 | do_mem | |
359 | do_misc | |
360 | do_move | |
361 | } |