OpenCores
URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [opcodes/] [or32-dis.c] - Blame information for rev 241

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 18 khays 
/* Instruction printing code for the OpenRISC 1000
2 
   Copyright (C) 2002, 2005, 2007 Free Software Foundation, Inc.
3 
   Contributed by Damjan Lampret <lampret@opencores.org>.
4 
   Modified from a29k port.
5 
 
6 
   This file is part of the GNU opcodes library.
7 
 
8 
   This library 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 3, or (at your option)
11 
   any later version.
12 
 
13 
   It is distributed in the hope that it will be useful, but WITHOUT
14 
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15 
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
16 
   License for more details.
17 
 
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.  */
22 
 
23 
#ifndef DEBUG
24 
#define DEBUG 0
25 
#endif
26 
 
27 
#include "dis-asm.h"
28 
#include "opcode/or32.h"
29 
#include "safe-ctype.h"
30 
#include <string.h>
31 
#include <stdlib.h>
32 
 
33 
#define EXTEND29(x) ((x) & (unsigned long) 0x10000000 ? ((x) | (unsigned long) 0xf0000000) : ((x)))
34 
 
35 
/* Now find the four bytes of INSN_CH and put them in *INSN.  */
36 
 
37 
static void
38 
find_bytes_big (unsigned char *insn_ch, unsigned long *insn)
39 
{
40 
  *insn =
41 
    ((unsigned long) insn_ch[0] << 24) +
42 
    ((unsigned long) insn_ch[1] << 16) +
43 
    ((unsigned long) insn_ch[2] << 8) +
44 
    ((unsigned long) insn_ch[3]);
45 
#if DEBUG
46 
  printf ("find_bytes_big3: %lx\n", *insn);
47 
#endif
48 
}
49 
 
50 
static void
51 
find_bytes_little (unsigned char *insn_ch, unsigned long *insn)
52 
{
53 
  *insn =
54 
    ((unsigned long) insn_ch[3] << 24) +
55 
    ((unsigned long) insn_ch[2] << 16) +
56 
    ((unsigned long) insn_ch[1] << 8) +
57 
    ((unsigned long) insn_ch[0]);
58 
}
59 
 
60 
typedef void (*find_byte_func_type) (unsigned char *, unsigned long *);
61 
 
62 
static unsigned long
63 
or32_extract (char param_ch, char *enc_initial, unsigned long insn)
64 
{
65 
  char *enc;
66 
  unsigned long ret = 0;
67 
  int opc_pos = 0;
68 
  int param_pos = 0;
69 
 
70 
  for (enc = enc_initial; *enc != '\0'; enc++)
71 
    if (*enc == param_ch)
72 
      {
73 
        if (enc - 2 >= enc_initial && (*(enc - 2) == '0') && (*(enc - 1) == 'x'))
74 
          continue;
75 
        else
76 
          param_pos++;
77 
      }
78 
 
79 
#if DEBUG
80 
  printf ("or32_extract: %c %x ", param_ch, param_pos);
81 
#endif
82 
  opc_pos = 32;
83 
 
84 
  for (enc = enc_initial; *enc != '\0'; )
85 
    if ((*enc == '0') && (*(enc + 1) == 'x'))
86 
      {
87 
        opc_pos -= 4;
88 
 
89 
        if ((param_ch == '0') || (param_ch == '1'))
90 
          {
91 
            unsigned long tmp = strtoul (enc, NULL, 16);
92 
#if DEBUG
93 
            printf (" enc=%s, tmp=%lx ", enc, tmp);
94 
#endif
95 
            if (param_ch == '0')
96 
              tmp = 15 - tmp;
97 
            ret |= tmp << opc_pos;
98 
          }
99 
        enc += 3;
100 
      }
101 
    else if ((*enc == '0') || (*enc == '1'))
102 
      {
103 
        opc_pos--;
104 
        if (param_ch == *enc)
105 
          ret |= 1 << opc_pos;
106 
        enc++;
107 
      }
108 
    else if (*enc == param_ch)
109 
      {
110 
        opc_pos--;
111 
        param_pos--;
112 
#if DEBUG
113 
        printf ("\n  ret=%lx opc_pos=%x, param_pos=%x\n", ret, opc_pos, param_pos);
114 
#endif
115 
        ret += ((insn >> opc_pos) & 0x1) << param_pos;
116 
 
117 
        if (!param_pos
118 
            && letter_signed (param_ch)
119 
            && ret >> (letter_range (param_ch) - 1))
120 
          {
121 
#if DEBUG
122 
            printf ("\n  ret=%lx opc_pos=%x, param_pos=%x\n",
123 
                    ret, opc_pos, param_pos);
124 
#endif
125 
            ret |= 0xffffffff << letter_range(param_ch);
126 
#if DEBUG
127 
            printf ("\n  after conversion to signed: ret=%lx\n", ret);
128 
#endif
129 
          }
130 
        enc++;
131 
      }
132 
    else if (ISALPHA (*enc))
133 
      {
134 
        opc_pos--;
135 
        enc++;
136 
      }
137 
    else if (*enc == '-')
138 
      {
139 
        opc_pos--;
140 
        enc++;
141 
      }
142 
    else
143 
      enc++;
144 
 
145 
#if DEBUG
146 
  printf ("ret=%lx\n", ret);
147 
#endif
148 
  return ret;
149 
}
150 
 
