Add MIPS r3 and r5 support.

[deliverable/binutils-gdb.git] / bfd / dwarf1.c

diff --git a/bfd/dwarf1.c b/bfd/dwarf1.c
index b96adc5b4525008851765a95c6f3f57ab0d063f5..7a5382d0893cb8bceefeb30244ba6849835b891b 100644 (file)
--- a/bfd/dwarf1.c
+++ b/bfd/dwarf1.c
@@ -1,26 +1,27 @@
 /* DWARF 1 find nearest line (_bfd_dwarf1_find_nearest_line).
 /* DWARF 1 find nearest line (_bfd_dwarf1_find_nearest_line).

-   Copyright 1998, 1999, 2000 Free Software Foundation, Inc.
+   Copyright (C) 1998-2014 Free Software Foundation, Inc.

 
 

-Written by Gavin Romig-Koch of Cygnus Solutions (gavin@cygnus.com).
+   Written by Gavin Romig-Koch of Cygnus Solutions (gavin@cygnus.com).

 
 

-This file is part of BFD.
+   This file is part of BFD.

 
 

-This program 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 2 of the License, or (at
-your option) any later version.
+   This program 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 of the License, or (at
+   your option) any later version.

 
 

-This program 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.
+   This program 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+   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.  */

 
 

-#include "bfd.h"

 #include "sysdep.h"
 #include "sysdep.h"

+#include "bfd.h"

 #include "libiberty.h"
 #include "libbfd.h"
 #include "elf-bfd.h"
 #include "libiberty.h"
 #include "libbfd.h"
 #include "elf-bfd.h"


@@ -28,54 +29,58 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 /* dwarf1_debug is the starting point for all dwarf1 info.  */
 
 
 /* dwarf1_debug is the starting point for all dwarf1 info.  */
 

-struct dwarf1_debug {
-
+struct dwarf1_debug
+{

   /* The bfd we are working with.  */
   bfd* abfd;
 
   /* The bfd we are working with.  */
   bfd* abfd;
 

+  /* Pointer to the symbol table.  */
+  asymbol** syms;
+

   /* List of already parsed compilation units.  */
   struct dwarf1_unit* lastUnit;
 
   /* The buffer for the .debug section.
      Zero indicates that the .debug section failed to load.  */
   /* List of already parsed compilation units.  */
   struct dwarf1_unit* lastUnit;
 
   /* The buffer for the .debug section.
      Zero indicates that the .debug section failed to load.  */

-  char* debug_section;
+  bfd_byte *debug_section;

 
   /* Pointer to the end of the .debug_info section memory buffer.  */
 
   /* Pointer to the end of the .debug_info section memory buffer.  */

-  char* debug_section_end;
+  bfd_byte *debug_section_end;

 
   /* The buffer for the .line section.  */
 
   /* The buffer for the .line section.  */

-  char* line_section;
+  bfd_byte *line_section;

 
   /* End of that buffer.  */
 
   /* End of that buffer.  */

-  char* line_section_end;
+  bfd_byte *line_section_end;

 
   /* The current or next unread die within the .debug section.  */
 
   /* The current or next unread die within the .debug section.  */

-  char* currentDie;
+  bfd_byte *currentDie;

 };
 
 /* One dwarf1_unit for each parsed compilation unit die.  */
 
 };
 
 /* One dwarf1_unit for each parsed compilation unit die.  */
 

