1ed0d50c3Schristos /* Disassemble D30V instructions.
2*b88e3e88Schristos Copyright (C) 1997-2020 Free Software Foundation, Inc.
3ed0d50c3Schristos
4ed0d50c3Schristos This file is part of the GNU opcodes library.
5ed0d50c3Schristos
6ed0d50c3Schristos This library is free software; you can redistribute it and/or modify
7ed0d50c3Schristos it under the terms of the GNU General Public License as published by
8ed0d50c3Schristos the Free Software Foundation; either version 3, or (at your option)
9ed0d50c3Schristos any later version.
10ed0d50c3Schristos
11ed0d50c3Schristos It is distributed in the hope that it will be useful, but WITHOUT
12ed0d50c3Schristos ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
13ed0d50c3Schristos or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
14ed0d50c3Schristos License for more details.
15ed0d50c3Schristos
16ed0d50c3Schristos You should have received a copy of the GNU General Public License
17ed0d50c3Schristos along with this program; if not, write to the Free Software
18ed0d50c3Schristos Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19ed0d50c3Schristos MA 02110-1301, USA. */
20ed0d50c3Schristos
21ed0d50c3Schristos #include "sysdep.h"
22ed0d50c3Schristos #include <stdio.h>
23ed0d50c3Schristos #include "opcode/d30v.h"
2406324dcfSchristos #include "disassemble.h"
25ed0d50c3Schristos #include "opintl.h"
26*b88e3e88Schristos #include "libiberty.h"
27ed0d50c3Schristos
28ed0d50c3Schristos #define PC_MASK 0xFFFFFFFF
29ed0d50c3Schristos
30ed0d50c3Schristos /* Return 0 if lookup fails,
31ed0d50c3Schristos 1 if found and only one form,
32ed0d50c3Schristos 2 if found and there are short and long forms. */
33ed0d50c3Schristos
34ed0d50c3Schristos static int
lookup_opcode(struct d30v_insn * insn,long num,int is_long)35ed0d50c3Schristos lookup_opcode (struct d30v_insn *insn, long num, int is_long)
36ed0d50c3Schristos {
37ed0d50c3Schristos int i = 0, op_index;
38ed0d50c3Schristos struct d30v_format *f;
39ed0d50c3Schristos struct d30v_opcode *op = (struct d30v_opcode *) d30v_opcode_table;
40ed0d50c3Schristos int op1 = (num >> 25) & 0x7;
41ed0d50c3Schristos int op2 = (num >> 20) & 0x1f;
42ed0d50c3Schristos int mod = (num >> 18) & 0x3;
43ed0d50c3Schristos
44ed0d50c3Schristos /* Find the opcode. */
45ed0d50c3Schristos do
46ed0d50c3Schristos {
47ed0d50c3Schristos if ((op->op1 == op1) && (op->op2 == op2))
48ed0d50c3Schristos break;
49ed0d50c3Schristos op++;
50ed0d50c3Schristos }
51ed0d50c3Schristos while (op->name);
52ed0d50c3Schristos
53ed0d50c3Schristos if (!op || !op->name)
54ed0d50c3Schristos return 0;
55ed0d50c3Schristos
56ed0d50c3Schristos while (op->op1 == op1 && op->op2 == op2)
57ed0d50c3Schristos {
58ed0d50c3Schristos /* Scan through all the formats for the opcode. */
59ed0d50c3Schristos op_index = op->format[i++];
60ed0d50c3Schristos do
61ed0d50c3Schristos {
62ed0d50c3Schristos f = (struct d30v_format *) &d30v_format_table[op_index];
63ed0d50c3Schristos while (f->form == op_index)
64ed0d50c3Schristos {
65ed0d50c3Schristos if ((!is_long || f->form >= LONG) && (f->modifier == mod))
66ed0d50c3Schristos {
67ed0d50c3Schristos insn->form = f;
68ed0d50c3Schristos break;
69ed0d50c3Schristos }
70ed0d50c3Schristos f++;
71ed0d50c3Schristos }
72ed0d50c3Schristos if (insn->form)
73ed0d50c3Schristos break;
74ed0d50c3Schristos }
75ed0d50c3Schristos while ((op_index = op->format[i++]) != 0);
76ed0d50c3Schristos if (insn->form)
77ed0d50c3Schristos break;
78ed0d50c3Schristos op++;
79ed0d50c3Schristos i = 0;
80ed0d50c3Schristos }
81ed0d50c3Schristos if (insn->form == NULL)
82ed0d50c3Schristos return 0;
83ed0d50c3Schristos
84ed0d50c3Schristos insn->op = op;
85ed0d50c3Schristos insn->ecc = (num >> 28) & 0x7;
86ed0d50c3Schristos if (op->format[1])
87ed0d50c3Schristos return 2;
88ed0d50c3Schristos else
89ed0d50c3Schristos return 1;
90ed0d50c3Schristos }
91ed0d50c3Schristos
92ed0d50c3Schristos static int
extract_value(uint64_t num,const struct d30v_operand * oper,int is_long)93*b88e3e88Schristos extract_value (uint64_t num, const struct d30v_operand *oper, int is_long)
94ed0d50c3Schristos {
95*b88e3e88Schristos unsigned int val;
96ed0d50c3Schristos int shift = 12 - oper->position;
97*b88e3e88Schristos unsigned int mask = (0xFFFFFFFF >> (32 - oper->bits));
98ed0d50c3Schristos
99ed0d50c3Schristos if (is_long)
100ed0d50c3Schristos {
101ed0d50c3Schristos if (oper->bits == 32)
102ed0d50c3Schristos /* Piece together 32-bit constant. */
103ed0d50c3Schristos val = ((num & 0x3FFFF)
104ed0d50c3Schristos | ((num & 0xFF00000) >> 2)
105ed0d50c3Schristos | ((num & 0x3F00000000LL) >> 6));
106ed0d50c3Schristos else
107ed0d50c3Schristos val = (num >> (32 + shift)) & mask;
108ed0d50c3Schristos }
109ed0d50c3Schristos else
110ed0d50c3Schristos val = (num >> shift) & mask;
111ed0d50c3Schristos
112ed0d50c3Schristos if (oper->flags & OPERAND_SHIFT)
113ed0d50c3Schristos val <<= 3;
114ed0d50c3Schristos
115ed0d50c3Schristos return val;
116ed0d50c3Schristos }
117ed0d50c3Schristos
118ed0d50c3Schristos static void
print_insn(struct disassemble_info * info,bfd_vma memaddr,uint64_t num,struct d30v_insn * insn,int is_long,int show_ext)119ed0d50c3Schristos print_insn (struct disassemble_info *info,
120ed0d50c3Schristos bfd_vma memaddr,
121*b88e3e88Schristos uint64_t num,
122ed0d50c3Schristos struct d30v_insn *insn,
123ed0d50c3Schristos int is_long,
124ed0d50c3Schristos int show_ext)
125ed0d50c3Schristos {
126ed0d50c3Schristos int val, opnum, need_comma = 0;
127*b88e3e88Schristos const struct d30v_operand *oper;
128*b88e3e88Schristos int i, match, need_paren = 0, found_control = 0;
129*b88e3e88Schristos unsigned int opind = 0;
130ed0d50c3Schristos
131ed0d50c3Schristos (*info->fprintf_func) (info->stream, "%s", insn->op->name);
132ed0d50c3Schristos
133ed0d50c3Schristos /* Check for CMP or CMPU. */
134ed0d50c3Schristos if (d30v_operand_table[insn->form->operands[0]].flags & OPERAND_NAME)
135ed0d50c3Schristos {
136ed0d50c3Schristos opind++;
137ed0d50c3Schristos val =
138ed0d50c3Schristos extract_value (num,
139*b88e3e88Schristos &d30v_operand_table[insn->form->operands[0]],
140ed0d50c3Schristos is_long);
141ed0d50c3Schristos (*info->fprintf_func) (info->stream, "%s", d30v_cc_names[val]);
142ed0d50c3Schristos }
143ed0d50c3Schristos
144ed0d50c3Schristos /* Add in ".s" or ".l". */
145ed0d50c3Schristos if (show_ext == 2)
146ed0d50c3Schristos {
147ed0d50c3Schristos if (is_long)
148ed0d50c3Schristos (*info->fprintf_func) (info->stream, ".l");
149ed0d50c3Schristos else
150ed0d50c3Schristos (*info->fprintf_func) (info->stream, ".s");
151ed0d50c3Schristos }
152ed0d50c3Schristos
153ed0d50c3Schristos if (insn->ecc)
154ed0d50c3Schristos (*info->fprintf_func) (info->stream, "/%s", d30v_ecc_names[insn->ecc]);
155ed0d50c3Schristos
156ed0d50c3Schristos (*info->fprintf_func) (info->stream, "\t");
157ed0d50c3Schristos
158*b88e3e88Schristos while (opind < ARRAY_SIZE (insn->form->operands)
159*b88e3e88Schristos && (opnum = insn->form->operands[opind++]) != 0)
160ed0d50c3Schristos {
161ed0d50c3Schristos int bits;
162ed0d50c3Schristos
163*b88e3e88Schristos oper = &d30v_operand_table[opnum];
164ed0d50c3Schristos bits = oper->bits;
165ed0d50c3Schristos if (oper->flags & OPERAND_SHIFT)
166ed0d50c3Schristos bits += 3;
167ed0d50c3Schristos
168ed0d50c3Schristos if (need_comma
169ed0d50c3Schristos && oper->flags != OPERAND_PLUS
170ed0d50c3Schristos && oper->flags != OPERAND_MINUS)
171ed0d50c3Schristos {
172ed0d50c3Schristos need_comma = 0;
173ed0d50c3Schristos (*info->fprintf_func) (info->stream, ", ");
174ed0d50c3Schristos }
175ed0d50c3Schristos
176ed0d50c3Schristos if (oper->flags == OPERAND_ATMINUS)
177ed0d50c3Schristos {
178ed0d50c3Schristos (*info->fprintf_func) (info->stream, "@-");
179ed0d50c3Schristos continue;
180ed0d50c3Schristos }
181ed0d50c3Schristos if (oper->flags == OPERAND_MINUS)
182ed0d50c3Schristos {
183ed0d50c3Schristos (*info->fprintf_func) (info->stream, "-");
184ed0d50c3Schristos continue;
185ed0d50c3Schristos }
186ed0d50c3Schristos if (oper->flags == OPERAND_PLUS)
187ed0d50c3Schristos {
188ed0d50c3Schristos (*info->fprintf_func) (info->stream, "+");
189ed0d50c3Schristos continue;
190ed0d50c3Schristos }
191ed0d50c3Schristos if (oper->flags == OPERAND_ATSIGN)
192ed0d50c3Schristos {
193ed0d50c3Schristos (*info->fprintf_func) (info->stream, "@");
194ed0d50c3Schristos continue;
195ed0d50c3Schristos }
196ed0d50c3Schristos if (oper->flags == OPERAND_ATPAR)
197ed0d50c3Schristos {
198ed0d50c3Schristos (*info->fprintf_func) (info->stream, "@(");
199ed0d50c3Schristos need_paren = 1;
200ed0d50c3Schristos continue;
201ed0d50c3Schristos }
202ed0d50c3Schristos
203ed0d50c3Schristos if (oper->flags == OPERAND_SPECIAL)
204ed0d50c3Schristos continue;
205ed0d50c3Schristos
206ed0d50c3Schristos val = extract_value (num, oper, is_long);
207ed0d50c3Schristos
208ed0d50c3Schristos if (oper->flags & OPERAND_REG)
209ed0d50c3Schristos {
210ed0d50c3Schristos match = 0;
211ed0d50c3Schristos if (oper->flags & OPERAND_CONTROL)
212ed0d50c3Schristos {
213*b88e3e88Schristos const struct d30v_operand *oper3
214*b88e3e88Schristos = &d30v_operand_table[insn->form->operands[2]];
215ed0d50c3Schristos int id = extract_value (num, oper3, is_long);
216ed0d50c3Schristos
217ed0d50c3Schristos found_control = 1;
218ed0d50c3Schristos switch (id)
219ed0d50c3Schristos {
220ed0d50c3Schristos case 0:
221ed0d50c3Schristos val |= OPERAND_CONTROL;
222ed0d50c3Schristos break;
223ed0d50c3Schristos case 1:
224ed0d50c3Schristos case 2:
225ed0d50c3Schristos val = OPERAND_CONTROL + MAX_CONTROL_REG + id;
226ed0d50c3Schristos break;
227ed0d50c3Schristos case 3:
228ed0d50c3Schristos val |= OPERAND_FLAG;
229ed0d50c3Schristos break;
230ed0d50c3Schristos default:
23106324dcfSchristos /* xgettext: c-format */
23206324dcfSchristos opcodes_error_handler (_("illegal id (%d)"), id);
23306324dcfSchristos abort ();
234ed0d50c3Schristos }
235ed0d50c3Schristos }
236ed0d50c3Schristos else if (oper->flags & OPERAND_ACC)
237ed0d50c3Schristos val |= OPERAND_ACC;
238ed0d50c3Schristos else if (oper->flags & OPERAND_FLAG)
239ed0d50c3Schristos val |= OPERAND_FLAG;
240ed0d50c3Schristos for (i = 0; i < reg_name_cnt (); i++)
241ed0d50c3Schristos {
242ed0d50c3Schristos if (val == pre_defined_registers[i].value)
243ed0d50c3Schristos {
244ed0d50c3Schristos if (pre_defined_registers[i].pname)
245ed0d50c3Schristos (*info->fprintf_func)
246ed0d50c3Schristos (info->stream, "%s", pre_defined_registers[i].pname);
247ed0d50c3Schristos else
248ed0d50c3Schristos (*info->fprintf_func)
249ed0d50c3Schristos (info->stream, "%s", pre_defined_registers[i].name);
250ed0d50c3Schristos match = 1;
251ed0d50c3Schristos break;
252ed0d50c3Schristos }
253ed0d50c3Schristos }
254ed0d50c3Schristos if (match == 0)
255ed0d50c3Schristos {
256ed0d50c3Schristos /* This would only get executed if a register was not in
257ed0d50c3Schristos the register table. */
258ed0d50c3Schristos (*info->fprintf_func)
259ed0d50c3Schristos (info->stream, _("<unknown register %d>"), val & 0x3F);
260ed0d50c3Schristos }
261ed0d50c3Schristos }
262ed0d50c3Schristos /* repeati has a relocation, but its first argument is a plain
263ed0d50c3Schristos immediate. OTOH instructions like djsri have a pc-relative
264ed0d50c3Schristos delay target, but an absolute jump target. Therefore, a test
265ed0d50c3Schristos of insn->op->reloc_flag is not specific enough; we must test
266ed0d50c3Schristos if the actual operand we are handling now is pc-relative. */
267ed0d50c3Schristos else if (oper->flags & OPERAND_PCREL)
268ed0d50c3Schristos {
269ed0d50c3Schristos int neg = 0;
270ed0d50c3Schristos
271ed0d50c3Schristos /* IMM6S3 is unsigned. */
272ed0d50c3Schristos if (oper->flags & OPERAND_SIGNED || bits == 32)
273ed0d50c3Schristos {
274*b88e3e88Schristos unsigned int sign = 1u << (bits - 1);
275*b88e3e88Schristos if (val & sign)
276ed0d50c3Schristos {
277*b88e3e88Schristos val = -val & (sign + sign - 1);
278ed0d50c3Schristos neg = 1;
279ed0d50c3Schristos }
280ed0d50c3Schristos }
281ed0d50c3Schristos if (neg)
282ed0d50c3Schristos {
283ed0d50c3Schristos (*info->fprintf_func) (info->stream, "-%x\t(", val);
284ed0d50c3Schristos (*info->print_address_func) ((memaddr - val) & PC_MASK, info);
285ed0d50c3Schristos (*info->fprintf_func) (info->stream, ")");
286ed0d50c3Schristos }
287ed0d50c3Schristos else
288ed0d50c3Schristos {
289ed0d50c3Schristos (*info->fprintf_func) (info->stream, "%x\t(", val);
290ed0d50c3Schristos (*info->print_address_func) ((memaddr + val) & PC_MASK, info);
291ed0d50c3Schristos (*info->fprintf_func) (info->stream, ")");
292ed0d50c3Schristos }
293ed0d50c3Schristos }
294ed0d50c3Schristos else if (insn->op->reloc_flag == RELOC_ABS)
295ed0d50c3Schristos {
296ed0d50c3Schristos (*info->print_address_func) (val, info);
297ed0d50c3Schristos }
298ed0d50c3Schristos else
299ed0d50c3Schristos {
300ed0d50c3Schristos if (oper->flags & OPERAND_SIGNED)
301ed0d50c3Schristos {
302*b88e3e88Schristos unsigned int sign = 1u << (bits - 1);
303ed0d50c3Schristos
304*b88e3e88Schristos if (val & sign)
305ed0d50c3Schristos {
306*b88e3e88Schristos val = -val & (sign + sign - 1);
307ed0d50c3Schristos (*info->fprintf_func) (info->stream, "-");
308ed0d50c3Schristos }
309ed0d50c3Schristos }
310ed0d50c3Schristos (*info->fprintf_func) (info->stream, "0x%x", val);
311ed0d50c3Schristos }
312ed0d50c3Schristos /* If there is another operand, then write a comma and space. */
313*b88e3e88Schristos if (opind < ARRAY_SIZE (insn->form->operands)
314*b88e3e88Schristos && insn->form->operands[opind]
315*b88e3e88Schristos && !(found_control && opind == 2))
316ed0d50c3Schristos need_comma = 1;
317ed0d50c3Schristos }
318ed0d50c3Schristos if (need_paren)
319ed0d50c3Schristos (*info->fprintf_func) (info->stream, ")");
320ed0d50c3Schristos }
321ed0d50c3Schristos
322ed0d50c3Schristos int
print_insn_d30v(bfd_vma memaddr,struct disassemble_info * info)323ed0d50c3Schristos print_insn_d30v (bfd_vma memaddr, struct disassemble_info *info)
324ed0d50c3Schristos {
325ed0d50c3Schristos int status, result;
326ed0d50c3Schristos bfd_byte buffer[12];
327*b88e3e88Schristos uint32_t in1, in2;
328ed0d50c3Schristos struct d30v_insn insn;
329*b88e3e88Schristos uint64_t num;
330ed0d50c3Schristos
331ed0d50c3Schristos insn.form = NULL;
332ed0d50c3Schristos
333ed0d50c3Schristos info->bytes_per_line = 8;
334ed0d50c3Schristos info->bytes_per_chunk = 4;
335ed0d50c3Schristos info->display_endian = BFD_ENDIAN_BIG;
336ed0d50c3Schristos
337ed0d50c3Schristos status = (*info->read_memory_func) (memaddr, buffer, 4, info);
338ed0d50c3Schristos if (status != 0)
339ed0d50c3Schristos {
340ed0d50c3Schristos (*info->memory_error_func) (status, memaddr, info);
341ed0d50c3Schristos return -1;
342ed0d50c3Schristos }
343ed0d50c3Schristos in1 = bfd_getb32 (buffer);
344ed0d50c3Schristos
345ed0d50c3Schristos status = (*info->read_memory_func) (memaddr + 4, buffer, 4, info);
346ed0d50c3Schristos if (status != 0)
347ed0d50c3Schristos {
348ed0d50c3Schristos info->bytes_per_line = 8;
349ed0d50c3Schristos if (!(result = lookup_opcode (&insn, in1, 0)))
350*b88e3e88Schristos (*info->fprintf_func) (info->stream, ".long\t0x%x", in1);
351ed0d50c3Schristos else
352*b88e3e88Schristos print_insn (info, memaddr, (uint64_t) in1, &insn, 0, result);
353ed0d50c3Schristos return 4;
354ed0d50c3Schristos }
355ed0d50c3Schristos in2 = bfd_getb32 (buffer);
356ed0d50c3Schristos
357ed0d50c3Schristos if (in1 & in2 & FM01)
358ed0d50c3Schristos {
359ed0d50c3Schristos /* LONG instruction. */
360ed0d50c3Schristos if (!(result = lookup_opcode (&insn, in1, 1)))
361ed0d50c3Schristos {
362*b88e3e88Schristos (*info->fprintf_func) (info->stream, ".long\t0x%x,0x%x", in1, in2);
363ed0d50c3Schristos return 8;
364ed0d50c3Schristos }
365*b88e3e88Schristos num = (uint64_t) in1 << 32 | in2;
366ed0d50c3Schristos print_insn (info, memaddr, num, &insn, 1, result);
367ed0d50c3Schristos }
368ed0d50c3Schristos else
369ed0d50c3Schristos {
370ed0d50c3Schristos num = in1;
371ed0d50c3Schristos if (!(result = lookup_opcode (&insn, in1, 0)))
372*b88e3e88Schristos (*info->fprintf_func) (info->stream, ".long\t0x%x", in1);
373ed0d50c3Schristos else
374ed0d50c3Schristos print_insn (info, memaddr, num, &insn, 0, result);
375ed0d50c3Schristos
376ed0d50c3Schristos switch (((in1 >> 31) << 1) | (in2 >> 31))
377ed0d50c3Schristos {
378ed0d50c3Schristos case 0:
379ed0d50c3Schristos (*info->fprintf_func) (info->stream, "\t||\t");
380ed0d50c3Schristos break;
381ed0d50c3Schristos case 1:
382ed0d50c3Schristos (*info->fprintf_func) (info->stream, "\t->\t");
383ed0d50c3Schristos break;
384ed0d50c3Schristos case 2:
385ed0d50c3Schristos (*info->fprintf_func) (info->stream, "\t<-\t");
386ed0d50c3Schristos default:
387ed0d50c3Schristos break;
388ed0d50c3Schristos }
389ed0d50c3Schristos
390ed0d50c3Schristos insn.form = NULL;
391ed0d50c3Schristos num = in2;
392ed0d50c3Schristos if (!(result = lookup_opcode (&insn, in2, 0)))
393*b88e3e88Schristos (*info->fprintf_func) (info->stream, ".long\t0x%x", in2);
394ed0d50c3Schristos else
395ed0d50c3Schristos print_insn (info, memaddr, num, &insn, 0, result);
396ed0d50c3Schristos }
397ed0d50c3Schristos return 8;
398ed0d50c3Schristos }
399