Patch from David Mosberger.
[deliverable/binutils-gdb.git] / bfd / syms.c
index b25306e448d30c89767b8d6d05d797e48926f0d7..d95589bec03ca311407ca31822393fa16d0d6cc9 100644 (file)
@@ -285,6 +285,9 @@ CODE_FRAGMENT
 .     as well.  *}
 .#define BSF_DEBUGGING_RELOC 0x20000
 .
+.  {* This symbol is thread local.  Used in ELF.  *}
+.#define BSF_THREAD_LOCAL  0x40000
+.
 .  flagword flags;
 .
 .  {* A pointer to the section to which this symbol is
@@ -312,6 +315,7 @@ CODE_FRAGMENT
 #include "aout/stab_gnu.h"
 
 static char coff_section_type PARAMS ((const char *));
+static char decode_section_type PARAMS ((const struct sec *));
 static int cmpindexentry PARAMS ((const PTR, const PTR));
 
 /*
@@ -342,14 +346,14 @@ FUNCTION
        bfd_is_local_label
 
 SYNOPSIS
-        boolean bfd_is_local_label(bfd *abfd, asymbol *sym);
+        bfd_boolean bfd_is_local_label(bfd *abfd, asymbol *sym);
 
 DESCRIPTION
-       Return true if the given symbol @var{sym} in the BFD @var{abfd} is
-       a compiler generated local label, else return false.
+       Return TRUE if the given symbol @var{sym} in the BFD @var{abfd} is
+       a compiler generated local label, else return FALSE.
 */
 
-boolean
+bfd_boolean
 bfd_is_local_label (abfd, sym)
      bfd *abfd;
      asymbol *sym;
@@ -358,9 +362,9 @@ bfd_is_local_label (abfd, sym)
      starts with '.' is local.  This would accidentally catch section names
      if we didn't reject them here.  */
   if ((sym->flags & (BSF_GLOBAL | BSF_WEAK | BSF_SECTION_SYM)) != 0)
-    return false;
+    return FALSE;
   if (sym->name == NULL)
-    return false;
+    return FALSE;
   return bfd_is_local_label_name (abfd, sym->name);
 }
 
@@ -369,12 +373,12 @@ FUNCTION
        bfd_is_local_label_name
 
 SYNOPSIS
-        boolean bfd_is_local_label_name(bfd *abfd, const char *name);
+        bfd_boolean bfd_is_local_label_name (bfd *abfd, const char *name);
 
 DESCRIPTION
-       Return true if a symbol with the name @var{name} in the BFD
+       Return TRUE if a symbol with the name @var{name} in the BFD
        @var{abfd} is a compiler generated local label, else return
-       false.  This just checks whether the name has the form of a
+       FALSE.  This just checks whether the name has the form of a
        local label.
 
 .#define bfd_is_local_label_name(abfd, name) \
@@ -404,7 +408,7 @@ FUNCTION
        bfd_set_symtab
 
 SYNOPSIS
-       boolean bfd_set_symtab (bfd *abfd, asymbol **location, unsigned int count);
+       bfd_boolean bfd_set_symtab (bfd *abfd, asymbol **location, unsigned int count);
 
 DESCRIPTION
        Arrange that when the output BFD @var{abfd} is closed,
@@ -412,7 +416,7 @@ DESCRIPTION
        will be written.
 */
 
-boolean
+bfd_boolean
 bfd_set_symtab (abfd, location, symcount)
      bfd *abfd;
      asymbol **location;
@@ -421,12 +425,12 @@ bfd_set_symtab (abfd, location, symcount)
   if ((abfd->format != bfd_object) || (bfd_read_p (abfd)))
     {
       bfd_set_error (bfd_error_invalid_operation);
-      return false;
+      return FALSE;
     }
 
   bfd_get_outsymbols (abfd) = location;
   bfd_get_symcount (abfd) = symcount;
