123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594 |
- /* Disassembly routines for TMS320C54X architecture
- Copyright (C) 1999-2022 Free Software Foundation, Inc.
- Contributed by Timothy Wall (twall@cygnus.com)
- This file is part of the GNU opcodes library.
- 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, 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 file; see the file COPYING. If not, write to the
- Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston,
- MA 02110-1301, USA. */
- #include "sysdep.h"
- #include <errno.h>
- #include <math.h>
- #include <stdlib.h>
- #include "disassemble.h"
- #include "opcode/tic54x.h"
- #include "coff/tic54x.h"
- static int has_lkaddr (unsigned short, const insn_template *);
- static int get_insn_size (unsigned short, const insn_template *);
- static int print_instruction (disassemble_info *, bfd_vma,
- unsigned short, const char *,
- const enum optype [], int, int);
- static int print_parallel_instruction (disassemble_info *, bfd_vma,
- unsigned short,
- const insn_template *, int);
- static int sprint_dual_address (disassemble_info *,char [],
- unsigned short);
- static int sprint_indirect_address (disassemble_info *,char [],
- unsigned short);
- static int sprint_direct_address (disassemble_info *,char [],
- unsigned short);
- static int sprint_mmr (disassemble_info *,char [],int);
- static int sprint_condition (disassemble_info *,char *,unsigned short);
- static int sprint_cc2 (disassemble_info *,char *,unsigned short);
- int
- print_insn_tic54x (bfd_vma memaddr, disassemble_info *info)
- {
- bfd_byte opbuf[2];
- unsigned short opcode;
- int status, size;
- const insn_template* tm;
- status = (*info->read_memory_func) (memaddr, opbuf, 2, info);
- if (status != 0)
- {
- (*info->memory_error_func) (status, memaddr, info);
- return -1;
- }
- opcode = bfd_getl16 (opbuf);
- tm = tic54x_get_insn (info, memaddr, opcode, &size);
- info->bytes_per_line = 2;
- info->bytes_per_chunk = 2;
- info->octets_per_byte = 2;
- info->display_endian = BFD_ENDIAN_LITTLE;
- if (tm->flags & FL_PAR)
- {
- if (!print_parallel_instruction (info, memaddr, opcode, tm, size))
- return -1;
- }
- else
- {
- if (!print_instruction (info, memaddr, opcode,
- (char *) tm->name,
- tm->operand_types,
- size, (tm->flags & FL_EXT)))
- return -1;
- }
- return size * 2;
- }
- static int
- has_lkaddr (unsigned short memdata, const insn_template *tm)
- {
- return (IS_LKADDR (memdata)
- && (OPTYPE (tm->operand_types[0]) == OP_Smem
- || OPTYPE (tm->operand_types[1]) == OP_Smem
- || OPTYPE (tm->operand_types[2]) == OP_Smem
- || OPTYPE (tm->operand_types[1]) == OP_Sind
- || OPTYPE (tm->operand_types[0]) == OP_Lmem
- || OPTYPE (tm->operand_types[1]) == OP_Lmem));
- }
- /* always returns 1 (whether an insn template was found) since we provide an
- "unknown instruction" template */
- const insn_template*
- tic54x_get_insn (disassemble_info *info, bfd_vma addr,
- unsigned short memdata, int *size)
- {
- const insn_template *tm = NULL;
- for (tm = tic54x_optab; tm->name; tm++)
- {
- if (tm->opcode == (memdata & tm->mask))
- {
- /* a few opcodes span two words */
- if (tm->flags & FL_EXT)
- {
- /* if lk addressing is used, the second half of the opcode gets
- pushed one word later */
- bfd_byte opbuf[2];
- bfd_vma addr2 = addr + 1 + has_lkaddr (memdata, tm);
- int status = (*info->read_memory_func) (addr2, opbuf, 2, info);
- /* FIXME handle errors. */
- if (status == 0)
- {
- unsigned short data2 = bfd_getl16 (opbuf);
- if (tm->opcode2 == (data2 & tm->mask2))
- {
- if (size) *size = get_insn_size (memdata, tm);
- return tm;
- }
- }
- }
- else
- {
- if (size) *size = get_insn_size (memdata, tm);
- return tm;
- }
- }
- }
- for (tm = (insn_template *) tic54x_paroptab; tm->name; tm++)
- {
- if (tm->opcode == (memdata & tm->mask))
- {
- if (size) *size = get_insn_size (memdata, tm);
- return tm;
- }
- }
- if (size) *size = 1;
- return &tic54x_unknown_opcode;
- }
- static int
- get_insn_size (unsigned short memdata, const insn_template *insn)
- {
- int size;
- if (insn->flags & FL_PAR)
- {
- /* only non-parallel instructions support lk addressing */
- size = insn->words;
- }
- else
- {
- size = insn->words + has_lkaddr (memdata, insn);
- }
- return size;
- }
- int
- print_instruction (disassemble_info *info,
- bfd_vma memaddr,
- unsigned short opcode,
- const char *tm_name,
- const enum optype tm_operands[],
- int size,
- int ext)
- {
- static int n;
- /* string storage for multiple operands */
- char operand[4][64] = { {0},{0},{0},{0}, };
- bfd_byte buf[2];
- unsigned long opcode2 = 0;
- unsigned long lkaddr = 0;
- enum optype src = OP_None;
- enum optype dst = OP_None;
- int i, shift;
- char *comma = "";
- info->fprintf_func (info->stream, "%-7s", tm_name);
- if (size > 1)
- {
- int status = (*info->read_memory_func) (memaddr + 1, buf, 2, info);
- if (status != 0)
- return 0;
- lkaddr = opcode2 = bfd_getl16 (buf);
- if (size > 2)
- {
- status = (*info->read_memory_func) (memaddr + 2, buf, 2, info);
- if (status != 0)
- return 0;
- opcode2 = bfd_getl16 (buf);
- }
- }
- for (i = 0; i < MAX_OPERANDS && OPTYPE (tm_operands[i]) != OP_None; i++)
- {
- char *next_comma = ",";
- int optional = (tm_operands[i] & OPT) != 0;
- switch (OPTYPE (tm_operands[i]))
- {
- case OP_Xmem:
- sprint_dual_address (info, operand[i], XMEM (opcode));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_Ymem:
- sprint_dual_address (info, operand[i], YMEM (opcode));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_Smem:
- case OP_Sind:
- case OP_Lmem:
- info->fprintf_func (info->stream, "%s", comma);
- if (INDIRECT (opcode))
- {
- if (MOD (opcode) >= 12)
- {
- bfd_vma addr = lkaddr;
- int arf = ARF (opcode);
- int mod = MOD (opcode);
- if (mod == 15)
- info->fprintf_func (info->stream, "*(");
- else
- info->fprintf_func (info->stream, "*%sar%d(",
- (mod == 13 || mod == 14 ? "+" : ""),
- arf);
- (*(info->print_address_func)) ((bfd_vma) addr, info);
- info->fprintf_func (info->stream, ")%s",
- mod == 14 ? "%" : "");
- }
- else
- {
- sprint_indirect_address (info, operand[i], opcode);
- info->fprintf_func (info->stream, "%s", operand[i]);
- }
- }
- else
- {
- /* FIXME -- use labels (print_address_func) */
- /* in order to do this, we need to guess what DP is */
- sprint_direct_address (info, operand[i], opcode);
- info->fprintf_func (info->stream, "%s", operand[i]);
- }
- break;
- case OP_dmad:
- info->fprintf_func (info->stream, "%s", comma);
- (*(info->print_address_func)) ((bfd_vma) opcode2, info);
- break;
- case OP_xpmad:
- /* upper 7 bits of address are in the opcode */
- opcode2 += ((unsigned long) opcode & 0x7F) << 16;
- /* fall through */
- case OP_pmad:
- info->fprintf_func (info->stream, "%s", comma);
- (*(info->print_address_func)) ((bfd_vma) opcode2, info);
- break;
- case OP_MMRX:
- sprint_mmr (info, operand[i], MMRX (opcode));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_MMRY:
- sprint_mmr (info, operand[i], MMRY (opcode));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_MMR:
- sprint_mmr (info, operand[i], MMR (opcode));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_PA:
- sprintf (operand[i], "pa%d", (unsigned) opcode2);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_SRC:
- src = SRC (ext ? opcode2 : opcode) ? OP_B : OP_A;
- sprintf (operand[i], (src == OP_B) ? "b" : "a");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_SRC1:
- src = SRC1 (ext ? opcode2 : opcode) ? OP_B : OP_A;
- sprintf (operand[i], (src == OP_B) ? "b" : "a");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_RND:
- dst = DST (opcode) ? OP_B : OP_A;
- sprintf (operand[i], (dst == OP_B) ? "a" : "b");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_DST:
- dst = DST (ext ? opcode2 : opcode) ? OP_B : OP_A;
- if (!optional || dst != src)
- {
- sprintf (operand[i], (dst == OP_B) ? "b" : "a");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- }
- else
- next_comma = comma;
- break;
- case OP_B:
- sprintf (operand[i], "b");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_A:
- sprintf (operand[i], "a");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_ARX:
- sprintf (operand[i], "ar%d", (int) ARX (opcode));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_SHIFT:
- shift = SHIFT (ext ? opcode2 : opcode);
- if (!optional || shift != 0)
- {
- sprintf (operand[i], "%d", shift);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- }
- else
- next_comma = comma;
- break;
- case OP_SHFT:
- shift = SHFT (opcode);
- if (!optional || shift != 0)
- {
- sprintf (operand[i], "%d", (unsigned) shift);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- }
- else
- next_comma = comma;
- break;
- case OP_lk:
- sprintf (operand[i], "#%d", (int) (short) opcode2);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_T:
- sprintf (operand[i], "t");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_TS:
- sprintf (operand[i], "ts");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_k8:
- sprintf (operand[i], "%d", (int) ((signed char) (opcode & 0xFF)));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_16:
- sprintf (operand[i], "16");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_ASM:
- sprintf (operand[i], "asm");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_BITC:
- sprintf (operand[i], "%d", (int) (opcode & 0xF));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_CC:
- /* put all CC operands in the same operand */
- sprint_condition (info, operand[i], opcode);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- i = MAX_OPERANDS;
- break;
- case OP_CC2:
- sprint_cc2 (info, operand[i], opcode);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_CC3:
- {
- const char *code[] = { "eq", "lt", "gt", "neq" };
- /* Do not use sprintf with only two parameters as a
- compiler warning could be generated in such conditions. */
- sprintf (operand[i], "%s", code[CC3 (opcode)]);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- }
- case OP_123:
- {
- int code = (opcode >> 8) & 0x3;
- sprintf (operand[i], "%d", (code == 0) ? 1 : (code == 2) ? 2 : 3);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- }
- case OP_k5:
- sprintf (operand[i], "#%d", ((opcode & 0x1F) ^ 0x10) - 0x10);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_k8u:
- sprintf (operand[i], "#%d", (unsigned) (opcode & 0xFF));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_k3:
- sprintf (operand[i], "#%d", (int) (opcode & 0x7));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_lku:
- sprintf (operand[i], "#%d", (unsigned) opcode2);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_N:
- n = (opcode >> 9) & 0x1;
- sprintf (operand[i], "st%d", n);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_SBIT:
- {
- const char *status0[] = {
- "0", "1", "2", "3", "4", "5", "6", "7", "8",
- "ovb", "ova", "c", "tc", "13", "14", "15"
- };
- const char *status1[] = {
- "0", "1", "2", "3", "4",
- "cmpt", "frct", "c16", "sxm", "ovm", "10",
- "intm", "hm", "xf", "cpl", "braf"
- };
- sprintf (operand[i], "%s",
- n ? status1[SBIT (opcode)] : status0[SBIT (opcode)]);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- }
- case OP_12:
- sprintf (operand[i], "%d", (int) ((opcode >> 9) & 1) + 1);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_TRN:
- sprintf (operand[i], "trn");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_DP:
- sprintf (operand[i], "dp");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_k9:
- /* FIXME-- this is DP, print the original address? */
- sprintf (operand[i], "#%d", (int) (opcode & 0x1FF));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_ARP:
- sprintf (operand[i], "arp");
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- case OP_031:
- sprintf (operand[i], "%d", (int) (opcode & 0x1F));
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- default:
- sprintf (operand[i], "??? (0x%x)", tm_operands[i]);
- info->fprintf_func (info->stream, "%s%s", comma, operand[i]);
- break;
- }
- comma = next_comma;
- }
- return 1;
- }
- static int
- print_parallel_instruction (disassemble_info *info,
- bfd_vma memaddr,
- unsigned short opcode,
- const insn_template *ptm,
- int size)
- {
- print_instruction (info, memaddr, opcode,
- ptm->name, ptm->operand_types, size, 0);
- info->fprintf_func (info->stream, " || ");
- return print_instruction (info, memaddr, opcode,
- ptm->parname, ptm->paroperand_types, size, 0);
- }
- static int
- sprint_dual_address (disassemble_info *info ATTRIBUTE_UNUSED,
- char buf[],
- unsigned short code)
- {
- const char *formats[] = {
- "*ar%d",
- "*ar%d-",
- "*ar%d+",
- "*ar%d+0%%",
- };
- return sprintf (buf, formats[XMOD (code)], XARX (code));
- }
- static int
- sprint_indirect_address (disassemble_info *info ATTRIBUTE_UNUSED,
- char buf[],
- unsigned short opcode)
- {
- const char *formats[] = {
- "*ar%d",
- "*ar%d-",
- "*ar%d+",
- "*+ar%d",
- "*ar%d-0B",
- "*ar%d-0",
- "*ar%d+0",
- "*ar%d+0B",
- "*ar%d-%%",
- "*ar%d-0%%",
- "*ar%d+%%",
- "*ar%d+0%%",
- };
- return sprintf (buf, formats[MOD (opcode)], ARF (opcode));
- }
- static int
- sprint_direct_address (disassemble_info *info ATTRIBUTE_UNUSED,
- char buf[],
- unsigned short opcode)
- {
- /* FIXME -- look up relocation if available */
- return sprintf (buf, "DP+0x%02x", (int) (opcode & 0x7F));
- }
- static int
- sprint_mmr (disassemble_info *info ATTRIBUTE_UNUSED,
- char buf[],
- int mmr)
- {
- const tic54x_symbol *reg = tic54x_mmregs;
- while (reg->name != NULL)
- {
- if (mmr == reg->value)
- {
- sprintf (buf, "%s", (reg + 1)->name);
- return 1;
- }
- ++reg;
- }
- sprintf (buf, "MMR(%d)", mmr); /* FIXME -- different targets. */
- return 0;
- }
- static int
- sprint_cc2 (disassemble_info *info ATTRIBUTE_UNUSED,
- char *buf,
- unsigned short opcode)
- {
- const char *cc2[] = {
- "??", "??", "ageq", "alt", "aneq", "aeq", "agt", "aleq",
- "??", "??", "bgeq", "blt", "bneq", "beq", "bgt", "bleq",
- };
- return sprintf (buf, "%s", cc2[opcode & 0xF]);
- }
- static int
- sprint_condition (disassemble_info *info ATTRIBUTE_UNUSED,
- char *buf,
- unsigned short opcode)
- {
- char *start = buf;
- const char *cmp[] = {
- "??", "??", "geq", "lt", "neq", "eq", "gt", "leq"
- };
- if (opcode & 0x40)
- {
- char acc = (opcode & 0x8) ? 'b' : 'a';
- if (opcode & 0x7)
- buf += sprintf (buf, "%c%s%s", acc, cmp[(opcode & 0x7)],
- (opcode & 0x20) ? ", " : "");
- if (opcode & 0x20)
- buf += sprintf (buf, "%c%s", acc, (opcode & 0x10) ? "ov" : "nov");
- }
- else if (opcode & 0x3F)
- {
- if (opcode & 0x30)
- buf += sprintf (buf, "%s%s",
- ((opcode & 0x30) == 0x30) ? "tc" : "ntc",
- (opcode & 0x0F) ? ", " : "");
- if (opcode & 0x0C)
- buf += sprintf (buf, "%s%s",
- ((opcode & 0x0C) == 0x0C) ? "c" : "nc",
- (opcode & 0x03) ? ", " : "");
- if (opcode & 0x03)
- buf += sprintf (buf, "%s",
- ((opcode & 0x03) == 0x03) ? "bio" : "nbio");
- }
- else
- buf += sprintf (buf, "unc");
- return buf - start;
- }
|