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

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [bfd/] [dwarf2.c] - Diff between revs 163 and 166

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 163 Rev 166
Line 3115... Line 3115...
                                      filename_ptr, linenumber_ptr);
                                      filename_ptr, linenumber_ptr);
  return info_hash_lookup_varinfo (stash->varinfo_hash_table, sym, addr,
  return info_hash_lookup_varinfo (stash->varinfo_hash_table, sym, addr,
                                   filename_ptr, linenumber_ptr);
                                   filename_ptr, linenumber_ptr);
}
}
 
 
/* Find the source code location of SYMBOL.  If SYMBOL is NULL
/* Read debug information from DEBUG_BFD when DEBUG_BFD is specified.
   then find the nearest source code location corresponding to
   If DEBUG_BFD is not specified, we read debug information from ABFD
   the address SECTION + OFFSET.
   or its gnu_debuglink. The results will be stored in PINFO.
   Returns TRUE if the line is found without error and fills in
   The function returns TRUE iff debug information is ready.  */
   FILENAME_PTR and LINENUMBER_PTR.  In the case where SYMBOL was
 
   NULL the FUNCTIONNAME_PTR is also filled in.
 
   SYMBOLS contains the symbol table for ABFD.
 
   DEBUG_SECTIONS contains the name of the dwarf debug sections.
 
   ADDR_SIZE is the number of bytes in the initial .debug_info length
 
   field and in the abbreviation offset, or zero to indicate that the
 
   default value should be used.  */
 
 
 
