/src/binutils-gdb/opcodes/mcore-dis.c

Source
/* Disassemble Motorola M*Core instructions.
   Copyright (C) 1993-2026 Free Software Foundation, Inc.

   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 program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */

#include "sysdep.h"
#include <stdio.h>
#include "libiberty.h"
#define STATIC_TABLE
#define DEFINE_TABLE

#include "mcore-opc.h"
#include "disassemble.h"

/* Mask for each mcore_opclass: */
static const unsigned short imsk[] = {
    /* O0  */ 0xFFFF,
    /* OT  */ 0xFFFC,
    /* O1  */ 0xFFF0,
    /* OC  */ 0xFE00,
    /* O2  */ 0xFF00,
    /* X1  */ 0xFFF0,
    /* OI  */ 0xFE00,
    /* OB  */ 0xFE00,

    /* OMa */ 0xFFF0,
    /* SI  */ 0xFE00,
    /* I7  */ 0xF800,
    /* LS  */ 0xF000,
    /* BR  */ 0xF800,
    /* BL  */ 0xFF00,
    /* LR  */ 0xF000,
    /* LJ  */ 0xFF00,

    /* RM  */ 0xFFF0,
    /* RQ  */ 0xFFF0,
    /* JSR */ 0xFFF0,
    /* JMP */ 0xFFF0,
    /* OBRa*/ 0xFFF0,
    /* OBRb*/ 0xFF80,
    /* OBRc*/ 0xFF00,
    /* OBR2*/ 0xFE00,

    /* O1R1*/ 0xFFF0,
    /* OMb */ 0xFF80,
    /* OMc */ 0xFF00,
    /* SIa */ 0xFE00,

  /* MULSH */ 0xFF00,
  /* OPSR  */ 0xFFF8,   /* psrset/psrclr */

    /* JC  */ 0,    /* JC,JU,JL don't appear in object */
    /* JU  */ 0,
    /* JL  */ 0,
    /* RSI */ 0,
    /* DO21*/ 0,
    /* OB2 */ 0     /* OB2 won't appear in object.  */
};

static const char *grname[] = {
 "r0",  "r1",  "r2",  "r3",  "r4",  "r5",  "r6",  "r7",
 "r8",  "r9", "r10", "r11", "r12", "r13", "r14", "r15"
};

static const char X[] = "??";

static const char *crname[] = {
  "psr",  "vbr", "epsr", "fpsr", "epc",  "fpc",  "ss0",  "ss1",
  "ss2",  "ss3", "ss4",  "gcr",  "gsr",     X,      X,      X,
     X,      X,      X,      X,      X,     X,      X,      X,
     X,      X,      X,      X,      X,     X,      X,      X
};

static const unsigned isiz[] = { 2, 0, 1, 0 };

int
print_insn_mcore (bfd_vma memaddr,
      struct disassemble_info *info)
{
  unsigned char ibytes[4];
  fprintf_ftype print_func = info->fprintf_func;
  void *stream = info->stream;
  unsigned int inst;
  unsigned int i;
  int status;

  info->bytes_per_chunk = 2;

  status = info->read_memory_func (memaddr, ibytes, 2, info);

  if (status != 0)
    {
      info->memory_error_func (status, memaddr, info);
      return -1;
    }

  if (info->endian == BFD_ENDIAN_BIG)
    inst = (ibytes[0] << 8) | ibytes[1];
  else if (info->endian == BFD_ENDIAN_LITTLE)
    inst = (ibytes[1] << 8) | ibytes[0];
  else
    abort ();

  /* Just a linear search of the table.  */
  for (i = 0; i < ARRAY_SIZE (mcore_table); i++)
    if (mcore_table[i].inst == (inst & imsk[mcore_table[i].opclass]))
      break;