-  return true;
+  return TRUE;
 }
 
 /*
@@ -545,23 +549,25 @@ struct section_to_type
    adding entries.  Since it is so short, a linear search is used.  */
 static const struct section_to_type stt[] =
 {
-  {"*DEBUG*", 'N'},
   {".bss", 'b'},
-  {"zerovars", 'b'},           /* MRI .bss */
+  {"code", 't'},               /* MRI .text */
   {".data", 'd'},
-  {"vars", 'd'},               /* MRI .data */
+  {"*DEBUG*", 'N'},
+  {".debug", 'N'},              /* MSVC's .debug (non-standard debug syms) */
+  {".drectve", 'i'},            /* MSVC's .drective section */
+  {".edata", 'e'},              /* MSVC's .edata (export) section */
+  {".fini", 't'},              /* ELF fini section */
+  {".idata", 'i'},              /* MSVC's .idata (import) section */
+  {".init", 't'},              /* ELF init section */
+  {".pdata", 'p'},              /* MSVC's .pdata (stack unwind) section */
   {".rdata", 'r'},             /* Read only data.  */
   {".rodata", 'r'},            /* Read only data.  */
   {".sbss", 's'},              /* Small BSS (uninitialized data).  */
   {".scommon", 'c'},           /* Small common.  */
   {".sdata", 'g'},             /* Small initialized data.  */
   {".text", 't'},
-  {"code", 't'},               /* MRI .text */
-  {".drectve", 'i'},            /* MSVC's .drective section */
-  {".idata", 'i'},              /* MSVC's .idata (import) section */
-  {".edata", 'e'},              /* MSVC's .edata (export) section */
-  {".pdata", 'p'},              /* MSVC's .pdata (stack unwind) section */
-  {".debug", 'N'},              /* MSVC's .debug (non-standard debug syms) */
+  {"vars", 'd'},               /* MRI .data */
+  {"zerovars", 'b'},           /* MRI .bss */
   {0, 0}
 };
 
@@ -584,6 +590,41 @@ coff_section_type (s)
   return '?';
 }
 
+/* Return the single-character symbol type corresponding to section
+   SECTION, or '?' for an unknown section.  This uses section flags to
+   identify sections.
+
+   FIXME These types are unhandled: c, i, e, p.  If we handled these also,
+   we could perhaps obsolete coff_section_type.  */
+
+static char
+decode_section_type (section)
+     const struct sec *section;
+{
+  if (section->flags & SEC_CODE)
+    return 't';
+  if (section->flags & SEC_DATA)
+    {
+      if (section->flags & SEC_READONLY)
+       return 'r';
+      else if (section->flags & SEC_SMALL_DATA)
+       return 'g';
+      else
+       return 'd';
+    }
+  if ((section->flags & SEC_HAS_CONTENTS) == 0)
+    {
+      if (section->flags & SEC_SMALL_DATA)
+       return 's';
+      else
+       return 'b';
+    }
+  if (section->flags & SEC_DEBUGGING)
+    return 'N';
+
+  return '?';
+}
+
 /*
 FUNCTION
        bfd_decode_symclass
@@ -634,7 +675,11 @@ bfd_decode_symclass (symbol)
   if (bfd_is_abs_section (symbol->section))
     c = 'a';
   else if (symbol->section)
-    c = coff_section_type (symbol->section->name);
+    {
+      c = coff_section_type (symbol->section->name);
+      if (c == '?')
+       c = decode_section_type (symbol->section);
+    }
   else
     return '?';
   if (symbol->flags & BSF_GLOBAL)
@@ -661,10 +706,10 @@ DESCRIPTION
        Returns zero otherwise.
 
 SYNOPSIS
-       boolean bfd_is_undefined_symclass (int symclass);
+       bfd_boolean bfd_is_undefined_symclass (int symclass);
 */
 
-boolean
+bfd_boolean
 bfd_is_undefined_symclass (symclass)
      int symclass;
 {
@@ -704,12 +749,12 @@ FUNCTION
        bfd_copy_private_symbol_data
 
 SYNOPSIS
-       boolean bfd_copy_private_symbol_data(bfd *ibfd, asymbol *isym, bfd *obfd, asymbol *osym);
+       bfd_boolean bfd_copy_private_symbol_data(bfd *ibfd, asymbol *isym, bfd *obfd, asymbol *osym);
 
 DESCRIPTION
        Copy private symbol information from @var{isym} in the BFD
        @var{ibfd} to the symbol @var{osym} in the BFD @var{obfd}.
-       Return <<true>> on success, <<false>> on error.  Possible error
+       Return <<TRUE>> on success, <<FALSE>> on error.  Possible error
        returns are:
 
        o <<bfd_error_no_memory>> -
@@ -728,7 +773,7 @@ DESCRIPTION
 long
 _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep)
      bfd *abfd;
-     boolean dynamic;
+     bfd_boolean dynamic;
      PTR *minisymsp;
      unsigned int *sizep;
 {
@@ -761,6 +806,7 @@ _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep)
   return symcount;
 
  error_return:
+  bfd_set_error (bfd_error_no_symbols);
   if (syms != NULL)
     free (syms);
   return -1;
