Back to index

cell-binutils  2.17cvs20070401
Defines | Typedefs | Functions
or32-dis.c File Reference
#include "dis-asm.h"
#include "opcode/or32.h"
#include "safe-ctype.h"
#include <string.h>
#include <stdlib.h>

Go to the source code of this file.

Defines

#define DEBUG   0
#define EXTEND29(x)   ((x) & (unsigned long) 0x10000000 ? ((x) | (unsigned long) 0xf0000000) : ((x)))

Typedefs

typedef void(* find_byte_func_type )(unsigned char *, unsigned long *)

Functions

static void find_bytes_big (unsigned char *insn_ch, unsigned long *insn)
static void find_bytes_little (unsigned char *insn_ch, unsigned long *insn)
static unsigned long or32_extract (char param_ch, char *enc_initial, unsigned long insn)
static int or32_opcode_match (unsigned long insn, char *encoding)
static void or32_print_register (char param_ch, char *encoding, unsigned long insn, struct disassemble_info *info)
static void or32_print_immediate (char param_ch, char *encoding, unsigned long insn, struct disassemble_info *info)
static int print_insn (bfd_vma memaddr, struct disassemble_info *info)
int print_insn_big_or32 (bfd_vma memaddr, struct disassemble_info *info)
int print_insn_little_or32 (bfd_vma memaddr, struct disassemble_info *info)

Define Documentation

#define DEBUG   0

Definition at line 23 of file or32-dis.c.

#define EXTEND29 (   x)    ((x) & (unsigned long) 0x10000000 ? ((x) | (unsigned long) 0xf0000000) : ((x)))

Definition at line 31 of file or32-dis.c.


Typedef Documentation

typedef void(* find_byte_func_type)(unsigned char *, unsigned long *)

Definition at line 58 of file or32-dis.c.


Function Documentation

static void find_bytes_big ( unsigned char *  insn_ch,
unsigned long insn 
) [static]

Definition at line 36 of file or32-dis.c.

{
  *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
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void find_bytes_little ( unsigned char *  insn_ch,
unsigned long insn 
) [static]

Definition at line 49 of file or32-dis.c.

{
  *insn =
    ((unsigned long) insn_ch[3] << 24) +
    ((unsigned long) insn_ch[2] << 16) +
    ((unsigned long) insn_ch[1] << 8) +
    ((unsigned long) insn_ch[0]);
}

Here is the caller graph for this function:

static unsigned long or32_extract ( char  param_ch,
char *  enc_initial,
unsigned long  insn 
) [static]

Definition at line 61 of file or32-dis.c.

{
  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 |= 1 << 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 |= 0xffffffff << 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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int or32_opcode_match ( unsigned long  insn,
char *  encoding 
) [static]

Definition at line 150 of file or32-dis.c.

{
  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;
}

Here is the call graph for this function:

static void or32_print_immediate ( char  param_ch,
char *  encoding,
unsigned long  insn,
struct disassemble_info info 
) [static]

Definition at line 216 of file or32-dis.c.

{
  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);
}

Here is the call graph for this function:

static void or32_print_register ( char  param_ch,
char *  encoding,
unsigned long  insn,
struct disassemble_info info 
) [static]

Definition at line 189 of file or32-dis.c.

{
  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);
}

Here is the call graph for this function:

static int print_insn ( bfd_vma  memaddr,
struct disassemble_info info 
) [static]

Definition at line 234 of file or32-dis.c.

{
  /* 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 'X':
                  addr = or32_extract ('X', opcode->encoding, insn) << 2;

                  /* Calulate the correct address.  XXX is this really correct ??  */
                  addr = memaddr + EXTEND29 (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;
}

Here is the caller graph for this function:

Definition at line 310 of file or32-dis.c.

{
  info->private_data = find_bytes_big;

  return print_insn (memaddr, info);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 320 of file or32-dis.c.

{
  info->private_data = find_bytes_little;
  return print_insn (memaddr, info);
}

Here is the call graph for this function:

Here is the caller graph for this function: