Coverage Report

Created: 2024-05-21 06:29

/src/binutils-gdb/opcodes/m10200-dis.c
Line
Count
Source (jump to first uncovered line)
1
/* Disassemble MN10200 instructions.
2
   Copyright (C) 1996-2024 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 "opcode/mn10200.h"
24
#include "disassemble.h"
25
#include "opintl.h"
26
27
static void
28
disassemble (bfd_vma memaddr,
29
       struct disassemble_info *info,
30
       unsigned long insn,
31
       unsigned long extension,
32
       unsigned int size)
33
120k
{
34
120k
  struct mn10200_opcode *op = (struct mn10200_opcode *)mn10200_opcodes;
35
120k
  const struct mn10200_operand *operand;
36
120k
  int match = 0;
37
38
  /* Find the opcode.  */
39
6.78M
  while (op->name)
40
6.77M
    {
41
6.77M
      int mysize, extra_shift;
42
43
6.77M
      if (op->format == FMT_1)
44
694k
  mysize = 1;
45
6.08M
      else if (op->format == FMT_2
46
6.08M
         || op->format == FMT_4)
47
2.80M
  mysize = 2;
48
3.28M
      else if (op->format == FMT_3
49
3.28M
         || op->format == FMT_5)
50
1.04M
  mysize = 3;
51
2.23M
      else if (op->format == FMT_6)
52
953k
  mysize = 4;
53
1.28M
      else if (op->format == FMT_7)
54
1.28M
  mysize = 5;
55
0
      else
56
0
  abort ();
57
58
6.77M
      if (op->format == FMT_2 || op->format == FMT_5)
59
1.53M
  extra_shift = 8;
60
5.24M
      else if (op->format == FMT_3
61
5.24M
         || op->format == FMT_6
62
5.24M
         || op->format == FMT_7)
63
2.64M
  extra_shift = 16;
64
2.60M
      else
65
2.60M
  extra_shift = 0;
66
67
6.77M
      if ((op->mask & insn) == op->opcode
68
6.77M
    && size == (unsigned int) mysize)
69
119k
  {
70
119k
    const unsigned char *opindex_ptr;
71
119k
    unsigned int nocomma;
72
119k
    int paren = 0;
73
74
119k
    match = 1;
75
119k
    (*info->fprintf_func) (info->stream, "%s\t", op->name);
76
77
    /* Now print the operands.  */
78
119k
    for (opindex_ptr = op->operands, nocomma = 1;
79
490k
         *opindex_ptr != 0;
80
371k
         opindex_ptr++)
81
371k
      {
82
371k
        unsigned long value;
83
84
371k
        operand = &mn10200_operands[*opindex_ptr];
85
86
371k
        if ((operand->flags & MN10200_OPERAND_DREG) != 0
87
371k
      || (operand->flags & MN10200_OPERAND_AREG) != 0)
88
186k
    value = ((insn >> (operand->shift + extra_shift))
89
186k
       & ((1 << operand->bits) - 1));
90
184k
        else if ((operand->flags & MN10200_OPERAND_EXTENDED) != 0)
91
213
    {
92
213
      value = (insn & 0xffff) << 8;
93
213
      value |= extension;
94
213
    }
95
184k
        else
96
184k
    value = ((insn >> (operand->shift))
97
184k
       & ((1L << operand->bits) - 1L));
98
99
371k
        if ((operand->flags & MN10200_OPERAND_SIGNED) != 0)
100
28.1k
    value = ((long)(value << (32 - operand->bits))
101
28.1k
        >> (32 - operand->bits));
102
103
371k
        if (!nocomma
104
371k
      && (!paren
105
189k
          || ((operand->flags & MN10200_OPERAND_PAREN) == 0)))
106
114k
    (*info->fprintf_func) (info->stream, ",");
107
108
371k
        nocomma = 0;
109
110
371k
        if ((operand->flags & MN10200_OPERAND_DREG) != 0)
111
103k
    (*info->fprintf_func) (info->stream, "d%ld", value);
112
113
267k
        else if ((operand->flags & MN10200_OPERAND_AREG) != 0)
114
82.9k
    (*info->fprintf_func) (info->stream, "a%ld", value);
115
116
184k
        else if ((operand->flags & MN10200_OPERAND_PSW) != 0)
117
247
    (*info->fprintf_func) (info->stream, "psw");
118
119
184k
        else if ((operand->flags & MN10200_OPERAND_MDR) != 0)
120
3
    (*info->fprintf_func) (info->stream, "mdr");
121
122
184k
        else if ((operand->flags & MN10200_OPERAND_PAREN) != 0)
123
150k
    {
124
150k
      if (paren)
125
75.4k
        (*info->fprintf_func) (info->stream, ")");
126
75.4k
      else
127
75.4k
        {
128
75.4k
          (*info->fprintf_func) (info->stream, "(");
129
75.4k
          nocomma = 1;
130
75.4k
        }
131
150k
      paren = !paren;
132
150k
    }
133
134
33.2k
        else if ((operand->flags & MN10200_OPERAND_PCREL) != 0)
135
5.14k
    (*info->print_address_func)
136
5.14k
      ((value + memaddr + mysize) & 0xffffff, info);
137
138
28.0k
        else if ((operand->flags & MN10200_OPERAND_MEMADDR) != 0)
139
3.33k
    (*info->print_address_func) (value, info);
140
141
24.7k
        else
142
24.7k
    (*info->fprintf_func) (info->stream, "%ld", value);
143
371k
      }
144
    /* All done. */
145
119k
    break;
146
119k
  }
147
6.65M
      op++;
148
6.65M
    }