  if (i == ARRAY_SIZE (mcore_table))
    (*print_func) (stream, ".short 0x%04x", inst);
  else
    {
      const char *name = grname[inst & 0x0F];

      (*print_func) (stream, "%s", mcore_table[i].name);

      switch (mcore_table[i].opclass)
  {
  case O0:
    break;

  case OT:
    (*print_func) (stream, "\t%d", inst & 0x3);
    break;

  case O1:
  case JMP:
  case JSR:
    (*print_func) (stream, "\t%s", name);
    break;

  case OC:
    (*print_func) (stream, "\t%s, %s", name, crname[(inst >> 4) & 0x1F]);
    break;

  case O1R1:
    (*print_func) (stream, "\t%s, r1", name);
    break;

  case MULSH:
  case O2:
    (*print_func) (stream, "\t%s, %s", name, grname[(inst >> 4) & 0xF]);
    break;

  case X1:
    (*print_func) (stream, "\tr1, %s", name);
    break;

  case OI:
    (*print_func) (stream, "\t%s, %d", name, ((inst >> 4) & 0x1F) + 1);
    break;

  case RM:
    (*print_func) (stream, "\t%s-r15, (r0)", name);
    break;

  case RQ:
    (*print_func) (stream, "\tr4-r7, (%s)", name);
    break;

  case OB:
  case OBRa:
  case OBRb:
  case OBRc:
  case SI:
  case SIa:
  case OMb:
  case OMc:
    (*print_func) (stream, "\t%s, %d", name, (inst >> 4) & 0x1F);
    break;

  case OMa:
    (*print_func) (stream, "\t%s, %d", name, 32);
    break;

  case I7:
    (*print_func) (stream, "\t%s, %d", name, (inst >> 4) & 0x7F);
    break;

  case LS:
    (*print_func) (stream, "\t%s, (%s, %d)", grname[(inst >> 8) & 0xF],
       name, ((inst >> 4) & 0xF) << isiz[(inst >> 13) & 3]);
    break;

  case BR:
    {
      uint32_t val = ((inst & 0x7FF) ^ 0x400) - 0x400;

      val = memaddr + 2 + (val << 1);
      (*print_func) (stream, "\t0x%x", val);

      if (strcmp (mcore_table[i].name, "bsr") == 0)
        {
    /* For bsr, we'll try to get a symbol for the target.  */
    if (info->print_address_func && val != 0)
      {
        (*print_func) (stream, "\t// ");
        info->print_address_func (val, info);
      }
        }
    }
    break;

  case BL:
    {
      uint32_t val = memaddr + 2 + ((inst | ~0xF) << 1);

      (*print_func) (stream, "\t%s, 0x%x",
         grname[(inst >> 4) & 0xF], val);
    }
    break;

  case LR:
    {
      uint32_t val;

      val = (memaddr + 2 + ((inst & 0xFF) << 2)) & ~3;

      /* We are not reading an instruction, so allow
         reads to extend beyond the next symbol.  */
      info->stop_vma = 0;
      status = info->read_memory_func (val, ibytes, 4, info);
      if (status != 0)
        {
    info->memory_error_func (status, memaddr, info);
    break;
        }

      if (info->endian == BFD_ENDIAN_LITTLE)
        val = (((unsigned) ibytes[3] << 24) | (ibytes[2] << 16)
         | (ibytes[1] << 8) | (ibytes[0]));
      else
        val = (((unsigned) ibytes[0] << 24) | (ibytes[1] << 16)
         | (ibytes[2] << 8) | (ibytes[3]));

      /* Removed [] around literal value to match ABI syntax 12/95.  */
      (*print_func) (stream, "\t%s, 0x%X", grname[(inst >> 8) & 0xF], val);

      if (val == 0)
        (*print_func) (stream, "\t// from address pool at 0x%x",
           (uint32_t) (memaddr + 2
           + ((inst & 0xFF) << 2)) & ~3);
    }
    break;

  case LJ:
    {
      uint32_t val;

      val = (memaddr + 2 + ((inst & 0xFF) << 2)) & ~3;

      /* We are not reading an instruction, so allow
         reads to extend beyond the next symbol.  */
      info->stop_vma = 0;
      status = info->read_memory_func (val, ibytes, 4, info);
      if (status != 0)
        {
    info->memory_error_func (status, memaddr, info);
    break;
        }

      if (info->endian == BFD_ENDIAN_LITTLE)
        val = (((unsigned) ibytes[3] << 24) | (ibytes[2] << 16)
         | (ibytes[1] << 8) | (ibytes[0]));
      else
        val = (((unsigned) ibytes[0] << 24) | (ibytes[1] << 16)
         | (ibytes[2] << 8) | (ibytes[3]));

      /* Removed [] around literal value to match ABI syntax 12/95.  */
      (*print_func) (stream, "\t0x%X", val);
      /* For jmpi/jsri, we'll try to get a symbol for the target.  */
      if (info->print_address_func && val != 0)
        {
    (*print_func) (stream, "\t// ");
    info->print_address_func (val, info);
        }
      else
        {
    (*print_func) (stream, "\t// from address pool at 0x%x",
             (uint32_t) (memaddr + 2
             + ((inst & 0xFF) << 2)) & ~3);
        }
    }
    break;

  case OPSR:
    {
      static char *fields[] = {
        "af", "ie",    "fe",    "fe,ie",
        "ee", "ee,ie", "ee,fe", "ee,fe,ie"
      };

      (*print_func) (stream, "\t%s", fields[inst & 0x7]);
    }
    break;

  default:
    /* If the disassembler lags the instruction set.  */
    (*print_func) (stream, "\tundecoded operands, inst is 0x%04x", inst);
    break;
  }
    }