static bfd_boolean
bfd_boolean
find_line (bfd *abfd,
_bfd_dwarf2_slurp_debug_info (bfd *abfd, bfd *debug_bfd,
           const struct dwarf_debug_section *debug_sections,
           const struct dwarf_debug_section *debug_sections,
           asection *section,
 
           bfd_vma offset,
 
           asymbol *symbol,
 
           asymbol **symbols,
           asymbol **symbols,
           const char **filename_ptr,
 
           const char **functionname_ptr,
 
           unsigned int *linenumber_ptr,
 
           unsigned int addr_size,
 
           void **pinfo)
           void **pinfo)
{
{
  /* Read each compilation unit from the section .debug_info, and check
 
     to see if it contains the address we are searching for.  If yes,
 
     lookup the address, and return the line number info.  If no, go
 
     on to the next compilation unit.
 
 
 
     We keep a list of all the previously read compilation units, and
 
     a pointer to the next un-read compilation unit.  Check the
 
     previously read units before reading more.  */
 
  struct dwarf2_debug *stash;
 
  /* What address are we looking for?  */
 
  bfd_vma addr;
 
  struct comp_unit* each;
 
  bfd_vma found = FALSE;
 
  bfd_boolean do_line;
 
 
 
  stash = (struct dwarf2_debug *) *pinfo;
 
 
 
  if (! stash)
 
    {
 
      bfd_size_type amt = sizeof (struct dwarf2_debug);
      bfd_size_type amt = sizeof (struct dwarf2_debug);
 
  bfd_size_type total_size;
 
  asection *msec;
 
  struct dwarf2_debug *stash = (struct dwarf2_debug *) *pinfo;
 
 
 
  if (stash != NULL)
 
    return TRUE;
 
 
      stash = (struct dwarf2_debug *) bfd_zalloc (abfd, amt);
      stash = (struct dwarf2_debug *) bfd_zalloc (abfd, amt);
      if (! stash)
      if (! stash)
        return FALSE;
        return FALSE;
      stash->debug_sections = debug_sections;
      stash->debug_sections = debug_sections;
    }
 
 
 
  /* In a relocatable file, 2 functions may have the same address.
 
     We change the section vma so that they won't overlap.  */
 
  if ((abfd->flags & (EXEC_P | DYNAMIC)) == 0)
 
    {
 
      if (! place_sections (abfd, stash))
 
        return FALSE;
 
    }
 
 
 
  do_line = (section == NULL
 
             && offset == 0
 
             && functionname_ptr == NULL
 
             && symbol != NULL);
 
  if (do_line)
 
    {
 
      addr = symbol->value;
 
      section = bfd_get_section (symbol);
 
    }
 
  else if (section != NULL
 
           && functionname_ptr != NULL
 
           && symbol == NULL)
 
    addr = offset;
 
  else
 
    abort ();
 
 
 
  if (section->output_section)
 
    addr += section->output_section->vma + section->output_offset;
 
  else
 
    addr += section->vma;
 
  *filename_ptr = NULL;
 
  if (! do_line)
 
    *functionname_ptr = NULL;
 
  *linenumber_ptr = 0;
 
 
 
  if (! *pinfo)
 
    {
 
      bfd *debug_bfd;
 
      bfd_size_type total_size;
 
      asection *msec;
 
 
 
      *pinfo = stash;
      *pinfo = stash;
 
 
      msec = find_debug_info (abfd, debug_sections, NULL);
  if (debug_bfd == NULL)
      if (msec == NULL)
    debug_bfd = abfd;
 
 
 
  msec = find_debug_info (debug_bfd, debug_sections, NULL);
 
  if (msec == NULL && abfd == debug_bfd)
        {
        {
          char * debug_filename = bfd_follow_gnu_debuglink (abfd, DEBUGDIR);
          char * debug_filename = bfd_follow_gnu_debuglink (abfd, DEBUGDIR);
 
 
          if (debug_filename == NULL)
          if (debug_filename == NULL)
            /* No dwarf2 info, and no gnu_debuglink to follow.
            /* No dwarf2 info, and no gnu_debuglink to follow.
               Note that at this point the stash has been allocated, but
               Note that at this point the stash has been allocated, but
               contains zeros.  This lets future calls to this function
               contains zeros.  This lets future calls to this function
               fail more quickly.  */
               fail more quickly.  */
            goto done;
        return FALSE;
 
 
          if ((debug_bfd = bfd_openr (debug_filename, NULL)) == NULL
          if ((debug_bfd = bfd_openr (debug_filename, NULL)) == NULL
              || ! bfd_check_format (debug_bfd, bfd_object)
              || ! bfd_check_format (debug_bfd, bfd_object)
              || (msec = find_debug_info (debug_bfd,
              || (msec = find_debug_info (debug_bfd,
                                          debug_sections, NULL)) == NULL)
                                          debug_sections, NULL)) == NULL)
            {
            {
              if (debug_bfd)
              if (debug_bfd)
                bfd_close (debug_bfd);
                bfd_close (debug_bfd);
              /* FIXME: Should we report our failure to follow the debuglink ?  */
              /* FIXME: Should we report our failure to follow the debuglink ?  */
              free (debug_filename);
              free (debug_filename);
              goto done;
          return FALSE;
            }
            }
        }
        }
      else
 
        debug_bfd = abfd;
 
 
 
      /* There can be more than one DWARF2 info section in a BFD these
      /* There can be more than one DWARF2 info section in a BFD these
         days.  First handle the easy case when there's only one.  If
         days.  First handle the easy case when there's only one.  If
         there's more than one, try case two: none of the sections is
         there's more than one, try case two: none of the sections is
         compressed.  In that case, read them all in and produce one
         compressed.  In that case, read them all in and produce one
Line 3253... Line 3187...
          /* Case 1: only one info section.  */
          /* Case 1: only one info section.  */
          total_size = msec->size;
          total_size = msec->size;
          if (! read_section (debug_bfd, &stash->debug_sections[debug_info],
          if (! read_section (debug_bfd, &stash->debug_sections[debug_info],
                              symbols, 0,
                              symbols, 0,
                              &stash->info_ptr_memory, &total_size))
                              &stash->info_ptr_memory, &total_size))
            goto done;
        return FALSE;
        }
        }
      else
      else
        {
        {
          /* Case 2: multiple sections.  */
          /* Case 2: multiple sections.  */
          for (total_size = 0;
          for (total_size = 0;
Line 3265... Line 3199...
               msec = find_debug_info (debug_bfd, debug_sections, msec))
               msec = find_debug_info (debug_bfd, debug_sections, msec))
            total_size += msec->size;
            total_size += msec->size;
 
 
          stash->info_ptr_memory = (bfd_byte *) bfd_malloc (total_size);
          stash->info_ptr_memory = (bfd_byte *) bfd_malloc (total_size);
          if (stash->info_ptr_memory == NULL)
          if (stash->info_ptr_memory == NULL)
            goto done;
        return FALSE;
 
 
          total_size = 0;
          total_size = 0;
          for (msec = find_debug_info (debug_bfd, debug_sections, NULL);
          for (msec = find_debug_info (debug_bfd, debug_sections, NULL);
               msec;
               msec;
               msec = find_debug_info (debug_bfd, debug_sections, msec))
               msec = find_debug_info (debug_bfd, debug_sections, msec))
Line 3281... Line 3215...
                continue;
                continue;
 
 
              if (!(bfd_simple_get_relocated_section_contents
              if (!(bfd_simple_get_relocated_section_contents
                    (debug_bfd, msec, stash->info_ptr_memory + total_size,
                    (debug_bfd, msec, stash->info_ptr_memory + total_size,
                     symbols)))
                     symbols)))
                goto done;
            return FALSE;
 
 
              total_size += size;
              total_size += size;
            }
            }
        }
        }
 
 
Line 3293... Line 3227...
      stash->info_ptr_end = stash->info_ptr + total_size;
      stash->info_ptr_end = stash->info_ptr + total_size;
      stash->sec = find_debug_info (debug_bfd, debug_sections, NULL);
      stash->sec = find_debug_info (debug_bfd, debug_sections, NULL);
      stash->sec_info_ptr = stash->info_ptr;
      stash->sec_info_ptr = stash->info_ptr;
      stash->syms = symbols;
      stash->syms = symbols;
      stash->bfd_ptr = debug_bfd;
      stash->bfd_ptr = debug_bfd;
 
 
 
  return TRUE;
 
}
 
 
 