151 
static int
152 
or32_opcode_match (unsigned long insn, char *encoding)
153 
{
154 
  unsigned long ones, zeros;
155 
 
156 
#if DEBUG
157 
  printf ("or32_opcode_match: %.8lx\n", insn);
158 
#endif
159 
  ones  = or32_extract ('1', encoding, insn);
160 
  zeros = or32_extract ('0', encoding, insn);
161 
 
162 
#if DEBUG
163 
  printf ("ones: %lx \n", ones);
164 
  printf ("zeros: %lx \n", zeros);
165 
#endif
166 
  if ((insn & ones) != ones)
167 
    {
168 
#if DEBUG
169 
      printf ("ret1\n");
170 
#endif
171 
      return 0;
172 
    }
173 
 
174 
  if ((~insn & zeros) != zeros)
175 
    {
176 
#if DEBUG
177 
      printf ("ret2\n");
178 
#endif
179 
      return 0;
180 
    }
181 
 
182 
#if DEBUG
183 
  printf ("ret3\n");
184 
#endif
185 
  return 1;
186 
}
187 
 
188 
/* Print register to INFO->STREAM. Used only by print_insn.  */
189 
 
190 
static void
191 
or32_print_register (char param_ch,
192 
                     char *encoding,
193 
                     unsigned long insn,
194 
                     struct disassemble_info *info)
195 
{
196 
  int regnum = or32_extract (param_ch, encoding, insn);
197 
 
198 
#if DEBUG
199 
  printf ("or32_print_register: %c, %s, %lx\n", param_ch, encoding, insn);
200 
#endif
201 
  if (param_ch == 'A')
202 
    (*info->fprintf_func) (info->stream, "r%d", regnum);
203 
  else if (param_ch == 'B')
204 
    (*info->fprintf_func) (info->stream, "r%d", regnum);
205 
  else if (param_ch == 'D')
206 
    (*info->fprintf_func) (info->stream, "r%d", regnum);
207 
  else if (regnum < 16)
208 
    (*info->fprintf_func) (info->stream, "r%d", regnum);
209 
  else if (regnum < 32)
210 
    (*info->fprintf_func) (info->stream, "r%d", regnum-16);
211 
  else
212 
    (*info->fprintf_func) (info->stream, "X%d", regnum);
213 
}
214 
 
215 
/* Print immediate to INFO->STREAM. Used only by print_insn.  */
216 
 