  /* Say how many bytes we consumed.  */
  return 2;
}

Coverage Report

Created: 2026-07-25 10:20

Line	Count	Source
1		/* Disassemble Motorola M*Core instructions.
2		Copyright (C) 1993-2026 Free Software Foundation, Inc.
3
4		This file is part of the GNU opcodes library.
5
6		This library 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, or (at your option)
9		any later version.
10
11		It is distributed in the hope that it will be useful, but WITHOUT
12		ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
13		or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
14		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 <stdio.h>
23		#include "libiberty.h"
24		#define STATIC_TABLE
25		#define DEFINE_TABLE
26
27		#include "mcore-opc.h"
28		#include "disassemble.h"
29
30		/* Mask for each mcore_opclass: */
31		static const unsigned short imsk[] = {
32		/* O0 */ 0xFFFF,
33		/* OT */ 0xFFFC,
34		/* O1 */ 0xFFF0,
35		/* OC */ 0xFE00,
36		/* O2 */ 0xFF00,
37		/* X1 */ 0xFFF0,
38		/* OI */ 0xFE00,
39		/* OB */ 0xFE00,
40
41		/* OMa */ 0xFFF0,
42		/* SI */ 0xFE00,
43		/* I7 */ 0xF800,
44		/* LS */ 0xF000,
45		/* BR */ 0xF800,
46		/* BL */ 0xFF00,
47		/* LR */ 0xF000,
48		/* LJ */ 0xFF00,
49
50		/* RM */ 0xFFF0,
51		/* RQ */ 0xFFF0,
52		/* JSR */ 0xFFF0,
53		/* JMP */ 0xFFF0,
54		/* OBRa*/ 0xFFF0,
55		/* OBRb*/ 0xFF80,
56		/* OBRc*/ 0xFF00,
57		/* OBR2*/ 0xFE00,
58
59		/* O1R1*/ 0xFFF0,
60		/* OMb */ 0xFF80,
61		/* OMc */ 0xFF00,
62		/* SIa */ 0xFE00,
63
64		/* MULSH */ 0xFF00,
65		/* OPSR / 0xFFF8, / psrset/psrclr */
66
67		/* JC / 0, / JC,JU,JL don't appear in object */
68		/* JU */ 0,
69		/* JL */ 0,
70		/* RSI */ 0,
71		/* DO21*/ 0,
72		/* OB2 / 0 / OB2 won't appear in object. */
73		};
74
75		static const char *grname[] = {
76		"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
77		"r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15"
78		};
79
80		static const char X[] = "??";
81
82		static const char *crname[] = {
83		"psr", "vbr", "epsr", "fpsr", "epc", "fpc", "ss0", "ss1",
84		"ss2", "ss3", "ss4", "gcr", "gsr", X, X, X,
85		X, X, X, X, X, X, X, X,
86		X, X, X, X, X, X, X, X
87		};
88
89		static const unsigned isiz[] = { 2, 0, 1, 0 };
90
91		int
92		print_insn_mcore (bfd_vma memaddr,
93		struct disassemble_info *info)
94	147k	{
95	147k	unsigned char ibytes[4];
96	147k	fprintf_ftype print_func = info->fprintf_func;
97	147k	void *stream = info->stream;
98	147k	unsigned int inst;
99	147k	unsigned int i;
100	147k	int status;
101
102	147k	info->bytes_per_chunk = 2;
103
104	147k	status = info->read_memory_func (memaddr, ibytes, 2, info);
105
106	147k	if (status != 0)
107	97	{
108	97	info->memory_error_func (status, memaddr, info);
109	97	return -1;
110	97	}
111
112	147k	if (info->endian == BFD_ENDIAN_BIG)
113	93	inst = (ibytes[0] << 8) \| ibytes[1];
114	146k	else if (info->endian == BFD_ENDIAN_LITTLE)
115	146k	inst = (ibytes[1] << 8) \| ibytes[0];
116	0	else
117	0	abort ();
118
119		/* Just a linear search of the table. */
120	11.9M	for (i = 0; i < ARRAY_SIZE (mcore_table); i++)
121	11.9M	if (mcore_table[i].inst == (inst & imsk[mcore_table[i].opclass]))
122	127k	break;
123
124	147k	if (i == ARRAY_SIZE (mcore_table))
125	19.4k	(*print_func) (stream, ".short 0x%04x", inst);
126	127k	else
127	127k	{
128	127k	const char *name = grname[inst & 0x0F];
129
130	127k	(*print_func) (stream, "%s", mcore_table[i].name);
131
132	127k	switch (mcore_table[i].opclass)
133	127k	{
134	22.9k	case O0:
135	22.9k	break;
136
137	797	case OT:
138	797	(*print_func) (stream, "\t%d", inst & 0x3);
139	797	break;
140
141	5.68k	case O1:
142	6.55k	case JMP:
143	7.23k	case JSR:
144	7.23k	(*print_func) (stream, "\t%s", name);
145	7.23k	break;
146
147	3.09k	case OC:
148	3.09k	(*print_func) (stream, "\t%s, %s", name, crname[(inst >> 4) & 0x1F]);
149	3.09k	break;
150
151	110	case O1R1:
152	110	(*print_func) (stream, "\t%s, r1", name);
153	110	break;
154
155	838	case MULSH:
156	9.44k	case O2:
157	9.44k	(*print_func) (stream, "\t%s, %s", name, grname[(inst >> 4) & 0xF]);
158	9.44k	break;
159
160	1.64k	case X1:
161	1.64k	(*print_func) (stream, "\tr1, %s", name);
162	1.64k	break;
163
164	3.40k	case OI:
165	3.40k	(*print_func) (stream, "\t%s, %d", name, ((inst >> 4) & 0x1F) + 1);
166	3.40k	break;
167
168	1.43k	case RM:
169	1.43k	(*print_func) (stream, "\t%s-r15, (r0)", name);
170	1.43k	break;
171
172	1.30k	case RQ:
173	1.30k	(*print_func) (stream, "\tr4-r7, (%s)", name);
174	1.30k	break;
175
176	6.81k	case OB:
177	6.93k	case OBRa:
178	7.28k	case OBRb:
179	8.45k	case OBRc:
180	8.45k	case SI:
181	10.6k	case SIa:
182	10.8k	case OMb:
183	11.3k	case OMc:
184	11.3k	(*print_func) (stream, "\t%s, %d", name, (inst >> 4) & 0x1F);
185	11.3k	break;
186
187	334	case OMa:
188	334	(*print_func) (stream, "\t%s, %d", name, 32);
189	334	break;
190
191	4.45k	case I7:
192	4.45k	(*print_func) (stream, "\t%s, %d", name, (inst >> 4) & 0x7F);
193	4.45k	break;
194
195	27.4k	case LS:
196	27.4k	(*print_func) (stream, "\t%s, (%s, %d)", grname[(inst >> 8) & 0xF],
197	27.4k	name, ((inst >> 4) & 0xF) << isiz[(inst >> 13) & 3]);
198	27.4k	break;
199
200	20.7k	case BR:
201	20.7k	{
202	20.7k	uint32_t val = ((inst & 0x7FF) ^ 0x400) - 0x400;
203
204	20.7k	val = memaddr + 2 + (val << 1);
205	20.7k	(*print_func) (stream, "\t0x%x", val);
206
207	20.7k	if (strcmp (mcore_table[i].name, "bsr") == 0)
208	14.1k	{
209		/* For bsr, we'll try to get a symbol for the target. */
210	14.1k	if (info->print_address_func && val != 0)
211	14.1k	{
212	14.1k	(*print_func) (stream, "\t// ");
213	14.1k	info->print_address_func (val, info);
214	14.1k	}
215	14.1k	}
216	20.7k	}
217	20.7k	break;
218
219	1.27k	case BL:
220	1.27k	{
221	1.27k	uint32_t val = memaddr + 2 + ((inst \| ~0xF) << 1);
222
223	1.27k	(*print_func) (stream, "\t%s, 0x%x",
224	1.27k	grname[(inst >> 4) & 0xF], val);
225	1.27k	}
226	1.27k	break;
227
228	6.87k	case LR:
229	6.87k	{
230	6.87k	uint32_t val;
231
232	6.87k	val = (memaddr + 2 + ((inst & 0xFF) << 2)) & ~3;
233
234		/* We are not reading an instruction, so allow
235		reads to extend beyond the next symbol. */
236	6.87k	info->stop_vma = 0;
237	6.87k	status = info->read_memory_func (val, ibytes, 4, info);
238	6.87k	if (status != 0)
239	1.86k	{
240	1.86k	info->memory_error_func (status, memaddr, info);
241	1.86k	break;
242	1.86k	}
243
244	5.01k	if (info->endian == BFD_ENDIAN_LITTLE)
245	5.01k	val = (((unsigned) ibytes[3] << 24) \| (ibytes[2] << 16)
246	5.01k	\| (ibytes[1] << 8) \| (ibytes[0]));
247	0	else
248	0	val = (((unsigned) ibytes[0] << 24) \| (ibytes[1] << 16)
249	0	\| (ibytes[2] << 8) \| (ibytes[3]));
250
251		/* Removed [] around literal value to match ABI syntax 12/95. */
252	5.01k	(*print_func) (stream, "\t%s, 0x%X", grname[(inst >> 8) & 0xF], val);
253
254	5.01k	if (val == 0)
255	693	(*print_func) (stream, "\t// from address pool at 0x%x",
256	693	(uint32_t) (memaddr + 2
257	693	+ ((inst & 0xFF) << 2)) & ~3);
258	5.01k	}
259	0	break;
260
261	2.68k	case LJ:
262	2.68k	{
263	2.68k	uint32_t val;
264
265	2.68k	val = (memaddr + 2 + ((inst & 0xFF) << 2)) & ~3;
266
267		/* We are not reading an instruction, so allow
268		reads to extend beyond the next symbol. */
269	2.68k	info->stop_vma = 0;
270	2.68k	status = info->read_memory_func (val, ibytes, 4, info);
271	2.68k	if (status != 0)
272	967	{
273	967	info->memory_error_func (status, memaddr, info);
274	967	break;
275	967	}
276
277	1.72k	if (info->endian == BFD_ENDIAN_LITTLE)
278	1.72k	val = (((unsigned) ibytes[3] << 24) \| (ibytes[2] << 16)
279	1.72k	\| (ibytes[1] << 8) \| (ibytes[0]));
280	2	else
281	2	val = (((unsigned) ibytes[0] << 24) \| (ibytes[1] << 16)
282	2	\| (ibytes[2] << 8) \| (ibytes[3]));
283
284		/* Removed [] around literal value to match ABI syntax 12/95. */
285	1.72k	(*print_func) (stream, "\t0x%X", val);
286		/* For jmpi/jsri, we'll try to get a symbol for the target. */
287	1.72k	if (info->print_address_func && val != 0)
288	1.50k	{
289	1.50k	(*print_func) (stream, "\t// ");
290	1.50k	info->print_address_func (val, info);
291	1.50k	}
292	218	else
293	218	{
294	218	(*print_func) (stream, "\t// from address pool at 0x%x",
295	218	(uint32_t) (memaddr + 2
296	218	+ ((inst & 0xFF) << 2)) & ~3);
297	218	}
298	1.72k	}
299	0	break;
300
301	0	case OPSR:
302	0	{
303	0	static char *fields[] = {
304	0	"af", "ie", "fe", "fe,ie",
305	0	"ee", "ee,ie", "ee,fe", "ee,fe,ie"
306	0	};
307
308	0	(*print_func) (stream, "\t%s", fields[inst & 0x7]);
309	0	}
310	0	break;
311
312	948	default:
313		/* If the disassembler lags the instruction set. */
314	948	(*print_func) (stream, "\tundecoded operands, inst is 0x%04x", inst);
315	948	break;
316	127k	}
317	127k	}
318
319		/* Say how many bytes we consumed. */
320	147k	return 2;
321	147k	}