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