?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
fixes for host gcc 4.6.1
[zpugcc/jano.git] / toolchain / binutils / opcodes / xtensa-dis.c
blob8c310854a8a98b7575219a32bb1136c6fa003f00
1 /* xtensa-dis.c. Disassembly functions for Xtensa.
2 Copyright 2003 Free Software Foundation, Inc.
3 Contributed by Bob Wilson at Tensilica, Inc. (bwilson@tensilica.com)
4
5 This file is part of GDB, GAS, and the GNU binutils.
6
7 GDB, GAS, and the GNU binutils are free software; you can redistribute
8 them and/or modify them under the terms of the GNU General Public
9 License as published by the Free Software Foundation; either version 2,
10 or (at your option) any later version.
11
12 GDB, GAS, and the GNU binutils are distributed in the hope that they
13 will be useful, but WITHOUT ANY WARRANTY; without even the implied
14 warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
15 the GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License along
18 with this file; see the file COPYING. If not, write to the Free
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
20 USA. */
21
22 #include <stdlib.h>
23 #include <stdio.h>
24 #include <sys/types.h>
25 #include <string.h>
26 #include "xtensa-isa.h"
27 #include "ansidecl.h"
28 #include "sysdep.h"
29 #include "dis-asm.h"
30
31 #include <setjmp.h>
32
33 #ifndef MAX
34 #define MAX(a,b) (a > b ? a : b)
35 #endif
36
37 static char* state_names[256] =
38 {
39 "lbeg", /* 0 */
40 "lend", /* 1 */
41 "lcount", /* 2 */
42 "sar", /* 3 */
43 "br", /* 4 */
44
45 "reserved_5", /* 5 */
46 "reserved_6", /* 6 */
47 "reserved_7", /* 7 */
48
49 "av", /* 8 */
50 "avh", /* 9 */
51 "bv", /* 10 */
52 "sav", /* 11 */
53 "scompare1", /* 12 */
54
55 "reserved_13", /* 13 */
56 "reserved_14", /* 14 */
57 "reserved_15", /* 15 */
58
59 "acclo", /* 16 */
60 "acchi", /* 17 */
61
62 "reserved_18", /* 18 */
63 "reserved_19", /* 19 */
64 "reserved_20", /* 20 */
65 "reserved_21", /* 21 */
66 "reserved_22", /* 22 */
67 "reserved_23", /* 23 */
68 "reserved_24", /* 24 */
69 "reserved_25", /* 25 */
70 "reserved_26", /* 26 */
71 "reserved_27", /* 27 */
72 "reserved_28", /* 28 */
73 "reserved_29", /* 29 */
74 "reserved_30", /* 30 */
75 "reserved_31", /* 31 */
76
77 "mr0", /* 32 */
78 "mr1", /* 33 */
79 "mr2", /* 34 */
80 "mr3", /* 35 */
81
82 "reserved_36", /* 36 */
83 "reserved_37", /* 37 */
84 "reserved_38", /* 38 */
85 "reserved_39", /* 39 */
86 "reserved_40", /* 40 */
87 "reserved_41", /* 41 */
88 "reserved_42", /* 42 */
89 "reserved_43", /* 43 */
90 "reserved_44", /* 44 */
91 "reserved_45", /* 45 */
92 "reserved_46", /* 46 */
93 "reserved_47", /* 47 */
94 "reserved_48", /* 48 */
95 "reserved_49", /* 49 */
96 "reserved_50", /* 50 */
97 "reserved_51", /* 51 */
98 "reserved_52", /* 52 */
99 "reserved_53", /* 53 */
100 "reserved_54", /* 54 */
101 "reserved_55", /* 55 */
102 "reserved_56", /* 56 */
103 "reserved_57", /* 57 */
104 "reserved_58", /* 58 */
105 "reserved_59", /* 59 */
106 "reserved_60", /* 60 */
107 "reserved_61", /* 61 */
108 "reserved_62", /* 62 */
109 "reserved_63", /* 63 */
110
111 "reserved_64", /* 64 */
112 "reserved_65", /* 65 */
113 "reserved_66", /* 66 */
114 "reserved_67", /* 67 */
115 "reserved_68", /* 68 */
116 "reserved_69", /* 69 */
117 "reserved_70", /* 70 */
118 "reserved_71", /* 71 */
119
120 "wb", /* 72 */
121 "ws", /* 73 */
122
123 "reserved_74", /* 74 */
124 "reserved_75", /* 75 */
125 "reserved_76", /* 76 */
126 "reserved_77", /* 77 */
127 "reserved_78", /* 78 */
128 "reserved_79", /* 79 */
129 "reserved_80", /* 80 */
130 "reserved_81", /* 81 */
131 "reserved_82", /* 82 */
132
133 "ptevaddr", /* 83 */
134
135 "reserved_84", /* 84 */
136 "reserved_85", /* 85 */
137 "reserved_86", /* 86 */
138 "reserved_87", /* 87 */
139 "reserved_88", /* 88 */
140 "reserved_89", /* 89 */
141
142 "rasid", /* 90 */
143 "itlbcfg", /* 91 */
144 "dtlbcfg", /* 92 */
145
146 "reserved_93", /* 93 */
147 "reserved_94", /* 94 */
148 "reserved_95", /* 95 */
149
150 "ibreakenable", /* 96 */
151
152 "reserved_97", /* 97 */
153
154 "cacheattr", /* 98 */
155
156 "reserved_99", /* 99 */
157 "reserved_100", /* 100 */
158 "reserved_101", /* 101 */
159 "reserved_102", /* 102 */
160 "reserved_103", /* 103 */
161
162 "ddr", /* 104 */
163
164 "reserved_105", /* 105 */
165 "reserved_106", /* 106 */
166 "reserved_107", /* 107 */
167 "reserved_108", /* 108 */
168 "reserved_109", /* 109 */
169 "reserved_110", /* 110 */
170 "reserved_111", /* 111 */
171 "reserved_112", /* 112 */
172 "reserved_113", /* 113 */
173 "reserved_114", /* 114 */
174 "reserved_115", /* 115 */
175 "reserved_116", /* 116 */
176 "reserved_117", /* 117 */
177 "reserved_118", /* 118 */
178 "reserved_119", /* 119 */
179 "reserved_120", /* 120 */
180 "reserved_121", /* 121 */
181 "reserved_122", /* 122 */
182 "reserved_123", /* 123 */
183 "reserved_124", /* 124 */
184 "reserved_125", /* 125 */
185 "reserved_126", /* 126 */
186 "reserved_127", /* 127 */
187
188 "ibreaka0", /* 128 */
189 "ibreaka1", /* 129 */
190 "ibreaka2", /* 130 */
191 "ibreaka3", /* 131 */
192 "ibreaka4", /* 132 */
193 "ibreaka5", /* 133 */
194 "ibreaka6", /* 134 */
195 "ibreaka7", /* 135 */
196 "ibreaka8", /* 136 */
197 "ibreaka9", /* 137 */
198 "ibreaka10", /* 138 */
199 "ibreaka11", /* 139 */
200 "ibreaka12", /* 140 */
201 "ibreaka13", /* 141 */
202 "ibreaka14", /* 142 */
203 "ibreaka15", /* 143 */
204
205 "dbreaka0", /* 144 */
206 "dbreaka1", /* 145 */
207 "dbreaka2", /* 146 */
208 "dbreaka3", /* 147 */
209 "dbreaka4", /* 148 */
210 "dbreaka5", /* 149 */
211 "dbreaka6", /* 150 */
212 "dbreaka7", /* 151 */
213 "dbreaka8", /* 152 */
214 "dbreaka9", /* 153 */
215 "dbreaka10", /* 154 */
216 "dbreaka11", /* 155 */
217 "dbreaka12", /* 156 */
218 "dbreaka13", /* 157 */
219 "dbreaka14", /* 158 */
220 "dbreaka15", /* 159 */
221
222 "dbreakc0", /* 160 */
223 "dbreakc1", /* 161 */
224 "dbreakc2", /* 162 */
225 "dbreakc3", /* 163 */
226 "dbreakc4", /* 164 */
227 "dbreakc5", /* 165 */
228 "dbreakc6", /* 166 */
229 "dbreakc7", /* 167 */
230 "dbreakc8", /* 168 */
231 "dbreakc9", /* 169 */
232 "dbreakc10", /* 170 */
233 "dbreakc11", /* 171 */
234 "dbreakc12", /* 172 */
235 "dbreakc13", /* 173 */
236 "dbreakc14", /* 174 */
237 "dbreakc15", /* 175 */
238
239 "reserved_176", /* 176 */
240
241 "epc1", /* 177 */
242 "epc2", /* 178 */
243 "epc3", /* 179 */
244 "epc4", /* 180 */
245 "epc5", /* 181 */
246 "epc6", /* 182 */
247 "epc7", /* 183 */
248 "epc8", /* 184 */
249 "epc9", /* 185 */
250 "epc10", /* 186 */
251 "epc11", /* 187 */
252 "epc12", /* 188 */
253 "epc13", /* 189 */
254 "epc14", /* 190 */
255 "epc15", /* 191 */
256 "depc", /* 192 */
257
258 "reserved_193", /* 193 */
259
260 "eps2", /* 194 */
261 "eps3", /* 195 */
262 "eps4", /* 196 */
263 "eps5", /* 197 */
264 "eps6", /* 198 */
265 "eps7", /* 199 */
266 "eps8", /* 200 */
267 "eps9", /* 201 */
268 "eps10", /* 202 */
269 "eps11", /* 203 */
270 "eps12", /* 204 */
271 "eps13", /* 205 */
272 "eps14", /* 206 */
273 "eps15", /* 207 */
274
275 "reserved_208", /* 208 */
276
277 "excsave1", /* 209 */
278 "excsave2", /* 210 */
279 "excsave3", /* 211 */
280 "excsave4", /* 212 */
281 "excsave5", /* 213 */
282 "excsave6", /* 214 */
283 "excsave7", /* 215 */
284 "excsave8", /* 216 */
285 "excsave9", /* 217 */
286 "excsave10", /* 218 */
287 "excsave11", /* 219 */
288 "excsave12", /* 220 */
289 "excsave13", /* 221 */
290 "excsave14", /* 222 */
291 "excsave15", /* 223 */
292 "cpenable", /* 224 */
293
294 "reserved_225", /* 225 */
295
296 "interrupt", /* 226 */
297 "interrupt2", /* 227 */
298 "intenable", /* 228 */
299
300 "reserved_229", /* 229 */
301
302 "ps", /* 230 */
303
304 "reserved_231", /* 231 */
305
306 "exccause", /* 232 */
307 "debugcause", /* 233 */
308 "ccount", /* 234 */
309 "prid", /* 235 */
310 "icount", /* 236 */
311 "icountlvl", /* 237 */
312 "excvaddr", /* 238 */
313
314 "reserved_239", /* 239 */
315
316 "ccompare0", /* 240 */
317 "ccompare1", /* 241 */
318 "ccompare2", /* 242 */
319 "ccompare3", /* 243 */
320
321 "misc0", /* 244 */
322 "misc1", /* 245 */
323 "misc2", /* 246 */
324 "misc3", /* 247 */
325
326 "reserved_248", /* 248 */
327 "reserved_249", /* 249 */
328 "reserved_250", /* 250 */
329 "reserved_251", /* 251 */
330 "reserved_252", /* 252 */
331 "reserved_253", /* 253 */
332 "reserved_254", /* 254 */
333 "reserved_255", /* 255 */
334 };
335
336
337 int show_raw_fields;
338
339 static int fetch_data
340 PARAMS ((struct disassemble_info *info, bfd_vma memaddr));
341 static void print_xtensa_operand
342 PARAMS ((bfd_vma, struct disassemble_info *, xtensa_operand,
343 unsigned operand_val, int print_sr_name));
344
345 struct dis_private {
346 bfd_byte *byte_buf;
347 jmp_buf bailout;
348 };
349
350 static int
351 fetch_data (info, memaddr)
352 struct disassemble_info *info;
353 bfd_vma memaddr;
354 {
355 int length, status = 0;
356 struct dis_private *priv = (struct dis_private *) info->private_data;
357 int insn_size = xtensa_insn_maxlength (xtensa_default_isa);
358
359 /* Read the maximum instruction size, padding with zeros if we go past
360 the end of the text section. This code will automatically adjust
361 length when we hit the end of the buffer. */
362
363 memset (priv->byte_buf, 0, insn_size);
364 for (length = insn_size; length > 0; length--)
365 {
366 status = (*info->read_memory_func) (memaddr, priv->byte_buf, length,
367 info);
368 if (status == 0)
369 return length;
370 }
371 (*info->memory_error_func) (status, memaddr, info);
372 longjmp (priv->bailout, 1);
373 /*NOTREACHED*/
374 }
375
376
377 static void
378 print_xtensa_operand (memaddr, info, opnd, operand_val, print_sr_name)
379 bfd_vma memaddr;
380 struct disassemble_info *info;
381 xtensa_operand opnd;
382 unsigned operand_val;
383 int print_sr_name;
384 {
385 char *kind = xtensa_operand_kind (opnd);
386 int signed_operand_val;
387
388 if (show_raw_fields)
389 {
390 if (operand_val < 0xa)
391 (*info->fprintf_func) (info->stream, "%u", operand_val);
392 else
393 (*info->fprintf_func) (info->stream, "0x%x", operand_val);
394 return;
395 }
396
397 operand_val = xtensa_operand_decode (opnd, operand_val);
398 signed_operand_val = (int) operand_val;
399
400 if (xtensa_operand_isPCRelative (opnd))
401 {
402 operand_val = xtensa_operand_undo_reloc (opnd, operand_val, memaddr);
403 info->target = operand_val;
404 (*info->print_address_func) (info->target, info);
405 }
406 else if (!strcmp (kind, "i"))
407 {
408 if (print_sr_name
409 && signed_operand_val >= 0
410 && signed_operand_val <= 255)
411 (*info->fprintf_func) (info->stream, "%s",
412 state_names[signed_operand_val]);
413 else if ((signed_operand_val > -256) && (signed_operand_val < 256))
414 (*info->fprintf_func) (info->stream, "%d", signed_operand_val);
415 else
416 (*info->fprintf_func) (info->stream, "0x%x",signed_operand_val);
417 }
418 else
419 (*info->fprintf_func) (info->stream, "%s%u", kind, operand_val);
420 }
421
422
423 /* Print the Xtensa instruction at address MEMADDR on info->stream.
424 Returns length of the instruction in bytes. */
425
426 int
427 print_insn_xtensa (memaddr, info)
428 bfd_vma memaddr;
429 struct disassemble_info *info;
430 {
431 unsigned operand_val;
432 int bytes_fetched, size, maxsize, i, noperands;
433 xtensa_isa isa;
434 xtensa_opcode opc;
435 char *op_name;
436 int print_sr_name;
437 struct dis_private priv;
438 static bfd_byte *byte_buf = NULL;
439 static xtensa_insnbuf insn_buffer = NULL;
440
441 if (!xtensa_default_isa)
442 (void) xtensa_isa_init ();
443
444 info->target = 0;
445 maxsize = xtensa_insn_maxlength (xtensa_default_isa);
446
447 /* Set bytes_per_line to control the amount of whitespace between the hex
448 values and the opcode. For Xtensa, we always print one "chunk" and we
449 vary bytes_per_chunk to determine how many bytes to print. (objdump
450 would apparently prefer that we set bytes_per_chunk to 1 and vary
451 bytes_per_line but that makes it hard to fit 64-bit instructions on
452 an 80-column screen.) The value of bytes_per_line here is not exactly
453 right, because objdump adds an extra space for each chunk so that the
454 amount of whitespace depends on the chunk size. Oh well, it's good
455 enough.... Note that we set the minimum size to 4 to accomodate
456 literal pools. */
457 info->bytes_per_line = MAX (maxsize, 4);
458
459 /* Allocate buffers the first time through. */
460 if (!insn_buffer)
461 insn_buffer = xtensa_insnbuf_alloc (xtensa_default_isa);
462 if (!byte_buf)
463 byte_buf = (bfd_byte *) malloc (MAX (maxsize, 4));
464
465 priv.byte_buf = byte_buf;
466
467 info->private_data = (PTR) &priv;
468 if (setjmp (priv.bailout) != 0)
469 /* Error return. */
470 return -1;
471
472 /* Don't set "isa" before the setjmp to keep the compiler from griping. */
473 isa = xtensa_default_isa;
474
475 /* Fetch the maximum size instruction. */
476 bytes_fetched = fetch_data (info, memaddr);
477
478 /* Copy the bytes into the decode buffer. */
479 memset (insn_buffer, 0, (xtensa_insnbuf_size (isa) *
480 sizeof (xtensa_insnbuf_word)));
481 xtensa_insnbuf_from_chars (isa, insn_buffer, priv.byte_buf);
482
483 opc = xtensa_decode_insn (isa, insn_buffer);
484 if (opc == XTENSA_UNDEFINED
485 || ((size = xtensa_insn_length (isa, opc)) > bytes_fetched))
486 {
487 (*info->fprintf_func) (info->stream, ".byte %#02x", priv.byte_buf[0]);
488 return 1;
489 }
490
491 op_name = (char *) xtensa_opcode_name (isa, opc);
492 (*info->fprintf_func) (info->stream, "%s", op_name);
493
494 print_sr_name = (!strcasecmp (op_name, "wsr")
495 || !strcasecmp (op_name, "xsr")
496 || !strcasecmp (op_name, "rsr"));
497
498 /* Print the operands (if any). */
499 noperands = xtensa_num_operands (isa, opc);
500 if (noperands > 0)
501 {
502 int first = 1;
503
504 (*info->fprintf_func) (info->stream, "\t");
505 for (i = 0; i < noperands; i++)
506 {
507 xtensa_operand opnd = xtensa_get_operand (isa, opc, i);
508
509 if (first)
510 first = 0;
511 else
512 (*info->fprintf_func) (info->stream, ", ");
513 operand_val = xtensa_operand_get_field (opnd, insn_buffer);
514 print_xtensa_operand (memaddr, info, opnd, operand_val,
515 print_sr_name);
516 }
517 }
518
519 info->bytes_per_chunk = size;
520 info->display_endian = info->endian;
521
522 return size;
523 }
524
my patches to zpugcc