@@ -774,7 +820,7 @@ _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep)
 asymbol *
 _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym)
      bfd *abfd ATTRIBUTE_UNUSED;
-     boolean dynamic ATTRIBUTE_UNUSED;
+     bfd_boolean dynamic ATTRIBUTE_UNUSED;
      const PTR minisym;
      asymbol *sym ATTRIBUTE_UNUSED;
 {
@@ -784,7 +830,7 @@ _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym)
 /* Look through stabs debugging information in .stab and .stabstr
    sections to find the source file and line closest to a desired
    location.  This is used by COFF and ELF targets.  It sets *pfound
-   to true if it finds some information.  The *pinfo field is used to
+   to TRUE if it finds some information.  The *pinfo field is used to
    pass cached information in and out of this routine; this first time
    the routine is called for a BFD, *pinfo should be NULL.  The value
    placed in *pinfo should be saved with the BFD, and passed back each
@@ -856,14 +902,14 @@ struct stab_find_info
   char *filename;
 };
 
-boolean
+bfd_boolean
 _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
                                     pfilename, pfnname, pline, pinfo)
      bfd *abfd;
      asymbol **symbols;
      asection *section;
      bfd_vma offset;
-     boolean *pfound;
+     bfd_boolean *pfound;
      const char **pfilename;
      const char **pfnname;
      unsigned int *pline;
@@ -878,8 +924,9 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
   char *file_name;
   char *directory_name;
   int saw_fun;
+  bfd_boolean saw_line, saw_func;
 
-  *pfound = false;
+  *pfound = FALSE;
   *pfilename = bfd_get_filename (abfd);
   *pfnname = NULL;
   *pline = 0;
@@ -910,7 +957,7 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
       if (info->stabsec == NULL || info->strsec == NULL)
        {
          /* No stabs debugging information.  */
-         return true;
+         return TRUE;
        }
 
       stabsize = info->stabsec->_raw_size;
@@ -927,7 +974,7 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
 
       info = (struct stab_find_info *) bfd_zalloc (abfd, amt);
       if (info == NULL)
-       return false;
+       return FALSE;
 
       /* FIXME: When using the linker --split-by-file or
         --split-by-reloc options, it is possible for the .stab and
@@ -941,7 +988,7 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
          /* No stabs debugging information.  Set *pinfo so that we
              can return quickly in the info != NULL case above.  */
          *pinfo = (PTR) info;
-         return true;
+         return TRUE;
        }
 
       stabsize = info->stabsec->_raw_size;
@@ -950,13 +997,13 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
       info->stabs = (bfd_byte *) bfd_alloc (abfd, stabsize);
       info->strs = (bfd_byte *) bfd_alloc (abfd, strsize);
       if (info->stabs == NULL || info->strs == NULL)
-       return false;
+       return FALSE;
 
       if (! bfd_get_section_contents (abfd, info->stabsec, info->stabs,
                                      (bfd_vma) 0, stabsize)
          || ! bfd_get_section_contents (abfd, info->strsec, info->strs,
                                         (bfd_vma) 0, strsize))
-       return false;
+       return FALSE;
 
       /* If this is a relocateable object file, we have to relocate
         the entries in .stab.  This should always be simple 32 bit
@@ -964,17 +1011,17 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
         this should be no big deal.  */
       reloc_size = bfd_get_reloc_upper_bound (abfd, info->stabsec);
       if (reloc_size < 0)
-       return false;
+       return FALSE;
       reloc_vector = (arelent **) bfd_malloc ((bfd_size_type) reloc_size);
       if (reloc_vector == NULL && reloc_size != 0)
-       return false;
+       return FALSE;
       reloc_count = bfd_canonicalize_reloc (abfd, info->stabsec, reloc_vector,
                                            symbols);
       if (reloc_count < 0)
        {
          if (reloc_vector != NULL)
            free (reloc_vector);
-         return false;
+         return FALSE;
        }
       if (reloc_count > 0)
        {
@@ -999,7 +1046,7 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
                  bfd_set_error (bfd_error_invalid_operation);
                  if (reloc_vector != NULL)
                    free (reloc_vector);
-                 return false;
+                 return FALSE;
                }
 
              val = bfd_get_32 (abfd, info->stabs + r->address);