149
150
120k
  if (!match)
151
905
    (*info->fprintf_func) (info->stream, _("unknown\t0x%04lx"), insn);
152
120k
}
153
154
int
155
print_insn_mn10200 (bfd_vma memaddr, struct disassemble_info *info)
156
120k
{
157
120k
  int status;
158
120k
  bfd_byte buffer[4];
159
120k
  unsigned long insn;
160
120k
  unsigned long extension = 0;
161
120k
  unsigned int consume;
162
163
  /* First figure out how big the opcode is.  */
164
120k
  status = (*info->read_memory_func) (memaddr, buffer, 1, info);
165
120k
  if (status != 0)
166
0
    {
167
0
      (*info->memory_error_func) (status, memaddr, info);
168
0
      return -1;
169
0
    }
170
171
120k
  insn = *(unsigned char *) buffer;
172
173
  /* These are one byte insns.  */
174
120k
  if ((insn & 0xf0) == 0x00
175
120k
      || (insn & 0xf0) == 0x10
176
120k
      || (insn & 0xf0) == 0x20
177
120k
      || (insn & 0xf0) == 0x30
178
120k
      || ((insn & 0xf0) == 0x80
179
67.0k
    && (insn & 0x0c) >> 2 != (insn & 0x03))
180
120k
      || (insn & 0xf0) == 0x90
181
120k
      || (insn & 0xf0) == 0xa0
182
120k
      || (insn & 0xf0) == 0xb0
183
120k
      || (insn & 0xff) == 0xeb
184
120k
      || (insn & 0xff) == 0xf6
185
120k
      || (insn & 0xff) == 0xfe
186
120k
      || (insn & 0xff) == 0xff)
187
85.2k
    {
188
85.2k
      extension = 0;
189
85.2k
      consume = 1;
190
85.2k
    }
191
192
  /* These are two byte insns.  */
193
35.5k
  else if ((insn & 0xf0) == 0x40
194
35.5k
     || (insn & 0xf0) == 0x50
195
35.5k
     || (insn & 0xf0) == 0x60
196
35.5k
     || (insn & 0xf0) == 0x70
197
35.5k
     || (insn & 0xf0) == 0x80
198
35.5k
     || (insn & 0xfc) == 0xd0
199
35.5k
     || (insn & 0xfc) == 0xd4
200
35.5k
     || (insn & 0xfc) == 0xd8
201
35.5k
     || (insn & 0xfc) == 0xe0
202
35.5k
     || (insn & 0xfc) == 0xe4
203
35.5k
     || (insn & 0xff) == 0xe8
204
35.5k
     || (insn & 0xff) == 0xe9
205
35.5k
     || (insn & 0xff) == 0xea
206
35.5k
     || (insn & 0xff) == 0xf0
207
35.5k
     || (insn & 0xff) == 0xf1
208
35.5k
     || (insn & 0xff) == 0xf2
209
35.5k
     || (insn & 0xff) == 0xf3)
210
26.9k
    {
211
26.9k
      status = (*info->read_memory_func) (memaddr, buffer, 2, info);
212
26.9k
      if (status != 0)
213
11
  {
214
11
    (*info->memory_error_func) (status, memaddr, info);
215
11
     return -1;
216
11
  }
217
26.9k
      insn = bfd_getb16 (buffer);
218
26.9k
      consume = 2;
219
26.9k
    }
220
221
  /* These are three byte insns with a 16bit operand in little
222
     endian form.  */
223
8.66k
  else if ((insn & 0xf0) == 0xc0
224
8.66k
     || (insn & 0xfc) == 0xdc
225
8.66k
     || (insn & 0xfc) == 0xec
226
8.66k
     || (insn & 0xff) == 0xf8
227
8.66k
     || (insn & 0xff) == 0xf9
228
8.66k
     || (insn & 0xff) == 0xfa
229
8.66k
     || (insn & 0xff) == 0xfb
230
8.66k
     || (insn & 0xff) == 0xfc
231
8.66k
     || (insn & 0xff) == 0xfd)
232
7.83k
    {
233
7.83k
      status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
234
7.83k
      if (status != 0)
235
6
  {
236
6
    (*info->memory_error_func) (status, memaddr, info);
237
6
    return -1;
238
6
  }
239
7.83k
      insn <<= 16;
240
7.83k
      insn |= bfd_getl16 (buffer);
241
7.83k
      extension = 0;
242
7.83k
      consume = 3;
243
7.83k
    }
244
  /* These are three byte insns too, but we don't have to mess with
245
     endianness stuff.  */
246
822
  else if ((insn & 0xff) == 0xf5)
247
266
    {
248
266
      status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
249
266
      if (status != 0)
250
0
  {
251
0
    (*info->memory_error_func) (status, memaddr, info);
252
0
    return -1;
253
0
  }
254
266
      insn <<= 16;
255
266
      insn |= bfd_getb16 (buffer);
256
266
      extension = 0;
257
266
      consume = 3;
258
266
    }
259
260
  /* These are four byte insns.  */
261
556
  else if ((insn & 0xff) == 0xf7)
262
327
    {
263
327
      status = (*info->read_memory_func) (memaddr, buffer, 2, info);
264
327
      if (status != 0)
265
2
  {
266
2
    (*info->memory_error_func) (status, memaddr, info);
267
2
    return -1;
268
2
  }
269
325
      insn = bfd_getb16 (buffer);
270
325
      insn <<= 16;
271
325
      status = (*info->read_memory_func) (memaddr + 2, buffer, 2, info);
272
325
      if (status != 0)
273
0
  {
274
0
    (*info->memory_error_func) (status, memaddr, info);
275
0
    return -1;
276
0
  }
277
325
      insn |= bfd_getl16 (buffer);
278
325
      extension = 0;
279
325
      consume = 4;
280
325
    }
281
282
  /* These are five byte insns.  */
283
229
  else if ((insn & 0xff) == 0xf4)
284
229
    {
285
229
      status = (*info->read_memory_func) (memaddr, buffer, 2, info);
286
229
      if (status != 0)
287
1
  {
288
1
    (*info->memory_error_func) (status, memaddr, info);
289
1
    return -1;
290
1
  }
291
228
      insn = bfd_getb16 (buffer);
292
228
      insn <<= 16;
293
294
228
      status = (*info->read_memory_func) (memaddr + 4, buffer, 1, info);
295
228
      if (status != 0)
296
0
  {
297
0
    (*info->memory_error_func) (status, memaddr, info);
298
0
    return -1;
299
0
  }
300
228
      insn |= (*(unsigned char *)buffer << 8) & 0xff00;
301
302
228
      status = (*info->read_memory_func) (memaddr + 3, buffer, 1, info);
303
228
      if (status != 0)
304
0
  {
305
0
    (*info->memory_error_func) (status, memaddr, info);
306
0
    return -1;
307
0
  }
308
228
      insn |= (*(unsigned char *)buffer) & 0xff;
309
310
228
      status = (*info->read_memory_func) (memaddr + 2, buffer, 1, info);
311
228
      if (status != 0)
312
0
  {
313
0
    (*info->memory_error_func) (status, memaddr, info);
314
0
    return -1;
315
0
  }
316
228
      extension = (*(unsigned char *)buffer) & 0xff;
317
228
      consume = 5;
318
228
    }
319
0
  else
320
0
    {
321
0
      (*info->fprintf_func) (info->stream, _("unknown\t0x%02lx"), insn);
322
0
      return 1;
323
0
    }
324
325
120k
  disassemble (memaddr, info, insn, extension, consume);
326
327
120k
  return consume;
328
120k
}