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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [opcodes/] [cgen-dis.c] - Diff between revs 827 and 840

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 827 Rev 840
/* CGEN generic disassembler support code.
/* CGEN generic disassembler support code.
   Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005, 2007
   Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005, 2007
   Free Software Foundation, Inc.
   Free Software Foundation, Inc.
 
 
   This file is part of libopcodes.
   This file is part of libopcodes.
 
 
   This library is free software; you can redistribute it and/or modify
   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
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3, or (at your option)
   the Free Software Foundation; either version 3, or (at your option)
   any later version.
   any later version.
 
 
   It is distributed in the hope that it will be useful, but WITHOUT
   It is distributed in the hope that it will be useful, but WITHOUT
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
   License for more details.
   License for more details.
 
 
   You should have received a copy of the GNU General Public License along
   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.,
   with this program; if not, write to the Free Software Foundation, Inc.,
   51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
   51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
 
 
#include "sysdep.h"
#include "sysdep.h"
#include <stdio.h>
#include <stdio.h>
#include "ansidecl.h"
#include "ansidecl.h"
#include "libiberty.h"
#include "libiberty.h"
#include "bfd.h"
#include "bfd.h"
#include "symcat.h"
#include "symcat.h"
#include "opcode/cgen.h"
#include "opcode/cgen.h"
 
 
static CGEN_INSN_LIST *  hash_insn_array        (CGEN_CPU_DESC, const CGEN_INSN *, int, int, CGEN_INSN_LIST **, CGEN_INSN_LIST *);
static CGEN_INSN_LIST *  hash_insn_array        (CGEN_CPU_DESC, const CGEN_INSN *, int, int, CGEN_INSN_LIST **, CGEN_INSN_LIST *);
static CGEN_INSN_LIST *  hash_insn_list         (CGEN_CPU_DESC, const CGEN_INSN_LIST *, CGEN_INSN_LIST **, CGEN_INSN_LIST *);
static CGEN_INSN_LIST *  hash_insn_list         (CGEN_CPU_DESC, const CGEN_INSN_LIST *, CGEN_INSN_LIST **, CGEN_INSN_LIST *);
static void              build_dis_hash_table   (CGEN_CPU_DESC);
static void              build_dis_hash_table   (CGEN_CPU_DESC);
static int               count_decodable_bits   (const CGEN_INSN *);
static int               count_decodable_bits   (const CGEN_INSN *);
static void              add_insn_to_hash_chain (CGEN_INSN_LIST *,
static void              add_insn_to_hash_chain (CGEN_INSN_LIST *,
                                                 const CGEN_INSN *,
                                                 const CGEN_INSN *,
                                                 CGEN_INSN_LIST **,
                                                 CGEN_INSN_LIST **,
                                                 unsigned int);
                                                 unsigned int);
 
 
/* Return the number of decodable bits in this insn.  */
/* Return the number of decodable bits in this insn.  */
static int
static int
count_decodable_bits (const CGEN_INSN *insn)
count_decodable_bits (const CGEN_INSN *insn)
{
{
  unsigned mask = CGEN_INSN_BASE_MASK (insn);
  unsigned mask = CGEN_INSN_BASE_MASK (insn);
  int bits = 0;
  int bits = 0;
  int m;
  int m;
  for (m = 1; m != 0; m <<= 1)
  for (m = 1; m != 0; m <<= 1)
    {
    {
      if (mask & m)
      if (mask & m)
        ++bits;
        ++bits;
    }
    }
  return bits;
  return bits;
}
}
 
 
/* Add an instruction to the hash chain.  */
/* Add an instruction to the hash chain.  */
static void
static void
add_insn_to_hash_chain (CGEN_INSN_LIST *hentbuf,
add_insn_to_hash_chain (CGEN_INSN_LIST *hentbuf,
                        const CGEN_INSN *insn,
                        const CGEN_INSN *insn,
                        CGEN_INSN_LIST **htable,
                        CGEN_INSN_LIST **htable,
                        unsigned int hash)
                        unsigned int hash)
{
{
  CGEN_INSN_LIST *current_buf;
  CGEN_INSN_LIST *current_buf;
  CGEN_INSN_LIST *previous_buf;
  CGEN_INSN_LIST *previous_buf;
  int insn_decodable_bits;
  int insn_decodable_bits;
 
 
  /* Add insns sorted by the number of decodable bits, in decreasing order.
  /* Add insns sorted by the number of decodable bits, in decreasing order.
     This ensures that any insn which is a special case of another will be
     This ensures that any insn which is a special case of another will be
     checked first.  */
     checked first.  */
  insn_decodable_bits = count_decodable_bits (insn);
  insn_decodable_bits = count_decodable_bits (insn);
  previous_buf = NULL;
  previous_buf = NULL;
  for (current_buf = htable[hash]; current_buf != NULL;
  for (current_buf = htable[hash]; current_buf != NULL;
       current_buf = current_buf->next)
       current_buf = current_buf->next)
    {
    {
      int current_decodable_bits = count_decodable_bits (current_buf->insn);
      int current_decodable_bits = count_decodable_bits (current_buf->insn);
      if (insn_decodable_bits >= current_decodable_bits)
      if (insn_decodable_bits >= current_decodable_bits)
        break;
        break;
      previous_buf = current_buf;
      previous_buf = current_buf;
    }
    }
 
 
  /* Now insert the new insn.  */
  /* Now insert the new insn.  */
  hentbuf->insn = insn;
  hentbuf->insn = insn;
  hentbuf->next = current_buf;
  hentbuf->next = current_buf;
  if (previous_buf == NULL)
  if (previous_buf == NULL)
    htable[hash] = hentbuf;
    htable[hash] = hentbuf;
  else
  else
    previous_buf->next = hentbuf;
    previous_buf->next = hentbuf;
}
}
 
 
/* Subroutine of build_dis_hash_table to add INSNS to the hash table.
/* Subroutine of build_dis_hash_table to add INSNS to the hash table.
 
 
   COUNT is the number of elements in INSNS.
   COUNT is the number of elements in INSNS.
   ENTSIZE is sizeof (CGEN_IBASE) for the target.
   ENTSIZE is sizeof (CGEN_IBASE) for the target.
   ??? No longer used but leave in for now.
   ??? No longer used but leave in for now.
   HTABLE points to the hash table.
   HTABLE points to the hash table.
   HENTBUF is a pointer to sufficiently large buffer of hash entries.
   HENTBUF is a pointer to sufficiently large buffer of hash entries.
   The result is a pointer to the next entry to use.
   The result is a pointer to the next entry to use.
 
 
   The table is scanned backwards as additions are made to the front of the
   The table is scanned backwards as additions are made to the front of the
   list and we want earlier ones to be prefered.  */
   list and we want earlier ones to be prefered.  */
 
 