-struct dwarf1_unit {
+struct dwarf1_unit
+{

   /* Linked starting from stash->lastUnit.  */
   struct dwarf1_unit* prev;
 
   /* Name of the compilation unit.  */
   /* Linked starting from stash->lastUnit.  */
   struct dwarf1_unit* prev;
 
   /* Name of the compilation unit.  */

-  char* name;
+  char *name;

 
   /* The highest and lowest address used in the compilation unit.  */
   unsigned long low_pc;
   unsigned long high_pc;
 
 
   /* The highest and lowest address used in the compilation unit.  */
   unsigned long low_pc;
   unsigned long high_pc;
 

-  /* Does this unit have a statement list? */
+  /* Does this unit have a statement list?  */

   int has_stmt_list;
 
   /* If any, the offset of the line number table in the .line section.  */
   unsigned long stmt_list_offset;
 
   /* If non-zero, a pointer to the first child of this unit.  */
   int has_stmt_list;
 
   /* If any, the offset of the line number table in the .line section.  */
   unsigned long stmt_list_offset;
 
   /* If non-zero, a pointer to the first child of this unit.  */

-  char* first_child;
+  bfd_byte *first_child;

 
 

-  /* How many line entries? */
+  /* How many line entries?  */

   unsigned long line_count;
 
   /* The decoded line number table (line_count entries).  */
   unsigned long line_count;
 
   /* The decoded line number table (line_count entries).  */


@@ -87,7 +92,8 @@ struct dwarf1_unit {
 
 /* One dwarf1_func for each parsed function die.  */
 
 
 /* One dwarf1_func for each parsed function die.  */
 

-struct dwarf1_func {
+struct dwarf1_func
+{

   /* Linked starting from aUnit->func_list.  */
   struct dwarf1_func* prev;
 
   /* Linked starting from aUnit->func_list.  */
   struct dwarf1_func* prev;
 


@@ -100,7 +106,8 @@ struct dwarf1_func {
 };
 
 /* Used to return info about a parsed die.  */
 };
 
 /* Used to return info about a parsed die.  */

-struct die_info {
+struct die_info
+{

   unsigned long length;
   unsigned long sibling;
   unsigned long low_pc;
   unsigned long length;
   unsigned long sibling;
   unsigned long low_pc;


@@ -115,7 +122,8 @@ struct die_info {
 };
 
 /* Parsed line number information.  */
 };
 
 /* Parsed line number information.  */

-struct linenumber {
+struct linenumber
+{

   /* First address in the line.  */
   unsigned long addr;
 
   /* First address in the line.  */
   unsigned long addr;
 


@@ -124,20 +132,22 @@ struct linenumber {
 };
 
 /* Find the form of an attr, from the attr field.  */
 };
 
 /* Find the form of an attr, from the attr field.  */

-#define FORM_FROM_ATTR(attr)   ((attr) & 0xF)  /* Implicitly specified */
+#define FORM_FROM_ATTR(attr)   ((attr) & 0xF)  /* Implicitly specified.  */

 
 /* Return a newly allocated dwarf1_unit.  It should be cleared and
    then attached into the 'stash' at 'stash->lastUnit'.  */
 
 static struct dwarf1_unit*
 
 /* Return a newly allocated dwarf1_unit.  It should be cleared and
    then attached into the 'stash' at 'stash->lastUnit'.  */
 
 static struct dwarf1_unit*

-alloc_dwarf1_unit (stash)
-  struct dwarf1_debug* stash;
+alloc_dwarf1_unit (struct dwarf1_debug* stash)

 {
 {

-  struct dwarf1_unit* x =
-    (struct dwarf1_unit*) bfd_zalloc (stash->abfd,
-                                     sizeof (struct dwarf1_unit));
-  x->prev = stash->lastUnit;
-  stash->lastUnit = x;
+  bfd_size_type amt = sizeof (struct dwarf1_unit);
+
+  struct dwarf1_unit* x = (struct dwarf1_unit *) bfd_zalloc (stash->abfd, amt);
+  if (x)
+    {
+      x->prev = stash->lastUnit;
+      stash->lastUnit = x;
+    }

 
   return x;
 }
 
   return x;
 }


@@ -145,16 +155,17 @@ alloc_dwarf1_unit (stash)
 /* Return a newly allocated dwarf1_func.  It must be cleared and
    attached into 'aUnit' at 'aUnit->func_list'.  */
 
 /* Return a newly allocated dwarf1_func.  It must be cleared and
    attached into 'aUnit' at 'aUnit->func_list'.  */
 

-static struct dwarf1_func*
-alloc_dwarf1_func (stash, aUnit)
-     struct dwarf1_debug* stash;
-     struct dwarf1_unit* aUnit;
+static struct dwarf1_func *
+alloc_dwarf1_func (struct dwarf1_debug* stash, struct dwarf1_unit* aUnit)

 {
 {

-  struct dwarf1_func* x =
-    (struct dwarf1_func*) bfd_zalloc (stash->abfd,
-                                     sizeof (struct dwarf1_func));
-  x->prev = aUnit->func_list;
-  aUnit->func_list = x;
+  bfd_size_type amt = sizeof (struct dwarf1_func);
+
+  struct dwarf1_func* x = (struct dwarf1_func *) bfd_zalloc (stash->abfd, amt);
+  if (x)
+    {
+      x->prev = aUnit->func_list;
+      aUnit->func_list = x;
+    }

 
   return x;
 }
 
   return x;
 }


@@ -164,29 +175,30 @@ alloc_dwarf1_func (stash, aUnit)
    'abfd' must be the bfd from which the section that 'aDiePtr'
    points to was pulled from.
 
    'abfd' must be the bfd from which the section that 'aDiePtr'
    points to was pulled from.
 

-   Return false if the die is invalidly formatted; true otherwise.  */
+   Return FALSE if the die is invalidly formatted; TRUE otherwise.  */

 
 

-static boolean
-parse_die (abfd, aDieInfo, aDiePtr)
-     bfd* abfd;
-     struct die_info* aDieInfo;
-     char*            aDiePtr;
+static bfd_boolean
+parse_die (bfd *             abfd,
+          struct die_info * aDieInfo,
+          bfd_byte *        aDiePtr,
+          bfd_byte *        aDiePtrEnd)

 {
 {

-  char* this_die = aDiePtr;
-  char* xptr = this_die;
+  bfd_byte *this_die = aDiePtr;
+  bfd_byte *xptr = this_die;

 
 

-  memset (aDieInfo,0,sizeof (*aDieInfo));
+  memset (aDieInfo, 0, sizeof (* aDieInfo));

 
   /* First comes the length.  */
   aDieInfo->length = bfd_get_32 (abfd, (bfd_byte *) xptr);
   xptr += 4;
 
   /* First comes the length.  */
   aDieInfo->length = bfd_get_32 (abfd, (bfd_byte *) xptr);
   xptr += 4;

-  if (aDieInfo->length == 0)
-    return false;
+  if (aDieInfo->length == 0
+      || (this_die + aDieInfo->length) >= aDiePtrEnd)
+    return FALSE;

   if (aDieInfo->length < 6)
     {
       /* Just padding bytes.  */
       aDieInfo->tag = TAG_padding;
   if (aDieInfo->length < 6)
     {
       /* Just padding bytes.  */
       aDieInfo->tag = TAG_padding;

-      return true;
+      return TRUE;

     }
 
   /* Then the tag.  */
     }
 
   /* Then the tag.  */


@@ -201,7 +213,6 @@ parse_die (abfd, aDieInfo, aDiePtr)
       /* Parse the attribute based on its form.  This section
          must handle all dwarf1 forms, but need only handle the
         actual attributes that we care about.  */
       /* Parse the attribute based on its form.  This section
          must handle all dwarf1 forms, but need only handle the
         actual attributes that we care about.  */

-

       attr = bfd_get_16 (abfd, (bfd_byte *) xptr);
       xptr += 2;
 
       attr = bfd_get_16 (abfd, (bfd_byte *) xptr);
       xptr += 2;
 


@@ -239,47 +250,41 @@ parse_die (abfd, aDieInfo, aDiePtr)
          break;
        case FORM_STRING:
          if (attr == AT_name)
          break;
        case FORM_STRING:
          if (attr == AT_name)

-           aDieInfo->name = xptr;
-         xptr += strlen (xptr) + 1;
+           aDieInfo->name = (char *) xptr;
+         xptr += strlen ((char *) xptr) + 1;

          break;
        }
     }
 
          break;
        }
     }
 

-  return true;
+  return TRUE;

 }
 
 /* Parse a dwarf1 line number table for 'aUnit->stmt_list_offset'
 }
 
 /* Parse a dwarf1 line number table for 'aUnit->stmt_list_offset'

-   into 'aUnit->linenumber_table'.  Return false if an error
-   occurs; true otherwise.  */
+   into 'aUnit->linenumber_table'.  Return FALSE if an error
+   occurs; TRUE otherwise.  */

 
 

-static boolean
-parse_line_table (stash, aUnit)
-  struct dwarf1_debug* stash;
-  struct dwarf1_unit* aUnit;
+static bfd_boolean
+parse_line_table (struct dwarf1_debug* stash, struct dwarf1_unit* aUnit)

 {
 {

-  char* xptr;
+  bfd_byte *xptr;

 
   /* Load the ".line" section from the bfd if we haven't already.  */
   if (stash->line_section == 0)
     {
       asection *msec;
 
   /* Load the ".line" section from the bfd if we haven't already.  */
   if (stash->line_section == 0)
     {
       asection *msec;

-      unsigned long size;
+      bfd_size_type size;

 
       msec = bfd_get_section_by_name (stash->abfd, ".line");
       if (! msec)
 
       msec = bfd_get_section_by_name (stash->abfd, ".line");
       if (! msec)

-       return false;
+       return FALSE;

 
 

-      size = bfd_get_section_size_before_reloc (msec);
-      stash->line_section = (char *) bfd_alloc (stash->abfd, size);
+      size = msec->rawsize ? msec->rawsize : msec->size;
+      stash->line_section
+       = bfd_simple_get_relocated_section_contents
+       (stash->abfd, msec, NULL, stash->syms);

 
       if (! stash->line_section)
 
       if (! stash->line_section)

-       return false;
-
-      if (! bfd_get_section_contents (stash->abfd, msec, stash->line_section, 0, size))
-       {
-         stash->line_section = 0;
-         return false;
-       }
+       return FALSE;

 
       stash->line_section_end = stash->line_section + size;
     }
 
       stash->line_section_end = stash->line_section + size;
     }


@@ -288,9 +293,9 @@ parse_line_table (stash, aUnit)
   if (xptr < stash->line_section_end)
     {
       unsigned long eachLine;
   if (xptr < stash->line_section_end)
     {
       unsigned long eachLine;

-
-      char* tblend;
+      bfd_byte *tblend;

       unsigned long base;
       unsigned long base;

+      bfd_size_type amt;

 
       /* First comes the length.  */
       tblend = bfd_get_32 (stash->abfd, (bfd_byte *) xptr) + xptr;
 
       /* First comes the length.  */
       tblend = bfd_get_32 (stash->abfd, (bfd_byte *) xptr) + xptr;


@@ -301,13 +306,15 @@ parse_line_table (stash, aUnit)
       xptr += 4;
 
       /* How many line entrys?
       xptr += 4;
 
       /* How many line entrys?

-        10 = 4 (line number) + 2 (pos in line) + 4 (address in line) */
+        10 = 4 (line number) + 2 (pos in line) + 4 (address in line).  */

       aUnit->line_count = (tblend - xptr) / 10;
 
       /* Allocate an array for the entries.  */
       aUnit->line_count = (tblend - xptr) / 10;
 
       /* Allocate an array for the entries.  */

-      aUnit->linenumber_table = (struct linenumber *)
-       bfd_alloc (stash->abfd,
-                  sizeof (struct linenumber) * aUnit->line_count);
+      amt = sizeof (struct linenumber) * aUnit->line_count;
+      aUnit->linenumber_table = (struct linenumber *) bfd_alloc (stash->abfd,
+                                                                 amt);
+      if (!aUnit->linenumber_table)
+       return FALSE;

 
       for (eachLine = 0; eachLine < aUnit->line_count; eachLine++)
        {
 
       for (eachLine = 0; eachLine < aUnit->line_count; eachLine++)
        {


@@ -326,30 +333,29 @@ parse_line_table (stash, aUnit)
        }
     }
 
        }
     }
 

-  return true;
+  return TRUE;

 }
 
 /* Parse each function die in a compilation unit 'aUnit'.
    The first child die of 'aUnit' should be in 'aUnit->first_child',
    the result is placed in 'aUnit->func_list'.
 }
 
 /* Parse each function die in a compilation unit 'aUnit'.
    The first child die of 'aUnit' should be in 'aUnit->first_child',
    the result is placed in 'aUnit->func_list'.

-   Return false if error; true otherwise.  */
+   Return FALSE if error; TRUE otherwise.  */

 
 

-static boolean
-parse_functions_in_unit (stash, aUnit)
-     struct dwarf1_debug* stash;
-     struct dwarf1_unit* aUnit;
+static bfd_boolean
+parse_functions_in_unit (struct dwarf1_debug* stash, struct dwarf1_unit* aUnit)

 {
 {

-  char* eachDie;
+  bfd_byte *eachDie;

 
   if (aUnit->first_child)
     for (eachDie = aUnit->first_child;
 
   if (aUnit->first_child)
     for (eachDie = aUnit->first_child;

-        eachDie < stash->debug_section_end;
+        eachDie < stash->debug_section_end;

         )
       {
        struct die_info eachDieInfo;
 
         )
       {
        struct die_info eachDieInfo;
 

-       if (! parse_die (stash->abfd, &eachDieInfo, eachDie))
-         return false;
+       if (! parse_die (stash->abfd, &eachDieInfo, eachDie,
+                        stash->debug_section_end))
+         return FALSE;

 
        if (eachDieInfo.tag == TAG_global_subroutine
            || eachDieInfo.tag == TAG_subroutine
 
        if (eachDieInfo.tag == TAG_global_subroutine
            || eachDieInfo.tag == TAG_subroutine


@@ -357,6 +363,8 @@ parse_functions_in_unit (stash, aUnit)
            || eachDieInfo.tag == TAG_entry_point)
          {
            struct dwarf1_func* aFunc = alloc_dwarf1_func (stash,aUnit);
            || eachDieInfo.tag == TAG_entry_point)
          {
            struct dwarf1_func* aFunc = alloc_dwarf1_func (stash,aUnit);

+           if (!aFunc)
+             return FALSE;

 
            aFunc->name = eachDieInfo.name;
            aFunc->low_pc = eachDieInfo.low_pc;
 
            aFunc->name = eachDieInfo.name;
            aFunc->low_pc = eachDieInfo.low_pc;


@@ -370,25 +378,22 @@ parse_functions_in_unit (stash, aUnit)
          break;
       }
 
          break;
       }
 

-  return true;
+  return TRUE;

 }
 
 /* Find the nearest line to 'addr' in 'aUnit'.
    Return whether we found the line (or a function) without error.  */
 
 }
 
 /* Find the nearest line to 'addr' in 'aUnit'.
    Return whether we found the line (or a function) without error.  */
 

-static boolean
-dwarf1_unit_find_nearest_line (stash, aUnit, addr,
-                      filename_ptr, functionname_ptr,
-                      linenumber_ptr)
-  struct dwarf1_debug* stash;
-  struct dwarf1_unit* aUnit;
-  unsigned long addr;
-  const char **filename_ptr;
-  const char **functionname_ptr;
-  unsigned int *linenumber_ptr;
+static bfd_boolean
+dwarf1_unit_find_nearest_line (struct dwarf1_debug* stash,
+                              struct dwarf1_unit* aUnit,
+                              unsigned long addr,
+                              const char **filename_ptr,
+                              const char **functionname_ptr,
+                              unsigned int *linenumber_ptr)

 {
 {

-  int line_p = false;
-  int func_p = false;
+  int line_p = FALSE;
+  int func_p = FALSE;

 
   if (aUnit->low_pc <= addr && addr < aUnit->high_pc)
     {
 
   if (aUnit->low_pc <= addr && addr < aUnit->high_pc)
     {


@@ -400,13 +405,13 @@ dwarf1_unit_find_nearest_line (stash, aUnit, addr,
          if (! aUnit->linenumber_table)
            {
              if (! parse_line_table (stash, aUnit))
          if (! aUnit->linenumber_table)
            {
              if (! parse_line_table (stash, aUnit))

-               return false;
+               return FALSE;

            }
 
          if (! aUnit->func_list)
            {
              if (! parse_functions_in_unit (stash, aUnit))
            }
 
          if (! aUnit->func_list)
            {
              if (! parse_functions_in_unit (stash, aUnit))

-               return false;
+               return FALSE;

            }
 
          for (i = 0; i < aUnit->line_count; i++)
            }
 
          for (i = 0; i < aUnit->line_count; i++)


@@ -416,7 +421,7 @@ dwarf1_unit_find_nearest_line (stash, aUnit, addr,
                {
                  *filename_ptr = aUnit->name;
                  *linenumber_ptr = aUnit->linenumber_table[i].linenumber;
                {
                  *filename_ptr = aUnit->name;
                  *linenumber_ptr = aUnit->linenumber_table[i].linenumber;

-                 line_p = true;
+                 line_p = TRUE;

                  break;
                }
            }
                  break;
                }
            }


@@ -429,7 +434,7 @@ dwarf1_unit_find_nearest_line (stash, aUnit, addr,
                  && addr < eachFunc->high_pc)
                {
                  *functionname_ptr = eachFunc->name;
                  && addr < eachFunc->high_pc)
                {
                  *functionname_ptr = eachFunc->name;

-                 func_p = true;
+                 func_p = TRUE;

                  break;
                }
            }
                  break;
                }
            }


@@ -440,25 +445,23 @@ dwarf1_unit_find_nearest_line (stash, aUnit, addr,
 }
 
 /* The DWARF 1 version of find_nearest line.
 }
 
 /* The DWARF 1 version of find_nearest line.

-   Return true if the line is found without error.  */
-
-boolean
-_bfd_dwarf1_find_nearest_line (abfd, section, symbols, offset,
-                              filename_ptr, functionname_ptr, linenumber_ptr)
-     bfd *abfd;
-     asection *section;
-     asymbol **symbols ATTRIBUTE_UNUSED;
-     bfd_vma offset;
-     const char **filename_ptr;
-     const char **functionname_ptr;
-     unsigned int *linenumber_ptr;
+   Return TRUE if the line is found without error.  */
+
+bfd_boolean
+_bfd_dwarf1_find_nearest_line (bfd *abfd,
+                              asection *section,
+                              asymbol **symbols,
+                              bfd_vma offset,
+                              const char **filename_ptr,
+                              const char **functionname_ptr,
+                              unsigned int *linenumber_ptr)

 {
   struct dwarf1_debug *stash = elf_tdata (abfd)->dwarf1_find_line_info;
 
   struct dwarf1_unit* eachUnit;
 
   /* What address are we looking for? */
 {
   struct dwarf1_debug *stash = elf_tdata (abfd)->dwarf1_find_line_info;
 
   struct dwarf1_unit* eachUnit;
 
   /* What address are we looking for? */

-  bfd_vma addr = offset + section->vma;
+  unsigned long addr = (unsigned long)(offset + section->vma);

 
   *filename_ptr = NULL;
   *functionname_ptr = NULL;
 
   *filename_ptr = NULL;
   *functionname_ptr = NULL;


@@ -467,68 +470,64 @@ _bfd_dwarf1_find_nearest_line (abfd, section, symbols, offset,
   if (! stash)
     {
       asection *msec;
   if (! stash)
     {
       asection *msec;

-      unsigned long size;
+      bfd_size_type size = sizeof (struct dwarf1_debug);

 
 

-      stash = elf_tdata (abfd)->dwarf1_find_line_info =
-       (struct dwarf1_debug*) bfd_zalloc (abfd, sizeof (struct dwarf1_debug));
+      stash = elf_tdata (abfd)->dwarf1_find_line_info
+       = (struct dwarf1_debug *) bfd_zalloc (abfd, size);

 
       if (! stash)
 
       if (! stash)

-       return false;
+       return FALSE;

 
       msec = bfd_get_section_by_name (abfd, ".debug");
       if (! msec)
 
       msec = bfd_get_section_by_name (abfd, ".debug");
       if (! msec)

-       {
-         /* No dwarf1 info.  Note that at this point the stash
-            has been allocated, but contains zeros, this lets
-            future calls to this function fail quicker.  */
-         return false;
-       }
+       /* No dwarf1 info.  Note that at this point the stash
+          has been allocated, but contains zeros, this lets
+          future calls to this function fail quicker.  */
+       return FALSE;

 
 

-      size = bfd_get_section_size_before_reloc (msec);
-      stash->debug_section = (char *) bfd_alloc (abfd, size);
+      size = msec->rawsize ? msec->rawsize : msec->size;
+      stash->debug_section
+       = bfd_simple_get_relocated_section_contents (abfd, msec, NULL,
+                                                    symbols);

 
       if (! stash->debug_section)
 
       if (! stash->debug_section)

-       return false;
-
-      if (! bfd_get_section_contents (abfd, msec, stash->debug_section, 0, size))
-       {
-         stash->debug_section = 0;
-         return false;
-       }
+       return FALSE;

 
       stash->debug_section_end = stash->debug_section + size;
       stash->currentDie = stash->debug_section;
       stash->abfd = abfd;
 
       stash->debug_section_end = stash->debug_section + size;
       stash->currentDie = stash->debug_section;
       stash->abfd = abfd;

+      stash->syms = symbols;

     }
 
   /* A null debug_section indicates that there was no dwarf1 info
      or that an error occured while setting up the stash.  */
 
   if (! stash->debug_section)
     }
 
   /* A null debug_section indicates that there was no dwarf1 info
      or that an error occured while setting up the stash.  */
 
   if (! stash->debug_section)

-    return false;
+    return FALSE;

 
   /* Look at the previously parsed units to see if any contain
      the addr.  */
   for (eachUnit = stash->lastUnit; eachUnit; eachUnit = eachUnit->prev)
 
   /* Look at the previously parsed units to see if any contain
      the addr.  */
   for (eachUnit = stash->lastUnit; eachUnit; eachUnit = eachUnit->prev)

-    {
-      if (eachUnit->low_pc <= addr && addr < eachUnit->high_pc)
-       return dwarf1_unit_find_nearest_line (stash, eachUnit, addr,
-                                             filename_ptr,
-                                             functionname_ptr,
-                                             linenumber_ptr);
-    }
+    if (eachUnit->low_pc <= addr && addr < eachUnit->high_pc)
+      return dwarf1_unit_find_nearest_line (stash, eachUnit, addr,
+                                           filename_ptr,
+                                           functionname_ptr,
+                                           linenumber_ptr);

 
   while (stash->currentDie < stash->debug_section_end)
     {
       struct die_info aDieInfo;
 
 
   while (stash->currentDie < stash->debug_section_end)
     {
       struct die_info aDieInfo;
 

-      if (! parse_die (stash->abfd, &aDieInfo, stash->currentDie))
-       return false;
+      if (! parse_die (stash->abfd, &aDieInfo, stash->currentDie,
+                      stash->debug_section_end))
+       return FALSE;

 
       if (aDieInfo.tag == TAG_compile_unit)
        {
          struct dwarf1_unit* aUnit
            = alloc_dwarf1_unit (stash);
 
       if (aDieInfo.tag == TAG_compile_unit)
        {
          struct dwarf1_unit* aUnit
            = alloc_dwarf1_unit (stash);

+         if (!aUnit)
+           return FALSE;

 
          aUnit->name = aDieInfo.name;
          aUnit->low_pc = aDieInfo.low_pc;
 
          aUnit->name = aDieInfo.name;
          aUnit->low_pc = aDieInfo.low_pc;


@@ -560,7 +559,5 @@ _bfd_dwarf1_find_nearest_line (abfd, section, symbols, offset,
        stash->currentDie += aDieInfo.length;
     }
 
        stash->currentDie += aDieInfo.length;
     }
 

-  return false;
+  return FALSE;

 }
 }

-
-/* EOF */