1 /* Instruction printing code for the OpenRISC 1000
2 Copyright (C) 2002, 2005 Free Software Foundation, Inc.
3 Contributed by Damjan Lampret <lampret@opencores.org>.
4 Modified from a29k port.
6 This file is part of Binutils.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21 MA 02110-1301, USA. */
26 #include "opcode/or32.h"
27 #include "safe-ctype.h"
31 #define EXTEND29(x) ((x) & (unsigned long) 0x10000000 ? ((x) | (unsigned long) 0xf0000000) : ((x)))
33 /* Now find the four bytes of INSN_CH and put them in *INSN. */
36 find_bytes_big (unsigned char *insn_ch, unsigned long *insn)
39 ((unsigned long) insn_ch[0] << 24) +
40 ((unsigned long) insn_ch[1] << 16) +
41 ((unsigned long) insn_ch[2] << 8) +
42 ((unsigned long) insn_ch[3]);
44 printf ("find_bytes_big3: %x\n", *insn);
49 find_bytes_little (unsigned char *insn_ch, unsigned long *insn)
52 ((unsigned long) insn_ch[3] << 24) +
53 ((unsigned long) insn_ch[2] << 16) +
54 ((unsigned long) insn_ch[1] << 8) +
55 ((unsigned long) insn_ch[0]);
58 typedef void (*find_byte_func_type) (unsigned char *, unsigned long *);
61 or32_extract (char param_ch, char *enc_initial, unsigned long insn)
64 unsigned long ret = 0;
68 for (enc = enc_initial; *enc != '\0'; enc++)
71 if (enc - 2 >= enc_initial && (*(enc - 2) == '0') && (*(enc - 1) == 'x'))
78 printf ("or32_extract: %c %x ", param_ch, param_pos);
82 for (enc = enc_initial; *enc != '\0'; )
83 if ((*enc == '0') && (*(enc + 1) == 'x'))
87 if ((param_ch == '0') || (param_ch == '1'))
89 unsigned long tmp = strtoul (enc, NULL, 16);
91 printf (" enc=%s, tmp=%x ", enc, tmp);
95 ret |= tmp << opc_pos;
99 else if ((*enc == '0') || (*enc == '1'))
102 if (param_ch == *enc)
106 else if (*enc == param_ch)
111 printf ("\n ret=%x opc_pos=%x, param_pos=%x\n", ret, opc_pos, param_pos);
113 ret += ((insn >> opc_pos) & 0x1) << param_pos;
116 && letter_signed (param_ch)
117 && ret >> (letter_range (param_ch) - 1))
120 printf ("\n ret=%x opc_pos=%x, param_pos=%x\n",
121 ret, opc_pos, param_pos);
123 ret |= 0xffffffff << letter_range(param_ch);
125 printf ("\n after conversion to signed: ret=%x\n", ret);
130 else if (ISALPHA (*enc))
135 else if (*enc == '-')
144 printf ("ret=%x\n", ret);
150 or32_opcode_match (unsigned long insn, char *encoding)
152 unsigned long ones, zeros;
155 printf ("or32_opcode_match: %.8lx\n", insn);
157 ones = or32_extract ('1', encoding, insn);
158 zeros = or32_extract ('0', encoding, insn);
161 printf ("ones: %x \n", ones);
162 printf ("zeros: %x \n", zeros);
164 if ((insn & ones) != ones)
172 if ((~insn & zeros) != zeros)
186 /* Print register to INFO->STREAM. Used only by print_insn. */
189 or32_print_register (char param_ch,
192 struct disassemble_info *info)
194 int regnum = or32_extract (param_ch, encoding, insn);
197 printf ("or32_print_register: %c, %s, %x\n", param_ch, encoding, insn);
200 (*info->fprintf_func) (info->stream, "r%d", regnum);
201 else if (param_ch == 'B')
202 (*info->fprintf_func) (info->stream, "r%d", regnum);
203 else if (param_ch == 'D')
204 (*info->fprintf_func) (info->stream, "r%d", regnum);
205 else if (regnum < 16)
206 (*info->fprintf_func) (info->stream, "r%d", regnum);
207 else if (regnum < 32)
208 (*info->fprintf_func) (info->stream, "r%d", regnum-16);
210 (*info->fprintf_func) (info->stream, "X%d", regnum);
213 /* Print immediate to INFO->STREAM. Used only by print_insn. */
216 or32_print_immediate (char param_ch,
219 struct disassemble_info *info)
221 int imm = or32_extract(param_ch, encoding, insn);
223 if (letter_signed(param_ch))
224 (*info->fprintf_func) (info->stream, "0x%x", imm);
225 /* (*info->fprintf_func) (info->stream, "%d", imm); */
227 (*info->fprintf_func) (info->stream, "0x%x", imm);
230 /* Print one instruction from MEMADDR on INFO->STREAM.
231 Return the size of the instruction (always 4 on or32). */
234 print_insn (bfd_vma memaddr, struct disassemble_info *info)
236 /* The raw instruction. */
237 unsigned char insn_ch[4];
238 /* Address. Will be sign extened 27-bit. */
240 /* The four bytes of the instruction. */
242 find_byte_func_type find_byte_func = (find_byte_func_type) info->private_data;
243 struct or32_opcode const * opcode;
247 (*info->read_memory_func) (memaddr, (bfd_byte *) &insn_ch[0], 4, info);
251 (*info->memory_error_func) (status, memaddr, info);
256 (*find_byte_func) (&insn_ch[0], &insn);
258 for (opcode = &or32_opcodes[0];
259 opcode < &or32_opcodes[or32_num_opcodes];
262 if (or32_opcode_match (insn, opcode->encoding))
266 (*info->fprintf_func) (info->stream, "%s ", opcode->name);
268 for (s = opcode->args; *s != '\0'; ++s)
276 or32_print_register (*++s, opcode->encoding, insn, info);
280 addr = or32_extract ('X', opcode->encoding, insn) << 2;
282 /* Calulate the correct address. XXX is this really correct ?? */
283 addr = memaddr + EXTEND29 (addr);
285 (*info->print_address_func)
290 if (strchr (opcode->encoding, *s))
291 or32_print_immediate (*s, opcode->encoding, insn, info);
293 (*info->fprintf_func) (info->stream, "%c", *s);
301 /* This used to be %8x for binutils. */
302 (*info->fprintf_func)
303 (info->stream, ".word 0x%08lx", insn);
307 /* Disassemble a big-endian or32 instruction. */
310 print_insn_big_or32 (bfd_vma memaddr, struct disassemble_info *info)
312 info->private_data = find_bytes_big;
314 return print_insn (memaddr, info);
317 /* Disassemble a little-endian or32 instruction. */
320 print_insn_little_or32 (bfd_vma memaddr, struct disassemble_info *info)
322 info->private_data = find_bytes_little;
323 return print_insn (memaddr, info);