static CGEN_INSN_LIST *
static CGEN_INSN_LIST *
hash_insn_array (CGEN_CPU_DESC cd,
hash_insn_array (CGEN_CPU_DESC cd,
                 const CGEN_INSN * insns,
                 const CGEN_INSN * insns,
                 int count,
                 int count,
                 int entsize ATTRIBUTE_UNUSED,
                 int entsize ATTRIBUTE_UNUSED,
                 CGEN_INSN_LIST ** htable,
                 CGEN_INSN_LIST ** htable,
                 CGEN_INSN_LIST * hentbuf)
                 CGEN_INSN_LIST * hentbuf)
{
{
  int big_p = CGEN_CPU_ENDIAN (cd) == CGEN_ENDIAN_BIG;
  int big_p = CGEN_CPU_ENDIAN (cd) == CGEN_ENDIAN_BIG;
  int i;
  int i;
 
 
  for (i = count - 1; i >= 0; --i, ++hentbuf)
  for (i = count - 1; i >= 0; --i, ++hentbuf)
    {
    {
      unsigned int hash;
      unsigned int hash;
      char buf [4];
      char buf [4];
      unsigned long value;
      unsigned long value;
      const CGEN_INSN *insn = &insns[i];
      const CGEN_INSN *insn = &insns[i];
 
 
      if (! (* cd->dis_hash_p) (insn))
      if (! (* cd->dis_hash_p) (insn))
        continue;
        continue;
 
 
      /* We don't know whether the target uses the buffer or the base insn
      /* We don't know whether the target uses the buffer or the base insn
         to hash on, so set both up.  */
         to hash on, so set both up.  */
 
 
      value = CGEN_INSN_BASE_VALUE (insn);
      value = CGEN_INSN_BASE_VALUE (insn);
      bfd_put_bits ((bfd_vma) value,
      bfd_put_bits ((bfd_vma) value,
                    buf,
                    buf,
                    CGEN_INSN_MASK_BITSIZE (insn),
                    CGEN_INSN_MASK_BITSIZE (insn),
                    big_p);
                    big_p);
      hash = (* cd->dis_hash) (buf, value);
      hash = (* cd->dis_hash) (buf, value);
      add_insn_to_hash_chain (hentbuf, insn, htable, hash);
      add_insn_to_hash_chain (hentbuf, insn, htable, hash);
    }
    }
 
 
  return hentbuf;
  return hentbuf;
}
}
 
 
/* Subroutine of build_dis_hash_table to add INSNS to the hash table.
/* Subroutine of build_dis_hash_table to add INSNS to the hash table.
   This function is identical to hash_insn_array except the insns are
   This function is identical to hash_insn_array except the insns are
   in a list.  */
   in a list.  */
 
 
