Coverage Report

Created: 2024-05-21 06:29

/src/binutils-gdb/opcodes/dlx-dis.c
Line
Count
Source (jump to first uncovered line)
1
/* Instruction printing code for the DLX Microprocessor
2
   Copyright (C) 2002-2024 Free Software Foundation, Inc.
3
   Contributed by Kuang Hwa Lin.  Written by Kuang Hwa Lin, 03/2002.
4
5
   This file is part of the GNU opcodes library.
6
7
   This library is free software; you can redistribute it and/or modify
8
   it under the terms of the GNU General Public License as published by
9
   the Free Software Foundation; either version 3, or (at your option)
10
   any later version.
11
12
   It is distributed in the hope that it will be useful, but WITHOUT
13
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
15
   License for more details.
16
17
   You should have received a copy of the GNU General Public License
18
   along with this program; if not, write to the Free Software
19
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20
   MA 02110-1301, USA.  */
21
22
#include "sysdep.h"
23
#include "disassemble.h"
24
#include "opcode/dlx.h"
25
26
38
#define R_ERROR     0x1
27
678
#define R_TYPE      0x2
28
423
#define ILD_TYPE    0x3
29
707
#define IST_TYPE    0x4
30
948
#define IAL_TYPE    0x5
31
852
#define IBR_TYPE    0x6
32
975
#define IJ_TYPE     0x7
33
943
#define IJR_TYPE    0x8
34
5.63k
#define NIL         0x9
35
36
23.3k
#define OPC(x)      ((x >> 26) & 0x3F)
37
#define FUNC(x)     (x & 0x7FF)
38
39
unsigned char opc, rs1, rs2, rd;
40
unsigned long imm26, imm16, func, current_insn_addr;
41
42
/* Print one instruction from MEMADDR on INFO->STREAM.
43
   Return the size of the instruction (always 4 on dlx).  */
