diff options
author | Joseph Myers <joseph@codesourcery.com> | 2010-03-25 21:12:36 +0000 |
---|---|---|
committer | Joseph Myers <joseph@codesourcery.com> | 2010-03-25 21:12:36 +0000 |
commit | 40b365969f7fd035dfa0c6ffe729fd2501b5f11d (patch) | |
tree | 759a27054778d995f168ca703e90f4f073545060 /opcodes | |
parent | aa7d318d60c595f97230f45575c882c73f7bdcf7 (diff) | |
download | gdb-40b365969f7fd035dfa0c6ffe729fd2501b5f11d.zip gdb-40b365969f7fd035dfa0c6ffe729fd2501b5f11d.tar.gz gdb-40b365969f7fd035dfa0c6ffe729fd2501b5f11d.tar.bz2 |
bfd:
* Makefile.am (ALL_MACHINES): Add cpu-tic6x.lo.
(ALL_MACHINES_CFILES): Add cpu-tic6x.c.
(BFD32_BACKENDS): Add elf32-tic6x.lo.
(BFD32_BACKENDS_CFILES): Add elf32-tic6x.c.
* Makefile.in: Regenerate.
* archures.c (bfd_arch_tic6x, bfd_tic6x_arch): New.
(bfd_archures_list): Update.
* config.bfd (tic6x-*-elf): New.
* configure.in (bfd_elf32_tic6x_be_vec, bfd_elf32_tic6x_le_vec):
New.
* configure: Regenerate.
* cpu-tic6x.c, elf32-tic6x.c: New.
* reloc.c (BFD_RELOC_C6000_PCR_S21, BFD_RELOC_C6000_PCR_S12,
BFD_RELOC_C6000_PCR_S10, BFD_RELOC_C6000_PCR_S7,
BFD_RELOC_C6000_ABS_S16, BFD_RELOC_C6000_ABS_L16,
BFD_RELOC_C6000_ABS_H16, BFD_RELOC_C6000_SBR_U15_B,
BFD_RELOC_C6000_SBR_U15_H, BFD_RELOC_C6000_SBR_U15_W,
BFD_RELOC_C6000_SBR_S16, BFD_RELOC_C6000_SBR_L16_B,
BFD_RELOC_C6000_SBR_L16_H, BFD_RELOC_C6000_SBR_L16_W,
BFD_RELOC_C6000_SBR_H16_B, BFD_RELOC_C6000_SBR_H16_H,
BFD_RELOC_C6000_SBR_H16_W, BFD_RELOC_C6000_SBR_GOT_U15_W,
BFD_RELOC_C6000_SBR_GOT_L16_W, BFD_RELOC_C6000_SBR_GOT_H16_W,
BFD_RELOC_C6000_DSBT_INDEX, BFD_RELOC_C6000_PREL31,
BFD_RELOC_C6000_COPY, BFD_RELOC_C6000_ALIGN,
BFD_RELOC_C6000_FPHEAD, BFD_RELOC_C6000_NOCMP): New.
* targets.c (bfd_elf32_tic6x_be_vec, bfd_elf32_tic6x_le_vec): New.
(_bfd_target_vector): Update.
* bfd-in2.h, libbfd.h: Regenerate.
binutils:
* MAINTAINERS: Add self as TI C6X maintainer.
* NEWS: Add news entry for TI C6X support.
* readelf.c: Include elf/tic6x.h.
(guess_is_rela): Handle EM_TI_C6000.
(dump_relocations): Likewise.
(get_tic6x_dynamic_type): New.
(get_dynamic_type): Call it.
(get_machine_flags): Handle EF_C6000_REL.
(get_osabi_name): Handle machine-specific values only for relevant
machines. Handle C6X values.
(get_tic6x_segment_type): New.
(get_segment_type): Call it.
(get_tic6x_section_type_name): New.
(get_section_type_name): Call it.
(is_32bit_abs_reloc, is_16bit_abs_reloc, is_none_reloc): Handle
EM_TI_C6000.
gas:
* Makefile.am (TARGET_CPU_CFILES): Add config/tc-tic6x.c.
(TARGET_CPU_HFILES): Add config/tc-tic6x.h.
* Makefile.in: Regenerate.
* NEWS: Add news entry for TI C6X support.
* app.c (do_scrub_chars): Handle "||^" for TI C6X. Handle
TC_PREDICATE_START_CHAR and TC_PREDICATE_END_CHAR. Keep spaces in
operands if TC_KEEP_OPERAND_SPACES.
* configure.tgt (tic6x-*-*): New.
* config/tc-ia64.h (TC_PREDICATE_START_CHAR,
TC_PREDICATE_END_CHAR): Define.
* config/tc-tic6x.c, config/tc-tic6x.h: New.
* doc/Makefile.am (CPU_DOCS): Add c-tic6x.texi.
* doc/Makefile.in: Regenerate.
* doc/all.texi (TIC6X): Define.
* doc/as.texinfo: Add TI C6X documentation. Include c-tic6x.texi.
* doc/c-tic6x.texi: New.
gas/testsuite:
* gas/tic6x: New directory and testcases.
include:
* dis-asm.h (print_insn_tic6x): Declare.
include/elf:
* common.h (ELFOSABI_C6000_ELFABI, ELFOSABI_C6000_LINUX): Define.
* tic6x.h: New.
include/opcode:
* tic6x-control-registers.h, tic6x-insn-formats.h,
tic6x-opcode-table.h, tic6x.h: New.
ld:
* Makefile.am (ALL_EMULATIONS): Add eelf32_tic6x_be.o and
eelf32_tic6x_le.o.
(eelf32_tic6x_be.c, eelf32_tic6x_le.c): New.
* NEWS: Add news entry for TI C6X support.
* configure.tgt (tic6x-*-*): New.
* emulparams/elf32_tic6x_be.sh, emulparams/elf32_tic6x_le.sh: New.
ld/testsuite:
* ld-elf/flags1.d, ld-elf/merge.d: XFAIL for tic6x-*-*.
* ld-elf/sec-to-seg.exp: Set B_test_same_seg to 0 for tic6x-*-*.
* ld-tic6x: New directory and testcases.
opcodes:
* Makefile.am (TARGET_LIBOPCODES_CFILES): Add tic6x-dis.c.
* Makefile.in: Regenerate.
* configure.in (bfd_tic6x_arch): New.
* configure: Regenerate.
* disassemble.c (ARCH_tic6x): Define if ARCH_all.
(disassembler): Handle TI C6X.
* tic6x-dis.c: New.
Diffstat (limited to 'opcodes')
-rw-r--r-- | opcodes/ChangeLog | 10 | ||||
-rw-r--r-- | opcodes/Makefile.am | 1 | ||||
-rw-r--r-- | opcodes/Makefile.in | 2 | ||||
-rwxr-xr-x | opcodes/configure | 1 | ||||
-rw-r--r-- | opcodes/configure.in | 1 | ||||
-rw-r--r-- | opcodes/disassemble.c | 8 | ||||
-rw-r--r-- | opcodes/tic6x-dis.c | 1110 |
7 files changed, 1132 insertions, 1 deletions
diff --git a/opcodes/ChangeLog b/opcodes/ChangeLog index daeb131..777b9f3 100644 --- a/opcodes/ChangeLog +++ b/opcodes/ChangeLog @@ -1,3 +1,13 @@ +2010-03-25 Joseph Myers <joseph@codesourcery.com> + + * Makefile.am (TARGET_LIBOPCODES_CFILES): Add tic6x-dis.c. + * Makefile.in: Regenerate. + * configure.in (bfd_tic6x_arch): New. + * configure: Regenerate. + * disassemble.c (ARCH_tic6x): Define if ARCH_all. + (disassembler): Handle TI C6X. + * tic6x-dis.c: New. + 2010-03-24 Mike Frysinger <vapier@gentoo.org> * bfin-dis.c (decode_regs_hi): Change REG_LH2 typo to REG_MH2. diff --git a/opcodes/Makefile.am b/opcodes/Makefile.am index 71b8608..e665c1e 100644 --- a/opcodes/Makefile.am +++ b/opcodes/Makefile.am @@ -204,6 +204,7 @@ TARGET_LIBOPCODES_CFILES = \ tic4x-dis.c \ tic54x-dis.c \ tic54x-opc.c \ + tic6x-dis.c \ tic80-dis.c \ tic80-opc.c \ v850-dis.c \ diff --git a/opcodes/Makefile.in b/opcodes/Makefile.in index d7a941b..7fd6e78 100644 --- a/opcodes/Makefile.in +++ b/opcodes/Makefile.in @@ -474,6 +474,7 @@ TARGET_LIBOPCODES_CFILES = \ tic4x-dis.c \ tic54x-dis.c \ tic54x-opc.c \ + tic6x-dis.c \ tic80-dis.c \ tic80-opc.c \ v850-dis.c \ @@ -844,6 +845,7 @@ distclean-compile: @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tic4x-dis.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tic54x-dis.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tic54x-opc.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tic6x-dis.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tic80-dis.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tic80-opc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v850-dis.Plo@am__quote@ diff --git a/opcodes/configure b/opcodes/configure index 80f52c0..ddc2e4c 100755 --- a/opcodes/configure +++ b/opcodes/configure @@ -12471,6 +12471,7 @@ if test x${all_targets} = xfalse ; then bfd_tic30_arch) ta="$ta tic30-dis.lo" ;; bfd_tic4x_arch) ta="$ta tic4x-dis.lo" ;; bfd_tic54x_arch) ta="$ta tic54x-dis.lo tic54x-opc.lo" ;; + bfd_tic6x_arch) ta="$ta tic6x-dis.lo" ;; bfd_tic80_arch) ta="$ta tic80-dis.lo tic80-opc.lo" ;; bfd_v850_arch) ta="$ta v850-opc.lo v850-dis.lo" ;; bfd_v850e_arch) ta="$ta v850-opc.lo v850-dis.lo" ;; diff --git a/opcodes/configure.in b/opcodes/configure.in index dd9dabf..6a81845 100644 --- a/opcodes/configure.in +++ b/opcodes/configure.in @@ -295,6 +295,7 @@ if test x${all_targets} = xfalse ; then bfd_tic30_arch) ta="$ta tic30-dis.lo" ;; bfd_tic4x_arch) ta="$ta tic4x-dis.lo" ;; bfd_tic54x_arch) ta="$ta tic54x-dis.lo tic54x-opc.lo" ;; + bfd_tic6x_arch) ta="$ta tic6x-dis.lo" ;; bfd_tic80_arch) ta="$ta tic80-dis.lo tic80-opc.lo" ;; bfd_v850_arch) ta="$ta v850-opc.lo v850-dis.lo" ;; bfd_v850e_arch) ta="$ta v850-opc.lo v850-dis.lo" ;; diff --git a/opcodes/disassemble.c b/opcodes/disassemble.c index 267fcf5..17cf5e7 100644 --- a/opcodes/disassemble.c +++ b/opcodes/disassemble.c @@ -1,6 +1,6 @@ /* Select disassembly routine for specified architecture. Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, - 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. + 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. This file is part of the GNU opcodes library. @@ -80,6 +80,7 @@ #define ARCH_tic30 #define ARCH_tic4x #define ARCH_tic54x +#define ARCH_tic6x #define ARCH_tic80 #define ARCH_v850 #define ARCH_vax @@ -401,6 +402,11 @@ disassembler (abfd) disassemble = print_insn_tic54x; break; #endif +#ifdef ARCH_tic6x + case bfd_arch_tic6x: + disassemble = print_insn_tic6x; + break; +#endif #ifdef ARCH_tic80 case bfd_arch_tic80: disassemble = print_insn_tic80; diff --git a/opcodes/tic6x-dis.c b/opcodes/tic6x-dis.c new file mode 100644 index 0000000..8032084 --- /dev/null +++ b/opcodes/tic6x-dis.c @@ -0,0 +1,1110 @@ +/* TI C6X disassembler. + Copyright 2010 + Free Software Foundation, Inc. + + This file is part of libopcodes. + + This library is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + It is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY + or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public + License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, + MA 02110-1301, USA. */ + +#include "sysdep.h" +#include "dis-asm.h" +#include "opcode/tic6x.h" +#include "libiberty.h" + +/* Define the instruction format table. */ +const tic6x_insn_format tic6x_insn_format_table[tic6x_insn_format_max] = + { +#define FMT(name, num_bits, cst_bits, mask, fields) \ + { num_bits, cst_bits, mask, fields }, +#include "opcode/tic6x-insn-formats.h" +#undef FMT + }; + +/* Define the control register table. */ +const tic6x_ctrl tic6x_ctrl_table[tic6x_ctrl_max] = + { +#define CTRL(name, isa, rw, crlo, crhi_mask) \ + { \ + STRINGX(name), \ + CONCAT2(TIC6X_INSN_,isa), \ + CONCAT2(tic6x_rw_,rw), \ + crlo, \ + crhi_mask \ + }, +#include "opcode/tic6x-control-registers.h" +#undef CTRL + }; + +/* Define the opcode table. */ +const tic6x_opcode tic6x_opcode_table[tic6x_opcode_max] = + { +#define INSN(name, func_unit, format, type, isa, flags, fixed, ops, var) \ + { \ + STRINGX(name), \ + CONCAT2(tic6x_func_unit_,func_unit), \ + CONCAT4(tic6x_insn_format_,func_unit,_,format), \ + CONCAT2(tic6x_pipeline_,type), \ + CONCAT2(TIC6X_INSN_,isa), \ + flags, \ + fixed, \ + ops, \ + var \ + }, +#define INSNE(name, e, func_unit, format, type, isa, flags, fixed, ops, var) \ + { \ + STRINGX(name), \ + CONCAT2(tic6x_func_unit_,func_unit), \ + CONCAT4(tic6x_insn_format_,func_unit,_,format), \ + CONCAT2(tic6x_pipeline_,type), \ + CONCAT2(TIC6X_INSN_,isa), \ + flags, \ + fixed, \ + ops, \ + var \ + }, +#include "opcode/tic6x-opcode-table.h" +#undef INSN +#undef INSNE + }; + +/* If instruction format FMT has a field FIELD, return a pointer to + the description of that field; otherwise return NULL. */ + +const tic6x_insn_field * +tic6x_field_from_fmt (const tic6x_insn_format *fmt, tic6x_insn_field_id field) +{ + unsigned int f; + + for (f = 0; f < fmt->num_fields; f++) + if (fmt->fields[f].field_id == field) + return &fmt->fields[f]; + + return NULL; +} + +/* Extract the bits corresponding to FIELD from OPCODE. */ + +static unsigned int +tic6x_field_bits (unsigned int opcode, const tic6x_insn_field *field) +{ + return (opcode >> field->low_pos) & ((1u << field->width) - 1); +} + +/* Extract a 32-bit value read from the instruction stream. */ + +static unsigned int +tic6x_extract_32 (unsigned char *p, struct disassemble_info *info) +{ + if (info->endian == BFD_ENDIAN_LITTLE) + return (p[0]) | (p[1] << 8) | (p[2] << 16) | (p[3] << 24); + else + return (p[3]) | (p[2] << 8) | (p[1] << 16) | (p[0] << 24); +} + +/* Extract a 16-bit value read from the instruction stream. */ + +static unsigned int +tic6x_extract_16 (unsigned char *p, struct disassemble_info *info) +{ + if (info->endian == BFD_ENDIAN_LITTLE) + return (p[0]) | (p[1] << 8); + else + return (p[1]) | (p[0] << 8); +} + +/* FP points to a fetch packet. Return whether it is header-based; if + it is, fill in HEADER. */ + +static bfd_boolean +tic6x_check_fetch_packet_header (unsigned char *fp, + tic6x_fetch_packet_header *header, + struct disassemble_info *info) +{ + int i; + + header->header = tic6x_extract_32 (fp + 28, info); + if ((header->header & 0xf0000000) != 0xe0000000) + return FALSE; + + for (i = 0; i < 7; i++) + header->word_compact[i] + = (header->header & (1u << (21 + i))) ? TRUE : FALSE; + + header->prot = (header->header & (1u << 20)) ? TRUE : FALSE; + header->rs = (header->header & (1u << 19)) ? TRUE : FALSE; + header->dsz = (header->header >> 16) & 0x7; + header->br = (header->header & (1u << 15)) ? TRUE : FALSE; + header->sat = (header->header & (1u << 14)) ? TRUE : FALSE; + + for (i = 0; i < 14; i++) + header->p_bits[i] + = (header->header & (1u << i)) ? TRUE : FALSE; + + return TRUE; +} + +/* Disassemble the instruction at ADDR and print it using + INFO->FPRINTF_FUNC and INFO->STREAM, returning the number of bytes + consumed. */ + +int +print_insn_tic6x (bfd_vma addr, struct disassemble_info *info) +{ + int status; + bfd_vma fp_addr; + bfd_vma fp_offset; + unsigned char fp[32]; + unsigned int opcode; + tic6x_opcode_id opcode_id; + bfd_boolean fetch_packet_header_based; + tic6x_fetch_packet_header header; + unsigned int num_bits; + bfd_boolean bad_offset = FALSE; + + fp_offset = addr & 0x1f; + fp_addr = addr - fp_offset; + status = info->read_memory_func (fp_addr, fp, 32, info); + if (status) + { + info->memory_error_func (status, addr, info); + return -1; + } + + fetch_packet_header_based + = tic6x_check_fetch_packet_header (fp, &header, info); + if (fetch_packet_header_based) + { + if (fp_offset & 0x1) + bad_offset = TRUE; + if ((fp_offset & 0x3) && (fp_offset >= 28 + || !header.word_compact[fp_offset >> 2])) + bad_offset = TRUE; + if (fp_offset == 28) + { + info->bytes_per_chunk = 4; + info->fprintf_func (info->stream, "<fetch packet header 0x%.8x>", + header.header); + return 4; + } + num_bits = (header.word_compact[fp_offset >> 2] ? 16 : 32); + } + else + { + num_bits = 32; + if (fp_offset & 0x3) + bad_offset = TRUE; + } + + if (bad_offset) + { + info->bytes_per_chunk = 1; + info->fprintf_func (info->stream, ".byte 0x%.2x", fp[fp_offset]); + return 1; + } + + if (num_bits == 16) + { + /* The least-significant part of a 32-bit word comes logically + before the most-significant part. For big-endian, follow the + TI assembler in showing instructions in logical order by + pretending that the two halves of the word are in opposite + locations to where they actually are. */ + if (info->endian == BFD_ENDIAN_LITTLE) + opcode = tic6x_extract_16 (fp + fp_offset, info); + else + opcode = tic6x_extract_16 (fp + (fp_offset ^ 2), info); + } + else + opcode = tic6x_extract_32 (fp + fp_offset, info); + + for (opcode_id = 0; opcode_id < tic6x_opcode_max; opcode_id++) + { + const tic6x_opcode *const opc = &tic6x_opcode_table[opcode_id]; + const tic6x_insn_format *const fmt + = &tic6x_insn_format_table[opc->format]; + const tic6x_insn_field *creg_field; + bfd_boolean p_bit; + const char *parallel; + const char *cond = ""; + const char *func_unit; + char func_unit_buf[7]; + unsigned int func_unit_side = 0; + unsigned int func_unit_data_side = 0; + unsigned int func_unit_cross = 0; + /* The maximum length of the text of a non-PC-relative operand + is 24 bytes (SPMASK masking all eight functional units, with + separating commas and trailing NUL). */ + char operands[TIC6X_MAX_OPERANDS][24] = { { 0 } }; + bfd_vma operands_addresses[TIC6X_MAX_OPERANDS] = { 0 }; + bfd_boolean operands_text[TIC6X_MAX_OPERANDS] = { FALSE }; + bfd_boolean operands_pcrel[TIC6X_MAX_OPERANDS] = { FALSE }; + unsigned int fix; + unsigned int num_operands; + unsigned int op_num; + bfd_boolean fixed_ok; + bfd_boolean operands_ok; + + if (opc->flags & TIC6X_FLAG_MACRO) + continue; + if (fmt->num_bits != num_bits) + continue; + if ((opcode & fmt->mask) != fmt->cst_bits) + continue; + + /* If the format has a creg field, it is only a candidate for a + match if the creg and z fields have values indicating a valid + condition; reserved values indicate either an instruction + format without a creg field, or an invalid instruction. */ + creg_field = tic6x_field_from_fmt (fmt, tic6x_field_creg); + if (creg_field) + { + const tic6x_insn_field *z_field; + unsigned int creg_value, z_value; + static const char *const conds[8][2] = + { + { "", NULL }, + { "[b0] ", "[!b0] " }, + { "[b1] ", "[!b1] " }, + { "[b2] ", "[!b2] " }, + { "[a1] ", "[!a1] " }, + { "[a2] ", "[!a2] " }, + { "[a0] ", "[!a0] " }, + { NULL, NULL } + }; + + /* A creg field is not meaningful without a z field, so if + the z field is not present this is an error in the format + table. */ + z_field = tic6x_field_from_fmt (fmt, tic6x_field_z); + if (!z_field) + abort (); + + creg_value = tic6x_field_bits (opcode, creg_field); + z_value = tic6x_field_bits (opcode, z_field); + cond = conds[creg_value][z_value]; + if (cond == NULL) + continue; + } + + /* All fixed fields must have matching values; all fields with + restricted ranges must have values within those ranges. */ + fixed_ok = TRUE; + for (fix = 0; fix < opc->num_fixed_fields; fix++) + { + unsigned int field_bits; + const tic6x_insn_field *const field + = tic6x_field_from_fmt (fmt, opc->fixed_fields[fix].field_id); + + if (!field) + abort (); + field_bits = tic6x_field_bits (opcode, field); + if (field_bits < opc->fixed_fields[fix].min_val + || field_bits > opc->fixed_fields[fix].max_val) + { + fixed_ok = FALSE; + break; + } + } + if (!fixed_ok) + continue; + + /* The instruction matches. */ + + /* The p-bit indicates whether this instruction is in parallel + with the *next* instruction, whereas the parallel bars + indicate the instruction is in parallel with the *previous* + instruction. Thus, we must find the p-bit for the previous + instruction. */ + if (num_bits == 16 && (fp_offset & 0x2) == 2) + { + /* This is the logically second (most significant; second in + fp_offset terms because fp_offset relates to logical not + physical addresses) instruction of a compact pair; find + the p-bit for the first (least significant). */ + p_bit = header.p_bits[(fp_offset >> 2) << 1]; + } + else if (fp_offset >= 4) + { + /* Find the last instruction of the previous word in this + fetch packet. For compact instructions, this is the most + significant 16 bits. */ + if (fetch_packet_header_based + && header.word_compact[(fp_offset >> 2) - 1]) + p_bit = header.p_bits[(fp_offset >> 1) - 1]; + else + { + unsigned int prev_opcode + = tic6x_extract_32 (fp + (fp_offset & 0x1c) - 4, info); + p_bit = (prev_opcode & 0x1) ? TRUE : FALSE; + } + } + else + { + /* Find the last instruction of the previous fetch + packet. */ + unsigned char fp_prev[32]; + status = info->read_memory_func (fp_addr - 32, fp_prev, 32, info); + if (status) + /* No previous instruction to be parallel with. */ + p_bit = FALSE; + else + { + bfd_boolean prev_header_based; + tic6x_fetch_packet_header prev_header; + + prev_header_based + = tic6x_check_fetch_packet_header (fp_prev, &prev_header, info); + if (prev_header_based && prev_header.word_compact[6]) + p_bit = prev_header.p_bits[13]; + else + { + unsigned int prev_opcode = tic6x_extract_32 (fp_prev + 28, + info); + p_bit = (prev_opcode & 0x1) ? TRUE : FALSE; + } + } + } + parallel = p_bit ? "|| " : ""; + + if (opc->func_unit == tic6x_func_unit_nfu) + func_unit = ""; + else + { + unsigned int fld_num; + char func_unit_char; + const char *data_str; + bfd_boolean have_areg = FALSE; + bfd_boolean have_cross = FALSE; + + func_unit_side = (opc->flags & TIC6X_FLAG_SIDE_B_ONLY) ? 2 : 0; + func_unit_cross = 0; + func_unit_data_side = (opc->flags & TIC6X_FLAG_SIDE_T2_ONLY) ? 2 : 0; + + for (fld_num = 0; fld_num < opc->num_variable_fields; fld_num++) + { + const tic6x_coding_field *const enc = &opc->variable_fields[fld_num]; + const tic6x_insn_field *field; + unsigned int fld_val; + + field = tic6x_field_from_fmt (fmt, enc->field_id); + if (!field) + abort (); + fld_val = tic6x_field_bits (opcode, field); + switch (enc->coding_method) + { + case tic6x_coding_fu: + /* The side must be specified exactly once. */ + if (func_unit_side) + abort (); + func_unit_side = (fld_val ? 2 : 1); + break; + + case tic6x_coding_data_fu: + /* The data side must be specified exactly once. */ + if (func_unit_data_side) + abort (); + func_unit_data_side = (fld_val ? 2 : 1); + break; + + case tic6x_coding_xpath: + /* Cross path use must be specified exactly + once. */ + if (have_cross) + abort (); + have_cross = TRUE; + func_unit_cross = fld_val; + break; + + case tic6x_coding_areg: + have_areg = TRUE; + break; + + default: + /* Don't relate to functional units. */ + break; + } + } + + /* The side of the functional unit used must now have been + determined either from the flags or from an instruction + field. */ + if (func_unit_side != 1 && func_unit_side != 2) + abort (); + + /* Cross paths are not applicable when sides are specified + for both address and data paths. */ + if (func_unit_data_side && have_cross) + abort (); + + /* Separate address and data paths are only applicable for + the D unit. */ + if (func_unit_data_side && opc->func_unit != tic6x_func_unit_d) + abort (); + + /* If an address register is being used but in ADDA rather + than a load or store, it uses a cross path for side-A + instructions, and the cross path use is not specified by + an instruction field. */ + if (have_areg && !func_unit_data_side) + { + if (have_cross) + abort (); + func_unit_cross = (func_unit_side == 1 ? TRUE : FALSE); + } + + switch (opc->func_unit) + { + case tic6x_func_unit_d: + func_unit_char = 'D'; + break; + + case tic6x_func_unit_l: + func_unit_char = 'L'; + break; + + case tic6x_func_unit_m: + func_unit_char = 'M'; + break; + + case tic6x_func_unit_s: + func_unit_char = 'S'; + break; + + default: + abort (); + } + + switch (func_unit_data_side) + { + case 0: + data_str = ""; + break; + + case 1: + data_str = "T1"; + break; + + case 2: + data_str = "T2"; + break; + + default: + abort (); + } + + snprintf (func_unit_buf, 7, " .%c%u%s%s", func_unit_char, + func_unit_side, (func_unit_cross ? "X" : ""), data_str); + func_unit = func_unit_buf; + } + + /* For each operand there must be one or more fields set based + on that operand, that can together be used to derive the + operand value. */ + operands_ok = TRUE; + num_operands = opc->num_operands; + for (op_num = 0; op_num < num_operands; op_num++) + { + unsigned int fld_num; + unsigned int mem_base_reg = 0; + bfd_boolean mem_base_reg_known = FALSE; + bfd_boolean mem_base_reg_known_long = FALSE; + unsigned int mem_offset = 0; + bfd_boolean mem_offset_known = FALSE; + bfd_boolean mem_offset_known_long = FALSE; + unsigned int mem_mode = 0; + bfd_boolean mem_mode_known = FALSE; + unsigned int mem_scaled = 0; + bfd_boolean mem_scaled_known = FALSE; + unsigned int crlo = 0; + bfd_boolean crlo_known = FALSE; + unsigned int crhi = 0; + bfd_boolean crhi_known = FALSE; + bfd_boolean spmask_skip_operand = FALSE; + unsigned int fcyc_bits = 0; + bfd_boolean prev_sploop_found = FALSE; + + switch (opc->operand_info[op_num].form) + { + case tic6x_operand_retreg: + /* Fully determined by the functional unit. */ + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%c3", + (func_unit_side == 2 ? 'b' : 'a')); + continue; + + case tic6x_operand_irp: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "irp"); + continue; + + case tic6x_operand_nrp: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "nrp"); + continue; + + default: + break; + } + + for (fld_num = 0; fld_num < opc->num_variable_fields; fld_num++) + { + const tic6x_coding_field *const enc + = &opc->variable_fields[fld_num]; + const tic6x_insn_field *field; + unsigned int fld_val; + signed int signed_fld_val; + + if (enc->operand_num != op_num) + continue; + field = tic6x_field_from_fmt (fmt, enc->field_id); + if (!field) + abort (); + fld_val = tic6x_field_bits (opcode, field); + switch (enc->coding_method) + { + case tic6x_coding_ucst: + case tic6x_coding_ulcst_dpr_byte: + case tic6x_coding_ulcst_dpr_half: + case tic6x_coding_ulcst_dpr_word: + case tic6x_coding_lcst_low16: + switch (opc->operand_info[op_num].form) + { + case tic6x_operand_asm_const: + case tic6x_operand_link_const: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%u", fld_val); + break; + + case tic6x_operand_mem_long: + mem_offset = fld_val; + mem_offset_known_long = TRUE; + break; + + default: + abort (); + } + break; + + case tic6x_coding_lcst_high16: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%u", fld_val << 16); + break; + + case tic6x_coding_scst: + operands_text[op_num] = TRUE; + signed_fld_val = (signed int) fld_val; + signed_fld_val ^= (1 << (field->width - 1)); + signed_fld_val -= (1 << (field->width - 1)); + snprintf (operands[op_num], 24, "%d", signed_fld_val); + break; + + case tic6x_coding_ucst_minus_one: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%u", fld_val + 1); + break; + + case tic6x_coding_pcrel: + case tic6x_coding_pcrel_half: + signed_fld_val = (signed int) fld_val; + signed_fld_val ^= (1 << (field->width - 1)); + signed_fld_val -= (1 << (field->width - 1)); + if (fetch_packet_header_based + && enc->coding_method == tic6x_coding_pcrel_half) + signed_fld_val *= 2; + else + signed_fld_val *= 4; + operands_pcrel[op_num] = TRUE; + operands_addresses[op_num] = fp_addr + signed_fld_val; + break; + + case tic6x_coding_reg_shift: + fld_val <<= 1; + /* Fall through. */ + case tic6x_coding_reg: + switch (opc->operand_info[op_num].form) + { + case tic6x_operand_reg: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%c%u", + (func_unit_side == 2 ? 'b' : 'a'), fld_val); + break; + + case tic6x_operand_xreg: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%c%u", + (((func_unit_side == 2) ^ func_unit_cross) + ? 'b' + : 'a'), fld_val); + break; + + case tic6x_operand_dreg: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%c%u", + (func_unit_data_side == 2 ? 'b' : 'a'), + fld_val); + break; + + case tic6x_operand_regpair: + operands_text[op_num] = TRUE; + if (fld_val & 1) + operands_ok = FALSE; + snprintf (operands[op_num], 24, "%c%u:%c%u", + (func_unit_side == 2 ? 'b' : 'a'), fld_val + 1, + (func_unit_side == 2 ? 'b' : 'a'), fld_val); + break; + + case tic6x_operand_xregpair: + operands_text[op_num] = TRUE; + if (fld_val & 1) + operands_ok = FALSE; + snprintf (operands[op_num], 24, "%c%u:%c%u", + (((func_unit_side == 2) ^ func_unit_cross) + ? 'b' + : 'a'), fld_val + 1, + (((func_unit_side == 2) ^ func_unit_cross) + ? 'b' + : 'a'), fld_val); + break; + + case tic6x_operand_dregpair: + operands_text[op_num] = TRUE; + if (fld_val & 1) + operands_ok = FALSE; + snprintf (operands[op_num], 24, "%c%u:%c%u", + (func_unit_data_side == 2 ? 'b' : 'a'), + fld_val + 1, + (func_unit_data_side == 2 ? 'b' : 'a'), + fld_val); + break; + + case tic6x_operand_mem_deref: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "*%c%u", + (func_unit_side == 2 ? 'b' : 'a'), fld_val); + break; + + case tic6x_operand_mem_short: + case tic6x_operand_mem_ndw: + mem_base_reg = fld_val; + mem_base_reg_known = TRUE; + break; + + default: + abort (); + } + break; + + case tic6x_coding_areg: + switch (opc->operand_info[op_num].form) + { + case tic6x_operand_areg: + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "b%u", + fld_val ? 15u : 14u); + break; + + case tic6x_operand_mem_long: + mem_base_reg = fld_val ? 15u : 14u; + mem_base_reg_known_long = TRUE; + break; + + default: + abort (); + } + break; + + case tic6x_coding_mem_offset: + case tic6x_coding_mem_offset_noscale: + mem_offset = fld_val; + mem_offset_known = TRUE; + break; + + case tic6x_coding_mem_mode: + mem_mode = fld_val; + mem_mode_known = TRUE; + break; + + case tic6x_coding_scaled: + mem_scaled = fld_val; + mem_scaled_known = TRUE; + break; + + case tic6x_coding_crlo: + crlo = fld_val; + crlo_known = TRUE; + break; + + case tic6x_coding_crhi: + crhi = fld_val; + crhi_known = TRUE; + break; + + case tic6x_coding_fstg: + case tic6x_coding_fcyc: + if (!prev_sploop_found) + { + bfd_vma search_fp_addr = fp_addr; + bfd_vma search_fp_offset = fp_offset; + bfd_boolean search_fp_header_based + = fetch_packet_header_based; + tic6x_fetch_packet_header search_fp_header = header; + unsigned char search_fp[32]; + unsigned int search_num_bits; + unsigned int search_opcode; + unsigned int sploop_ii = 0; + int i; + + memcpy (search_fp, fp, 32); + + /* To interpret these bits in an SPKERNEL + instruction, we must find the previous + SPLOOP-family instruction. It may come up to + 48 execute packets earlier. */ + for (i = 0; i < 48 * 8; i++) + { + /* Find the previous instruction. */ + if (search_fp_offset & 2) + search_fp_offset -= 2; + else if (search_fp_offset >= 4) + { + if (search_fp_header_based + && (search_fp_header.word_compact + [(search_fp_offset >> 2) - 1])) + search_fp_offset -= 2; + else + search_fp_offset -= 4; + } + else + { + search_fp_addr -= 32; + status = info->read_memory_func (search_fp_addr, + search_fp, + 32, info); + if (status) + /* No previous SPLOOP instruction. */ + break; + search_fp_header_based + = (tic6x_check_fetch_packet_header + (search_fp, &search_fp_header, info)); + if (search_fp_header_based) + search_fp_offset + = search_fp_header.word_compact[6] ? 26 : 24; + else + search_fp_offset = 28; + } + + /* Extract the previous instruction. */ + if (search_fp_header_based) + search_num_bits + = (search_fp_header.word_compact[search_fp_offset + >> 2] + ? 16 + : 32); + else + search_num_bits = 32; + if (search_num_bits == 16) + { + if (info->endian == BFD_ENDIAN_LITTLE) + search_opcode + = (tic6x_extract_16 + (search_fp + search_fp_offset, info)); + else + search_opcode + = (tic6x_extract_16 + (search_fp + (search_fp_offset ^ 2), + info)); + } + else + search_opcode + = tic6x_extract_32 (search_fp + search_fp_offset, + info); + + /* Check whether it is an SPLOOP-family + instruction. */ + if (search_num_bits == 32 + && ((search_opcode & 0x003ffffe) == 0x00038000 + || (search_opcode & 0x003ffffe) == 0x0003a000 + || ((search_opcode & 0x003ffffe) + == 0x0003e000))) + { + prev_sploop_found = TRUE; + sploop_ii = ((search_opcode >> 23) & 0x1f) + 1; + } + else if (search_num_bits == 16 + && (search_opcode & 0x3c7e) == 0x0c66) + { + prev_sploop_found = TRUE; + sploop_ii + = (((search_opcode >> 7) & 0x7) + | ((search_opcode >> 11) & 0x8)) + 1; + } + if (prev_sploop_found) + { + if (sploop_ii <= 0) + abort (); + else if (sploop_ii <= 1) + fcyc_bits = 0; + else if (sploop_ii <= 2) + fcyc_bits = 1; + else if (sploop_ii <= 4) + fcyc_bits = 2; + else if (sploop_ii <= 8) + fcyc_bits = 3; + else if (sploop_ii <= 14) + fcyc_bits = 4; + else + prev_sploop_found = FALSE; + } + if (prev_sploop_found) + break; + } + } + if (!prev_sploop_found) + { + operands_ok = FALSE; + operands_text[op_num] = TRUE; + break; + } + if (fcyc_bits > field->width) + abort (); + if (enc->coding_method == tic6x_coding_fstg) + { + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%u", + fld_val >> fcyc_bits); + } + else + { + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%u", + fld_val & ((1 << fcyc_bits) - 1)); + } + break; + + case tic6x_coding_spmask: + if (fld_val == 0) + spmask_skip_operand = TRUE; + else + { + char *p; + unsigned int i; + + operands_text[op_num] = TRUE; + p = operands[op_num]; + for (i = 0; i < 8; i++) + if (fld_val & (1 << i)) + { + *p++ = "LSDM"[i/2]; + *p++ = '1' + (i & 1); + *p++ = ','; + } + p[-1] = 0; + } + break; + + case tic6x_coding_fu: + case tic6x_coding_data_fu: + case tic6x_coding_xpath: + /* Don't relate to operands, so operand number is + meaningless. */ + break; + + default: + abort (); + } + + if (mem_base_reg_known_long && mem_offset_known_long) + { + if (operands_text[op_num] || operands_pcrel[op_num]) + abort (); + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "*+b%u(%u)", mem_base_reg, + mem_offset * opc->operand_info[op_num].size); + } + + if (mem_base_reg_known && mem_offset_known && mem_mode_known + && (mem_scaled_known + || (opc->operand_info[op_num].form + != tic6x_operand_mem_ndw))) + { + char side; + char base[4]; + bfd_boolean offset_is_reg; + bfd_boolean offset_scaled; + char offset[4]; + char offsetp[6]; + + if (operands_text[op_num] || operands_pcrel[op_num]) + abort (); + + side = func_unit_side == 2 ? 'b' : 'a'; + snprintf (base, 4, "%c%u", side, mem_base_reg); + + offset_is_reg = ((mem_mode & 4) ? TRUE : FALSE); + if (offset_is_reg) + { + snprintf (offset, 4, "%c%u", side, mem_offset); + if (opc->operand_info[op_num].form + == tic6x_operand_mem_ndw) + offset_scaled = mem_scaled ? TRUE : FALSE; + else + offset_scaled = TRUE; + } + else + { + if (opc->operand_info[op_num].form + == tic6x_operand_mem_ndw) + { + offset_scaled = mem_scaled ? TRUE : FALSE; + snprintf (offset, 4, "%u", mem_offset); + } + else + { + offset_scaled = FALSE; + snprintf (offset, 4, "%u", + (mem_offset + * opc->operand_info[op_num].size)); + } + } + + if (offset_scaled) + snprintf (offsetp, 6, "[%s]", offset); + else + snprintf (offsetp, 6, "(%s)", offset); + + operands_text[op_num] = TRUE; + switch (mem_mode & ~4u) + { + case 0: + snprintf (operands[op_num], 24, "*-%s%s", base, offsetp); + break; + + case 1: + snprintf (operands[op_num], 24, "*+%s%s", base, offsetp); + break; + + case 2: + case 3: + operands_ok = FALSE; + break; + + case 8: + snprintf (operands[op_num], 24, "*--%s%s", base, + offsetp); + break; + + case 9: + snprintf (operands[op_num], 24, "*++%s%s", base, + offsetp); + break; + + case 10: + snprintf (operands[op_num], 24, "*%s--%s", base, + offsetp); + break; + + case 11: + snprintf (operands[op_num], 24, "*%s++%s", base, + offsetp); + break; + + default: + abort (); + } + } + + if (crlo_known && crhi_known) + { + tic6x_rw rw; + tic6x_ctrl_id crid; + + if (operands_text[op_num] || operands_pcrel[op_num]) + abort (); + + rw = opc->operand_info[op_num].rw; + if (rw != tic6x_rw_read + && rw != tic6x_rw_write) + abort (); + + for (crid = 0; crid < tic6x_ctrl_max; crid++) + { + if (crlo == tic6x_ctrl_table[crid].crlo + && (crhi & tic6x_ctrl_table[crid].crhi_mask) == 0 + && (rw == tic6x_rw_read + ? (tic6x_ctrl_table[crid].rw == tic6x_rw_read + || (tic6x_ctrl_table[crid].rw + == tic6x_rw_read_write)) + : (tic6x_ctrl_table[crid].rw == tic6x_rw_write + || (tic6x_ctrl_table[crid].rw + == tic6x_rw_read_write)))) + break; + } + if (crid == tic6x_ctrl_max) + { + operands_text[op_num] = TRUE; + operands_ok = FALSE; + } + else + { + operands_text[op_num] = TRUE; + snprintf (operands[op_num], 24, "%s", + tic6x_ctrl_table[crid].name); + } + } + + if (operands_text[op_num] || operands_pcrel[op_num] + || spmask_skip_operand) + break; + } + if (spmask_skip_operand) + { + /* SPMASK operands are only valid as the single operand + in the opcode table. */ + if (num_operands != 1) + abort (); + num_operands = 0; + break; + } + /* The operand must by now have been decoded. */ + if (!operands_text[op_num] && !operands_pcrel[op_num]) + abort (); + } + + if (!operands_ok) + continue; + + info->bytes_per_chunk = num_bits / 8; + info->fprintf_func (info->stream, "%s%s%s%s", parallel, cond, + opc->name, func_unit); + for (op_num = 0; op_num < num_operands; op_num++) + { + info->fprintf_func (info->stream, "%c", (op_num == 0 ? ' ' : ',')); + if (operands_pcrel[op_num]) + info->print_address_func (operands_addresses[op_num], info); + else + info->fprintf_func (info->stream, "%s", operands[op_num]); + } + if (fetch_packet_header_based && header.prot) + info->fprintf_func (info->stream, " || nop 5"); + + return num_bits / 8; + } + + info->bytes_per_chunk = num_bits / 8; + info->fprintf_func (info->stream, "<undefined instruction 0x%.*x>", + (int) num_bits / 4, opcode); + return num_bits / 8; +} |