static CGEN_INSN_LIST *
static CGEN_INSN_LIST *
hash_insn_list (CGEN_CPU_DESC cd,
hash_insn_list (CGEN_CPU_DESC cd,
                const CGEN_INSN_LIST *insns,
                const CGEN_INSN_LIST *insns,
                CGEN_INSN_LIST **htable,
                CGEN_INSN_LIST **htable,
                CGEN_INSN_LIST *hentbuf)
                CGEN_INSN_LIST *hentbuf)
{
{
  int big_p = CGEN_CPU_ENDIAN (cd) == CGEN_ENDIAN_BIG;
  int big_p = CGEN_CPU_ENDIAN (cd) == CGEN_ENDIAN_BIG;
  const CGEN_INSN_LIST *ilist;
  const CGEN_INSN_LIST *ilist;
 
 
  for (ilist = insns; ilist != NULL; ilist = ilist->next, ++ hentbuf)
  for (ilist = insns; ilist != NULL; ilist = ilist->next, ++ hentbuf)
    {
    {
      unsigned int hash;
      unsigned int hash;
      char buf[4];
      char buf[4];
      unsigned long value;
      unsigned long value;
 
 
      if (! (* cd->dis_hash_p) (ilist->insn))
      if (! (* cd->dis_hash_p) (ilist->insn))
        continue;
        continue;
 
 
      /* We don't know whether the target uses the buffer or the base insn
      /* We don't know whether the target uses the buffer or the base insn
         to hash on, so set both up.  */
         to hash on, so set both up.  */
 
 
      value = CGEN_INSN_BASE_VALUE (ilist->insn);
      value = CGEN_INSN_BASE_VALUE (ilist->insn);
      bfd_put_bits((bfd_vma) value,
      bfd_put_bits((bfd_vma) value,
                   buf,
                   buf,
                   CGEN_INSN_MASK_BITSIZE (ilist->insn),
                   CGEN_INSN_MASK_BITSIZE (ilist->insn),
                   big_p);
                   big_p);
      hash = (* cd->dis_hash) (buf, value);
      hash = (* cd->dis_hash) (buf, value);
      add_insn_to_hash_chain (hentbuf, ilist->insn, htable, hash);
      add_insn_to_hash_chain (hentbuf, ilist->insn, htable, hash);
    }
    }
 
 
  return hentbuf;
  return hentbuf;
}
}
 
 
/* Build the disassembler instruction hash table.  */
/* Build the disassembler instruction hash table.  */
 
 
static void
static void
build_dis_hash_table (CGEN_CPU_DESC cd)
build_dis_hash_table (CGEN_CPU_DESC cd)
{
{
  int count = cgen_insn_count (cd) + cgen_macro_insn_count (cd);
  int count = cgen_insn_count (cd) + cgen_macro_insn_count (cd);
  CGEN_INSN_TABLE *insn_table = & cd->insn_table;
  CGEN_INSN_TABLE *insn_table = & cd->insn_table;
  CGEN_INSN_TABLE *macro_insn_table = & cd->macro_insn_table;
  CGEN_INSN_TABLE *macro_insn_table = & cd->macro_insn_table;
  unsigned int hash_size = cd->dis_hash_size;
  unsigned int hash_size = cd->dis_hash_size;
  CGEN_INSN_LIST *hash_entry_buf;
  CGEN_INSN_LIST *hash_entry_buf;
  CGEN_INSN_LIST **dis_hash_table;
  CGEN_INSN_LIST **dis_hash_table;
  CGEN_INSN_LIST *dis_hash_table_entries;
  CGEN_INSN_LIST *dis_hash_table_entries;
 
 
  /* The space allocated for the hash table consists of two parts:
  /* The space allocated for the hash table consists of two parts:
     the hash table and the hash lists.  */
     the hash table and the hash lists.  */
 
 
  dis_hash_table = (CGEN_INSN_LIST **)
  dis_hash_table = (CGEN_INSN_LIST **)
    xmalloc (hash_size * sizeof (CGEN_INSN_LIST *));
    xmalloc (hash_size * sizeof (CGEN_INSN_LIST *));
  memset (dis_hash_table, 0, hash_size * sizeof (CGEN_INSN_LIST *));
  memset (dis_hash_table, 0, hash_size * sizeof (CGEN_INSN_LIST *));
  dis_hash_table_entries = hash_entry_buf = (CGEN_INSN_LIST *)
  dis_hash_table_entries = hash_entry_buf = (CGEN_INSN_LIST *)
    xmalloc (count * sizeof (CGEN_INSN_LIST));
    xmalloc (count * sizeof (CGEN_INSN_LIST));
 
 
  /* Add compiled in insns.
  /* Add compiled in insns.
     Don't include the first one as it is a reserved entry.  */
     Don't include the first one as it is a reserved entry.  */
  /* ??? It was the end of all hash chains, and also the special
  /* ??? It was the end of all hash chains, and also the special
     "invalid insn" marker.  May be able to do it differently now.  */
     "invalid insn" marker.  May be able to do it differently now.  */
 
 
  hash_entry_buf = hash_insn_array (cd,
  hash_entry_buf = hash_insn_array (cd,
                                    insn_table->init_entries + 1,
                                    insn_table->init_entries + 1,
                                    insn_table->num_init_entries - 1,
                                    insn_table->num_init_entries - 1,
                                    insn_table->entry_size,
                                    insn_table->entry_size,
                                    dis_hash_table, hash_entry_buf);
                                    dis_hash_table, hash_entry_buf);
 
 
  /* Add compiled in macro-insns.  */
  /* Add compiled in macro-insns.  */
 
 
  hash_entry_buf = hash_insn_array (cd, macro_insn_table->init_entries,
  hash_entry_buf = hash_insn_array (cd, macro_insn_table->init_entries,
                                    macro_insn_table->num_init_entries,
                                    macro_insn_table->num_init_entries,
                                    macro_insn_table->entry_size,
                                    macro_insn_table->entry_size,
                                    dis_hash_table, hash_entry_buf);
                                    dis_hash_table, hash_entry_buf);
 
 
  /* Add runtime added insns.
  /* Add runtime added insns.
     Later added insns will be prefered over earlier ones.  */
     Later added insns will be prefered over earlier ones.  */
 
 
  hash_entry_buf = hash_insn_list (cd, insn_table->new_entries,
  hash_entry_buf = hash_insn_list (cd, insn_table->new_entries,
                                   dis_hash_table, hash_entry_buf);
                                   dis_hash_table, hash_entry_buf);
 
 
  /* Add runtime added macro-insns.  */
  /* Add runtime added macro-insns.  */
 
 
  hash_insn_list (cd, macro_insn_table->new_entries,
  hash_insn_list (cd, macro_insn_table->new_entries,
                  dis_hash_table, hash_entry_buf);
                  dis_hash_table, hash_entry_buf);
 
 
  cd->dis_hash_table = dis_hash_table;
  cd->dis_hash_table = dis_hash_table;
  cd->dis_hash_table_entries = dis_hash_table_entries;
  cd->dis_hash_table_entries = dis_hash_table_entries;
}
}
 
 
/* Return the first entry in the hash list for INSN.  */
/* Return the first entry in the hash list for INSN.  */
 
 
CGEN_INSN_LIST *
CGEN_INSN_LIST *
cgen_dis_lookup_insn (CGEN_CPU_DESC cd, const char * buf, CGEN_INSN_INT value)
cgen_dis_lookup_insn (CGEN_CPU_DESC cd, const char * buf, CGEN_INSN_INT value)
{
{
  unsigned int hash;
  unsigned int hash;
 
 
  if (cd->dis_hash_table == NULL)
  if (cd->dis_hash_table == NULL)
    build_dis_hash_table (cd);
    build_dis_hash_table (cd);
 
 
  hash = (* cd->dis_hash) (buf, value);
  hash = (* cd->dis_hash) (buf, value);
 
 
  return cd->dis_hash_table[hash];
  return cd->dis_hash_table[hash];
}
}
 
 

powered by: WebSVN 2.1.0

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