opcodes/tilegx-dis.c

   1 /* tilegx-dis.c.  Disassembly routines for the TILE-Gx architecture.
   2    Copyright (C) 2011-2020 Free Software Foundation, Inc.
   3
   4    This file is part of the GNU opcodes library.
   5
   6    This program is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3 of the License, or
   9    (at your option) any later version.
  10
  11    This program is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with this program; if not, write to the Free Software
  18    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  19    MA 02110-1301, USA.  */
  20
  21 #include "sysdep.h"
  22 #include <stddef.h>
  23 #include <assert.h>
  24 #include "bfd.h"
  25 #include "elf/tilegx.h"
  26 #include "elf-bfd.h"
  27 #include "disassemble.h"
  28 #include "opcode/tilegx.h"
  29
  30
  31 int
  32 print_insn_tilegx (bfd_vma memaddr, disassemble_info *info)
  33 {
  34   struct tilegx_decoded_instruction
  35     decoded[TILEGX_MAX_INSTRUCTIONS_PER_BUNDLE];
  36   bfd_byte opbuf[TILEGX_BUNDLE_SIZE_IN_BYTES];
  37   int status, i, num_instructions, num_printed;
  38   tilegx_mnemonic padding_mnemonic;
  39
  40   status = (*info->read_memory_func) (memaddr, opbuf,
  41                                       TILEGX_BUNDLE_SIZE_IN_BYTES, info);
  42   if (status != 0)
  43     {
  44       (*info->memory_error_func) (status, memaddr, info);
  45       return -1;
  46     }
  47
  48   info->bytes_per_line = TILEGX_BUNDLE_SIZE_IN_BYTES;
  49   info->bytes_per_chunk = TILEGX_BUNDLE_SIZE_IN_BYTES;
  50   info->octets_per_byte = 1;
  51   info->display_endian = BFD_ENDIAN_LITTLE;
  52
  53   /* Parse the instructions in the bundle.  */
  54   num_instructions =
  55     parse_insn_tilegx (bfd_getl64 (opbuf), memaddr, decoded);
  56
  57   /* Print the instructions in the bundle.  */
  58   info->fprintf_func (info->stream, "{ ");
  59   num_printed = 0;
  60
  61   /* Determine which nop opcode is used for padding and should be skipped.  */
  62   padding_mnemonic = TILEGX_OPC_FNOP;
  63   for (i = 0; i < num_instructions; i++)
  64     {
  65       if (!decoded[i].opcode->can_bundle)
  66         {
  67           /* Instructions that cannot be bundled are padded out with nops,
  68              rather than fnops. Displaying them is always clutter. */
  69           padding_mnemonic = TILEGX_OPC_NOP;
  70           break;
  71         }
  72     }
  73
  74   for (i = 0; i < num_instructions; i++)
  75     {
  76       const struct tilegx_opcode *opcode = decoded[i].opcode;
  77       const char *name;
  78       int j;
  79
  80       /* Do not print out fnops, unless everything is an fnop, in
  81          which case we will print out just the last one. */
  82       if (opcode->mnemonic == padding_mnemonic
  83           && (num_printed > 0 || i + 1 < num_instructions))
  84         continue;
  85
  86       if (num_printed > 0)
  87         info->fprintf_func (info->stream, " ; ");
  88       ++num_printed;
  89
  90       name = opcode->name;
  91       if (name == NULL)
  92         name = "<invalid>";
  93       info->fprintf_func (info->stream, "%s", name);
  94
  95       for (j = 0; j < opcode->num_operands; j++)
  96         {
  97           bfd_vma num;
  98           const struct tilegx_operand *op;
  99           const char *spr_name;
 100
 101           if (j > 0)
 102             info->fprintf_func (info->stream, ",");
 103           info->fprintf_func (info->stream, " ");
 104
 105           num = decoded[i].operand_values[j];
 106
 107           op = decoded[i].operands[j];
 108           switch (op->type)
 109             {
 110             case TILEGX_OP_TYPE_REGISTER:
 111               info->fprintf_func (info->stream, "%s",
 112                                   tilegx_register_names[(int) num]);
 113               break;
 114             case TILEGX_OP_TYPE_SPR:
 115               spr_name = get_tilegx_spr_name (num);
 116               if (spr_name != NULL)
 117                 info->fprintf_func (info->stream, "%s", spr_name);
 118               else
 119                 info->fprintf_func (info->stream, "%d", (int)num);
 120               break;
 121             case TILEGX_OP_TYPE_IMMEDIATE:
 122               info->fprintf_func (info->stream, "%d", (int)num);
 123               break;
 124             case TILEGX_OP_TYPE_ADDRESS:
 125               info->print_address_func (num, info);
 126               break;
 127             default:
 128               abort ();
 129             }
 130         }
 131     }
 132   info->fprintf_func (info->stream, " }");
 133
 134   return TILEGX_BUNDLE_SIZE_IN_BYTES;
 135 }