URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [opcodes/] [or32-dis.c] - Blame information for rev 857

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


/* Instruction printing code for the OpenRISC 1000
   Copyright (C) 2002, 2005, 2007 Free Software Foundation, Inc.
   Contributed by Damjan Lampret <lampret@opencores.org>.
   Modified from a29k port.
 
   This file is part of the GNU opcodes library.
 
   This library is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3, or (at your option)
   any later version.
 
   It is distributed in the hope that it will be useful, but WITHOUT
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
   License for more details.
 
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */
 
#define DEBUG 0
 
#include "dis-asm.h"
#include "opcode/or32.h"
#include "safe-ctype.h"
#include <string.h>
#include <stdlib.h>
 
#define EXTEND28(x) ((x) & 0x08000000UL ? ((x) | ~0x0fffffffUL) : ((x)))
 
/* Now find the four bytes of INSN_CH and put them in *INSN.  */
 
static void
find_bytes_big (unsigned char *insn_ch, unsigned long *insn)
{
  *insn =
    ((unsigned long) insn_ch[0] << 24) +
    ((unsigned long) insn_ch[1] << 16) +
    ((unsigned long) insn_ch[2] << 8) +
    ((unsigned long) insn_ch[3]);
#if DEBUG
  printf ("find_bytes_big3: %x\n", *insn);
#endif
}
 
static void
find_bytes_little (unsigned char *insn_ch, unsigned long *insn)
{
  *insn =
    ((unsigned long) insn_ch[3] << 24) +
    ((unsigned long) insn_ch[2] << 16) +
    ((unsigned long) insn_ch[1] << 8) +
    ((unsigned long) insn_ch[0]);
}
 
typedef void (*find_byte_func_type) (unsigned char *, unsigned long *);
 
static unsigned long
or32_extract (char param_ch, char *enc_initial, unsigned long insn)
{
  char *enc;
  unsigned long ret = 0;
  int opc_pos = 0;
  int param_pos = 0;
 
  for (enc = enc_initial; *enc != '\0'; enc++)
    if (*enc == param_ch)
      {
        if (enc - 2 >= enc_initial && (*(enc - 2) == '0') && (*(enc - 1) == 'x'))
          continue;
        else
          param_pos++;
      }
 
#if DEBUG
  printf ("or32_extract: %c %x ", param_ch, param_pos);
#endif
  opc_pos = 32;
 
  for (enc = enc_initial; *enc != '\0'; )
    if ((*enc == '0') && (*(enc + 1) == 'x'))
      {
        opc_pos -= 4;
 
        if ((param_ch == '0') || (param_ch == '1'))
          {
            unsigned long tmp = strtoul (enc, NULL, 16);
#if DEBUG
            printf (" enc=%s, tmp=%x ", enc, tmp);
#endif
            if (param_ch == '0')
              tmp = 15 - tmp;
            ret |= tmp << opc_pos;
          }
        enc += 3;
      }
    else if ((*enc == '0') || (*enc == '1'))
      {
        opc_pos--;
        if (param_ch == *enc)
          ret |= 1UL << opc_pos;
        enc++;
      }
    else if (*enc == param_ch)
      {
        opc_pos--;
        param_pos--;
#if DEBUG
        printf ("\n  ret=%x opc_pos=%x, param_pos=%x\n", ret, opc_pos, param_pos);
#endif
        ret += ((insn >> opc_pos) & 0x1) << param_pos;
 
        if (!param_pos
            && letter_signed (param_ch)
            && ret >> (letter_range (param_ch) - 1))
          {
#if DEBUG
            printf ("\n  ret=%x opc_pos=%x, param_pos=%x\n",
                    ret, opc_pos, param_pos);
#endif
            ret |= -1L << letter_range(param_ch);
#if DEBUG
            printf ("\n  after conversion to signed: ret=%x\n", ret);
#endif
          }
        enc++;
      }
    else if (ISALPHA (*enc))
      {
        opc_pos--;
        enc++;
      }
    else if (*enc == '-')
      {
        opc_pos--;
        enc++;
      }
    else
      enc++;
 
#if DEBUG
  printf ("ret=%x\n", ret);
#endif
  return ret;
}
 
static int
or32_opcode_match (unsigned long insn, char *encoding)
{
  unsigned long ones, zeros;
 
#if DEBUG
  printf ("or32_opcode_match: %.8lx\n", insn);
#endif    
  ones  = or32_extract ('1', encoding, insn);
  zeros = or32_extract ('0', encoding, insn);
 
#if DEBUG
  printf ("ones: %x \n", ones);
  printf ("zeros: %x \n", zeros);
#endif
  if ((insn & ones) != ones)
    {
#if DEBUG
      printf ("ret1\n");
#endif
      return 0;
    }
 
  if ((~insn & zeros) != zeros)
    {
#if DEBUG
      printf ("ret2\n");
#endif
      return 0;
    }
 
#if DEBUG
  printf ("ret3\n");
#endif
  return 1;
}
 