@@ -1023,7 +1070,7 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
       saw_fun = 1;
       for (stab = info->stabs; stab < info->stabs + stabsize; stab += STABSIZE)
        {
-         if (stab[TYPEOFF] == N_SO)
+         if (stab[TYPEOFF] == (bfd_byte) N_SO)
            {
              /* N_SO with null name indicates EOF */
              if (bfd_get_32 (abfd, stab + STRDXOFF) == 0)
@@ -1037,12 +1084,12 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
 
              /* two N_SO's in a row is a filename and directory. Skip */
              if (stab + STABSIZE < info->stabs + stabsize
-                 && *(stab + STABSIZE + TYPEOFF) == N_SO)
+                 && *(stab + STABSIZE + TYPEOFF) == (bfd_byte) N_SO)
                {
                  stab += STABSIZE;
                }
            }
-         else if (stab[TYPEOFF] == N_FUN)
+         else if (stab[TYPEOFF] == (bfd_byte) N_FUN)
            {
              saw_fun = 1;
              ++info->indextablesize;
@@ -1053,14 +1100,14 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
        ++info->indextablesize;
 
       if (info->indextablesize == 0)
-       return true;
+       return TRUE;
       ++info->indextablesize;
 
       amt = info->indextablesize;
       amt *= sizeof (struct indexentry);
       info->indextable = (struct indexentry *) bfd_alloc (abfd, amt);
       if (info->indextable == NULL)
-       return false;
+       return FALSE;
 
       file_name = NULL;
       directory_name = NULL;
@@ -1111,7 +1158,7 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
                {
                  last_stab = stab;
                  if (stab + STABSIZE >= info->stabs + stabsize
-                     || *(stab + STABSIZE + TYPEOFF) != N_SO)
+                     || *(stab + STABSIZE + TYPEOFF) != (bfd_byte) N_SO)
                    {
                      directory_name = NULL;
                    }
@@ -1225,7 +1272,7 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
        }
 
       if (indexentry == NULL)
-       return true;
+       return TRUE;
 
       stab = indexentry->stab + STABSIZE;
       file_name = indexentry->file_name;
@@ -1234,12 +1281,14 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
   directory_name = indexentry->directory_name;
   str = indexentry->str;
 
+  saw_line = FALSE;
+  saw_func = FALSE;
   for (; stab < (indexentry+1)->stab; stab += STABSIZE)
     {
-      boolean done;
+      bfd_boolean done;
       bfd_vma val;
 
-      done = false;
+      done = FALSE;
 
       switch (stab[TYPEOFF])
        {
@@ -1259,7 +1308,11 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
          /* A line number.  The value is relative to the start of the
              current function.  */
          val = indexentry->val + bfd_get_32 (abfd, stab + VALOFF);
-         if (val <= offset)
+         /* If this line starts before our desired offset, or if it's
+            the first line we've been able to find, use it.  The
+            !saw_line check works around a bug in GCC 2.95.3, which emits
+            the first N_SLINE late.  */
+         if (!saw_line || val <= offset)
            {
              *pline = bfd_get_16 (abfd, stab + DESCOFF);
 
@@ -1271,12 +1324,15 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
 #endif
            }
          if (val > offset)
-           done = true;
+           done = TRUE;
+         saw_line = TRUE;
          break;
 
        case N_FUN:
        case N_SO:
-         done = true;
+         if (saw_func || saw_line)
+           done = TRUE;
+         saw_func = TRUE;
          break;
        }
 
@@ -1284,9 +1340,10 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
        break;
     }
 
-  *pfound = true;
+  *pfound = TRUE;
 
-  if (IS_ABSOLUTE_PATH(file_name) || directory_name == NULL)
+  if (file_name == NULL || IS_ABSOLUTE_PATH (file_name)
+      || directory_name == NULL)
     *pfilename = file_name;
   else
     {
@@ -1297,14 +1354,16 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
          || strncmp (info->filename, directory_name, dirlen) != 0
          || strcmp (info->filename + dirlen, file_name) != 0)
        {
+         size_t len;
+
          if (info->filename != NULL)
            free (info->filename);
-         info->filename = (char *) bfd_malloc ((bfd_size_type) dirlen
-                                               + strlen (file_name) + 1);
+         len = strlen (file_name) + 1;
+         info->filename = (char *) bfd_malloc ((bfd_size_type) dirlen + len);
          if (info->filename == NULL)
-           return false;
-         strcpy (info->filename, directory_name);
-         strcpy (info->filename + dirlen, file_name);
+           return FALSE;
+         memcpy (info->filename, directory_name, dirlen);
+         memcpy (info->filename + dirlen, file_name, len);
        }
 
       *pfilename = info->filename;
@@ -1325,5 +1384,5 @@ _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset, pfound,
       *pfnname = indexentry->function_name;
     }
 
-  return true;
+  return TRUE;
 }
This page took 0.039498 seconds and 4 git commands to generate.