?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Merge tag 'v9.0.0-rc3'
[qemu/ar7.git] / disas / cris.c
blob959efd9112597d30b858a4c19b5faa9fc2ad3c35
1 /* Disassembler code for CRIS.
2 Copyright 2000, 2001, 2002, 2004, 2005, 2006 Free Software Foundation, Inc.
3 Contributed by Axis Communications AB, Lund, Sweden.
4 Written by Hans-Peter Nilsson.
5
6 This file is part of the GNU binutils and GDB, the GNU debugger.
7
8 This program is free software; you can redistribute it and/or modify it
9 under the terms of the GNU General Public License as published by the
10 Free Software Foundation; either version 2, or (at your option) any later
11 version.
12
13 This program is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16 more details.
17
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, see <http://www.gnu.org/licenses/>. */
20
21 #include "qemu/osdep.h"
22 #include "disas/dis-asm.h"
23 #include "target/cris/opcode-cris.h"
24
25 #define CONST_STRNEQ(STR1,STR2) (strncmp ((STR1), (STR2), sizeof (STR2) - 1) == 0)
26
27 /* cris-opc.c -- Table of opcodes for the CRIS processor.
28 Copyright 2000, 2001, 2004 Free Software Foundation, Inc.
29 Contributed by Axis Communications AB, Lund, Sweden.
30 Originally written for GAS 1.38.1 by Mikael Asker.
31 Reorganized by Hans-Peter Nilsson.
32
33 This file is part of GAS, GDB and the GNU binutils.
34
35 GAS, GDB, and GNU binutils is free software; you can redistribute it
36 and/or modify it under the terms of the GNU General Public License as
37 published by the Free Software Foundation; either version 2, or (at your
38 option) any later version.
39
40 GAS, GDB, and GNU binutils are distributed in the hope that they will be
41 useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
42 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
43 GNU General Public License for more details.
44
45 You should have received a copy of the GNU General Public License
46 along with this program; if not, see <http://www.gnu.org/licenses/>. */
47
48 #ifndef NULL
49 #define NULL (0)
50 #endif
51
52 /* This table isn't used for CRISv32 and the size of immediate operands. */
53 const struct cris_spec_reg
54 cris_spec_regs[] =
55 {
56 {"bz", 0, 1, cris_ver_v32p, NULL},
57 {"p0", 0, 1, 0, NULL},
58 {"vr", 1, 1, 0, NULL},
59 {"p1", 1, 1, 0, NULL},
60 {"pid", 2, 1, cris_ver_v32p, NULL},
61 {"p2", 2, 1, cris_ver_v32p, NULL},
62 {"p2", 2, 1, cris_ver_warning, NULL},
63 {"srs", 3, 1, cris_ver_v32p, NULL},
64 {"p3", 3, 1, cris_ver_v32p, NULL},
65 {"p3", 3, 1, cris_ver_warning, NULL},
66 {"wz", 4, 2, cris_ver_v32p, NULL},
67 {"p4", 4, 2, 0, NULL},
68 {"ccr", 5, 2, cris_ver_v0_10, NULL},
69 {"exs", 5, 4, cris_ver_v32p, NULL},
70 {"p5", 5, 2, cris_ver_v0_10, NULL},
71 {"p5", 5, 4, cris_ver_v32p, NULL},
72 {"dcr0",6, 2, cris_ver_v0_3, NULL},
73 {"eda", 6, 4, cris_ver_v32p, NULL},
74 {"p6", 6, 2, cris_ver_v0_3, NULL},
75 {"p6", 6, 4, cris_ver_v32p, NULL},
76 {"dcr1/mof", 7, 4, cris_ver_v10p,
77 "Register `dcr1/mof' with ambiguous size specified. Guessing 4 bytes"},
78 {"dcr1/mof", 7, 2, cris_ver_v0_3,
79 "Register `dcr1/mof' with ambiguous size specified. Guessing 2 bytes"},
80 {"mof", 7, 4, cris_ver_v10p, NULL},
81 {"dcr1",7, 2, cris_ver_v0_3, NULL},
82 {"p7", 7, 4, cris_ver_v10p, NULL},
83 {"p7", 7, 2, cris_ver_v0_3, NULL},
84 {"dz", 8, 4, cris_ver_v32p, NULL},
85 {"p8", 8, 4, 0, NULL},
86 {"ibr", 9, 4, cris_ver_v0_10, NULL},
87 {"ebp", 9, 4, cris_ver_v32p, NULL},
88 {"p9", 9, 4, 0, NULL},
89 {"irp", 10, 4, cris_ver_v0_10, NULL},
90 {"erp", 10, 4, cris_ver_v32p, NULL},
91 {"p10", 10, 4, 0, NULL},
92 {"srp", 11, 4, 0, NULL},
93 {"p11", 11, 4, 0, NULL},
94 /* For disassembly use only. Accept at assembly with a warning. */
95 {"bar/dtp0", 12, 4, cris_ver_warning,
96 "Ambiguous register `bar/dtp0' specified"},
97 {"nrp", 12, 4, cris_ver_v32p, NULL},
98 {"bar", 12, 4, cris_ver_v8_10, NULL},
99 {"dtp0",12, 4, cris_ver_v0_3, NULL},
100 {"p12", 12, 4, 0, NULL},
101 /* For disassembly use only. Accept at assembly with a warning. */
102 {"dccr/dtp1",13, 4, cris_ver_warning,
103 "Ambiguous register `dccr/dtp1' specified"},
104 {"ccs", 13, 4, cris_ver_v32p, NULL},
105 {"dccr",13, 4, cris_ver_v8_10, NULL},
106 {"dtp1",13, 4, cris_ver_v0_3, NULL},
107 {"p13", 13, 4, 0, NULL},
108 {"brp", 14, 4, cris_ver_v3_10, NULL},
109 {"usp", 14, 4, cris_ver_v32p, NULL},
110 {"p14", 14, 4, cris_ver_v3p, NULL},
111 {"usp", 15, 4, cris_ver_v10, NULL},
112 {"spc", 15, 4, cris_ver_v32p, NULL},
113 {"p15", 15, 4, cris_ver_v10p, NULL},
114 {NULL, 0, 0, cris_ver_version_all, NULL}
115 };
116
117 /* Add version specifiers to this table when necessary.
118 The (now) regular coding of register names suggests a simpler
119 implementation. */
120 const struct cris_support_reg cris_support_regs[] =
121 {
122 {"s0", 0},
123 {"s1", 1},
124 {"s2", 2},
125 {"s3", 3},
126 {"s4", 4},
127 {"s5", 5},
128 {"s6", 6},
129 {"s7", 7},
130 {"s8", 8},
131 {"s9", 9},
132 {"s10", 10},
133 {"s11", 11},
134 {"s12", 12},
135 {"s13", 13},
136 {"s14", 14},
137 {"s15", 15},
138 {NULL, 0}
139 };
140
141 /* All CRIS opcodes are 16 bits.
142
143 - The match component is a mask saying which bits must match a
144 particular opcode in order for an instruction to be an instance
145 of that opcode.
146
147 - The args component is a string containing characters symbolically
148 matching the operands of an instruction. Used for both assembly
149 and disassembly.
150
151 Operand-matching characters:
152 [ ] , space
153 Verbatim.
154 A The string "ACR" (case-insensitive).
155 B Not really an operand. It causes a "BDAP -size,SP" prefix to be
156 output for the PUSH alias-instructions and recognizes a push-
157 prefix at disassembly. This letter isn't recognized for v32.
158 Must be followed by a R or P letter.
159 ! Non-match pattern, will not match if there's a prefix insn.
160 b Non-matching operand, used for branches with 16-bit
161 displacement. Only recognized by the disassembler.
162 c 5-bit unsigned immediate in bits <4:0>.
163 C 4-bit unsigned immediate in bits <3:0>.
164 d At assembly, optionally (as in put other cases before this one)
165 ".d" or ".D" at the start of the operands, followed by one space
166 character. At disassembly, nothing.
167 D General register in bits <15:12> and <3:0>.
168 f List of flags in bits <15:12> and <3:0>.
169 i 6-bit signed immediate in bits <5:0>.
170 I 6-bit unsigned immediate in bits <5:0>.
171 M Size modifier (B, W or D) for CLEAR instructions.
172 m Size modifier (B, W or D) in bits <5:4>
173 N A 32-bit dword, like in the difference between s and y.
174 This has no effect on bits in the opcode. Can also be expressed
175 as "[pc+]" in input.
176 n As N, but PC-relative (to the start of the instruction).
177 o [-128..127] word offset in bits <7:1> and <0>. Used by 8-bit
178 branch instructions.
179 O [-128..127] offset in bits <7:0>. Also matches a comma and a
180 general register after the expression, in bits <15:12>. Used
181 only for the BDAP prefix insn (in v32 the ADDOQ insn; same opcode).
182 P Special register in bits <15:12>.
183 p Indicates that the insn is a prefix insn. Must be first
184 character.
185 Q As O, but don't relax; force an 8-bit offset.
186 R General register in bits <15:12>.
187 r General register in bits <3:0>.
188 S Source operand in bit <10> and a prefix; a 3-operand prefix
189 without side-effect.
190 s Source operand in bits <10> and <3:0>, optionally with a
191 side-effect prefix, except [pc] (the name, not R15 as in ACR)
192 isn't allowed for v32 and higher.
193 T Support register in bits <15:12>.
194 u 4-bit (PC-relative) unsigned immediate word offset in bits <3:0>.
195 U Relaxes to either u or n, instruction is assumed LAPCQ or LAPC.
196 Not recognized at disassembly.
197 x Register-dot-modifier, for example "r5.w" in bits <15:12> and <5:4>.
198 y Like 's' but do not allow an integer at assembly.
199 Y The difference s-y; only an integer is allowed.
200 z Size modifier (B or W) in bit <4>. */
201
202
203 /* Please note the order of the opcodes in this table is significant.
204 The assembler requires that all instances of the same mnemonic must
205 be consecutive. If they aren't, the assembler might not recognize
206 them, or may indicate an internal error.
207
208 The disassembler should not normally care about the order of the
209 opcodes, but will prefer an earlier alternative if the "match-score"
210 (see cris-dis.c) is computed as equal.
211
212 It should not be significant for proper execution that this table is
213 in alphabetical order, but please follow that convention for an easy
214 overview. */
215
216 const struct cris_opcode
217 cris_opcodes[] =
218 {
219 {"abs", 0x06B0, 0x0940, "r,R", 0, SIZE_NONE, 0,
220 cris_abs_op},
221
222 {"add", 0x0600, 0x09c0, "m r,R", 0, SIZE_NONE, 0,
223 cris_reg_mode_add_sub_cmp_and_or_move_op},
224
225 {"add", 0x0A00, 0x01c0, "m s,R", 0, SIZE_FIELD, 0,
226 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
227
228 {"add", 0x0A00, 0x01c0, "m S,D", 0, SIZE_NONE,
229 cris_ver_v0_10,
230 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
231
232 {"add", 0x0a00, 0x05c0, "m S,R,r", 0, SIZE_NONE,
233 cris_ver_v0_10,
234 cris_three_operand_add_sub_cmp_and_or_op},
235
236 {"add", 0x0A00, 0x01c0, "m s,R", 0, SIZE_FIELD,
237 cris_ver_v32p,
238 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
239
240 {"addc", 0x0570, 0x0A80, "r,R", 0, SIZE_FIX_32,
241 cris_ver_v32p,
242 cris_not_implemented_op},
243
244 {"addc", 0x09A0, 0x0250, "s,R", 0, SIZE_FIX_32,
245 cris_ver_v32p,
246 cris_not_implemented_op},
247
248 {"addi", 0x0540, 0x0A80, "x,r,A", 0, SIZE_NONE,
249 cris_ver_v32p,
250 cris_addi_op},
251
252 {"addi", 0x0500, 0x0Ac0, "x,r", 0, SIZE_NONE, 0,
253 cris_addi_op},
254
255 /* This collates after "addo", but we want to disassemble as "addoq",
256 not "addo". */
257 {"addoq", 0x0100, 0x0E00, "Q,A", 0, SIZE_NONE,
258 cris_ver_v32p,
259 cris_not_implemented_op},
260
261 {"addo", 0x0940, 0x0280, "m s,R,A", 0, SIZE_FIELD_SIGNED,
262 cris_ver_v32p,
263 cris_not_implemented_op},
264
265 /* This must be located after the insn above, lest we misinterpret
266 "addo.b -1,r0,acr" as "addo .b-1,r0,acr". FIXME: Sounds like a
267 parser bug. */
268 {"addo", 0x0100, 0x0E00, "O,A", 0, SIZE_NONE,
269 cris_ver_v32p,
270 cris_not_implemented_op},
271
272 {"addq", 0x0200, 0x0Dc0, "I,R", 0, SIZE_NONE, 0,
273 cris_quick_mode_add_sub_op},
274
275 {"adds", 0x0420, 0x0Bc0, "z r,R", 0, SIZE_NONE, 0,
276 cris_reg_mode_add_sub_cmp_and_or_move_op},
277
278 /* FIXME: SIZE_FIELD_SIGNED and all necessary changes. */
279 {"adds", 0x0820, 0x03c0, "z s,R", 0, SIZE_FIELD, 0,
280 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
281
282 {"adds", 0x0820, 0x03c0, "z S,D", 0, SIZE_NONE,
283 cris_ver_v0_10,
284 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
285
286 {"adds", 0x0820, 0x07c0, "z S,R,r", 0, SIZE_NONE,
287 cris_ver_v0_10,
288 cris_three_operand_add_sub_cmp_and_or_op},
289
290 {"addu", 0x0400, 0x0be0, "z r,R", 0, SIZE_NONE, 0,
291 cris_reg_mode_add_sub_cmp_and_or_move_op},
292
293 /* FIXME: SIZE_FIELD_UNSIGNED and all necessary changes. */
294 {"addu", 0x0800, 0x03e0, "z s,R", 0, SIZE_FIELD, 0,
295 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
296
297 {"addu", 0x0800, 0x03e0, "z S,D", 0, SIZE_NONE,
298 cris_ver_v0_10,
299 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
300
301 {"addu", 0x0800, 0x07e0, "z S,R,r", 0, SIZE_NONE,
302 cris_ver_v0_10,
303 cris_three_operand_add_sub_cmp_and_or_op},
304
305 {"and", 0x0700, 0x08C0, "m r,R", 0, SIZE_NONE, 0,
306 cris_reg_mode_add_sub_cmp_and_or_move_op},
307
308 {"and", 0x0B00, 0x00C0, "m s,R", 0, SIZE_FIELD, 0,
309 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
310
311 {"and", 0x0B00, 0x00C0, "m S,D", 0, SIZE_NONE,
312 cris_ver_v0_10,
313 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
314
315 {"and", 0x0B00, 0x04C0, "m S,R,r", 0, SIZE_NONE,
316 cris_ver_v0_10,
317 cris_three_operand_add_sub_cmp_and_or_op},
318
319 {"andq", 0x0300, 0x0CC0, "i,R", 0, SIZE_NONE, 0,
320 cris_quick_mode_and_cmp_move_or_op},
321
322 {"asr", 0x0780, 0x0840, "m r,R", 0, SIZE_NONE, 0,
323 cris_asr_op},
324
325 {"asrq", 0x03a0, 0x0c40, "c,R", 0, SIZE_NONE, 0,
326 cris_asrq_op},
327
328 {"ax", 0x15B0, 0xEA4F, "", 0, SIZE_NONE, 0,
329 cris_ax_ei_setf_op},
330
331 /* FIXME: Should use branch #defines. */
332 {"b", 0x0dff, 0x0200, "b", 1, SIZE_NONE, 0,
333 cris_sixteen_bit_offset_branch_op},
334
335 {"ba",
336 BA_QUICK_OPCODE,
337 0x0F00+(0xF-CC_A)*0x1000, "o", 1, SIZE_NONE, 0,
338 cris_eight_bit_offset_branch_op},
339
340 /* Needs to come after the usual "ba o", which might be relaxed to
341 this one. */
342 {"ba", BA_DWORD_OPCODE,
343 0xffff & (~BA_DWORD_OPCODE), "n", 0, SIZE_FIX_32,
344 cris_ver_v32p,
345 cris_none_reg_mode_jump_op},
346
347 {"bas", 0x0EBF, 0x0140, "n,P", 0, SIZE_FIX_32,
348 cris_ver_v32p,
349 cris_none_reg_mode_jump_op},
350
351 {"basc", 0x0EFF, 0x0100, "n,P", 0, SIZE_FIX_32,
352 cris_ver_v32p,
353 cris_none_reg_mode_jump_op},
354
355 {"bcc",
356 BRANCH_QUICK_OPCODE+CC_CC*0x1000,
357 0x0f00+(0xF-CC_CC)*0x1000, "o", 1, SIZE_NONE, 0,
358 cris_eight_bit_offset_branch_op},
359
360 {"bcs",
361 BRANCH_QUICK_OPCODE+CC_CS*0x1000,
362 0x0f00+(0xF-CC_CS)*0x1000, "o", 1, SIZE_NONE, 0,
363 cris_eight_bit_offset_branch_op},
364
365 {"bdap",
366 BDAP_INDIR_OPCODE, BDAP_INDIR_Z_BITS, "pm s,R", 0, SIZE_FIELD_SIGNED,
367 cris_ver_v0_10,
368 cris_bdap_prefix},
369
370 {"bdap",
371 BDAP_QUICK_OPCODE, BDAP_QUICK_Z_BITS, "pO", 0, SIZE_NONE,
372 cris_ver_v0_10,
373 cris_quick_mode_bdap_prefix},
374
375 {"beq",
376 BRANCH_QUICK_OPCODE+CC_EQ*0x1000,
377 0x0f00+(0xF-CC_EQ)*0x1000, "o", 1, SIZE_NONE, 0,
378 cris_eight_bit_offset_branch_op},
379
380 /* This is deliberately put before "bext" to trump it, even though not
381 in alphabetical order, since we don't do excluding version checks
382 for v0..v10. */
383 {"bwf",
384 BRANCH_QUICK_OPCODE+CC_EXT*0x1000,
385 0x0f00+(0xF-CC_EXT)*0x1000, "o", 1, SIZE_NONE,
386 cris_ver_v10,
387 cris_eight_bit_offset_branch_op},
388
389 {"bext",
390 BRANCH_QUICK_OPCODE+CC_EXT*0x1000,
391 0x0f00+(0xF-CC_EXT)*0x1000, "o", 1, SIZE_NONE,
392 cris_ver_v0_3,
393 cris_eight_bit_offset_branch_op},
394
395 {"bge",
396 BRANCH_QUICK_OPCODE+CC_GE*0x1000,
397 0x0f00+(0xF-CC_GE)*0x1000, "o", 1, SIZE_NONE, 0,
398 cris_eight_bit_offset_branch_op},
399
400 {"bgt",
401 BRANCH_QUICK_OPCODE+CC_GT*0x1000,
402 0x0f00+(0xF-CC_GT)*0x1000, "o", 1, SIZE_NONE, 0,
403 cris_eight_bit_offset_branch_op},
404
405 {"bhi",
406 BRANCH_QUICK_OPCODE+CC_HI*0x1000,
407 0x0f00+(0xF-CC_HI)*0x1000, "o", 1, SIZE_NONE, 0,
408 cris_eight_bit_offset_branch_op},
409
410 {"bhs",
411 BRANCH_QUICK_OPCODE+CC_HS*0x1000,
412 0x0f00+(0xF-CC_HS)*0x1000, "o", 1, SIZE_NONE, 0,
413 cris_eight_bit_offset_branch_op},
414
415 {"biap", BIAP_OPCODE, BIAP_Z_BITS, "pm r,R", 0, SIZE_NONE,
416 cris_ver_v0_10,
417 cris_biap_prefix},
418
419 {"ble",
420 BRANCH_QUICK_OPCODE+CC_LE*0x1000,
421 0x0f00+(0xF-CC_LE)*0x1000, "o", 1, SIZE_NONE, 0,
422 cris_eight_bit_offset_branch_op},
423
424 {"blo",
425 BRANCH_QUICK_OPCODE+CC_LO*0x1000,
426 0x0f00+(0xF-CC_LO)*0x1000, "o", 1, SIZE_NONE, 0,
427 cris_eight_bit_offset_branch_op},
428
429 {"bls",
430 BRANCH_QUICK_OPCODE+CC_LS*0x1000,
431 0x0f00+(0xF-CC_LS)*0x1000, "o", 1, SIZE_NONE, 0,
432 cris_eight_bit_offset_branch_op},
433
434 {"blt",
435 BRANCH_QUICK_OPCODE+CC_LT*0x1000,
436 0x0f00+(0xF-CC_LT)*0x1000, "o", 1, SIZE_NONE, 0,
437 cris_eight_bit_offset_branch_op},
438
439 {"bmi",
440 BRANCH_QUICK_OPCODE+CC_MI*0x1000,
441 0x0f00+(0xF-CC_MI)*0x1000, "o", 1, SIZE_NONE, 0,
442 cris_eight_bit_offset_branch_op},
443
444 {"bmod", 0x0ab0, 0x0140, "s,R", 0, SIZE_FIX_32,
445 cris_ver_sim_v0_10,
446 cris_not_implemented_op},
447
448 {"bmod", 0x0ab0, 0x0140, "S,D", 0, SIZE_NONE,
449 cris_ver_sim_v0_10,
450 cris_not_implemented_op},
451
452 {"bmod", 0x0ab0, 0x0540, "S,R,r", 0, SIZE_NONE,
453 cris_ver_sim_v0_10,
454 cris_not_implemented_op},
455
456 {"bne",
457 BRANCH_QUICK_OPCODE+CC_NE*0x1000,
458 0x0f00+(0xF-CC_NE)*0x1000, "o", 1, SIZE_NONE, 0,
459 cris_eight_bit_offset_branch_op},
460
461 {"bound", 0x05c0, 0x0A00, "m r,R", 0, SIZE_NONE, 0,
462 cris_two_operand_bound_op},
463 /* FIXME: SIZE_FIELD_UNSIGNED and all necessary changes. */
464 {"bound", 0x09c0, 0x0200, "m s,R", 0, SIZE_FIELD,
465 cris_ver_v0_10,
466 cris_two_operand_bound_op},
467 /* FIXME: SIZE_FIELD_UNSIGNED and all necessary changes. */
468 {"bound", 0x0dcf, 0x0200, "m Y,R", 0, SIZE_FIELD, 0,
469 cris_two_operand_bound_op},
470 {"bound", 0x09c0, 0x0200, "m S,D", 0, SIZE_NONE,
471 cris_ver_v0_10,
472 cris_two_operand_bound_op},
473 {"bound", 0x09c0, 0x0600, "m S,R,r", 0, SIZE_NONE,
474 cris_ver_v0_10,
475 cris_three_operand_bound_op},
476
477 {"bpl",
478 BRANCH_QUICK_OPCODE+CC_PL*0x1000,
479 0x0f00+(0xF-CC_PL)*0x1000, "o", 1, SIZE_NONE, 0,
480 cris_eight_bit_offset_branch_op},
481
482 {"break", 0xe930, 0x16c0, "C", 0, SIZE_NONE,
483 cris_ver_v3p,
484 cris_break_op},
485
486 {"bsb",
487 BRANCH_QUICK_OPCODE+CC_EXT*0x1000,
488 0x0f00+(0xF-CC_EXT)*0x1000, "o", 1, SIZE_NONE,
489 cris_ver_v32p,
490 cris_eight_bit_offset_branch_op},
491
492 {"bsr", 0xBEBF, 0x4140, "n", 0, SIZE_FIX_32,
493 cris_ver_v32p,
494 cris_none_reg_mode_jump_op},
495
496 {"bsrc", 0xBEFF, 0x4100, "n", 0, SIZE_FIX_32,
497 cris_ver_v32p,
498 cris_none_reg_mode_jump_op},
499
500 {"bstore", 0x0af0, 0x0100, "s,R", 0, SIZE_FIX_32,
501 cris_ver_warning,
502 cris_not_implemented_op},
503
504 {"bstore", 0x0af0, 0x0100, "S,D", 0, SIZE_NONE,
505 cris_ver_warning,
506 cris_not_implemented_op},
507
508 {"bstore", 0x0af0, 0x0500, "S,R,r", 0, SIZE_NONE,
509 cris_ver_warning,
510 cris_not_implemented_op},
511
512 {"btst", 0x04F0, 0x0B00, "r,R", 0, SIZE_NONE, 0,
513 cris_btst_nop_op},
514 {"btstq", 0x0380, 0x0C60, "c,R", 0, SIZE_NONE, 0,
515 cris_btst_nop_op},
516
517 {"bvc",
518 BRANCH_QUICK_OPCODE+CC_VC*0x1000,
519 0x0f00+(0xF-CC_VC)*0x1000, "o", 1, SIZE_NONE, 0,
520 cris_eight_bit_offset_branch_op},
521
522 {"bvs",
523 BRANCH_QUICK_OPCODE+CC_VS*0x1000,
524 0x0f00+(0xF-CC_VS)*0x1000, "o", 1, SIZE_NONE, 0,
525 cris_eight_bit_offset_branch_op},
526
527 {"clear", 0x0670, 0x3980, "M r", 0, SIZE_NONE, 0,
528 cris_reg_mode_clear_op},
529
530 {"clear", 0x0A70, 0x3180, "M y", 0, SIZE_NONE, 0,
531 cris_none_reg_mode_clear_test_op},
532
533 {"clear", 0x0A70, 0x3180, "M S", 0, SIZE_NONE,
534 cris_ver_v0_10,
535 cris_none_reg_mode_clear_test_op},
536
537 {"clearf", 0x05F0, 0x0A00, "f", 0, SIZE_NONE, 0,
538 cris_clearf_di_op},
539
540 {"cmp", 0x06C0, 0x0900, "m r,R", 0, SIZE_NONE, 0,
541 cris_reg_mode_add_sub_cmp_and_or_move_op},
542
543 {"cmp", 0x0Ac0, 0x0100, "m s,R", 0, SIZE_FIELD, 0,
544 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
545
546 {"cmp", 0x0Ac0, 0x0100, "m S,D", 0, SIZE_NONE,
547 cris_ver_v0_10,
548 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
549
550 {"cmpq", 0x02C0, 0x0D00, "i,R", 0, SIZE_NONE, 0,
551 cris_quick_mode_and_cmp_move_or_op},
552
553 /* FIXME: SIZE_FIELD_SIGNED and all necessary changes. */
554 {"cmps", 0x08e0, 0x0300, "z s,R", 0, SIZE_FIELD, 0,
555 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
556
557 {"cmps", 0x08e0, 0x0300, "z S,D", 0, SIZE_NONE,
558 cris_ver_v0_10,
559 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
560
561 /* FIXME: SIZE_FIELD_UNSIGNED and all necessary changes. */
562 {"cmpu", 0x08c0, 0x0320, "z s,R" , 0, SIZE_FIELD, 0,
563 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
564
565 {"cmpu", 0x08c0, 0x0320, "z S,D", 0, SIZE_NONE,
566 cris_ver_v0_10,
567 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
568
569 {"di", 0x25F0, 0xDA0F, "", 0, SIZE_NONE, 0,
570 cris_clearf_di_op},
571
572 {"dip", DIP_OPCODE, DIP_Z_BITS, "ps", 0, SIZE_FIX_32,
573 cris_ver_v0_10,
574 cris_dip_prefix},
575
576 {"div", 0x0980, 0x0640, "m R,r", 0, SIZE_FIELD, 0,
577 cris_not_implemented_op},
578
579 {"dstep", 0x06f0, 0x0900, "r,R", 0, SIZE_NONE, 0,
580 cris_dstep_logshift_mstep_neg_not_op},
581
582 {"ei", 0x25B0, 0xDA4F, "", 0, SIZE_NONE, 0,
583 cris_ax_ei_setf_op},
584
585 {"fidxd", 0x0ab0, 0xf540, "[r]", 0, SIZE_NONE,
586 cris_ver_v32p,
587 cris_not_implemented_op},
588
589 {"fidxi", 0x0d30, 0xF2C0, "[r]", 0, SIZE_NONE,
590 cris_ver_v32p,
591 cris_not_implemented_op},
592
593 {"ftagd", 0x1AB0, 0xE540, "[r]", 0, SIZE_NONE,
594 cris_ver_v32p,
595 cris_not_implemented_op},
596
597 {"ftagi", 0x1D30, 0xE2C0, "[r]", 0, SIZE_NONE,
598 cris_ver_v32p,
599 cris_not_implemented_op},
600
601 {"halt", 0xF930, 0x06CF, "", 0, SIZE_NONE,
602 cris_ver_v32p,
603 cris_not_implemented_op},
604
605 {"jas", 0x09B0, 0x0640, "r,P", 0, SIZE_NONE,
606 cris_ver_v32p,
607 cris_reg_mode_jump_op},
608
609 {"jas", 0x0DBF, 0x0240, "N,P", 0, SIZE_FIX_32,
610 cris_ver_v32p,
611 cris_reg_mode_jump_op},
612
613 {"jasc", 0x0B30, 0x04C0, "r,P", 0, SIZE_NONE,
614 cris_ver_v32p,
615 cris_reg_mode_jump_op},
616
617 {"jasc", 0x0F3F, 0x00C0, "N,P", 0, SIZE_FIX_32,
618 cris_ver_v32p,
619 cris_reg_mode_jump_op},
620
621 {"jbrc", 0x69b0, 0x9640, "r", 0, SIZE_NONE,
622 cris_ver_v8_10,
623 cris_reg_mode_jump_op},
624
625 {"jbrc", 0x6930, 0x92c0, "s", 0, SIZE_FIX_32,
626 cris_ver_v8_10,
627 cris_none_reg_mode_jump_op},
628
629 {"jbrc", 0x6930, 0x92c0, "S", 0, SIZE_NONE,
630 cris_ver_v8_10,
631 cris_none_reg_mode_jump_op},
632
633 {"jir", 0xA9b0, 0x5640, "r", 0, SIZE_NONE,
634 cris_ver_v8_10,
635 cris_reg_mode_jump_op},
636
637 {"jir", 0xA930, 0x52c0, "s", 0, SIZE_FIX_32,
638 cris_ver_v8_10,
639 cris_none_reg_mode_jump_op},
640
641 {"jir", 0xA930, 0x52c0, "S", 0, SIZE_NONE,
642 cris_ver_v8_10,
643 cris_none_reg_mode_jump_op},
644
645 {"jirc", 0x29b0, 0xd640, "r", 0, SIZE_NONE,
646 cris_ver_v8_10,
647 cris_reg_mode_jump_op},
648
649 {"jirc", 0x2930, 0xd2c0, "s", 0, SIZE_FIX_32,
650 cris_ver_v8_10,
651 cris_none_reg_mode_jump_op},
652
653 {"jirc", 0x2930, 0xd2c0, "S", 0, SIZE_NONE,
654 cris_ver_v8_10,
655 cris_none_reg_mode_jump_op},
656
657 {"jsr", 0xB9b0, 0x4640, "r", 0, SIZE_NONE, 0,
658 cris_reg_mode_jump_op},
659
660 {"jsr", 0xB930, 0x42c0, "s", 0, SIZE_FIX_32,
661 cris_ver_v0_10,
662 cris_none_reg_mode_jump_op},
663
664 {"jsr", 0xBDBF, 0x4240, "N", 0, SIZE_FIX_32,
665 cris_ver_v32p,
666 cris_none_reg_mode_jump_op},
667
668 {"jsr", 0xB930, 0x42c0, "S", 0, SIZE_NONE,
669 cris_ver_v0_10,
670 cris_none_reg_mode_jump_op},
671
672 {"jsrc", 0x39b0, 0xc640, "r", 0, SIZE_NONE,
673 cris_ver_v8_10,
674 cris_reg_mode_jump_op},
675
676 {"jsrc", 0x3930, 0xc2c0, "s", 0, SIZE_FIX_32,
677 cris_ver_v8_10,
678 cris_none_reg_mode_jump_op},
679
680 {"jsrc", 0x3930, 0xc2c0, "S", 0, SIZE_NONE,
681 cris_ver_v8_10,
682 cris_none_reg_mode_jump_op},
683
684 {"jsrc", 0xBB30, 0x44C0, "r", 0, SIZE_NONE,
685 cris_ver_v32p,
686 cris_reg_mode_jump_op},
687
688 {"jsrc", 0xBF3F, 0x40C0, "N", 0, SIZE_FIX_32,
689 cris_ver_v32p,
690 cris_reg_mode_jump_op},
691
692 {"jump", 0x09b0, 0xF640, "r", 0, SIZE_NONE, 0,
693 cris_reg_mode_jump_op},
694
695 {"jump",
696 JUMP_INDIR_OPCODE, JUMP_INDIR_Z_BITS, "s", 0, SIZE_FIX_32,
697 cris_ver_v0_10,
698 cris_none_reg_mode_jump_op},
699
700 {"jump",
701 JUMP_INDIR_OPCODE, JUMP_INDIR_Z_BITS, "S", 0, SIZE_NONE,
702 cris_ver_v0_10,
703 cris_none_reg_mode_jump_op},
704
705 {"jump", 0x09F0, 0x060F, "P", 0, SIZE_NONE,
706 cris_ver_v32p,
707 cris_none_reg_mode_jump_op},
708
709 {"jump",
710 JUMP_PC_INCR_OPCODE_V32,
711 (0xffff & ~JUMP_PC_INCR_OPCODE_V32), "N", 0, SIZE_FIX_32,
712 cris_ver_v32p,
713 cris_none_reg_mode_jump_op},
714
715 {"jmpu", 0x8930, 0x72c0, "s", 0, SIZE_FIX_32,
716 cris_ver_v10,
717 cris_none_reg_mode_jump_op},
718
719 {"jmpu", 0x8930, 0x72c0, "S", 0, SIZE_NONE,
720 cris_ver_v10,
721 cris_none_reg_mode_jump_op},
722
723 {"lapc", 0x0970, 0x0680, "U,R", 0, SIZE_NONE,
724 cris_ver_v32p,
725 cris_not_implemented_op},
726
727 {"lapc", 0x0D7F, 0x0280, "dn,R", 0, SIZE_FIX_32,
728 cris_ver_v32p,
729 cris_not_implemented_op},
730
731 {"lapcq", 0x0970, 0x0680, "u,R", 0, SIZE_NONE,
732 cris_ver_v32p,
733 cris_addi_op},
734
735 {"lsl", 0x04C0, 0x0B00, "m r,R", 0, SIZE_NONE, 0,
736 cris_dstep_logshift_mstep_neg_not_op},
737
738 {"lslq", 0x03c0, 0x0C20, "c,R", 0, SIZE_NONE, 0,
739 cris_dstep_logshift_mstep_neg_not_op},
740
741 {"lsr", 0x07C0, 0x0800, "m r,R", 0, SIZE_NONE, 0,
742 cris_dstep_logshift_mstep_neg_not_op},
743
744 {"lsrq", 0x03e0, 0x0C00, "c,R", 0, SIZE_NONE, 0,
745 cris_dstep_logshift_mstep_neg_not_op},
746
747 {"lz", 0x0730, 0x08C0, "r,R", 0, SIZE_NONE,
748 cris_ver_v3p,
749 cris_not_implemented_op},
750
751 {"mcp", 0x07f0, 0x0800, "P,r", 0, SIZE_NONE,
752 cris_ver_v32p,
753 cris_not_implemented_op},
754
755 {"move", 0x0640, 0x0980, "m r,R", 0, SIZE_NONE, 0,
756 cris_reg_mode_add_sub_cmp_and_or_move_op},
757
758 {"move", 0x0A40, 0x0180, "m s,R", 0, SIZE_FIELD, 0,
759 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
760
761 {"move", 0x0A40, 0x0180, "m S,D", 0, SIZE_NONE,
762 cris_ver_v0_10,
763 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
764
765 {"move", 0x0630, 0x09c0, "r,P", 0, SIZE_NONE, 0,
766 cris_move_to_preg_op},
767
768 {"move", 0x0670, 0x0980, "P,r", 0, SIZE_NONE, 0,
769 cris_reg_mode_move_from_preg_op},
770
771 {"move", 0x0BC0, 0x0000, "m R,y", 0, SIZE_FIELD, 0,
772 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
773
774 {"move", 0x0BC0, 0x0000, "m D,S", 0, SIZE_NONE,
775 cris_ver_v0_10,
776 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
777
778 {"move",
779 MOVE_M_TO_PREG_OPCODE, MOVE_M_TO_PREG_ZBITS,
780 "s,P", 0, SIZE_SPEC_REG, 0,
781 cris_move_to_preg_op},
782
783 {"move", 0x0A30, 0x01c0, "S,P", 0, SIZE_NONE,
784 cris_ver_v0_10,
785 cris_move_to_preg_op},
786
787 {"move", 0x0A70, 0x0180, "P,y", 0, SIZE_SPEC_REG, 0,
788 cris_none_reg_mode_move_from_preg_op},
789
790 {"move", 0x0A70, 0x0180, "P,S", 0, SIZE_NONE,
791 cris_ver_v0_10,
792 cris_none_reg_mode_move_from_preg_op},
793
794 {"move", 0x0B70, 0x0480, "r,T", 0, SIZE_NONE,
795 cris_ver_v32p,
796 cris_not_implemented_op},
797
798 {"move", 0x0F70, 0x0080, "T,r", 0, SIZE_NONE,
799 cris_ver_v32p,
800 cris_not_implemented_op},
801
802 {"movem", 0x0BF0, 0x0000, "R,y", 0, SIZE_FIX_32, 0,
803 cris_move_reg_to_mem_movem_op},
804
805 {"movem", 0x0BF0, 0x0000, "D,S", 0, SIZE_NONE,
806 cris_ver_v0_10,
807 cris_move_reg_to_mem_movem_op},
808
809 {"movem", 0x0BB0, 0x0040, "s,R", 0, SIZE_FIX_32, 0,
810 cris_move_mem_to_reg_movem_op},
811
812 {"movem", 0x0BB0, 0x0040, "S,D", 0, SIZE_NONE,
813 cris_ver_v0_10,
814 cris_move_mem_to_reg_movem_op},
815
816 {"moveq", 0x0240, 0x0D80, "i,R", 0, SIZE_NONE, 0,
817 cris_quick_mode_and_cmp_move_or_op},
818
819 {"movs", 0x0460, 0x0B80, "z r,R", 0, SIZE_NONE, 0,
820 cris_reg_mode_add_sub_cmp_and_or_move_op},
821
822 /* FIXME: SIZE_FIELD_SIGNED and all necessary changes. */
823 {"movs", 0x0860, 0x0380, "z s,R", 0, SIZE_FIELD, 0,
824 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
825
826 {"movs", 0x0860, 0x0380, "z S,D", 0, SIZE_NONE,
827 cris_ver_v0_10,
828 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
829
830 {"movu", 0x0440, 0x0Ba0, "z r,R", 0, SIZE_NONE, 0,
831 cris_reg_mode_add_sub_cmp_and_or_move_op},
832
833 /* FIXME: SIZE_FIELD_UNSIGNED and all necessary changes. */
834 {"movu", 0x0840, 0x03a0, "z s,R", 0, SIZE_FIELD, 0,
835 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
836
837 {"movu", 0x0840, 0x03a0, "z S,D", 0, SIZE_NONE,
838 cris_ver_v0_10,
839 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
840
841 {"mstep", 0x07f0, 0x0800, "r,R", 0, SIZE_NONE,
842 cris_ver_v0_10,
843 cris_dstep_logshift_mstep_neg_not_op},
844
845 {"muls", 0x0d00, 0x02c0, "m r,R", 0, SIZE_NONE,
846 cris_ver_v10p,
847 cris_muls_op},
848
849 {"mulu", 0x0900, 0x06c0, "m r,R", 0, SIZE_NONE,
850 cris_ver_v10p,
851 cris_mulu_op},
852
853 {"neg", 0x0580, 0x0A40, "m r,R", 0, SIZE_NONE, 0,
854 cris_dstep_logshift_mstep_neg_not_op},
855
856 {"nop", NOP_OPCODE, NOP_Z_BITS, "", 0, SIZE_NONE,
857 cris_ver_v0_10,
858 cris_btst_nop_op},
859
860 {"nop", NOP_OPCODE_V32, NOP_Z_BITS_V32, "", 0, SIZE_NONE,
861 cris_ver_v32p,
862 cris_btst_nop_op},
863
864 {"not", 0x8770, 0x7880, "r", 0, SIZE_NONE, 0,
865 cris_dstep_logshift_mstep_neg_not_op},
866
867 {"or", 0x0740, 0x0880, "m r,R", 0, SIZE_NONE, 0,
868 cris_reg_mode_add_sub_cmp_and_or_move_op},
869
870 {"or", 0x0B40, 0x0080, "m s,R", 0, SIZE_FIELD, 0,
871 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
872
873 {"or", 0x0B40, 0x0080, "m S,D", 0, SIZE_NONE,
874 cris_ver_v0_10,
875 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
876
877 {"or", 0x0B40, 0x0480, "m S,R,r", 0, SIZE_NONE,
878 cris_ver_v0_10,
879 cris_three_operand_add_sub_cmp_and_or_op},
880
881 {"orq", 0x0340, 0x0C80, "i,R", 0, SIZE_NONE, 0,
882 cris_quick_mode_and_cmp_move_or_op},
883
884 {"pop", 0x0E6E, 0x0191, "!R", 0, SIZE_NONE,
885 cris_ver_v0_10,
886 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
887
888 {"pop", 0x0e3e, 0x01c1, "!P", 0, SIZE_NONE,
889 cris_ver_v0_10,
890 cris_none_reg_mode_move_from_preg_op},
891
892 {"push", 0x0FEE, 0x0011, "BR", 0, SIZE_NONE,
893 cris_ver_v0_10,
894 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
895
896 {"push", 0x0E7E, 0x0181, "BP", 0, SIZE_NONE,
897 cris_ver_v0_10,
898 cris_move_to_preg_op},
899
900 {"rbf", 0x3b30, 0xc0c0, "y", 0, SIZE_NONE,
901 cris_ver_v10,
902 cris_not_implemented_op},
903
904 {"rbf", 0x3b30, 0xc0c0, "S", 0, SIZE_NONE,
905 cris_ver_v10,
906 cris_not_implemented_op},
907
908 {"rfe", 0x2930, 0xD6CF, "", 0, SIZE_NONE,
909 cris_ver_v32p,
910 cris_not_implemented_op},
911
912 {"rfg", 0x4930, 0xB6CF, "", 0, SIZE_NONE,
913 cris_ver_v32p,
914 cris_not_implemented_op},
915
916 {"rfn", 0x5930, 0xA6CF, "", 0, SIZE_NONE,
917 cris_ver_v32p,
918 cris_not_implemented_op},
919
920 {"ret", 0xB67F, 0x4980, "", 1, SIZE_NONE,
921 cris_ver_v0_10,
922 cris_reg_mode_move_from_preg_op},
923
924 {"ret", 0xB9F0, 0x460F, "", 1, SIZE_NONE,
925 cris_ver_v32p,
926 cris_reg_mode_move_from_preg_op},
927
928 {"retb", 0xe67f, 0x1980, "", 1, SIZE_NONE,
929 cris_ver_v0_10,
930 cris_reg_mode_move_from_preg_op},
931
932 {"rete", 0xA9F0, 0x560F, "", 1, SIZE_NONE,
933 cris_ver_v32p,
934 cris_reg_mode_move_from_preg_op},
935
936 {"reti", 0xA67F, 0x5980, "", 1, SIZE_NONE,
937 cris_ver_v0_10,
938 cris_reg_mode_move_from_preg_op},
939
940 {"retn", 0xC9F0, 0x360F, "", 1, SIZE_NONE,
941 cris_ver_v32p,
942 cris_reg_mode_move_from_preg_op},
943
944 {"sbfs", 0x3b70, 0xc080, "y", 0, SIZE_NONE,
945 cris_ver_v10,
946 cris_not_implemented_op},
947
948 {"sbfs", 0x3b70, 0xc080, "S", 0, SIZE_NONE,
949 cris_ver_v10,
950 cris_not_implemented_op},
951
952 {"sa",
953 0x0530+CC_A*0x1000,
954 0x0AC0+(0xf-CC_A)*0x1000, "r", 0, SIZE_NONE, 0,
955 cris_scc_op},
956
957 {"ssb",
958 0x0530+CC_EXT*0x1000,
959 0x0AC0+(0xf-CC_EXT)*0x1000, "r", 0, SIZE_NONE,
960 cris_ver_v32p,
961 cris_scc_op},
962
963 {"scc",
964 0x0530+CC_CC*0x1000,
965 0x0AC0+(0xf-CC_CC)*0x1000, "r", 0, SIZE_NONE, 0,
966 cris_scc_op},
967
968 {"scs",
969 0x0530+CC_CS*0x1000,
970 0x0AC0+(0xf-CC_CS)*0x1000, "r", 0, SIZE_NONE, 0,
971 cris_scc_op},
972
973 {"seq",
974 0x0530+CC_EQ*0x1000,
975 0x0AC0+(0xf-CC_EQ)*0x1000, "r", 0, SIZE_NONE, 0,
976 cris_scc_op},
977
978 {"setf", 0x05b0, 0x0A40, "f", 0, SIZE_NONE, 0,
979 cris_ax_ei_setf_op},
980
981 {"sfe", 0x3930, 0xC6CF, "", 0, SIZE_NONE,
982 cris_ver_v32p,
983 cris_not_implemented_op},
984
985 /* Need to have "swf" in front of "sext" so it is the one displayed in
986 disassembly. */
987 {"swf",
988 0x0530+CC_EXT*0x1000,
989 0x0AC0+(0xf-CC_EXT)*0x1000, "r", 0, SIZE_NONE,
990 cris_ver_v10,
991 cris_scc_op},
992
993 {"sext",
994 0x0530+CC_EXT*0x1000,
995 0x0AC0+(0xf-CC_EXT)*0x1000, "r", 0, SIZE_NONE,
996 cris_ver_v0_3,
997 cris_scc_op},
998
999 {"sge",
1000 0x0530+CC_GE*0x1000,
1001 0x0AC0+(0xf-CC_GE)*0x1000, "r", 0, SIZE_NONE, 0,
1002 cris_scc_op},
1003
1004 {"sgt",
1005 0x0530+CC_GT*0x1000,
1006 0x0AC0+(0xf-CC_GT)*0x1000, "r", 0, SIZE_NONE, 0,
1007 cris_scc_op},
1008
1009 {"shi",
1010 0x0530+CC_HI*0x1000,
1011 0x0AC0+(0xf-CC_HI)*0x1000, "r", 0, SIZE_NONE, 0,
1012 cris_scc_op},
1013
1014 {"shs",
1015 0x0530+CC_HS*0x1000,
1016 0x0AC0+(0xf-CC_HS)*0x1000, "r", 0, SIZE_NONE, 0,
1017 cris_scc_op},
1018
1019 {"sle",
1020 0x0530+CC_LE*0x1000,
1021 0x0AC0+(0xf-CC_LE)*0x1000, "r", 0, SIZE_NONE, 0,
1022 cris_scc_op},
1023
1024 {"slo",
1025 0x0530+CC_LO*0x1000,
1026 0x0AC0+(0xf-CC_LO)*0x1000, "r", 0, SIZE_NONE, 0,
1027 cris_scc_op},
1028
1029 {"sls",
1030 0x0530+CC_LS*0x1000,
1031 0x0AC0+(0xf-CC_LS)*0x1000, "r", 0, SIZE_NONE, 0,
1032 cris_scc_op},
1033
1034 {"slt",
1035 0x0530+CC_LT*0x1000,
1036 0x0AC0+(0xf-CC_LT)*0x1000, "r", 0, SIZE_NONE, 0,
1037 cris_scc_op},
1038
1039 {"smi",
1040 0x0530+CC_MI*0x1000,
1041 0x0AC0+(0xf-CC_MI)*0x1000, "r", 0, SIZE_NONE, 0,
1042 cris_scc_op},
1043
1044 {"sne",
1045 0x0530+CC_NE*0x1000,
1046 0x0AC0+(0xf-CC_NE)*0x1000, "r", 0, SIZE_NONE, 0,
1047 cris_scc_op},
1048
1049 {"spl",
1050 0x0530+CC_PL*0x1000,
1051 0x0AC0+(0xf-CC_PL)*0x1000, "r", 0, SIZE_NONE, 0,
1052 cris_scc_op},
1053
1054 {"sub", 0x0680, 0x0940, "m r,R", 0, SIZE_NONE, 0,
1055 cris_reg_mode_add_sub_cmp_and_or_move_op},
1056
1057 {"sub", 0x0a80, 0x0140, "m s,R", 0, SIZE_FIELD, 0,
1058 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
1059
1060 {"sub", 0x0a80, 0x0140, "m S,D", 0, SIZE_NONE,
1061 cris_ver_v0_10,
1062 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
1063
1064 {"sub", 0x0a80, 0x0540, "m S,R,r", 0, SIZE_NONE,
1065 cris_ver_v0_10,
1066 cris_three_operand_add_sub_cmp_and_or_op},
1067
1068 {"subq", 0x0280, 0x0d40, "I,R", 0, SIZE_NONE, 0,
1069 cris_quick_mode_add_sub_op},
1070
1071 {"subs", 0x04a0, 0x0b40, "z r,R", 0, SIZE_NONE, 0,
1072 cris_reg_mode_add_sub_cmp_and_or_move_op},
1073
1074 /* FIXME: SIZE_FIELD_SIGNED and all necessary changes. */
1075 {"subs", 0x08a0, 0x0340, "z s,R", 0, SIZE_FIELD, 0,
1076 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
1077
1078 {"subs", 0x08a0, 0x0340, "z S,D", 0, SIZE_NONE,
1079 cris_ver_v0_10,
1080 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
1081
1082 {"subs", 0x08a0, 0x0740, "z S,R,r", 0, SIZE_NONE,
1083 cris_ver_v0_10,
1084 cris_three_operand_add_sub_cmp_and_or_op},
1085
1086 {"subu", 0x0480, 0x0b60, "z r,R", 0, SIZE_NONE, 0,
1087 cris_reg_mode_add_sub_cmp_and_or_move_op},
1088
1089 /* FIXME: SIZE_FIELD_UNSIGNED and all necessary changes. */
1090 {"subu", 0x0880, 0x0360, "z s,R", 0, SIZE_FIELD, 0,
1091 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
1092
1093 {"subu", 0x0880, 0x0360, "z S,D", 0, SIZE_NONE,
1094 cris_ver_v0_10,
1095 cris_none_reg_mode_add_sub_cmp_and_or_move_op},
1096
1097 {"subu", 0x0880, 0x0760, "z S,R,r", 0, SIZE_NONE,
1098 cris_ver_v0_10,
1099 cris_three_operand_add_sub_cmp_and_or_op},
1100
1101 {"svc",
1102 0x0530+CC_VC*0x1000,
1103 0x0AC0+(0xf-CC_VC)*0x1000, "r", 0, SIZE_NONE, 0,
1104 cris_scc_op},
1105
1106 {"svs",
1107 0x0530+CC_VS*0x1000,
1108 0x0AC0+(0xf-CC_VS)*0x1000, "r", 0, SIZE_NONE, 0,
1109 cris_scc_op},
1110
1111 /* The insn "swapn" is the same as "not" and will be disassembled as
1112 such, but the swap* family of mnmonics are generally v8-and-higher
1113 only, so count it in. */
1114 {"swapn", 0x8770, 0x7880, "r", 0, SIZE_NONE,
1115 cris_ver_v8p,
1116 cris_not_implemented_op},
1117
1118 {"swapw", 0x4770, 0xb880, "r", 0, SIZE_NONE,
1119 cris_ver_v8p,
1120 cris_not_implemented_op},
1121
1122 {"swapnw", 0xc770, 0x3880, "r", 0, SIZE_NONE,
1123 cris_ver_v8p,
1124 cris_not_implemented_op},
1125
1126 {"swapb", 0x2770, 0xd880, "r", 0, SIZE_NONE,
1127 cris_ver_v8p,
1128 cris_not_implemented_op},
1129
1130 {"swapnb", 0xA770, 0x5880, "r", 0, SIZE_NONE,
1131 cris_ver_v8p,
1132 cris_not_implemented_op},
1133
1134 {"swapwb", 0x6770, 0x9880, "r", 0, SIZE_NONE,
1135 cris_ver_v8p,
1136 cris_not_implemented_op},
1137
1138 {"swapnwb", 0xE770, 0x1880, "r", 0, SIZE_NONE,
1139 cris_ver_v8p,
1140 cris_not_implemented_op},
1141
1142 {"swapr", 0x1770, 0xe880, "r", 0, SIZE_NONE,
1143 cris_ver_v8p,
1144 cris_not_implemented_op},
1145
1146 {"swapnr", 0x9770, 0x6880, "r", 0, SIZE_NONE,
1147 cris_ver_v8p,
1148 cris_not_implemented_op},
1149
1150 {"swapwr", 0x5770, 0xa880, "r", 0, SIZE_NONE,
1151 cris_ver_v8p,
1152 cris_not_implemented_op},
1153
1154 {"swapnwr", 0xd770, 0x2880, "r", 0, SIZE_NONE,
1155 cris_ver_v8p,
1156 cris_not_implemented_op},
1157
1158 {"swapbr", 0x3770, 0xc880, "r", 0, SIZE_NONE,
1159 cris_ver_v8p,
1160 cris_not_implemented_op},
1161
1162 {"swapnbr", 0xb770, 0x4880, "r", 0, SIZE_NONE,
1163 cris_ver_v8p,
1164 cris_not_implemented_op},
1165
1166 {"swapwbr", 0x7770, 0x8880, "r", 0, SIZE_NONE,
1167 cris_ver_v8p,
1168 cris_not_implemented_op},
1169
1170 {"swapnwbr", 0xf770, 0x0880, "r", 0, SIZE_NONE,
1171 cris_ver_v8p,
1172 cris_not_implemented_op},
1173
1174 {"test", 0x0640, 0x0980, "m D", 0, SIZE_NONE,
1175 cris_ver_v0_10,
1176 cris_reg_mode_test_op},
1177
1178 {"test", 0x0b80, 0xf040, "m y", 0, SIZE_FIELD, 0,
1179 cris_none_reg_mode_clear_test_op},
1180
1181 {"test", 0x0b80, 0xf040, "m S", 0, SIZE_NONE,
1182 cris_ver_v0_10,
1183 cris_none_reg_mode_clear_test_op},
1184
1185 {"xor", 0x07B0, 0x0840, "r,R", 0, SIZE_NONE, 0,
1186 cris_xor_op},
1187
1188 {NULL, 0, 0, NULL, 0, 0, 0, cris_not_implemented_op}
1189 };
1190
1191 /* Condition-names, indexed by the CC_* numbers as found in cris.h. */
1192 const char * const
1193 cris_cc_strings[] =
1194 {
1195 "hs",
1196 "lo",
1197 "ne",
1198 "eq",
1199 "vc",
1200 "vs",
1201 "pl",
1202 "mi",
1203 "ls",
1204 "hi",
1205 "ge",
1206 "lt",
1207 "gt",
1208 "le",
1209 "a",
1210 /* This is a placeholder. In v0, this would be "ext". In v32, this
1211 is "sb". */
1212 "wf"
1213 };
1214
1215 /*
1216 * Local variables:
1217 * eval: (c-set-style "gnu")
1218 * indent-tabs-mode: t
1219 * End:
1220 */
1221
1222
1223 /* No instruction will be disassembled longer than this. In theory, and
1224 in silicon, address prefixes can be cascaded. In practice, cascading
1225 is not used by GCC, and not supported by the assembler. */
1226 #ifndef MAX_BYTES_PER_CRIS_INSN
1227 #define MAX_BYTES_PER_CRIS_INSN 8
1228 #endif
1229
1230 /* Whether or not to decode prefixes, folding it into the following
1231 instruction. FIXME: Make this optional later. */
1232 #ifndef PARSE_PREFIX
1233 #define PARSE_PREFIX 1
1234 #endif
1235
1236 /* Sometimes we prefix all registers with this character. */
1237 #define REGISTER_PREFIX_CHAR '$'
1238
1239 /* Whether or not to trace the following sequence:
1240 sub* X,r%d
1241 bound* Y,r%d
1242 adds.w [pc+r%d.w],pc
1243
1244 This is the assembly form of a switch-statement in C.
1245 The "sub is optional. If there is none, then X will be zero.
1246 X is the value of the first case,
1247 Y is the number of cases (including default).
1248
1249 This results in case offsets printed on the form:
1250 case N: -> case_address
1251 where N is an estimation on the corresponding 'case' operand in C,
1252 and case_address is where execution of that case continues after the
1253 sequence presented above.
1254
1255 The old style of output was to print the offsets as instructions,
1256 which made it hard to follow "case"-constructs in the disassembly,
1257 and caused a lot of annoying warnings about undefined instructions.
1258
1259 FIXME: Make this optional later. */
1260 #ifndef TRACE_CASE
1261 #define TRACE_CASE (disdata->trace_case)
1262 #endif
1263
1264 enum cris_disass_family
1265 { cris_dis_v0_v10, cris_dis_common_v10_v32, cris_dis_v32 };
1266
1267 /* Stored in the disasm_info->private_data member. */
1268 struct cris_disasm_data
1269 {
1270 /* Whether to print something less confusing if we find something
1271 matching a switch-construct. */
1272 bfd_boolean trace_case;
1273
1274 /* Whether this code is flagged as crisv32. FIXME: Should be an enum
1275 that includes "compatible". */
1276 enum cris_disass_family distype;
1277 };
1278
1279 /* Value of first element in switch. */
1280 static long case_offset = 0;
1281
1282 /* How many more case-offsets to print. */
1283 static long case_offset_counter = 0;
1284
1285 /* Number of case offsets. */
1286 static long no_of_case_offsets = 0;
1287
1288 /* Candidate for next case_offset. */
1289 static long last_immediate = 0;
1290
1291 static int cris_constraint
1292 (const char *, unsigned, unsigned, struct cris_disasm_data *);
1293
1294 /* Parse disassembler options and store state in info. FIXME: For the
1295 time being, we abuse static variables. */
1296
1297 static void
1298 cris_parse_disassembler_options (struct cris_disasm_data *disdata,
1299 char *disassembler_options,
1300 enum cris_disass_family distype)
1301 {
1302 /* Default true. */
1303 disdata->trace_case
1304 = (disassembler_options == NULL
1305 || (strcmp (disassembler_options, "nocase") != 0));
1306
1307 disdata->distype = distype;
1308 }
1309
1310 static const struct cris_spec_reg *
1311 spec_reg_info (unsigned int sreg, enum cris_disass_family distype)
1312 {
1313 int i;
1314
1315 for (i = 0; cris_spec_regs[i].name != NULL; i++)
1316 {
1317 if (cris_spec_regs[i].number == sreg)
1318 {
1319 if (distype == cris_dis_v32)
1320 switch (cris_spec_regs[i].applicable_version)
1321 {
1322 case cris_ver_warning:
1323 case cris_ver_version_all:
1324 case cris_ver_v3p:
1325 case cris_ver_v8p:
1326 case cris_ver_v10p:
1327 case cris_ver_v32p:
1328 /* No ambiguous sizes or register names with CRISv32. */
1329 if (cris_spec_regs[i].warning == NULL)
1330 return &cris_spec_regs[i];
1331 default:
1332 ;
1333 }
1334 else if (cris_spec_regs[i].applicable_version != cris_ver_v32p)
1335 return &cris_spec_regs[i];
1336 }
1337 }
1338
1339 return NULL;
1340 }
1341
1342 /* Return the number of bits in the argument. */
1343
1344 static int
1345 number_of_bits (unsigned int val)
1346 {
1347 int bits;
1348
1349 for (bits = 0; val != 0; val &= val - 1)
1350 bits++;
1351
1352 return bits;
1353 }
1354
1355 /* Get an entry in the opcode-table. */
1356
1357 static const struct cris_opcode *
1358 get_opcode_entry (unsigned int insn,
1359 unsigned int prefix_insn,
1360 struct cris_disasm_data *disdata)
1361 {
1362 /* For non-prefixed insns, we keep a table of pointers, indexed by the
1363 insn code. Each entry is initialized when found to be NULL. */
1364 static const struct cris_opcode **opc_table = NULL;
1365
1366 const struct cris_opcode *max_matchedp = NULL;
1367 const struct cris_opcode **prefix_opc_table = NULL;
1368
1369 /* We hold a table for each prefix that need to be handled differently. */
1370 static const struct cris_opcode **dip_prefixes = NULL;
1371 static const struct cris_opcode **bdapq_m1_prefixes = NULL;
1372 static const struct cris_opcode **bdapq_m2_prefixes = NULL;
1373 static const struct cris_opcode **bdapq_m4_prefixes = NULL;
1374 static const struct cris_opcode **rest_prefixes = NULL;
1375
1376 /* Allocate and clear the opcode-table. */
1377 if (opc_table == NULL)
1378 {
1379 opc_table = g_new0(const struct cris_opcode *, 65536);
1380 dip_prefixes = g_new0(const struct cris_opcode *, 65536);
1381 bdapq_m1_prefixes = g_new0(const struct cris_opcode *, 65536);
1382 bdapq_m2_prefixes = g_new0(const struct cris_opcode *, 65536);
1383 bdapq_m4_prefixes = g_new0(const struct cris_opcode *, 65536);
1384 rest_prefixes = g_new0(const struct cris_opcode *, 65536);
1385 }
1386
1387 /* Get the right table if this is a prefix.
1388 This code is connected to cris_constraints in that it knows what
1389 prefixes play a role in recognition of patterns; the necessary
1390 state is reflected by which table is used. If constraints
1391 involving match or non-match of prefix insns are changed, then this
1392 probably needs changing too. */
1393 if (prefix_insn != NO_CRIS_PREFIX)
1394 {
1395 const struct cris_opcode *popcodep
1396 = (opc_table[prefix_insn] != NULL
1397 ? opc_table[prefix_insn]
1398 : get_opcode_entry (prefix_insn, NO_CRIS_PREFIX, disdata));
1399
1400 if (popcodep == NULL)
1401 return NULL;
1402
1403 if (popcodep->match == BDAP_QUICK_OPCODE)
1404 {
1405 /* Since some offsets are recognized with "push" macros, we
1406 have to have different tables for them. */
1407 int offset = (prefix_insn & 255);
1408
1409 if (offset > 127)
1410 offset -= 256;
1411
1412 switch (offset)
1413 {
1414 case -4:
1415 prefix_opc_table = bdapq_m4_prefixes;
1416 break;
1417
1418 case -2:
1419 prefix_opc_table = bdapq_m2_prefixes;
1420 break;
1421
1422 case -1:
1423 prefix_opc_table = bdapq_m1_prefixes;
1424 break;
1425
1426 default:
1427 prefix_opc_table = rest_prefixes;
1428 break;
1429 }
1430 }
1431 else if (popcodep->match == DIP_OPCODE)
1432 /* We don't allow postincrement when the prefix is DIP, so use a
1433 different table for DIP. */
1434 prefix_opc_table = dip_prefixes;
1435 else
1436 prefix_opc_table = rest_prefixes;
1437 }
1438
1439 if (prefix_insn != NO_CRIS_PREFIX
1440 && prefix_opc_table[insn] != NULL)
1441 max_matchedp = prefix_opc_table[insn];
1442 else if (prefix_insn == NO_CRIS_PREFIX && opc_table[insn] != NULL)
1443 max_matchedp = opc_table[insn];
1444 else
1445 {
1446 const struct cris_opcode *opcodep;
1447 int max_level_of_match = -1;
1448
1449 for (opcodep = cris_opcodes;
1450 opcodep->name != NULL;
1451 opcodep++)
1452 {
1453 int level_of_match;
1454
1455 if (disdata->distype == cris_dis_v32)
1456 {
1457 switch (opcodep->applicable_version)
1458 {
1459 case cris_ver_version_all:
1460 break;
1461
1462 case cris_ver_v0_3:
1463 case cris_ver_v0_10:
1464 case cris_ver_v3_10:
1465 case cris_ver_sim_v0_10:
1466 case cris_ver_v8_10:
1467 case cris_ver_v10:
1468 case cris_ver_warning:
1469 continue;
1470
1471 case cris_ver_v3p:
1472 case cris_ver_v8p:
1473 case cris_ver_v10p:
1474 case cris_ver_v32p:
1475 break;
1476
1477 case cris_ver_v8:
1478 abort ();
1479 default:
1480 abort ();
1481 }
1482 }
1483 else
1484 {
1485 switch (opcodep->applicable_version)
1486 {
1487 case cris_ver_version_all:
1488 case cris_ver_v0_3:
1489 case cris_ver_v3p:
1490 case cris_ver_v0_10:
1491 case cris_ver_v8p:
1492 case cris_ver_v8_10:
1493 case cris_ver_v10:
1494 case cris_ver_sim_v0_10:
1495 case cris_ver_v10p:
1496 case cris_ver_warning:
1497 break;
1498
1499 case cris_ver_v32p:
1500 continue;
1501
1502 case cris_ver_v8:
1503 abort ();
1504 default:
1505 abort ();
1506 }
1507 }
1508
1509 /* We give a double lead for bits matching the template in
1510 cris_opcodes. Not even, because then "move p8,r10" would
1511 be given 2 bits lead over "clear.d r10". When there's a
1512 tie, the first entry in the table wins. This is
1513 deliberate, to avoid a more complicated recognition
1514 formula. */
1515 if ((opcodep->match & insn) == opcodep->match
1516 && (opcodep->lose & insn) == 0
1517 && ((level_of_match
1518 = cris_constraint (opcodep->args,
1519 insn,
1520 prefix_insn,
1521 disdata))
1522 >= 0)
1523 && ((level_of_match
1524 += 2 * number_of_bits (opcodep->match
1525 | opcodep->lose))
1526 > max_level_of_match))
1527 {
1528 max_matchedp = opcodep;
1529 max_level_of_match = level_of_match;
1530
1531 /* If there was a full match, never mind looking
1532 further. */
1533 if (level_of_match >= 2 * 16)
1534 break;
1535 }
1536 }
1537 /* Fill in the new entry.
1538
1539 If there are changes to the opcode-table involving prefixes, and
1540 disassembly then does not work correctly, try removing the
1541 else-clause below that fills in the prefix-table. If that
1542 helps, you need to change the prefix_opc_table setting above, or
1543 something related. */
1544 if (prefix_insn == NO_CRIS_PREFIX)
1545 opc_table[insn] = max_matchedp;
1546 else
1547 prefix_opc_table[insn] = max_matchedp;
1548 }
1549
1550 return max_matchedp;
1551 }
1552
1553 /* Return -1 if the constraints of a bitwise-matched instruction say
1554 that there is no match. Otherwise return a nonnegative number
1555 indicating the confidence in the match (higher is better). */
1556
1557 static int
1558 cris_constraint (const char *cs,
1559 unsigned int insn,
1560 unsigned int prefix_insn,
1561 struct cris_disasm_data *disdata)
1562 {
1563 int retval = 0;
1564 int tmp;
1565 int prefix_ok = 0;
1566 const char *s;
1567
1568 for (s = cs; *s; s++)
1569 switch (*s)
1570 {
1571 case '!':
1572 /* Do not recognize "pop" if there's a prefix and then only for
1573 v0..v10. */
1574 if (prefix_insn != NO_CRIS_PREFIX
1575 || disdata->distype != cris_dis_v0_v10)
1576 return -1;
1577 break;
1578
1579 case 'U':
1580 /* Not recognized at disassembly. */
1581 return -1;
1582
1583 case 'M':
1584 /* Size modifier for "clear", i.e. special register 0, 4 or 8.
1585 Check that it is one of them. Only special register 12 could
1586 be mismatched, but checking for matches is more logical than
1587 checking for mismatches when there are only a few cases. */
1588 tmp = ((insn >> 12) & 0xf);
1589 if (tmp != 0 && tmp != 4 && tmp != 8)
1590 return -1;
1591 break;
1592
1593 case 'm':
1594 if ((insn & 0x30) == 0x30)
1595 return -1;
1596 break;
1597
1598 case 'S':
1599 /* A prefix operand without side-effect. */
1600 if (prefix_insn != NO_CRIS_PREFIX && (insn & 0x400) == 0)
1601 {
1602 prefix_ok = 1;
1603 break;
1604 }
1605 else
1606 return -1;
1607
1608 case 's':
1609 case 'y':
1610 case 'Y':
1611 /* If this is a prefixed insn with postincrement (side-effect),
1612 the prefix must not be DIP. */
1613 if (prefix_insn != NO_CRIS_PREFIX)
1614 {
1615 if (insn & 0x400)
1616 {
1617 const struct cris_opcode *prefix_opcodep
1618 = get_opcode_entry (prefix_insn, NO_CRIS_PREFIX, disdata);
1619
1620 if (prefix_opcodep->match == DIP_OPCODE)
1621 return -1;
1622 }
1623
1624 prefix_ok = 1;
1625 }
1626 break;
1627
1628 case 'B':
1629 /* If we don't fall through, then the prefix is ok. */
1630 prefix_ok = 1;
1631
1632 /* A "push" prefix. Check for valid "push" size.
1633 In case of special register, it may be != 4. */
1634 if (prefix_insn != NO_CRIS_PREFIX)
1635 {
1636 /* Match the prefix insn to BDAPQ. */
1637 const struct cris_opcode *prefix_opcodep
1638 = get_opcode_entry (prefix_insn, NO_CRIS_PREFIX, disdata);
1639
1640 if (prefix_opcodep->match == BDAP_QUICK_OPCODE)
1641 {
1642 int pushsize = (prefix_insn & 255);
1643
1644 if (pushsize > 127)
1645 pushsize -= 256;
1646
1647 if (s[1] == 'P')
1648 {
1649 unsigned int spec_reg = (insn >> 12) & 15;
1650 const struct cris_spec_reg *sregp
1651 = spec_reg_info (spec_reg, disdata->distype);
1652
1653 /* For a special-register, the "prefix size" must
1654 match the size of the register. */
1655 if (sregp && sregp->reg_size == (unsigned int) -pushsize)
1656 break;
1657 }
1658 else if (s[1] == 'R')
1659 {
1660 if ((insn & 0x30) == 0x20 && pushsize == -4)
1661 break;
1662 }
1663 /* FIXME: Should abort here; next constraint letter
1664 *must* be 'P' or 'R'. */
1665 }
1666 }
1667 return -1;
1668
1669 case 'D':
1670 retval = (((insn >> 12) & 15) == (insn & 15));
1671 if (!retval)
1672 return -1;
1673 else
1674 retval += 4;
1675 break;
1676
1677 case 'P':
1678 {
1679 const struct cris_spec_reg *sregp
1680 = spec_reg_info ((insn >> 12) & 15, disdata->distype);
1681
1682 /* Since we match four bits, we will give a value of 4-1 = 3
1683 in a match. If there is a corresponding exact match of a
1684 special register in another pattern, it will get a value of
1685 4, which will be higher. This should be correct in that an
1686 exact pattern would match better than a general pattern.
1687
1688 Note that there is a reason for not returning zero; the
1689 pattern for "clear" is partly matched in the bit-pattern
1690 (the two lower bits must be zero), while the bit-pattern
1691 for a move from a special register is matched in the
1692 register constraint. */
1693
1694 if (sregp != NULL)
1695 {
1696 retval += 3;
1697 break;
1698 }
1699 else
1700 return -1;
1701 }
1702 }
1703
1704 if (prefix_insn != NO_CRIS_PREFIX && ! prefix_ok)
1705 return -1;
1706
1707 return retval;
1708 }
1709
1710 /* Format number as hex with a leading "0x" into outbuffer. */
1711
1712 static char *
1713 format_hex (unsigned long number,
1714 char *outbuffer,
1715 struct cris_disasm_data *disdata)
1716 {
1717 /* Truncate negative numbers on >32-bit hosts. */
1718 number &= 0xffffffff;
1719
1720 sprintf (outbuffer, "0x%lx", number);
1721
1722 /* Save this value for the "case" support. */
1723 if (TRACE_CASE)
1724 last_immediate = number;
1725
1726 return outbuffer + strlen (outbuffer);
1727 }
1728
1729 /* Format number as decimal into outbuffer. Parameter signedp says
1730 whether the number should be formatted as signed (!= 0) or
1731 unsigned (== 0). */
1732
1733 static char *
1734 format_dec (long number, char *outbuffer, size_t outsize, int signedp)
1735 {
1736 last_immediate = number;
1737 snprintf (outbuffer, outsize, signedp ? "%ld" : "%lu", number);
1738
1739 return outbuffer + strlen (outbuffer);
1740 }
1741
1742 /* Format the name of the general register regno into outbuffer. */
1743
1744 static char *
1745 format_reg (struct cris_disasm_data *disdata,
1746 int regno,
1747 char *outbuffer_start,
1748 bfd_boolean with_reg_prefix)
1749 {
1750 char *outbuffer = outbuffer_start;
1751
1752 if (with_reg_prefix)
1753 *outbuffer++ = REGISTER_PREFIX_CHAR;
1754
1755 switch (regno)
1756 {
1757 case 15:
1758 /* For v32, there is no context in which we output PC. */
1759 if (disdata->distype == cris_dis_v32)
1760 strcpy (outbuffer, "acr");
1761 else
1762 strcpy (outbuffer, "pc");
1763 break;
1764
1765 case 14:
1766 strcpy (outbuffer, "sp");
1767 break;
1768
1769 default:
1770 sprintf (outbuffer, "r%d", regno);
1771 break;
1772 }
1773
1774 return outbuffer_start + strlen (outbuffer_start);
1775 }
1776
1777 /* Format the name of a support register into outbuffer. */
1778
1779 static char *
1780 format_sup_reg (unsigned int regno,
1781 char *outbuffer_start,
1782 bfd_boolean with_reg_prefix)
1783 {
1784 char *outbuffer = outbuffer_start;
1785 int i;
1786
1787 if (with_reg_prefix)
1788 *outbuffer++ = REGISTER_PREFIX_CHAR;
1789
1790 for (i = 0; cris_support_regs[i].name != NULL; i++)
1791 if (cris_support_regs[i].number == regno)
1792 {
1793 sprintf (outbuffer, "%s", cris_support_regs[i].name);
1794 return outbuffer_start + strlen (outbuffer_start);
1795 }
1796
1797 /* There's supposed to be register names covering all numbers, though
1798 some may be generic names. */
1799 sprintf (outbuffer, "format_sup_reg-BUG");
1800 return outbuffer_start + strlen (outbuffer_start);
1801 }
1802
1803 /* Return the length of an instruction. */
1804
1805 static unsigned
1806 bytes_to_skip (unsigned int insn,
1807 const struct cris_opcode *matchedp,
1808 enum cris_disass_family distype,
1809 const struct cris_opcode *prefix_matchedp)
1810 {
1811 /* Each insn is a word plus "immediate" operands. */
1812 unsigned to_skip = 2;
1813 const char *template = matchedp->args;
1814 const char *s;
1815
1816 for (s = template; *s; s++)
1817 if ((*s == 's' || *s == 'N' || *s == 'Y')
1818 && (insn & 0x400) && (insn & 15) == 15
1819 && prefix_matchedp == NULL)
1820 {
1821 /* Immediate via [pc+], so we have to check the size of the
1822 operand. */
1823 int mode_size = 1 << ((insn >> 4) & (*template == 'z' ? 1 : 3));
1824
1825 if (matchedp->imm_oprnd_size == SIZE_FIX_32)
1826 to_skip += 4;
1827 else if (matchedp->imm_oprnd_size == SIZE_SPEC_REG)
1828 {
1829 const struct cris_spec_reg *sregp
1830 = spec_reg_info ((insn >> 12) & 15, distype);
1831
1832 /* FIXME: Improve error handling; should have been caught
1833 earlier. */
1834 if (sregp == NULL)
1835 return 2;
1836
1837 /* PC is incremented by two, not one, for a byte. Except on
1838 CRISv32, where constants are always DWORD-size for
1839 special registers. */
1840 to_skip +=
1841 distype == cris_dis_v32 ? 4 : (sregp->reg_size + 1) & ~1;
1842 }
1843 else
1844 to_skip += (mode_size + 1) & ~1;
1845 }
1846 else if (*s == 'n')
1847 to_skip += 4;
1848 else if (*s == 'b')
1849 to_skip += 2;
1850
1851 return to_skip;
1852 }
1853
1854 /* Print condition code flags. */
1855
1856 static char *
1857 print_flags (struct cris_disasm_data *disdata, unsigned int insn, char *cp)
1858 {
1859 /* Use the v8 (Etrax 100) flag definitions for disassembly.
1860 The differences with v0 (Etrax 1..4) vs. Svinto are:
1861 v0 'd' <=> v8 'm'
1862 v0 'e' <=> v8 'b'.
1863 FIXME: Emit v0..v3 flag names somehow. */
1864 static const char v8_fnames[] = "cvznxibm";
1865 static const char v32_fnames[] = "cvznxiup";
1866 const char *fnames
1867 = disdata->distype == cris_dis_v32 ? v32_fnames : v8_fnames;
1868
1869 unsigned char flagbits = (((insn >> 8) & 0xf0) | (insn & 15));
1870 int i;
1871
1872 for (i = 0; i < 8; i++)
1873 if (flagbits & (1 << i))
1874 *cp++ = fnames[i];
1875
1876 return cp;
1877 }
1878
1879 #define FORMAT_DEC(number, tp, signedp) \
1880 format_dec (number, tp, ({ \
1881 assert(tp >= temp && tp <= temp + sizeof(temp)); \
1882 temp + sizeof(temp) - tp; \
1883 }), signedp)
1884
1885 /* Print out an insn with its operands, and update the info->insn_type
1886 fields. The prefix_opcodep and the rest hold a prefix insn that is
1887 supposed to be output as an address mode. */
1888
1889 static void
1890 print_with_operands (const struct cris_opcode *opcodep,
1891 unsigned int insn,
1892 unsigned char *buffer,
1893 bfd_vma addr,
1894 disassemble_info *info,
1895 /* If a prefix insn was before this insn (and is supposed
1896 to be output as an address), here is a description of
1897 it. */
1898 const struct cris_opcode *prefix_opcodep,
1899 unsigned int prefix_insn,
1900 unsigned char *prefix_buffer,
1901 bfd_boolean with_reg_prefix)
1902 {
1903 /* Get a buffer of somewhat reasonable size where we store
1904 intermediate parts of the insn. */
1905 char temp[sizeof (".d [$r13=$r12-2147483648],$r10") * 2];
1906 char *tp = temp;
1907 static const char mode_char[] = "bwd?";
1908 const char *s;
1909 const char *cs;
1910 struct cris_disasm_data *disdata
1911 = (struct cris_disasm_data *) info->private_data;
1912
1913 /* Print out the name first thing we do. */
1914 (*info->fprintf_func) (info->stream, "%s", opcodep->name);
1915
1916 cs = opcodep->args;
1917 s = cs;
1918
1919 /* Ignore any prefix indicator. */
1920 if (*s == 'p')
1921 s++;
1922
1923 if (*s == 'm' || *s == 'M' || *s == 'z')
1924 {
1925 *tp++ = '.';
1926
1927 /* Get the size-letter. */
1928 *tp++ = *s == 'M'
1929 ? (insn & 0x8000 ? 'd'
1930 : insn & 0x4000 ? 'w' : 'b')
1931 : mode_char[(insn >> 4) & (*s == 'z' ? 1 : 3)];
1932
1933 /* Ignore the size and the space character that follows. */
1934 s += 2;
1935 }
1936
1937 /* Add a space if this isn't a long-branch, because for those will add
1938 the condition part of the name later. */
1939 if (opcodep->match != (BRANCH_PC_LOW + BRANCH_INCR_HIGH * 256))
1940 *tp++ = ' ';
1941
1942 /* Fill in the insn-type if deducible from the name (and there's no
1943 better way). */
1944 if (opcodep->name[0] == 'j')
1945 {
1946 if (CONST_STRNEQ (opcodep->name, "jsr"))
1947 /* It's "jsr" or "jsrc". */
1948 info->insn_type = dis_jsr;
1949 else
1950 /* Any other jump-type insn is considered a branch. */
1951 info->insn_type = dis_branch;
1952 }
1953
1954 /* We might know some more fields right now. */
1955 info->branch_delay_insns = opcodep->delayed;
1956
1957 /* Handle operands. */
1958 for (; *s; s++)
1959 {
1960 switch (*s)
1961 {
1962 case 'T':
1963 tp = format_sup_reg ((insn >> 12) & 15, tp, with_reg_prefix);
1964 break;
1965
1966 case 'A':
1967 if (with_reg_prefix)
1968 *tp++ = REGISTER_PREFIX_CHAR;
1969 *tp++ = 'a';
1970 *tp++ = 'c';
1971 *tp++ = 'r';
1972 break;
1973
1974 case '[':
1975 case ']':
1976 case ',':
1977 *tp++ = *s;
1978 break;
1979
1980 case '!':
1981 /* Ignore at this point; used at earlier stages to avoid
1982 recognition if there's a prefix at something that in other
1983 ways looks like a "pop". */
1984 break;
1985
1986 case 'd':
1987 /* Ignore. This is an optional ".d " on the large one of
1988 relaxable insns. */
1989 break;
1990
1991 case 'B':
1992 /* This was the prefix that made this a "push". We've already
1993 handled it by recognizing it, so signal that the prefix is
1994 handled by setting it to NULL. */
1995 prefix_opcodep = NULL;
1996 break;
1997
1998 case 'D':
1999 case 'r':
2000 tp = format_reg (disdata, insn & 15, tp, with_reg_prefix);
2001 break;
2002
2003 case 'R':
2004 tp = format_reg (disdata, (insn >> 12) & 15, tp, with_reg_prefix);
2005 break;
2006
2007 case 'n':
2008 {
2009 /* Like N but pc-relative to the start of the insn. */
2010 uint32_t number
2011 = (buffer[2] + buffer[3] * 256 + buffer[4] * 65536
2012 + buffer[5] * 0x1000000 + addr);
2013
2014 /* Finish off and output previous formatted bytes. */
2015 *tp = 0;
2016 if (temp[0])
2017 (*info->fprintf_func) (info->stream, "%s", temp);
2018 tp = temp;
2019
2020 (*info->print_address_func) ((bfd_vma) number, info);
2021 }
2022 break;
2023
2024 case 'u':
2025 {
2026 /* Like n but the offset is bits <3:0> in the instruction. */
2027 unsigned long number = (buffer[0] & 0xf) * 2 + addr;
2028
2029 /* Finish off and output previous formatted bytes. */
2030 *tp = 0;
2031 if (temp[0])
2032 (*info->fprintf_func) (info->stream, "%s", temp);
2033 tp = temp;
2034
2035 (*info->print_address_func) ((bfd_vma) number, info);
2036 }
2037 break;
2038
2039 case 'N':
2040 case 'y':
2041 case 'Y':
2042 case 'S':
2043 case 's':
2044 /* Any "normal" memory operand. */
2045 if ((insn & 0x400) && (insn & 15) == 15 && prefix_opcodep == NULL)
2046 {
2047 /* We're looking at [pc+], i.e. we need to output an immediate
2048 number, where the size can depend on different things. */
2049 int32_t number;
2050 int signedp
2051 = ((*cs == 'z' && (insn & 0x20))
2052 || opcodep->match == BDAP_QUICK_OPCODE);
2053 int nbytes;
2054
2055 if (opcodep->imm_oprnd_size == SIZE_FIX_32)
2056 nbytes = 4;
2057 else if (opcodep->imm_oprnd_size == SIZE_SPEC_REG)
2058 {
2059 const struct cris_spec_reg *sregp
2060 = spec_reg_info ((insn >> 12) & 15, disdata->distype);
2061
2062 /* A NULL return should have been as a non-match earlier,
2063 so catch it as an internal error in the error-case
2064 below. */
2065 if (sregp == NULL)
2066 /* Whatever non-valid size. */
2067 nbytes = 42;
2068 else
2069 /* PC is always incremented by a multiple of two.
2070 For CRISv32, immediates are always 4 bytes for
2071 special registers. */
2072 nbytes = disdata->distype == cris_dis_v32
2073 ? 4 : (sregp->reg_size + 1) & ~1;
2074 }
2075 else
2076 {
2077 int mode_size = 1 << ((insn >> 4) & (*cs == 'z' ? 1 : 3));
2078
2079 if (mode_size == 1)
2080 nbytes = 2;
2081 else
2082 nbytes = mode_size;
2083 }
2084
2085 switch (nbytes)
2086 {
2087 case 1:
2088 number = buffer[2];
2089 if (signedp && number > 127)
2090 number -= 256;
2091 break;
2092
2093 case 2:
2094 number = buffer[2] + buffer[3] * 256;
2095 if (signedp && number > 32767)
2096 number -= 65536;
2097 break;
2098
2099 case 4:
2100 number
2101 = buffer[2] + buffer[3] * 256 + buffer[4] * 65536
2102 + buffer[5] * 0x1000000;
2103 break;
2104
2105 default:
2106 strcpy (tp, "bug");
2107 tp += 3;
2108 number = 42;
2109 }
2110
2111 if ((*cs == 'z' && (insn & 0x20))
2112 || (opcodep->match == BDAP_QUICK_OPCODE
2113 && (nbytes <= 2 || buffer[1 + nbytes] == 0)))
2114 tp = FORMAT_DEC (number, tp, signedp);
2115 else
2116 {
2117 unsigned int highbyte = (number >> 24) & 0xff;
2118
2119 /* Either output this as an address or as a number. If it's
2120 a dword with the same high-byte as the address of the
2121 insn, assume it's an address, and also if it's a non-zero
2122 non-0xff high-byte. If this is a jsr or a jump, then
2123 it's definitely an address. */
2124 if (nbytes == 4
2125 && (highbyte == ((addr >> 24) & 0xff)
2126 || (highbyte != 0 && highbyte != 0xff)
2127 || info->insn_type == dis_branch
2128 || info->insn_type == dis_jsr))
2129 {
2130 /* Finish off and output previous formatted bytes. */
2131 *tp = 0;
2132 tp = temp;
2133 if (temp[0])
2134 (*info->fprintf_func) (info->stream, "%s", temp);
2135
2136 (*info->print_address_func) ((bfd_vma) number, info);
2137
2138 info->target = number;
2139 }
2140 else
2141 tp = format_hex (number, tp, disdata);
2142 }
2143 }
2144 else
2145 {
2146 /* Not an immediate number. Then this is a (possibly
2147 prefixed) memory operand. */
2148 if (info->insn_type != dis_nonbranch)
2149 {
2150 int mode_size
2151 = 1 << ((insn >> 4)
2152 & (opcodep->args[0] == 'z' ? 1 : 3));
2153 int size;
2154 info->insn_type = dis_dref;
2155 info->flags |= CRIS_DIS_FLAG_MEMREF;
2156
2157 if (opcodep->imm_oprnd_size == SIZE_FIX_32)
2158 size = 4;
2159 else if (opcodep->imm_oprnd_size == SIZE_SPEC_REG)
2160 {
2161 const struct cris_spec_reg *sregp
2162 = spec_reg_info ((insn >> 12) & 15, disdata->distype);
2163
2164 /* FIXME: Improve error handling; should have been caught
2165 earlier. */
2166 if (sregp == NULL)
2167 size = 4;
2168 else
2169 size = sregp->reg_size;
2170 }
2171 else
2172 size = mode_size;
2173
2174 info->data_size = size;
2175 }
2176
2177 *tp++ = '[';
2178
2179 if (prefix_opcodep
2180 /* We don't match dip with a postincremented field
2181 as a side-effect address mode. */
2182 && ((insn & 0x400) == 0
2183 || prefix_opcodep->match != DIP_OPCODE))
2184 {
2185 if (insn & 0x400)
2186 {
2187 tp = format_reg (disdata, insn & 15, tp, with_reg_prefix);
2188 *tp++ = '=';
2189 }
2190
2191
2192 /* We mainly ignore the prefix format string when the
2193 address-mode syntax is output. */
2194 switch (prefix_opcodep->match)
2195 {
2196 case DIP_OPCODE:
2197 /* It's [r], [r+] or [pc+]. */
2198 if ((prefix_insn & 0x400) && (prefix_insn & 15) == 15)
2199 {
2200 /* It's [pc+]. This cannot possibly be anything
2201 but an address. */
2202 uint32_t number
2203 = prefix_buffer[2] + prefix_buffer[3] * 256
2204 + prefix_buffer[4] * 65536
2205 + prefix_buffer[5] * 0x1000000;
2206
2207 info->target = (bfd_vma) number;
2208
2209 /* Finish off and output previous formatted
2210 data. */
2211 *tp = 0;
2212 tp = temp;
2213 if (temp[0])
2214 (*info->fprintf_func) (info->stream, "%s", temp);
2215
2216 (*info->print_address_func) ((bfd_vma) number, info);
2217 }
2218 else
2219 {
2220 /* For a memref in an address, we use target2.
2221 In this case, target is zero. */
2222 info->flags
2223 |= (CRIS_DIS_FLAG_MEM_TARGET2_IS_REG
2224 | CRIS_DIS_FLAG_MEM_TARGET2_MEM);
2225
2226 info->target2 = prefix_insn & 15;
2227
2228 *tp++ = '[';
2229 tp = format_reg (disdata, prefix_insn & 15, tp,
2230 with_reg_prefix);
2231 if (prefix_insn & 0x400)
2232 *tp++ = '+';
2233 *tp++ = ']';
2234 }
2235 break;
2236
2237 case BDAP_QUICK_OPCODE:
2238 {
2239 int number;
2240
2241 number = prefix_buffer[0];
2242 if (number > 127)
2243 number -= 256;
2244
2245 /* Output "reg+num" or, if num < 0, "reg-num". */
2246 tp = format_reg (disdata, (prefix_insn >> 12) & 15, tp,
2247 with_reg_prefix);
2248 if (number >= 0)
2249 *tp++ = '+';
2250 tp = FORMAT_DEC (number, tp, 1);
2251
2252 info->flags |= CRIS_DIS_FLAG_MEM_TARGET_IS_REG;
2253 info->target = (prefix_insn >> 12) & 15;
2254 info->target2 = (bfd_vma) number;
2255 break;
2256 }
2257
2258 case BIAP_OPCODE:
2259 /* Output "r+R.m". */
2260 tp = format_reg (disdata, prefix_insn & 15, tp,
2261 with_reg_prefix);
2262 *tp++ = '+';
2263 tp = format_reg (disdata, (prefix_insn >> 12) & 15, tp,
2264 with_reg_prefix);
2265 *tp++ = '.';
2266 *tp++ = mode_char[(prefix_insn >> 4) & 3];
2267
2268 info->flags
2269 |= (CRIS_DIS_FLAG_MEM_TARGET2_IS_REG
2270 | CRIS_DIS_FLAG_MEM_TARGET_IS_REG
2271
2272 | ((prefix_insn & 0x8000)
2273 ? CRIS_DIS_FLAG_MEM_TARGET2_MULT4
2274 : ((prefix_insn & 0x8000)
2275 ? CRIS_DIS_FLAG_MEM_TARGET2_MULT2 : 0)));
2276
2277 /* Is it the casejump? It's a "adds.w [pc+r%d.w],pc". */
2278 if (insn == 0xf83f && (prefix_insn & ~0xf000) == 0x55f)
2279 /* Then start interpreting data as offsets. */
2280 case_offset_counter = no_of_case_offsets;
2281 break;
2282
2283 case BDAP_INDIR_OPCODE:
2284 /* Output "r+s.m", or, if "s" is [pc+], "r+s" or
2285 "r-s". */
2286 tp = format_reg (disdata, (prefix_insn >> 12) & 15, tp,
2287 with_reg_prefix);
2288
2289 if ((prefix_insn & 0x400) && (prefix_insn & 15) == 15)
2290 {
2291 int32_t number;
2292 unsigned int nbytes;
2293
2294 /* It's a value. Get its size. */
2295 int mode_size = 1 << ((prefix_insn >> 4) & 3);
2296
2297 if (mode_size == 1)
2298 nbytes = 2;
2299 else
2300 nbytes = mode_size;
2301
2302 switch (nbytes)
2303 {
2304 case 1:
2305 number = prefix_buffer[2];
2306 if (number > 127)
2307 number -= 256;
2308 break;
2309
2310 case 2:
2311 number = prefix_buffer[2] + prefix_buffer[3] * 256;
2312 if (number > 32767)
2313 number -= 65536;
2314 break;
2315
2316 case 4:
2317 number
2318 = prefix_buffer[2] + prefix_buffer[3] * 256
2319 + prefix_buffer[4] * 65536
2320 + prefix_buffer[5] * 0x1000000;
2321 break;
2322
2323 default:
2324 strcpy (tp, "bug");
2325 tp += 3;
2326 number = 42;
2327 }
2328
2329 info->flags |= CRIS_DIS_FLAG_MEM_TARGET_IS_REG;
2330 info->target2 = (bfd_vma) number;
2331
2332 /* If the size is dword, then assume it's an
2333 address. */
2334 if (nbytes == 4)
2335 {
2336 /* Finish off and output previous formatted
2337 bytes. */
2338 *tp++ = '+';
2339 *tp = 0;
2340 tp = temp;
2341 (*info->fprintf_func) (info->stream, "%s", temp);
2342
2343 (*info->print_address_func) ((bfd_vma) number, info);
2344 }
2345 else
2346 {
2347 if (number >= 0)
2348 *tp++ = '+';
2349 tp = FORMAT_DEC (number, tp, 1);
2350 }
2351 }
2352 else
2353 {
2354 /* Output "r+[R].m" or "r+[R+].m". */
2355 *tp++ = '+';
2356 *tp++ = '[';
2357 tp = format_reg (disdata, prefix_insn & 15, tp,
2358 with_reg_prefix);
2359 if (prefix_insn & 0x400)
2360 *tp++ = '+';
2361 *tp++ = ']';
2362 *tp++ = '.';
2363 *tp++ = mode_char[(prefix_insn >> 4) & 3];
2364
2365 info->flags
2366 |= (CRIS_DIS_FLAG_MEM_TARGET2_IS_REG
2367 | CRIS_DIS_FLAG_MEM_TARGET2_MEM
2368 | CRIS_DIS_FLAG_MEM_TARGET_IS_REG
2369
2370 | (((prefix_insn >> 4) == 2)
2371 ? 0
2372 : (((prefix_insn >> 4) & 3) == 1
2373 ? CRIS_DIS_FLAG_MEM_TARGET2_MEM_WORD
2374 : CRIS_DIS_FLAG_MEM_TARGET2_MEM_BYTE)));
2375 }
2376 break;
2377
2378 default:
2379 (*info->fprintf_func) (info->stream, "?prefix-bug");
2380 }
2381
2382 /* To mark that the prefix is used, reset it. */
2383 prefix_opcodep = NULL;
2384 }
2385 else
2386 {
2387 tp = format_reg (disdata, insn & 15, tp, with_reg_prefix);
2388
2389 info->flags |= CRIS_DIS_FLAG_MEM_TARGET_IS_REG;
2390 info->target = insn & 15;
2391
2392 if (insn & 0x400)
2393 *tp++ = '+';
2394 }
2395 *tp++ = ']';
2396 }
2397 break;
2398
2399 case 'x':
2400 tp = format_reg (disdata, (insn >> 12) & 15, tp, with_reg_prefix);
2401 *tp++ = '.';
2402 *tp++ = mode_char[(insn >> 4) & 3];
2403 break;
2404
2405 case 'I':
2406 tp = FORMAT_DEC (insn & 63, tp, 0);
2407 break;
2408
2409 case 'b':
2410 {
2411 int where = buffer[2] + buffer[3] * 256;
2412
2413 if (where > 32767)
2414 where -= 65536;
2415
2416 where += addr + ((disdata->distype == cris_dis_v32) ? 0 : 4);
2417
2418 if (insn == BA_PC_INCR_OPCODE)
2419 info->insn_type = dis_branch;
2420 else
2421 info->insn_type = dis_condbranch;
2422
2423 info->target = (bfd_vma) where;
2424
2425 *tp = 0;
2426 tp = temp;
2427 (*info->fprintf_func) (info->stream, "%s%s ",
2428 temp, cris_cc_strings[insn >> 12]);
2429
2430 (*info->print_address_func) ((bfd_vma) where, info);
2431 }
2432 break;
2433
2434 case 'c':
2435 tp = FORMAT_DEC (insn & 31, tp, 0);
2436 break;
2437
2438 case 'C':
2439 tp = FORMAT_DEC (insn & 15, tp, 0);
2440 break;
2441
2442 case 'o':
2443 {
2444 long offset = insn & 0xfe;
2445 bfd_vma target;
2446
2447 if (insn & 1)
2448 offset |= ~0xff;
2449
2450 if (opcodep->match == BA_QUICK_OPCODE)
2451 info->insn_type = dis_branch;
2452 else
2453 info->insn_type = dis_condbranch;
2454
2455 target = addr + ((disdata->distype == cris_dis_v32) ? 0 : 2) + offset;
2456 info->target = target;
2457 *tp = 0;
2458 tp = temp;
2459 (*info->fprintf_func) (info->stream, "%s", temp);
2460 (*info->print_address_func) (target, info);
2461 }
2462 break;
2463
2464 case 'Q':
2465 case 'O':
2466 {
2467 long number = buffer[0];
2468
2469 if (number > 127)
2470 number = number - 256;
2471
2472 tp = FORMAT_DEC (number, tp, 1);
2473 *tp++ = ',';
2474 tp = format_reg (disdata, (insn >> 12) & 15, tp, with_reg_prefix);
2475 }
2476 break;
2477
2478 case 'f':
2479 tp = print_flags (disdata, insn, tp);
2480 break;
2481
2482 case 'i':
2483 tp = FORMAT_DEC ((insn & 32) ? (insn & 31) | ~31L : insn & 31, tp, 1);
2484 break;
2485
2486 case 'P':
2487 {
2488 const struct cris_spec_reg *sregp
2489 = spec_reg_info ((insn >> 12) & 15, disdata->distype);
2490
2491 if (sregp == NULL || sregp->name == NULL)
2492 /* Should have been caught as a non-match earlier. */
2493 *tp++ = '?';
2494 else
2495 {
2496 if (with_reg_prefix)
2497 *tp++ = REGISTER_PREFIX_CHAR;
2498 strcpy (tp, sregp->name);
2499 tp += strlen (tp);
2500 }
2501 }
2502 break;
2503
2504 default:
2505 strcpy (tp, "???");
2506 tp += 3;
2507 }
2508 }
2509
2510 *tp = 0;
2511
2512 if (prefix_opcodep)
2513 (*info->fprintf_func) (info->stream, " (OOPS unused prefix \"%s: %s\")",
2514 prefix_opcodep->name, prefix_opcodep->args);
2515
2516 (*info->fprintf_func) (info->stream, "%s", temp);
2517
2518 /* Get info for matching case-tables, if we don't have any active.
2519 We assume that the last constant seen is used; either in the insn
2520 itself or in a "move.d const,rN, sub.d rN,rM"-like sequence. */
2521 if (TRACE_CASE && case_offset_counter == 0)
2522 {
2523 if (CONST_STRNEQ (opcodep->name, "sub"))
2524 case_offset = last_immediate;
2525
2526 /* It could also be an "add", if there are negative case-values. */
2527 else if (CONST_STRNEQ (opcodep->name, "add"))
2528 /* The first case is the negated operand to the add. */
2529 case_offset = -last_immediate;
2530
2531 /* A bound insn will tell us the number of cases. */
2532 else if (CONST_STRNEQ (opcodep->name, "bound"))
2533 no_of_case_offsets = last_immediate + 1;
2534
2535 /* A jump or jsr or branch breaks the chain of insns for a
2536 case-table, so assume default first-case again. */
2537 else if (info->insn_type == dis_jsr
2538 || info->insn_type == dis_branch
2539 || info->insn_type == dis_condbranch)
2540 case_offset = 0;
2541 }
2542 }
2543
2544
2545 /* Print the CRIS instruction at address memaddr on stream. Returns
2546 length of the instruction, in bytes. Prefix register names with `$' if
2547 WITH_REG_PREFIX. */
2548
2549 static int
2550 print_insn_cris_generic (bfd_vma memaddr,
2551 disassemble_info *info,
2552 bfd_boolean with_reg_prefix)
2553 {
2554 int nbytes;
2555 unsigned int insn;
2556 const struct cris_opcode *matchedp;
2557 int advance = 0;
2558 struct cris_disasm_data *disdata
2559 = (struct cris_disasm_data *) info->private_data;
2560
2561 /* No instruction will be disassembled as longer than this number of
2562 bytes; stacked prefixes will not be expanded. */
2563 unsigned char buffer[MAX_BYTES_PER_CRIS_INSN];
2564 unsigned char *bufp;
2565 int status = 0;
2566 bfd_vma addr;
2567
2568 /* There will be an "out of range" error after the last instruction.
2569 Reading pairs of bytes in decreasing number, we hope that we will get
2570 at least the amount that we will consume.
2571
2572 If we can't get any data, or we do not get enough data, we print
2573 the error message. */
2574
2575 nbytes = info->buffer_length ? info->buffer_length
2576 : MAX_BYTES_PER_CRIS_INSN;
2577 if (nbytes > MAX_BYTES_PER_CRIS_INSN) {
2578 nbytes = MAX_BYTES_PER_CRIS_INSN;
2579 }
2580 status = (*info->read_memory_func) (memaddr, buffer, nbytes, info);
2581
2582 /* If we did not get all we asked for, then clear the rest.
2583 Hopefully this makes a reproducible result in case of errors. */
2584 if (nbytes != MAX_BYTES_PER_CRIS_INSN)
2585 memset (buffer + nbytes, 0, MAX_BYTES_PER_CRIS_INSN - nbytes);
2586
2587 addr = memaddr;
2588 bufp = buffer;
2589
2590 /* Set some defaults for the insn info. */
2591 info->insn_info_valid = 1;
2592 info->branch_delay_insns = 0;
2593 info->data_size = 0;
2594 info->insn_type = dis_nonbranch;
2595 info->flags = 0;
2596 info->target = 0;
2597 info->target2 = 0;
2598
2599 /* If we got any data, disassemble it. */
2600 if (nbytes != 0)
2601 {
2602 matchedp = NULL;
2603
2604 insn = bufp[0] + bufp[1] * 256;
2605
2606 /* If we're in a case-table, don't disassemble the offsets. */
2607 if (TRACE_CASE && case_offset_counter != 0)
2608 {
2609 info->insn_type = dis_noninsn;
2610 advance += 2;
2611
2612 /* If to print data as offsets, then shortcut here. */
2613 (*info->fprintf_func) (info->stream, "case %ld%s: -> ",
2614 case_offset + no_of_case_offsets
2615 - case_offset_counter,
2616 case_offset_counter == 1 ? "/default" :
2617 "");
2618
2619 (*info->print_address_func) ((bfd_vma)
2620 ((short) (insn)
2621 + (long) (addr
2622 - (no_of_case_offsets
2623 - case_offset_counter)
2624 * 2)), info);
2625 case_offset_counter--;
2626
2627 /* The default case start (without a "sub" or "add") must be
2628 zero. */
2629 if (case_offset_counter == 0)
2630 case_offset = 0;
2631 }
2632 else if (insn == 0)
2633 {
2634 /* We're often called to disassemble zeroes. While this is a
2635 valid "bcc .+2" insn, it is also useless enough and enough
2636 of a nuiscance that we will just output "bcc .+2" for it
2637 and signal it as a noninsn. */
2638 (*info->fprintf_func) (info->stream,
2639 disdata->distype == cris_dis_v32
2640 ? "bcc ." : "bcc .+2");
2641 info->insn_type = dis_noninsn;
2642 advance += 2;
2643 }
2644 else
2645 {
2646 const struct cris_opcode *prefix_opcodep = NULL;
2647 unsigned char *prefix_buffer = bufp;
2648 unsigned int prefix_insn = insn;
2649 int prefix_size = 0;
2650
2651 matchedp = get_opcode_entry (insn, NO_CRIS_PREFIX, disdata);
2652
2653 /* Check if we're supposed to write out prefixes as address
2654 modes and if this was a prefix. */
2655 if (matchedp != NULL && PARSE_PREFIX && matchedp->args[0] == 'p')
2656 {
2657 /* If it's a prefix, put it into the prefix vars and get the
2658 main insn. */
2659 prefix_size = bytes_to_skip (prefix_insn, matchedp,
2660 disdata->distype, NULL);
2661 prefix_opcodep = matchedp;
2662
2663 insn = bufp[prefix_size] + bufp[prefix_size + 1] * 256;
2664 matchedp = get_opcode_entry (insn, prefix_insn, disdata);
2665
2666 if (matchedp != NULL)
2667 {
2668 addr += prefix_size;
2669 bufp += prefix_size;
2670 advance += prefix_size;
2671 }
2672 else
2673 {
2674 /* The "main" insn wasn't valid, at least not when
2675 prefixed. Put back things enough to output the
2676 prefix insn only, as a normal insn. */
2677 matchedp = prefix_opcodep;
2678 insn = prefix_insn;
2679 prefix_opcodep = NULL;
2680 }
2681 }
2682
2683 if (matchedp == NULL)
2684 {
2685 (*info->fprintf_func) (info->stream, "??0x%x", insn);
2686 advance += 2;
2687
2688 info->insn_type = dis_noninsn;
2689 }
2690 else
2691 {
2692 advance
2693 += bytes_to_skip (insn, matchedp, disdata->distype,
2694 prefix_opcodep);
2695
2696 /* The info_type and assorted fields will be set according
2697 to the operands. */
2698 print_with_operands (matchedp, insn, bufp, addr, info,
2699 prefix_opcodep, prefix_insn,
2700 prefix_buffer, with_reg_prefix);
2701 }
2702 }
2703 }
2704 else
2705 info->insn_type = dis_noninsn;
2706
2707 /* If we read less than MAX_BYTES_PER_CRIS_INSN, i.e. we got an error
2708 status when reading that much, and the insn decoding indicated a
2709 length exceeding what we read, there is an error. */
2710 if (status != 0 && (nbytes == 0 || advance > nbytes))
2711 {
2712 (*info->memory_error_func) (status, memaddr, info);
2713 return -1;
2714 }
2715
2716 /* Max supported insn size with one folded prefix insn. */
2717 info->bytes_per_line = MAX_BYTES_PER_CRIS_INSN;
2718
2719 /* I would like to set this to a fixed value larger than the actual
2720 number of bytes to print in order to avoid spaces between bytes,
2721 but objdump.c (2.9.1) does not like that, so we print 16-bit
2722 chunks, which is the next choice. */
2723 info->bytes_per_chunk = 2;
2724
2725 /* Printing bytes in order of increasing addresses makes sense,
2726 especially on a little-endian target.
2727 This is completely the opposite of what you think; setting this to
2728 BFD_ENDIAN_LITTLE will print bytes in order N..0 rather than the 0..N
2729 we want. */
2730 info->display_endian = BFD_ENDIAN_BIG;
2731
2732 return advance;
2733 }
2734
2735 /* Disassemble, prefixing register names with `$'. CRIS v0..v10. */
2736 static int
2737 print_insn_cris_with_register_prefix (bfd_vma vma,
2738 disassemble_info *info)
2739 {
2740 struct cris_disasm_data disdata;
2741 info->private_data = &disdata;
2742 cris_parse_disassembler_options (&disdata, info->disassembler_options,
2743 cris_dis_v0_v10);
2744 return print_insn_cris_generic (vma, info, true);
2745 }
2746 /* Disassemble, prefixing register names with `$'. CRIS v32. */
2747
2748 static int
2749 print_insn_crisv32_with_register_prefix (bfd_vma vma,
2750 disassemble_info *info)
2751 {
2752 struct cris_disasm_data disdata;
2753 info->private_data = &disdata;
2754 cris_parse_disassembler_options (&disdata, info->disassembler_options,
2755 cris_dis_v32);
2756 return print_insn_cris_generic (vma, info, true);
2757 }
2758
2759 #if 0
2760 /* Disassemble, prefixing register names with `$'.
2761 Common v10 and v32 subset. */
2762
2763 static int
2764 print_insn_crisv10_v32_with_register_prefix (bfd_vma vma,
2765 disassemble_info *info)
2766 {
2767 struct cris_disasm_data disdata;
2768 info->private_data = &disdata;
2769 cris_parse_disassembler_options (&disdata, info->disassembler_options,
2770 cris_dis_common_v10_v32);
2771 return print_insn_cris_generic (vma, info, true);
2772 }
2773
2774 /* Disassemble, no prefixes on register names. CRIS v0..v10. */
2775
2776 static int
2777 print_insn_cris_without_register_prefix (bfd_vma vma,
2778 disassemble_info *info)
2779 {
2780 struct cris_disasm_data disdata;
2781 info->private_data = &disdata;
2782 cris_parse_disassembler_options (&disdata, info->disassembler_options,
2783 cris_dis_v0_v10);
2784 return print_insn_cris_generic (vma, info, false);
2785 }
2786
2787 /* Disassemble, no prefixes on register names. CRIS v32. */
2788
2789 static int
2790 print_insn_crisv32_without_register_prefix (bfd_vma vma,
2791 disassemble_info *info)
2792 {
2793 struct cris_disasm_data disdata;
2794 info->private_data = &disdata;
2795 cris_parse_disassembler_options (&disdata, info->disassembler_options,
2796 cris_dis_v32);
2797 return print_insn_cris_generic (vma, info, false);
2798 }
2799
2800 /* Disassemble, no prefixes on register names.
2801 Common v10 and v32 subset. */
2802
2803 static int
2804 print_insn_crisv10_v32_without_register_prefix (bfd_vma vma,
2805 disassemble_info *info)
2806 {
2807 struct cris_disasm_data disdata;
2808 info->private_data = &disdata;
2809 cris_parse_disassembler_options (&disdata, info->disassembler_options,
2810 cris_dis_common_v10_v32);
2811 return print_insn_cris_generic (vma, info, false);
2812 }
2813 #endif
2814
2815 int
2816 print_insn_crisv10 (bfd_vma vma,
2817 disassemble_info *info)
2818 {
2819 return print_insn_cris_with_register_prefix(vma, info);
2820 }
2821
2822 int
2823 print_insn_crisv32 (bfd_vma vma,
2824 disassemble_info *info)
2825 {
2826 return print_insn_crisv32_with_register_prefix(vma, info);
2827 }
2828
2829 /* Return a disassembler-function that prints registers with a `$' prefix,
2830 or one that prints registers without a prefix.
2831 FIXME: We should improve the solution to avoid the multitude of
2832 functions seen above. */
2833 #if 0
2834 disassembler_ftype
2835 cris_get_disassembler (bfd *abfd)
2836 {
2837 /* If there's no bfd in sight, we return what is valid as input in all
2838 contexts if fed back to the assembler: disassembly *with* register
2839 prefix. Unfortunately this will be totally wrong for v32. */
2840 if (abfd == NULL)
2841 return print_insn_cris_with_register_prefix;
2842
2843 if (bfd_get_symbol_leading_char (abfd) == 0)
2844 {
2845 if (bfd_get_mach (abfd) == bfd_mach_cris_v32)
2846 return print_insn_crisv32_with_register_prefix;
2847 if (bfd_get_mach (abfd) == bfd_mach_cris_v10_v32)
2848 return print_insn_crisv10_v32_with_register_prefix;
2849
2850 /* We default to v10. This may be specifically specified in the
2851 bfd mach, but is also the default setting. */
2852 return print_insn_cris_with_register_prefix;
2853 }
2854
2855 if (bfd_get_mach (abfd) == bfd_mach_cris_v32)
2856 return print_insn_crisv32_without_register_prefix;
2857 if (bfd_get_mach (abfd) == bfd_mach_cris_v10_v32)
2858 return print_insn_crisv10_v32_without_register_prefix;
2859 return print_insn_cris_without_register_prefix;
2860 }
2861 #endif
2862 /* Local variables:
2863 eval: (c-set-style "gnu")
2864 indent-tabs-mode: t
2865 End: */
AR7 emulation for QEMU