217 
static void
218 
or32_print_immediate (char param_ch,
219 
                      char *encoding,
220 
                      unsigned long insn,
221 
                      struct disassemble_info *info)
222 
{
223 
  int imm = or32_extract(param_ch, encoding, insn);
224 
 
225 
  if (letter_signed(param_ch))
226 
    (*info->fprintf_func) (info->stream, "0x%x", imm);
227 
/*    (*info->fprintf_func) (info->stream, "%d", imm); */
228 
  else
229 
    (*info->fprintf_func) (info->stream, "0x%x", imm);
230 
}
231 
 
232 
/* Print one instruction from MEMADDR on INFO->STREAM.
233 
   Return the size of the instruction (always 4 on or32).  */
234 
 
235 
static int
236 
print_insn (bfd_vma memaddr, struct disassemble_info *info)
237 
{
238 
  /* The raw instruction.  */
239 
  unsigned char insn_ch[4];
240 
  /* Address. Will be sign extened 27-bit.  */
241 
  unsigned long addr;
242 
  /* The four bytes of the instruction.  */
243 
  unsigned long insn;
244 
  find_byte_func_type find_byte_func = (find_byte_func_type) info->private_data;
245 
  struct or32_opcode const * opcode;
246 
 
247 
  {
248 
    int status =
249 
      (*info->read_memory_func) (memaddr, (bfd_byte *) &insn_ch[0], 4, info);
250 
 
251 
    if (status != 0)
252 
      {
253 
        (*info->memory_error_func) (status, memaddr, info);
254 
        return -1;
255 
      }
256 
  }
257 
 
258 
  (*find_byte_func) (&insn_ch[0], &insn);
259 
 
260 
  for (opcode = &or32_opcodes[0];
261 
       opcode < &or32_opcodes[or32_num_opcodes];
262 
       ++opcode)
263 
    {
264 
      if (or32_opcode_match (insn, opcode->encoding))
265 
        {
266 
          char *s;
267 
 
268 
          (*info->fprintf_func) (info->stream, "%s ", opcode->name);
269 
 
270 
          for (s = opcode->args; *s != '\0'; ++s)
271 
            {
272 
              switch (*s)
273 
                {
274 
                case '\0':
275 
                  return 4;
276 
 
277 
                case 'r':
278 
                  or32_print_register (*++s, opcode->encoding, insn, info);
279 
                  break;
280 
 
281 
                case 'X':
282 
                  addr = or32_extract ('X', opcode->encoding, insn) << 2;
283 
 
284 
                  /* Calulate the correct address.  XXX is this really correct ??  */
285 
                  addr = memaddr + EXTEND29 (addr);
286 
 
287 
                  (*info->print_address_func)
288 
                    (addr, info);
289 
                  break;
290 
 
291 
                default:
292 
                  if (strchr (opcode->encoding, *s))
293 
                    or32_print_immediate (*s, opcode->encoding, insn, info);
294 
                  else
295 
                    (*info->fprintf_func) (info->stream, "%c", *s);
296 
                }
297 
            }
298 
 
299 
          return 4;
300 
        }
301 
    }
302 
 
303 
  /* This used to be %8x for binutils.  */
304 
  (*info->fprintf_func)
305 
    (info->stream, ".word 0x%08lx", insn);
306 
  return 4;
307 
}
308 
 
309 
/* Disassemble a big-endian or32 instruction.  */
310 
 
311 
int
312 
print_insn_big_or32 (bfd_vma memaddr, struct disassemble_info *info)
313 
{
314 
  info->private_data = find_bytes_big;
315 
 
316 
  return print_insn (memaddr, info);
317 
}
318 
 
319 
/* Disassemble a little-endian or32 instruction.  */
320 
 
321 
int
322 
print_insn_little_or32 (bfd_vma memaddr, struct disassemble_info *info)
323 
{
324 
  info->private_data = find_bytes_little;
325 
  return print_insn (memaddr, info);
326 
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.