/* Find the source code location of SYMBOL.  If SYMBOL is NULL
 
   then find the nearest source code location corresponding to
 
   the address SECTION + OFFSET.
 
   Returns TRUE if the line is found without error and fills in
 
   FILENAME_PTR and LINENUMBER_PTR.  In the case where SYMBOL was
 
   NULL the FUNCTIONNAME_PTR is also filled in.
 
   SYMBOLS contains the symbol table for ABFD.
 
   DEBUG_SECTIONS contains the name of the dwarf debug sections.
 
   ADDR_SIZE is the number of bytes in the initial .debug_info length
 
   field and in the abbreviation offset, or zero to indicate that the
 
   default value should be used.  */
 
 
 
static bfd_boolean
 
find_line (bfd *abfd,
 
           const struct dwarf_debug_section *debug_sections,
 
           asection *section,
 
           bfd_vma offset,
 
           asymbol *symbol,
 
           asymbol **symbols,
 
           const char **filename_ptr,
 
           const char **functionname_ptr,
 
           unsigned int *linenumber_ptr,
 
           unsigned int addr_size,
 
           void **pinfo)
 
{
 
  /* Read each compilation unit from the section .debug_info, and check
 
     to see if it contains the address we are searching for.  If yes,
 
     lookup the address, and return the line number info.  If no, go
 
     on to the next compilation unit.
 
 
 
     We keep a list of all the previously read compilation units, and
 
     a pointer to the next un-read compilation unit.  Check the
 
     previously read units before reading more.  */
 
  struct dwarf2_debug *stash;
 
  /* What address are we looking for?  */
 
  bfd_vma addr;
 
  struct comp_unit* each;
 
  bfd_vma found = FALSE;
 
  bfd_boolean do_line;
 
 
 
  *filename_ptr = NULL;
 
  if (functionname_ptr != NULL)
 
    *functionname_ptr = NULL;
 
  *linenumber_ptr = 0;
 
 
 
  if (! _bfd_dwarf2_slurp_debug_info (abfd, NULL,
 
                                      debug_sections, symbols, pinfo))
 
    return FALSE;
 
 
 
  stash = (struct dwarf2_debug *) *pinfo;
 
 
 
  /* In a relocatable file, 2 functions may have the same address.
 
     We change the section vma so that they won't overlap.  */
 
  if ((abfd->flags & (EXEC_P | DYNAMIC)) == 0)
 
    {
 
      if (! place_sections (abfd, stash))
 
        return FALSE;
    }
    }
 
 
 
  do_line = (section == NULL
 
             && offset == 0
 
             && functionname_ptr == NULL
 
             && symbol != NULL);
 
  if (do_line)
 
    {
 
      addr = symbol->value;
 
      section = bfd_get_section (symbol);
 
    }
 
  else if (section != NULL
 
           && functionname_ptr != NULL
 
           && symbol == NULL)
 
    addr = offset;
 
  else
 
    abort ();
 
 
 
  if (section->output_section)
 
    addr += section->output_section->vma + section->output_offset;
 
  else
 
    addr += section->vma;
 
 
  /* A null info_ptr indicates that there is no dwarf2 info
  /* A null info_ptr indicates that there is no dwarf2 info
     (or that an error occured while setting up the stash).  */
     (or that an error occured while setting up the stash).  */
  if (! stash->info_ptr)
  if (! stash->info_ptr)
    goto done;
    return FALSE;
 
 
  stash->inliner_chain = NULL;
  stash->inliner_chain = NULL;
 
 
  /* Check the previously read comp. units first.  */
  /* Check the previously read comp. units first.  */
  if (do_line)
  if (do_line)
Line 3525... Line 3541...
 
 
  return FALSE;
  return FALSE;
}
}
 
 
void
void
_bfd_dwarf2_cleanup_debug_info (bfd *abfd)
_bfd_dwarf2_cleanup_debug_info (bfd *abfd, void **pinfo)
{
{
 
  struct dwarf2_debug *stash = (struct dwarf2_debug *) *pinfo;;
  struct comp_unit *each;
  struct comp_unit *each;
  struct dwarf2_debug *stash;
 
 
 
  if (abfd == NULL || elf_tdata (abfd) == NULL)
 
    return;
 
 
 
  stash = (struct dwarf2_debug *) elf_tdata (abfd)->dwarf2_find_line_info;
 
 
 
  if (stash == NULL)
  if (abfd == NULL || stash == NULL)
    return;
    return;
 
 
  for (each = stash->all_comp_units; each; each = each->next_unit)
  for (each = stash->all_comp_units; each; each = each->next_unit)
    {
    {
      struct abbrev_info **abbrevs = each->abbrevs;
      struct abbrev_info **abbrevs = each->abbrevs;

powered by: WebSVN 2.1.0

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