44
45
static unsigned char
46
dlx_get_opcode (unsigned long opcode)
47
1.08k
{
48
1.08k
  return (unsigned char) ((opcode >> 26) & 0x3F);
49
1.08k
}
50
51
static unsigned char
52
dlx_get_rs1 (unsigned long opcode)
53
1.08k
{
54
1.08k
  return (unsigned char) ((opcode >> 21) & 0x1F);
55
1.08k
}
56
57
static unsigned char
58
dlx_get_rs2 (unsigned long opcode)
59
1.08k
{
60
1.08k
  return (unsigned char) ((opcode >> 16) & 0x1F);
61
1.08k
}
62
63
static unsigned char
64
dlx_get_rdR (unsigned long opcode)
65
1.08k
{
66
1.08k
  return (unsigned char) ((opcode >> 11) & 0x1F);
67
1.08k
}
68
69
static unsigned long
70
dlx_get_func (unsigned long opcode)
71
1.08k
{
72
1.08k
  return (unsigned char) (opcode & 0x7FF);
73
1.08k
}
74
75
static unsigned long
76
dlx_get_imm16 (unsigned long opcode)
77
1.08k
{
78
1.08k
  return (unsigned long) (opcode & 0xFFFF);
79
1.08k
}
80
81
static unsigned long
82
dlx_get_imm26 (unsigned long opcode)
83
1.08k
{
84
1.08k
  return (unsigned long) (opcode & 0x03FFFFFF);
85
1.08k
}
86
87
/* Fill the opcode to the max length.  */
88
89
static void
90
operand_deliminator (struct disassemble_info *info, char *ptr)
91
597
{
92
597
  int difft = 8 - (int) strlen (ptr);
93
94
3.36k
  while (difft > 0)
95
2.77k
    {
96
2.77k
      (*info->fprintf_func) (info->stream, "%c", ' ');
97
2.77k
      difft -= 1;
98
2.77k
    }
99
597
}
100
101
/* Process the R-type opcode.  */
102
103
static unsigned char
104
dlx_r_type (struct disassemble_info *info)
105
1.08k
{
106
1.08k
  unsigned char r_opc[] = { OPC(ALUOP) }; /* Fix ME */
107
1.08k
  int r_opc_num = (sizeof r_opc) / (sizeof (char));
108
1.08k
  struct _r_opcode
109
1.08k
  {
110
1.08k
    unsigned long func;
111
1.08k
    char *name;
112
1.08k
  }
113
1.08k
  dlx_r_opcode[] =
114
1.08k
  {
115
1.08k
    { NOPF,     "nop"    },  /* NOP                          */
116
1.08k
    { ADDF,     "add"    },  /* Add                          */
117
1.08k
    { ADDUF,    "addu"   },  /* Add Unsigned                 */
118
1.08k
    { SUBF,     "sub"    },  /* SUB                          */
119
1.08k
    { SUBUF,    "subu"   },  /* Sub Unsigned                 */
120
1.08k
    { MULTF,    "mult"   },  /* MULTIPLY                     */
121
1.08k
    { MULTUF,   "multu"  },  /* MULTIPLY Unsigned            */
122
1.08k
    { DIVF,     "div"    },  /* DIVIDE                       */
123
1.08k
    { DIVUF,    "divu"   },  /* DIVIDE Unsigned              */
124
1.08k
    { ANDF,     "and"    },  /* AND                          */
125
1.08k
    { ORF,      "or"     },  /* OR                           */
126
1.08k
    { XORF,     "xor"    },  /* Exclusive OR                 */
127
1.08k
    { SLLF,     "sll"    },  /* SHIFT LEFT LOGICAL           */
128
1.08k
    { SRAF,     "sra"    },  /* SHIFT RIGHT ARITHMETIC       */
129
1.08k
    { SRLF,     "srl"    },  /* SHIFT RIGHT LOGICAL          */
130
1.08k
    { SEQF,     "seq"    },  /* Set if equal                 */
131
1.08k
    { SNEF,     "sne"    },  /* Set if not equal             */
132
1.08k
    { SLTF,     "slt"    },  /* Set if less                  */
133
1.08k
    { SGTF,     "sgt"    },  /* Set if greater               */
134
1.08k
    { SLEF,     "sle"    },  /* Set if less or equal         */
135
1.08k
    { SGEF,     "sge"    },  /* Set if greater or equal      */
136
1.08k
    { SEQUF,    "sequ"   },  /* Set if equal                 */
137
1.08k
    { SNEUF,    "sneu"   },  /* Set if not equal             */
138
1.08k
    { SLTUF,    "sltu"   },  /* Set if less                  */
139
1.08k
    { SGTUF,    "sgtu"   },  /* Set if greater               */
140
1.08k
    { SLEUF,    "sleu"   },  /* Set if less or equal         */
141
1.08k
    { SGEUF,    "sgeu"   },  /* Set if greater or equal      */
142
1.08k
    { MVTSF,    "mvts"   },  /* Move to special register     */
143
1.08k
    { MVFSF,    "mvfs"   },  /* Move from special register   */
144
1.08k
    { BSWAPF,   "bswap"  },  /* Byte swap ??                 */
145
1.08k
    { LUTF,     "lut"    }   /* ????????? ??                 */
146
1.08k
  };
147
1.08k
  int dlx_r_opcode_num = (sizeof dlx_r_opcode) / (sizeof dlx_r_opcode[0]);
148
1.08k
  int idx;
149
150
1.80k
  for (idx = 0; idx < r_opc_num; idx++)
151
1.08k
    {
152
1.08k
      if (r_opc[idx] != opc)
153
722
  continue;
154
358
      else
155
358
  break;
156
1.08k
    }
157
158
1.08k
  if (idx == r_opc_num)
159
722
    return NIL;
160
161
1.30k
  for (idx = 0 ; idx < dlx_r_opcode_num; idx++)
162
1.29k
    if (dlx_r_opcode[idx].func == func)
163
339
      {
164
339
  (*info->fprintf_func) (info->stream, "%s", dlx_r_opcode[idx].name);
165
166
339
  if (func != NOPF)
167
21
    {
168
      /* This is not a nop.  */
169
21
      operand_deliminator (info, dlx_r_opcode[idx].name);
170
21
      (*info->fprintf_func) (info->stream, "r%d,", (int)rd);
171
21
      (*info->fprintf_func) (info->stream, "r%d", (int)rs1);
172
21
      if (func != MVTSF && func != MVFSF)
173
16
        (*info->fprintf_func) (info->stream, ",r%d", (int)rs2);
174
21
    }
175
339
  return (unsigned char) R_TYPE;
176
339
      }
177
178
19
  return (unsigned char) R_ERROR;
179
358
}
180
181
/* Process the memory read opcode.  */
182
183
static unsigned char
184
dlx_load_type (struct disassemble_info* info)
185
722
{
186
722
  struct _load_opcode
187
722
  {
188
722
    unsigned long opcode;
189
722
    char *name;
190
722
  }
191
722
  dlx_load_opcode[] =
192
722
  {
193
722
    { OPC(LHIOP),   "lhi" },  /* Load HI to register.           */
194
722
    { OPC(LBOP),     "lb" },  /* load byte sign extended.       */
195
722
    { OPC(LBUOP),   "lbu" },  /* load byte unsigned.            */
196
722
    { OPC(LSBUOP),"ldstbu"},  /* load store byte unsigned.      */
197
722
    { OPC(LHOP),     "lh" },  /* load halfword sign extended.   */
198
722
    { OPC(LHUOP),   "lhu" },  /* load halfword unsigned.        */
199
722
    { OPC(LSHUOP),"ldsthu"},  /* load store halfword unsigned.  */
200
722
    { OPC(LWOP),     "lw" },  /* load word.                     */
201
722
    { OPC(LSWOP), "ldstw" }   /* load store word.               */
202
722
  };
203
722
  int dlx_load_opcode_num =
204
722
    (sizeof dlx_load_opcode) / (sizeof dlx_load_opcode[0]);
205
722
  int idx;
206
207
6.95k
  for (idx = 0 ; idx < dlx_load_opcode_num; idx++)
208
6.27k
    if (dlx_load_opcode[idx].opcode == opc)
209
42
      {
210
42
  if (opc == OPC (LHIOP))
211
8
    {
212
8
      (*info->fprintf_func) (info->stream, "%s", dlx_load_opcode[idx].name);
213
8
      operand_deliminator (info, dlx_load_opcode[idx].name);
214
8
      (*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
215
8
      (*info->fprintf_func) (info->stream, "0x%04x", (int)imm16);
216
8
    }
217
34
  else
218
34
    {
219
34
      (*info->fprintf_func) (info->stream, "%s", dlx_load_opcode[idx].name);
220
34
      operand_deliminator (info, dlx_load_opcode[idx].name);
221
34
      (*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
222
34
      (*info->fprintf_func) (info->stream, "0x%04x[r%d]", (int)imm16, (int)rs1);
223
34
    }
224
225
42
  return (unsigned char) ILD_TYPE;
226
42
    }
227
228
680
  return (unsigned char) NIL;
229
722
}
230
231
/* Process the memory store opcode.  */
232
233
static unsigned char
234
dlx_store_type (struct disassemble_info* info)
235
680
{
236
680
  struct _store_opcode
237
680
  {
238
680
    unsigned long opcode;
239
680
    char *name;
240
680
  }
241
680
  dlx_store_opcode[] =
242
680
  {
243
680
    { OPC(SBOP),     "sb" },  /* Store byte.      */
244
680
    { OPC(SHOP),     "sh" },  /* Store halfword.  */
245
680
    { OPC(SWOP),     "sw" },  /* Store word.      */
246
680
  };
247
680
  int dlx_store_opcode_num =
248
680
    (sizeof dlx_store_opcode) / (sizeof dlx_store_opcode[0]);
249
680
  int idx;
250
251
2.27k
  for (idx = 0 ; idx < dlx_store_opcode_num; idx++)
252
1.75k
    if (dlx_store_opcode[idx].opcode == opc)
253
163
      {
254
163
  (*info->fprintf_func) (info->stream, "%s", dlx_store_opcode[idx].name);
255
163
  operand_deliminator (info, dlx_store_opcode[idx].name);
256
163
  (*info->fprintf_func) (info->stream, "0x%04x[r%d],", (int)imm16, (int)rs1);
257
163
  (*info->fprintf_func) (info->stream, "r%d", (int)rs2);
258
163
  return (unsigned char) IST_TYPE;
259
163
      }
260
261
517
  return (unsigned char) NIL;
262
680
}
263
264
/* Process the Arithmetic and Logical I-TYPE opcode.  */
265
266
static unsigned char
267
dlx_aluI_type (struct disassemble_info* info)
268
517
{
269
517
  struct _aluI_opcode
270
517
  {
271
517
    unsigned long opcode;
272
517
    char *name;
273
517
  }
274
517
  dlx_aluI_opcode[] =
275
517
  {
276
517
    { OPC(ADDIOP),   "addi"  },  /* Store byte.      */
277
517
    { OPC(ADDUIOP),  "addui" },  /* Store halfword.  */
278
517
    { OPC(SUBIOP),   "subi"  },  /* Store word.      */
279
517
    { OPC(SUBUIOP),  "subui" },  /* Store word.      */
280
517
    { OPC(ANDIOP),   "andi"  },  /* Store word.      */
281
517
    { OPC(ORIOP),    "ori"   },  /* Store word.      */
282
517
    { OPC(XORIOP),   "xori"  },  /* Store word.      */
283
517
    { OPC(SLLIOP),   "slli"  },  /* Store word.      */
284
517
    { OPC(SRAIOP),   "srai"  },  /* Store word.      */
285
517
    { OPC(SRLIOP),   "srli"  },  /* Store word.      */
286
517
    { OPC(SEQIOP),   "seqi"  },  /* Store word.      */
287
517
    { OPC(SNEIOP),   "snei"  },  /* Store word.      */
288
517
    { OPC(SLTIOP),   "slti"  },  /* Store word.      */
289
517
    { OPC(SGTIOP),   "sgti"  },  /* Store word.      */
290
517
    { OPC(SLEIOP),   "slei"  },  /* Store word.      */
291
517
    { OPC(SGEIOP),   "sgei"  },  /* Store word.      */
292
517
    { OPC(SEQUIOP),  "sequi" },  /* Store word.      */
293
517
    { OPC(SNEUIOP),  "sneui" },  /* Store word.      */
294
517
    { OPC(SLTUIOP),  "sltui" },  /* Store word.      */
295
517
    { OPC(SGTUIOP),  "sgtui" },  /* Store word.      */
296
517
    { OPC(SLEUIOP),  "sleui" },  /* Store word.      */
297
517
    { OPC(SGEUIOP),  "sgeui" },  /* Store word.      */
298
#if 0
299
    { OPC(MVTSOP),   "mvts"  },  /* Store word.      */
300
    { OPC(MVFSOP),   "mvfs"  },  /* Store word.      */
301
#endif
302
517
  };
303
517
  int dlx_aluI_opcode_num =
304
517
    (sizeof dlx_aluI_opcode) / (sizeof dlx_aluI_opcode[0]);
305
517
  int idx;
306
307
9.26k
  for (idx = 0 ; idx < dlx_aluI_opcode_num; idx++)
308
8.94k
    if (dlx_aluI_opcode[idx].opcode == opc)
309
202
      {
310
202
  (*info->fprintf_func) (info->stream, "%s", dlx_aluI_opcode[idx].name);
311
202
  operand_deliminator (info, dlx_aluI_opcode[idx].name);
312
202
  (*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
313
202
  (*info->fprintf_func) (info->stream, "r%d,", (int)rs1);
314
202
  (*info->fprintf_func) (info->stream, "0x%04x", (int)imm16);
315
316
202
  return (unsigned char) IAL_TYPE;
317
202
      }
318
319
315
  return (unsigned char) NIL;
320
517
}
321
322
/* Process the branch instruction.  */
323
324
static unsigned char
325
dlx_br_type (struct disassemble_info* info)
326
315
{
327
315
  struct _br_opcode
328
315
  {
329
315
    unsigned long opcode;
330
315
    char *name;
331
315
  }
332
315
  dlx_br_opcode[] =
333
315
  {
334
315
    { OPC(BEQOP), "beqz" }, /* Store byte.  */
335
315
    { OPC(BNEOP), "bnez" }  /* Store halfword.  */
336
315
  };
337
315
  int dlx_br_opcode_num =
338
315
    (sizeof dlx_br_opcode) / (sizeof dlx_br_opcode[0]);
339
315
  int idx;
340
341
848
  for (idx = 0 ; idx < dlx_br_opcode_num; idx++)
342
586
    if (dlx_br_opcode[idx].opcode == opc)
343
53
      {
344
53
  if (imm16 & 0x00008000)
345
7
    imm16 |= 0xFFFF0000;
346
347
53
  imm16 += (current_insn_addr + 4);
348
53
  (*info->fprintf_func) (info->stream, "%s", dlx_br_opcode[idx].name);
349
53
  operand_deliminator (info, dlx_br_opcode[idx].name);
350
53
  (*info->fprintf_func) (info->stream, "r%d,", (int) rs1);
351
53
  (*info->fprintf_func) (info->stream, "0x%08x", (int) imm16);
352
353
53
  return (unsigned char) IBR_TYPE;
354
53
      }
355
356
262
  return (unsigned char) NIL;
357
315
}
358
359
/* Process the jump instruction.  */
360
361
static unsigned char
362
dlx_jmp_type (struct disassemble_info* info)
363
262
{
364
262
  struct _jmp_opcode
365
262
  {
366
262
    unsigned long opcode;
367
262
    char *name;
368
262
  }
369
262
  dlx_jmp_opcode[] =
370
262
  {
371
262
    { OPC(JOP),         "j" },  /* Store byte.      */
372
262
    { OPC(JALOP),     "jal" },  /* Store halfword.  */
373
262
    { OPC(BREAKOP), "break" },  /* Store halfword.  */
374
262
    { OPC(TRAPOP),   "trap" },  /* Store halfword.  */
375
262
    { OPC(RFEOP),     "rfe" }   /* Store halfword.  */
376
262
  };
377
262
  int dlx_jmp_opcode_num =
378
262
    (sizeof dlx_jmp_opcode) / (sizeof dlx_jmp_opcode[0]);
379
262
  int idx;
380
381
1.33k
  for (idx = 0 ; idx < dlx_jmp_opcode_num; idx++)
382
1.16k
    if (dlx_jmp_opcode[idx].opcode == opc)
383
88
      {
384
88
  if (imm26 & 0x02000000)
385
49
    imm26 |= 0xFC000000;
386
387
88
  imm26 += (current_insn_addr + 4);
388
389
88
  (*info->fprintf_func) (info->stream, "%s", dlx_jmp_opcode[idx].name);
390
88
  operand_deliminator (info, dlx_jmp_opcode[idx].name);
391
88
  (*info->fprintf_func) (info->stream, "0x%08x", (int)imm26);
392
393
88
  return (unsigned char) IJ_TYPE;
394
88
      }
395
396
174
  return (unsigned char) NIL;
397
262
}
398
399
/* Process the jump register instruction.  */
400
401
static unsigned char
402
dlx_jr_type (struct disassemble_info* info)
403
174
{
404
174
  struct _jr_opcode
405
174
  {
406
174
    unsigned long opcode;
407
174
    char *name;
408
174
  }
409
174
  dlx_jr_opcode[] =
410
174
  {
411
174
    { OPC(JROP),   "jr"    },  /* Store byte.  */
412
174
    { OPC(JALROP), "jalr"  }   /* Store halfword.  */
413
174
  };
414
174
  int dlx_jr_opcode_num =
415
174
    (sizeof dlx_jr_opcode) / (sizeof dlx_jr_opcode[0]);
416
174
  int idx;
417
418
477
  for (idx = 0 ; idx < dlx_jr_opcode_num; idx++)
419
331
    if (dlx_jr_opcode[idx].opcode == opc)
420
28
      {
421
28
  (*info->fprintf_func) (info->stream, "%s", dlx_jr_opcode[idx].name);
422
28
  operand_deliminator (info, dlx_jr_opcode[idx].name);
423
28
  (*info->fprintf_func) (info->stream, "r%d", (int)rs1);
424
28
  return (unsigned char) IJR_TYPE;
425
28
      }
426
427
146
  return (unsigned char) NIL;
428
174
}
429
430
typedef unsigned char (* dlx_insn) (struct disassemble_info *);
431
432
/* This is the main DLX insn handling routine.  */
433
434
int
435
print_insn_dlx (bfd_vma memaddr, struct disassemble_info* info)
436
1.10k
{
437
1.10k
  bfd_byte buffer[4];
438
1.10k
  int insn_idx;
439
1.10k
  unsigned long insn_word;
440
1.10k
  dlx_insn dlx_insn_type[] =
441
1.10k
  {
442
1.10k
    dlx_r_type,
443
1.10k
    dlx_load_type,
444
1.10k
    dlx_store_type,
445
1.10k
    dlx_aluI_type,
446
1.10k
    dlx_br_type,
447
1.10k
    dlx_jmp_type,
448
1.10k
    dlx_jr_type,
449
1.10k
    (dlx_insn) NULL
450
1.10k
  };
451
1.10k
  int dlx_insn_type_num = ((sizeof dlx_insn_type) / (sizeof (dlx_insn))) - 1;
452
1.10k
  int status =
453
1.10k
    (*info->read_memory_func) (memaddr, (bfd_byte *) &buffer[0], 4, info);
454
455
1.10k
  if (status != 0)
456
25
    {
457
25
      (*info->memory_error_func) (status, memaddr, info);
458
25
      return -1;
459
25
    }
460
461
  /* Now decode the insn    */
462
1.08k
  insn_word = bfd_getb32 (buffer);
463
1.08k
  opc  = dlx_get_opcode (insn_word);
464
1.08k
  rs1  = dlx_get_rs1 (insn_word);
465
1.08k
  rs2  = dlx_get_rs2 (insn_word);
466
1.08k
  rd   = dlx_get_rdR (insn_word);
467
1.08k
  func = dlx_get_func (insn_word);
468
1.08k
  imm16= dlx_get_imm16 (insn_word);
469
1.08k
  imm26= dlx_get_imm26 (insn_word);
470
471
#if 0
472
  printf ("print_insn_big_dlx: opc = 0x%02x\n"
473
    "                    rs1 = 0x%02x\n"
474
    "                    rs2 = 0x%02x\n"
475
    "                    rd  = 0x%02x\n"
476
    "                  func  = 0x%08x\n"
477
    "                 imm16  = 0x%08x\n"
478
    "                 imm26  = 0x%08x\n",
479
    opc, rs1, rs2, rd, func, imm16, imm26);
480
#endif
481
482
  /* Scan through all the insn type and print the insn out.  */
483
1.08k
  current_insn_addr = (unsigned long) memaddr;
484
485
3.89k
  for (insn_idx = 0; dlx_insn_type[insn_idx] != 0x0; insn_idx++)
486
3.75k
    switch ((dlx_insn_type[insn_idx]) (info))
487
3.75k
      {
488
  /* Found the correct opcode   */
489
339
      case R_TYPE:
490
381
      case ILD_TYPE:
491
544
      case IST_TYPE:
492
746
      case IAL_TYPE:
493
799
      case IBR_TYPE:
494
887
      case IJ_TYPE:
495
915
      case IJR_TYPE:
496
915
  return 4;
497
498
  /* Wrong insn type check next one. */
499
0
      default:
500
2.81k
      case NIL:
501
2.81k
  continue;
502
503
  /* All rest of the return code are not recongnized, treat it as error */
504
  /* we should never get here,  I hope! */
505
19
      case R_ERROR:
506
19
  return -1;
507
3.75k
      }
508
509
146
  if (insn_idx ==  dlx_insn_type_num)
510
    /* Well, does not recoganize this opcode.  */
511
146
    (*info->fprintf_func) (info->stream, "<%s>", "Unrecognized Opcode");
512
513
146
  return 4;
514
1.08k
}