/* Print register to INFO->STREAM. Used only by print_insn.  */
 
static void
or32_print_register (char param_ch,
                     char *encoding,
                     unsigned long insn,
                     struct disassemble_info *info)
{
  int regnum = or32_extract (param_ch, encoding, insn);
 
#if DEBUG
  printf ("or32_print_register: %c, %s, %x\n", param_ch, encoding, insn);
#endif  
  if (param_ch == 'A')
    (*info->fprintf_func) (info->stream, "r%d", regnum);
  else if (param_ch == 'B')
    (*info->fprintf_func) (info->stream, "r%d", regnum);
  else if (param_ch == 'D')
    (*info->fprintf_func) (info->stream, "r%d", regnum);
  else if (regnum < 16)
    (*info->fprintf_func) (info->stream, "r%d", regnum);
  else if (regnum < 32)
    (*info->fprintf_func) (info->stream, "r%d", regnum-16);
  else
    (*info->fprintf_func) (info->stream, "X%d", regnum);
}
 
/* Print immediate to INFO->STREAM. Used only by print_insn.  */
 
static void
or32_print_immediate (char param_ch,
                      char *encoding,
                      unsigned long insn,
                      struct disassemble_info *info)
{
  int imm = or32_extract(param_ch, encoding, insn);
 
  if (letter_signed(param_ch))
    (*info->fprintf_func) (info->stream, "0x%x", imm);
/*    (*info->fprintf_func) (info->stream, "%d", imm); */
  else
    (*info->fprintf_func) (info->stream, "0x%x", imm);
}
 
/* Print one instruction from MEMADDR on INFO->STREAM.
   Return the size of the instruction (always 4 on or32).  */
 
static int
print_insn (bfd_vma memaddr, struct disassemble_info *info)
{
  /* The raw instruction.  */
  unsigned char insn_ch[4];
  /* Address. Will be sign extened 27-bit.  */
  unsigned long addr;
  /* The four bytes of the instruction.  */
  unsigned long insn;
  find_byte_func_type find_byte_func = (find_byte_func_type) info->private_data;
  struct or32_opcode const * opcode;
 
  {
    int status =
      (*info->read_memory_func) (memaddr, (bfd_byte *) &insn_ch[0], 4, info);
 
    if (status != 0)
      {
        (*info->memory_error_func) (status, memaddr, info);
        return -1;
      }
  }
 
  (*find_byte_func) (&insn_ch[0], &insn);
 
  for (opcode = &or32_opcodes[0];
       opcode < &or32_opcodes[or32_num_opcodes];
       ++opcode)
    {
      if (or32_opcode_match (insn, opcode->encoding))
        {
          char *s;
 
          (*info->fprintf_func) (info->stream, "%s ", opcode->name);
 
          for (s = opcode->args; *s != '\0'; ++s)
            {
              switch (*s)
                {
                case '\0':
                  return 4;
 
                case 'r':
                  or32_print_register (*++s, opcode->encoding, insn, info);
                  break;
 
                case 'N':
                  addr = or32_extract ('N', opcode->encoding, insn) << 2;
 
                  /* Calulate the correct address.  */
                  addr = memaddr + EXTEND28 (addr);
 
                  (*info->print_address_func)
                    (addr, info);
                  break;
 
                default:
                  if (strchr (opcode->encoding, *s))
                    or32_print_immediate (*s, opcode->encoding, insn, info);
                  else
                    (*info->fprintf_func) (info->stream, "%c", *s);
                }
            }
 
          return 4;
        }
    }
 
  /* This used to be %8x for binutils.  */
  (*info->fprintf_func)
    (info->stream, ".word 0x%08lx", insn);
  return 4;
}
 
/* Disassemble a big-endian or32 instruction.  */
 
int
print_insn_big_or32 (bfd_vma memaddr, struct disassemble_info *info)
{
  info->private_data = find_bytes_big;
 
  return print_insn (memaddr, info);
}
 
/* Disassemble a little-endian or32 instruction.  */
 
int
print_insn_little_or32 (bfd_vma memaddr, struct disassemble_info *info)
{
  info->private_data = find_bytes_little;
  return print_insn (memaddr, info);
}

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [opcodes/] [or32-dis.c] - Blame information for rev 857

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