/* Stabs in sections linking support.
|
/* Stabs in sections linking support.
|
Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
|
Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
|
2006, 2007, 2008 Free Software Foundation, Inc.
|
2006, 2007, 2008 Free Software Foundation, Inc.
|
Written by Ian Lance Taylor, Cygnus Support.
|
Written by Ian Lance Taylor, Cygnus Support.
|
|
|
This file is part of BFD, the Binary File Descriptor library.
|
This file is part of BFD, the Binary File Descriptor library.
|
|
|
This program is free software; you can redistribute it and/or modify
|
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
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
MA 02110-1301, USA. */
|
MA 02110-1301, USA. */
|
|
|
|
|
/* This file contains support for linking stabs in sections, as used
|
/* This file contains support for linking stabs in sections, as used
|
on COFF and ELF. */
|
on COFF and ELF. */
|
|
|
#include "sysdep.h"
|
#include "sysdep.h"
|
#include "bfd.h"
|
#include "bfd.h"
|
#include "libbfd.h"
|
#include "libbfd.h"
|
#include "aout/stab_gnu.h"
|
#include "aout/stab_gnu.h"
|
#include "safe-ctype.h"
|
#include "safe-ctype.h"
|
|
|
/* Stabs entries use a 12 byte format:
|
/* Stabs entries use a 12 byte format:
|
4 byte string table index
|
4 byte string table index
|
1 byte stab type
|
1 byte stab type
|
1 byte stab other field
|
1 byte stab other field
|
2 byte stab desc field
|
2 byte stab desc field
|
4 byte stab value
|
4 byte stab value
|
FIXME: This will have to change for a 64 bit object format.
|
FIXME: This will have to change for a 64 bit object format.
|
|
|
The stabs symbols are divided into compilation units. For the
|
The stabs symbols are divided into compilation units. For the
|
first entry in each unit, the type of 0, the value is the length of
|
first entry in each unit, the type of 0, the value is the length of
|
the string table for this unit, and the desc field is the number of
|
the string table for this unit, and the desc field is the number of
|
stabs symbols for this unit. */
|
stabs symbols for this unit. */
|
|
|
#define STRDXOFF 0
|
#define STRDXOFF 0
|
#define TYPEOFF 4
|
#define TYPEOFF 4
|
#define OTHEROFF 5
|
#define OTHEROFF 5
|
#define DESCOFF 6
|
#define DESCOFF 6
|
#define VALOFF 8
|
#define VALOFF 8
|
#define STABSIZE 12
|
#define STABSIZE 12
|
|
|
/* A linked list of totals that we have found for a particular header
|
/* A linked list of totals that we have found for a particular header
|
file. A total is a unique identifier for a particular BINCL...EINCL
|
file. A total is a unique identifier for a particular BINCL...EINCL
|
sequence of STABs that can be used to identify duplicate sequences.
|
sequence of STABs that can be used to identify duplicate sequences.
|
It consists of three fields, 'sum_chars' which is the sum of all the
|
It consists of three fields, 'sum_chars' which is the sum of all the
|
STABS characters; 'num_chars' which is the number of these charactes
|
STABS characters; 'num_chars' which is the number of these charactes
|
and 'symb' which is a buffer of all the symbols in the sequence. This
|
and 'symb' which is a buffer of all the symbols in the sequence. This
|
buffer is only checked as a last resort. */
|
buffer is only checked as a last resort. */
|
|
|
struct stab_link_includes_totals
|
struct stab_link_includes_totals
|
{
|
{
|
struct stab_link_includes_totals *next;
|
struct stab_link_includes_totals *next;
|
bfd_vma sum_chars; /* Accumulated sum of STABS characters. */
|
bfd_vma sum_chars; /* Accumulated sum of STABS characters. */
|
bfd_vma num_chars; /* Number of STABS characters. */
|
bfd_vma num_chars; /* Number of STABS characters. */
|
const char* symb; /* The STABS characters themselves. */
|
const char* symb; /* The STABS characters themselves. */
|
};
|
};
|
|
|
/* An entry in the header file hash table. */
|
/* An entry in the header file hash table. */
|
|
|
struct stab_link_includes_entry
|
struct stab_link_includes_entry
|
{
|
{
|
struct bfd_hash_entry root;
|
struct bfd_hash_entry root;
|
/* List of totals we have found for this file. */
|
/* List of totals we have found for this file. */
|
struct stab_link_includes_totals *totals;
|
struct stab_link_includes_totals *totals;
|
};
|
};
|
|
|
/* This structure is used to hold a list of N_BINCL symbols, some of
|
/* This structure is used to hold a list of N_BINCL symbols, some of
|
which might be converted into N_EXCL symbols. */
|
which might be converted into N_EXCL symbols. */
|
|
|
struct stab_excl_list
|
struct stab_excl_list
|
{
|
{
|
/* The next symbol to convert. */
|
/* The next symbol to convert. */
|
struct stab_excl_list *next;
|
struct stab_excl_list *next;
|
/* The offset to this symbol in the section contents. */
|
/* The offset to this symbol in the section contents. */
|
bfd_size_type offset;
|
bfd_size_type offset;
|
/* The value to use for the symbol. */
|
/* The value to use for the symbol. */
|
bfd_vma val;
|
bfd_vma val;
|
/* The type of this symbol (N_BINCL or N_EXCL). */
|
/* The type of this symbol (N_BINCL or N_EXCL). */
|
int type;
|
int type;
|
};
|
};
|
|
|
/* This structure is stored with each .stab section. */
|
/* This structure is stored with each .stab section. */
|
|
|
struct stab_section_info
|
struct stab_section_info
|
{
|
{
|
/* This is a linked list of N_BINCL symbols which should be
|
/* This is a linked list of N_BINCL symbols which should be
|
converted into N_EXCL symbols. */
|
converted into N_EXCL symbols. */
|
struct stab_excl_list *excls;
|
struct stab_excl_list *excls;
|
|
|
/* This is used to map input stab offsets within their sections
|
/* This is used to map input stab offsets within their sections
|
to output stab offsets, to take into account stabs that have
|
to output stab offsets, to take into account stabs that have
|
been deleted. If it is NULL, the output offsets are the same
|
been deleted. If it is NULL, the output offsets are the same
|
as the input offsets, because no stabs have been deleted from
|
as the input offsets, because no stabs have been deleted from
|
this section. Otherwise the i'th entry is the number of
|
this section. Otherwise the i'th entry is the number of
|
bytes of stabs that have been deleted prior to the i'th
|
bytes of stabs that have been deleted prior to the i'th
|
stab. */
|
stab. */
|
bfd_size_type *cumulative_skips;
|
bfd_size_type *cumulative_skips;
|
|
|
/* This is an array of string indices. For each stab symbol, we
|
/* This is an array of string indices. For each stab symbol, we
|
store the string index here. If a stab symbol should not be
|
store the string index here. If a stab symbol should not be
|
included in the final output, the string index is -1. */
|
included in the final output, the string index is -1. */
|
bfd_size_type stridxs[1];
|
bfd_size_type stridxs[1];
|
};
|
};
|
|
|
|
|
/* The function to create a new entry in the header file hash table. */
|
/* The function to create a new entry in the header file hash table. */
|
|
|
static struct bfd_hash_entry *
|
static struct bfd_hash_entry *
|
stab_link_includes_newfunc (struct bfd_hash_entry *entry,
|
stab_link_includes_newfunc (struct bfd_hash_entry *entry,
|
struct bfd_hash_table *table,
|
struct bfd_hash_table *table,
|
const char *string)
|
const char *string)
|
{
|
{
|
struct stab_link_includes_entry *ret =
|
struct stab_link_includes_entry *ret =
|
(struct stab_link_includes_entry *) entry;
|
(struct stab_link_includes_entry *) entry;
|
|
|
/* Allocate the structure if it has not already been allocated by a
|
/* Allocate the structure if it has not already been allocated by a
|
subclass. */
|
subclass. */
|
if (ret == NULL)
|
if (ret == NULL)
|
ret = (struct stab_link_includes_entry *)
|
ret = (struct stab_link_includes_entry *)
|
bfd_hash_allocate (table, sizeof (struct stab_link_includes_entry));
|
bfd_hash_allocate (table, sizeof (struct stab_link_includes_entry));
|
if (ret == NULL)
|
if (ret == NULL)
|
return NULL;
|
return NULL;
|
|
|
/* Call the allocation method of the superclass. */
|
/* Call the allocation method of the superclass. */
|
ret = ((struct stab_link_includes_entry *)
|
ret = ((struct stab_link_includes_entry *)
|
bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string));
|
bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string));
|
if (ret)
|
if (ret)
|
/* Set local fields. */
|
/* Set local fields. */
|
ret->totals = NULL;
|
ret->totals = NULL;
|
|
|
return (struct bfd_hash_entry *) ret;
|
return (struct bfd_hash_entry *) ret;
|
}
|
}
|
|
|
/* This function is called for each input file from the add_symbols
|
/* This function is called for each input file from the add_symbols
|
pass of the linker. */
|
pass of the linker. */
|
|
|
bfd_boolean
|
bfd_boolean
|
_bfd_link_section_stabs (bfd *abfd,
|
_bfd_link_section_stabs (bfd *abfd,
|
struct stab_info *sinfo,
|
struct stab_info *sinfo,
|
asection *stabsec,
|
asection *stabsec,
|
asection *stabstrsec,
|
asection *stabstrsec,
|
void * *psecinfo,
|
void * *psecinfo,
|
bfd_size_type *pstring_offset)
|
bfd_size_type *pstring_offset)
|
{
|
{
|
bfd_boolean first;
|
bfd_boolean first;
|
bfd_size_type count, amt;
|
bfd_size_type count, amt;
|
struct stab_section_info *secinfo;
|
struct stab_section_info *secinfo;
|
bfd_byte *stabbuf = NULL;
|
bfd_byte *stabbuf = NULL;
|
bfd_byte *stabstrbuf = NULL;
|
bfd_byte *stabstrbuf = NULL;
|
bfd_byte *sym, *symend;
|
bfd_byte *sym, *symend;
|
bfd_size_type stroff, next_stroff, skip;
|
bfd_size_type stroff, next_stroff, skip;
|
bfd_size_type *pstridx;
|
bfd_size_type *pstridx;
|
|
|
if (stabsec->size == 0
|
if (stabsec->size == 0
|
|| stabstrsec->size == 0)
|
|| stabstrsec->size == 0)
|
/* This file does not contain stabs debugging information. */
|
/* This file does not contain stabs debugging information. */
|
return TRUE;
|
return TRUE;
|
|
|
if (stabsec->size % STABSIZE != 0)
|
if (stabsec->size % STABSIZE != 0)
|
/* Something is wrong with the format of these stab symbols.
|
/* Something is wrong with the format of these stab symbols.
|
Don't try to optimize them. */
|
Don't try to optimize them. */
|
return TRUE;
|
return TRUE;
|
|
|
if ((stabstrsec->flags & SEC_RELOC) != 0)
|
if ((stabstrsec->flags & SEC_RELOC) != 0)
|
/* We shouldn't see relocations in the strings, and we aren't
|
/* We shouldn't see relocations in the strings, and we aren't
|
prepared to handle them. */
|
prepared to handle them. */
|
return TRUE;
|
return TRUE;
|
|
|
if (bfd_is_abs_section (stabsec->output_section)
|
if (bfd_is_abs_section (stabsec->output_section)
|
|| bfd_is_abs_section (stabstrsec->output_section))
|
|| bfd_is_abs_section (stabstrsec->output_section))
|
/* At least one of the sections is being discarded from the
|
/* At least one of the sections is being discarded from the
|
link, so we should just ignore them. */
|
link, so we should just ignore them. */
|
return TRUE;
|
return TRUE;
|
|
|
first = FALSE;
|
first = FALSE;
|
|
|
if (sinfo->stabstr == NULL)
|
if (sinfo->stabstr == NULL)
|
{
|
{
|
flagword flags;
|
flagword flags;
|
|
|
/* Initialize the stabs information we need to keep track of. */
|
/* Initialize the stabs information we need to keep track of. */
|
first = TRUE;
|
first = TRUE;
|
sinfo->strings = _bfd_stringtab_init ();
|
sinfo->strings = _bfd_stringtab_init ();
|
if (sinfo->strings == NULL)
|
if (sinfo->strings == NULL)
|
goto error_return;
|
goto error_return;
|
/* Make sure the first byte is zero. */
|
/* Make sure the first byte is zero. */
|
(void) _bfd_stringtab_add (sinfo->strings, "", TRUE, TRUE);
|
(void) _bfd_stringtab_add (sinfo->strings, "", TRUE, TRUE);
|
if (! bfd_hash_table_init (&sinfo->includes,
|
if (! bfd_hash_table_init (&sinfo->includes,
|
stab_link_includes_newfunc,
|
stab_link_includes_newfunc,
|
sizeof (struct stab_link_includes_entry)))
|
sizeof (struct stab_link_includes_entry)))
|
goto error_return;
|
goto error_return;
|
flags = (SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING
|
flags = (SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING
|
| SEC_LINKER_CREATED);
|
| SEC_LINKER_CREATED);
|
sinfo->stabstr = bfd_make_section_anyway_with_flags (abfd, ".stabstr",
|
sinfo->stabstr = bfd_make_section_anyway_with_flags (abfd, ".stabstr",
|
flags);
|
flags);
|
if (sinfo->stabstr == NULL)
|
if (sinfo->stabstr == NULL)
|
goto error_return;
|
goto error_return;
|
}
|
}
|
|
|
/* Initialize the information we are going to store for this .stab
|
/* Initialize the information we are going to store for this .stab
|
section. */
|
section. */
|
count = stabsec->size / STABSIZE;
|
count = stabsec->size / STABSIZE;
|
|
|
amt = sizeof (struct stab_section_info);
|
amt = sizeof (struct stab_section_info);
|
amt += (count - 1) * sizeof (bfd_size_type);
|
amt += (count - 1) * sizeof (bfd_size_type);
|
*psecinfo = bfd_alloc (abfd, amt);
|
*psecinfo = bfd_alloc (abfd, amt);
|
if (*psecinfo == NULL)
|
if (*psecinfo == NULL)
|
goto error_return;
|
goto error_return;
|
|
|
secinfo = (struct stab_section_info *) *psecinfo;
|
secinfo = (struct stab_section_info *) *psecinfo;
|
secinfo->excls = NULL;
|
secinfo->excls = NULL;
|
stabsec->rawsize = stabsec->size;
|
stabsec->rawsize = stabsec->size;
|
secinfo->cumulative_skips = NULL;
|
secinfo->cumulative_skips = NULL;
|
memset (secinfo->stridxs, 0, (size_t) count * sizeof (bfd_size_type));
|
memset (secinfo->stridxs, 0, (size_t) count * sizeof (bfd_size_type));
|
|
|
/* Read the stabs information from abfd. */
|
/* Read the stabs information from abfd. */
|
if (!bfd_malloc_and_get_section (abfd, stabsec, &stabbuf)
|
if (!bfd_malloc_and_get_section (abfd, stabsec, &stabbuf)
|
|| !bfd_malloc_and_get_section (abfd, stabstrsec, &stabstrbuf))
|
|| !bfd_malloc_and_get_section (abfd, stabstrsec, &stabstrbuf))
|
goto error_return;
|
goto error_return;
|
|
|
/* Look through the stabs symbols, work out the new string indices,
|
/* Look through the stabs symbols, work out the new string indices,
|
and identify N_BINCL symbols which can be eliminated. */
|
and identify N_BINCL symbols which can be eliminated. */
|
stroff = 0;
|
stroff = 0;
|
/* The stabs sections can be split when
|
/* The stabs sections can be split when
|
-split-by-reloc/-split-by-file is used. We must keep track of
|
-split-by-reloc/-split-by-file is used. We must keep track of
|
each stab section's place in the single concatenated string
|
each stab section's place in the single concatenated string
|
table. */
|
table. */
|
next_stroff = pstring_offset ? *pstring_offset : 0;
|
next_stroff = pstring_offset ? *pstring_offset : 0;
|
skip = 0;
|
skip = 0;
|
|
|
symend = stabbuf + stabsec->size;
|
symend = stabbuf + stabsec->size;
|
for (sym = stabbuf, pstridx = secinfo->stridxs;
|
for (sym = stabbuf, pstridx = secinfo->stridxs;
|
sym < symend;
|
sym < symend;
|
sym += STABSIZE, ++pstridx)
|
sym += STABSIZE, ++pstridx)
|
{
|
{
|
bfd_size_type symstroff;
|
bfd_size_type symstroff;
|
int type;
|
int type;
|
const char *string;
|
const char *string;
|
|
|
if (*pstridx != 0)
|
if (*pstridx != 0)
|
/* This symbol has already been handled by an N_BINCL pass. */
|
/* This symbol has already been handled by an N_BINCL pass. */
|
continue;
|
continue;
|
|
|
type = sym[TYPEOFF];
|
type = sym[TYPEOFF];
|
|
|
if (type == 0)
|
if (type == 0)
|
{
|
{
|
/* Special type 0 stabs indicate the offset to the next
|
/* Special type 0 stabs indicate the offset to the next
|
string table. We only copy the very first one. */
|
string table. We only copy the very first one. */
|
stroff = next_stroff;
|
stroff = next_stroff;
|
next_stroff += bfd_get_32 (abfd, sym + 8);
|
next_stroff += bfd_get_32 (abfd, sym + 8);
|
if (pstring_offset)
|
if (pstring_offset)
|
*pstring_offset = next_stroff;
|
*pstring_offset = next_stroff;
|
if (! first)
|
if (! first)
|
{
|
{
|
*pstridx = (bfd_size_type) -1;
|
*pstridx = (bfd_size_type) -1;
|
++skip;
|
++skip;
|
continue;
|
continue;
|
}
|
}
|
first = FALSE;
|
first = FALSE;
|
}
|
}
|
|
|
/* Store the string in the hash table, and record the index. */
|
/* Store the string in the hash table, and record the index. */
|
symstroff = stroff + bfd_get_32 (abfd, sym + STRDXOFF);
|
symstroff = stroff + bfd_get_32 (abfd, sym + STRDXOFF);
|
if (symstroff >= stabstrsec->size)
|
if (symstroff >= stabstrsec->size)
|
{
|
{
|
(*_bfd_error_handler)
|
(*_bfd_error_handler)
|
(_("%B(%A+0x%lx): Stabs entry has invalid string index."),
|
(_("%B(%A+0x%lx): Stabs entry has invalid string index."),
|
abfd, stabsec, (long) (sym - stabbuf));
|
abfd, stabsec, (long) (sym - stabbuf));
|
bfd_set_error (bfd_error_bad_value);
|
bfd_set_error (bfd_error_bad_value);
|
goto error_return;
|
goto error_return;
|
}
|
}
|
string = (char *) stabstrbuf + symstroff;
|
string = (char *) stabstrbuf + symstroff;
|
*pstridx = _bfd_stringtab_add (sinfo->strings, string, TRUE, TRUE);
|
*pstridx = _bfd_stringtab_add (sinfo->strings, string, TRUE, TRUE);
|
|
|
/* An N_BINCL symbol indicates the start of the stabs entries
|
/* An N_BINCL symbol indicates the start of the stabs entries
|
for a header file. We need to scan ahead to the next N_EINCL
|
for a header file. We need to scan ahead to the next N_EINCL
|
symbol, ignoring nesting, adding up all the characters in the
|
symbol, ignoring nesting, adding up all the characters in the
|
symbol names, not including the file numbers in types (the
|
symbol names, not including the file numbers in types (the
|
first number after an open parenthesis). */
|
first number after an open parenthesis). */
|
if (type == (int) N_BINCL)
|
if (type == (int) N_BINCL)
|
{
|
{
|
bfd_vma sum_chars;
|
bfd_vma sum_chars;
|
bfd_vma num_chars;
|
bfd_vma num_chars;
|
bfd_vma buf_len = 0;
|
bfd_vma buf_len = 0;
|
char * symb;
|
char * symb;
|
char * symb_rover;
|
char * symb_rover;
|
int nest;
|
int nest;
|
bfd_byte * incl_sym;
|
bfd_byte * incl_sym;
|
struct stab_link_includes_entry * incl_entry;
|
struct stab_link_includes_entry * incl_entry;
|
struct stab_link_includes_totals * t;
|
struct stab_link_includes_totals * t;
|
struct stab_excl_list * ne;
|
struct stab_excl_list * ne;
|
|
|
symb = symb_rover = NULL;
|
symb = symb_rover = NULL;
|
sum_chars = num_chars = 0;
|
sum_chars = num_chars = 0;
|
nest = 0;
|
nest = 0;
|
|
|
for (incl_sym = sym + STABSIZE;
|
for (incl_sym = sym + STABSIZE;
|
incl_sym < symend;
|
incl_sym < symend;
|
incl_sym += STABSIZE)
|
incl_sym += STABSIZE)
|
{
|
{
|
int incl_type;
|
int incl_type;
|
|
|
incl_type = incl_sym[TYPEOFF];
|
incl_type = incl_sym[TYPEOFF];
|
if (incl_type == 0)
|
if (incl_type == 0)
|
break;
|
break;
|
else if (incl_type == (int) N_EXCL)
|
else if (incl_type == (int) N_EXCL)
|
continue;
|
continue;
|
else if (incl_type == (int) N_EINCL)
|
else if (incl_type == (int) N_EINCL)
|
{
|
{
|
if (nest == 0)
|
if (nest == 0)
|
break;
|
break;
|
--nest;
|
--nest;
|
}
|
}
|
else if (incl_type == (int) N_BINCL)
|
else if (incl_type == (int) N_BINCL)
|
++nest;
|
++nest;
|
else if (nest == 0)
|
else if (nest == 0)
|
{
|
{
|
const char *str;
|
const char *str;
|
|
|
str = ((char *) stabstrbuf
|
str = ((char *) stabstrbuf
|
+ stroff
|
+ stroff
|
+ bfd_get_32 (abfd, incl_sym + STRDXOFF));
|
+ bfd_get_32 (abfd, incl_sym + STRDXOFF));
|
for (; *str != '\0'; str++)
|
for (; *str != '\0'; str++)
|
{
|
{
|
if (num_chars >= buf_len)
|
if (num_chars >= buf_len)
|
{
|
{
|
buf_len += 32 * 1024;
|
buf_len += 32 * 1024;
|
symb = (char *) bfd_realloc_or_free (symb, buf_len);
|
symb = (char *) bfd_realloc_or_free (symb, buf_len);
|
if (symb == NULL)
|
if (symb == NULL)
|
goto error_return;
|
goto error_return;
|
symb_rover = symb + num_chars;
|
symb_rover = symb + num_chars;
|
}
|
}
|
* symb_rover ++ = * str;
|
* symb_rover ++ = * str;
|
sum_chars += *str;
|
sum_chars += *str;
|
num_chars ++;
|
num_chars ++;
|
if (*str == '(')
|
if (*str == '(')
|
{
|
{
|
/* Skip the file number. */
|
/* Skip the file number. */
|
++str;
|
++str;
|
while (ISDIGIT (*str))
|
while (ISDIGIT (*str))
|
++str;
|
++str;
|
--str;
|
--str;
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
BFD_ASSERT (num_chars == (bfd_vma) (symb_rover - symb));
|
BFD_ASSERT (num_chars == (bfd_vma) (symb_rover - symb));
|
|
|
/* If we have already included a header file with the same
|
/* If we have already included a header file with the same
|
value, then replaced this one with an N_EXCL symbol. */
|
value, then replaced this one with an N_EXCL symbol. */
|
incl_entry = (struct stab_link_includes_entry * )
|
incl_entry = (struct stab_link_includes_entry * )
|
bfd_hash_lookup (&sinfo->includes, string, TRUE, TRUE);
|
bfd_hash_lookup (&sinfo->includes, string, TRUE, TRUE);
|
if (incl_entry == NULL)
|
if (incl_entry == NULL)
|
goto error_return;
|
goto error_return;
|
|
|
for (t = incl_entry->totals; t != NULL; t = t->next)
|
for (t = incl_entry->totals; t != NULL; t = t->next)
|
if (t->sum_chars == sum_chars
|
if (t->sum_chars == sum_chars
|
&& t->num_chars == num_chars
|
&& t->num_chars == num_chars
|
&& memcmp (t->symb, symb, num_chars) == 0)
|
&& memcmp (t->symb, symb, num_chars) == 0)
|
break;
|
break;
|
|
|
/* Record this symbol, so that we can set the value
|
/* Record this symbol, so that we can set the value
|
correctly. */
|
correctly. */
|
amt = sizeof *ne;
|
amt = sizeof *ne;
|
ne = (struct stab_excl_list *) bfd_alloc (abfd, amt);
|
ne = (struct stab_excl_list *) bfd_alloc (abfd, amt);
|
if (ne == NULL)
|
if (ne == NULL)
|
goto error_return;
|
goto error_return;
|
ne->offset = sym - stabbuf;
|
ne->offset = sym - stabbuf;
|
ne->val = sum_chars;
|
ne->val = sum_chars;
|
ne->type = (int) N_BINCL;
|
ne->type = (int) N_BINCL;
|
ne->next = secinfo->excls;
|
ne->next = secinfo->excls;
|
secinfo->excls = ne;
|
secinfo->excls = ne;
|
|
|
if (t == NULL)
|
if (t == NULL)
|
{
|
{
|
/* This is the first time we have seen this header file
|
/* This is the first time we have seen this header file
|
with this set of stabs strings. */
|
with this set of stabs strings. */
|
t = (struct stab_link_includes_totals *)
|
t = (struct stab_link_includes_totals *)
|
bfd_hash_allocate (&sinfo->includes, sizeof *t);
|
bfd_hash_allocate (&sinfo->includes, sizeof *t);
|
if (t == NULL)
|
if (t == NULL)
|
goto error_return;
|
goto error_return;
|
t->sum_chars = sum_chars;
|
t->sum_chars = sum_chars;
|
t->num_chars = num_chars;
|
t->num_chars = num_chars;
|
/* Trim data down. */
|
/* Trim data down. */
|
t->symb = symb = (char *) bfd_realloc_or_free (symb, num_chars);
|
t->symb = symb = (char *) bfd_realloc_or_free (symb, num_chars);
|
t->next = incl_entry->totals;
|
t->next = incl_entry->totals;
|
incl_entry->totals = t;
|
incl_entry->totals = t;
|
}
|
}
|
else
|
else
|
{
|
{
|
bfd_size_type *incl_pstridx;
|
bfd_size_type *incl_pstridx;
|
|
|
/* We have seen this header file before. Tell the final
|
/* We have seen this header file before. Tell the final
|
pass to change the type to N_EXCL. */
|
pass to change the type to N_EXCL. */
|
ne->type = (int) N_EXCL;
|
ne->type = (int) N_EXCL;
|
|
|
/* Free off superfluous symbols. */
|
/* Free off superfluous symbols. */
|
free (symb);
|
free (symb);
|
|
|
/* Mark the skipped symbols. */
|
/* Mark the skipped symbols. */
|
|
|
nest = 0;
|
nest = 0;
|
for (incl_sym = sym + STABSIZE, incl_pstridx = pstridx + 1;
|
for (incl_sym = sym + STABSIZE, incl_pstridx = pstridx + 1;
|
incl_sym < symend;
|
incl_sym < symend;
|
incl_sym += STABSIZE, ++incl_pstridx)
|
incl_sym += STABSIZE, ++incl_pstridx)
|
{
|
{
|
int incl_type;
|
int incl_type;
|
|
|
incl_type = incl_sym[TYPEOFF];
|
incl_type = incl_sym[TYPEOFF];
|
|
|
if (incl_type == (int) N_EINCL)
|
if (incl_type == (int) N_EINCL)
|
{
|
{
|
if (nest == 0)
|
if (nest == 0)
|
{
|
{
|
*incl_pstridx = (bfd_size_type) -1;
|
*incl_pstridx = (bfd_size_type) -1;
|
++skip;
|
++skip;
|
break;
|
break;
|
}
|
}
|
--nest;
|
--nest;
|
}
|
}
|
else if (incl_type == (int) N_BINCL)
|
else if (incl_type == (int) N_BINCL)
|
++nest;
|
++nest;
|
else if (incl_type == (int) N_EXCL)
|
else if (incl_type == (int) N_EXCL)
|
/* Keep existing exclusion marks. */
|
/* Keep existing exclusion marks. */
|
continue;
|
continue;
|
else if (nest == 0)
|
else if (nest == 0)
|
{
|
{
|
*incl_pstridx = (bfd_size_type) -1;
|
*incl_pstridx = (bfd_size_type) -1;
|
++skip;
|
++skip;
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
free (stabbuf);
|
free (stabbuf);
|
stabbuf = NULL;
|
stabbuf = NULL;
|
free (stabstrbuf);
|
free (stabstrbuf);
|
stabstrbuf = NULL;
|
stabstrbuf = NULL;
|
|
|
/* We need to set the section sizes such that the linker will
|
/* We need to set the section sizes such that the linker will
|
compute the output section sizes correctly. We set the .stab
|
compute the output section sizes correctly. We set the .stab
|
size to not include the entries we don't want. We set
|
size to not include the entries we don't want. We set
|
SEC_EXCLUDE for the .stabstr section, so that it will be dropped
|
SEC_EXCLUDE for the .stabstr section, so that it will be dropped
|
from the link. We record the size of the strtab in the first
|
from the link. We record the size of the strtab in the first
|
.stabstr section we saw, and make sure we don't set SEC_EXCLUDE
|
.stabstr section we saw, and make sure we don't set SEC_EXCLUDE
|
for that section. */
|
for that section. */
|
stabsec->size = (count - skip) * STABSIZE;
|
stabsec->size = (count - skip) * STABSIZE;
|
if (stabsec->size == 0)
|
if (stabsec->size == 0)
|
stabsec->flags |= SEC_EXCLUDE | SEC_KEEP;
|
stabsec->flags |= SEC_EXCLUDE | SEC_KEEP;
|
stabstrsec->flags |= SEC_EXCLUDE | SEC_KEEP;
|
stabstrsec->flags |= SEC_EXCLUDE | SEC_KEEP;
|
sinfo->stabstr->size = _bfd_stringtab_size (sinfo->strings);
|
sinfo->stabstr->size = _bfd_stringtab_size (sinfo->strings);
|
|
|
/* Calculate the `cumulative_skips' array now that stabs have been
|
/* Calculate the `cumulative_skips' array now that stabs have been
|
deleted for this section. */
|
deleted for this section. */
|
|
|
if (skip != 0)
|
if (skip != 0)
|
{
|
{
|
bfd_size_type i, offset;
|
bfd_size_type i, offset;
|
bfd_size_type *pskips;
|
bfd_size_type *pskips;
|
|
|
amt = count * sizeof (bfd_size_type);
|
amt = count * sizeof (bfd_size_type);
|
secinfo->cumulative_skips = (bfd_size_type *) bfd_alloc (abfd, amt);
|
secinfo->cumulative_skips = (bfd_size_type *) bfd_alloc (abfd, amt);
|
if (secinfo->cumulative_skips == NULL)
|
if (secinfo->cumulative_skips == NULL)
|
goto error_return;
|
goto error_return;
|
|
|
pskips = secinfo->cumulative_skips;
|
pskips = secinfo->cumulative_skips;
|
pstridx = secinfo->stridxs;
|
pstridx = secinfo->stridxs;
|
offset = 0;
|
offset = 0;
|
|
|
for (i = 0; i < count; i++, pskips++, pstridx++)
|
for (i = 0; i < count; i++, pskips++, pstridx++)
|
{
|
{
|
*pskips = offset;
|
*pskips = offset;
|
if (*pstridx == (bfd_size_type) -1)
|
if (*pstridx == (bfd_size_type) -1)
|
offset += STABSIZE;
|
offset += STABSIZE;
|
}
|
}
|
|
|
BFD_ASSERT (offset != 0);
|
BFD_ASSERT (offset != 0);
|
}
|
}
|
|
|
return TRUE;
|
return TRUE;
|
|
|
error_return:
|
error_return:
|
if (stabbuf != NULL)
|
if (stabbuf != NULL)
|
free (stabbuf);
|
free (stabbuf);
|
if (stabstrbuf != NULL)
|
if (stabstrbuf != NULL)
|
free (stabstrbuf);
|
free (stabstrbuf);
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
/* This function is called for each input file before the stab
|
/* This function is called for each input file before the stab
|
section is relocated. It discards stab entries for discarded
|
section is relocated. It discards stab entries for discarded
|
functions and variables. The function returns TRUE iff
|
functions and variables. The function returns TRUE iff
|
any entries have been deleted.
|
any entries have been deleted.
|
*/
|
*/
|
|
|
bfd_boolean
|
bfd_boolean
|
_bfd_discard_section_stabs (bfd *abfd,
|
_bfd_discard_section_stabs (bfd *abfd,
|
asection *stabsec,
|
asection *stabsec,
|
void * psecinfo,
|
void * psecinfo,
|
bfd_boolean (*reloc_symbol_deleted_p) (bfd_vma, void *),
|
bfd_boolean (*reloc_symbol_deleted_p) (bfd_vma, void *),
|
void * cookie)
|
void * cookie)
|
{
|
{
|
bfd_size_type count, amt;
|
bfd_size_type count, amt;
|
struct stab_section_info *secinfo;
|
struct stab_section_info *secinfo;
|
bfd_byte *stabbuf = NULL;
|
bfd_byte *stabbuf = NULL;
|
bfd_byte *sym, *symend;
|
bfd_byte *sym, *symend;
|
bfd_size_type skip;
|
bfd_size_type skip;
|
bfd_size_type *pstridx;
|
bfd_size_type *pstridx;
|
int deleting;
|
int deleting;
|
|
|
if (stabsec->size == 0)
|
if (stabsec->size == 0)
|
/* This file does not contain stabs debugging information. */
|
/* This file does not contain stabs debugging information. */
|
return FALSE;
|
return FALSE;
|
|
|
if (stabsec->size % STABSIZE != 0)
|
if (stabsec->size % STABSIZE != 0)
|
/* Something is wrong with the format of these stab symbols.
|
/* Something is wrong with the format of these stab symbols.
|
Don't try to optimize them. */
|
Don't try to optimize them. */
|
return FALSE;
|
return FALSE;
|
|
|
if ((stabsec->output_section != NULL
|
if ((stabsec->output_section != NULL
|
&& bfd_is_abs_section (stabsec->output_section)))
|
&& bfd_is_abs_section (stabsec->output_section)))
|
/* At least one of the sections is being discarded from the
|
/* At least one of the sections is being discarded from the
|
link, so we should just ignore them. */
|
link, so we should just ignore them. */
|
return FALSE;
|
return FALSE;
|
|
|
/* We should have initialized our data in _bfd_link_stab_sections.
|
/* We should have initialized our data in _bfd_link_stab_sections.
|
If there was some bizarre error reading the string sections, though,
|
If there was some bizarre error reading the string sections, though,
|
we might not have. Bail rather than asserting. */
|
we might not have. Bail rather than asserting. */
|
if (psecinfo == NULL)
|
if (psecinfo == NULL)
|
return FALSE;
|
return FALSE;
|
|
|
count = stabsec->rawsize / STABSIZE;
|
count = stabsec->rawsize / STABSIZE;
|
secinfo = (struct stab_section_info *) psecinfo;
|
secinfo = (struct stab_section_info *) psecinfo;
|
|
|
/* Read the stabs information from abfd. */
|
/* Read the stabs information from abfd. */
|
if (!bfd_malloc_and_get_section (abfd, stabsec, &stabbuf))
|
if (!bfd_malloc_and_get_section (abfd, stabsec, &stabbuf))
|
goto error_return;
|
goto error_return;
|
|
|
/* Look through the stabs symbols and discard any information for
|
/* Look through the stabs symbols and discard any information for
|
discarded functions. */
|
discarded functions. */
|
skip = 0;
|
skip = 0;
|
deleting = -1;
|
deleting = -1;
|
|
|
symend = stabbuf + stabsec->rawsize;
|
symend = stabbuf + stabsec->rawsize;
|
for (sym = stabbuf, pstridx = secinfo->stridxs;
|
for (sym = stabbuf, pstridx = secinfo->stridxs;
|
sym < symend;
|
sym < symend;
|
sym += STABSIZE, ++pstridx)
|
sym += STABSIZE, ++pstridx)
|
{
|
{
|
int type;
|
int type;
|
|
|
if (*pstridx == (bfd_size_type) -1)
|
if (*pstridx == (bfd_size_type) -1)
|
/* This stab was deleted in a previous pass. */
|
/* This stab was deleted in a previous pass. */
|
continue;
|
continue;
|
|
|
type = sym[TYPEOFF];
|
type = sym[TYPEOFF];
|
|
|
if (type == (int) N_FUN)
|
if (type == (int) N_FUN)
|
{
|
{
|
int strx = bfd_get_32 (abfd, sym + STRDXOFF);
|
int strx = bfd_get_32 (abfd, sym + STRDXOFF);
|
|
|
if (strx == 0)
|
if (strx == 0)
|
{
|
{
|
if (deleting)
|
if (deleting)
|
{
|
{
|
skip++;
|
skip++;
|
*pstridx = -1;
|
*pstridx = -1;
|
}
|
}
|
deleting = -1;
|
deleting = -1;
|
continue;
|
continue;
|
}
|
}
|
deleting = 0;
|
deleting = 0;
|
if ((*reloc_symbol_deleted_p) (sym + VALOFF - stabbuf, cookie))
|
if ((*reloc_symbol_deleted_p) (sym + VALOFF - stabbuf, cookie))
|
deleting = 1;
|
deleting = 1;
|
}
|
}
|
|
|
if (deleting == 1)
|
if (deleting == 1)
|
{
|
{
|
*pstridx = -1;
|
*pstridx = -1;
|
skip++;
|
skip++;
|
}
|
}
|
else if (deleting == -1)
|
else if (deleting == -1)
|
{
|
{
|
/* Outside of a function. Check for deleted variables. */
|
/* Outside of a function. Check for deleted variables. */
|
if (type == (int) N_STSYM || type == (int) N_LCSYM)
|
if (type == (int) N_STSYM || type == (int) N_LCSYM)
|
if ((*reloc_symbol_deleted_p) (sym + VALOFF - stabbuf, cookie))
|
if ((*reloc_symbol_deleted_p) (sym + VALOFF - stabbuf, cookie))
|
{
|
{
|
*pstridx = -1;
|
*pstridx = -1;
|
skip ++;
|
skip ++;
|
}
|
}
|
/* We should also check for N_GSYM entries which reference a
|
/* We should also check for N_GSYM entries which reference a
|
deleted global, but those are less harmful to debuggers
|
deleted global, but those are less harmful to debuggers
|
and would require parsing the stab strings. */
|
and would require parsing the stab strings. */
|
}
|
}
|
}
|
}
|
|
|
free (stabbuf);
|
free (stabbuf);
|
stabbuf = NULL;
|
stabbuf = NULL;
|
|
|
/* Shrink the stabsec as needed. */
|
/* Shrink the stabsec as needed. */
|
stabsec->size -= skip * STABSIZE;
|
stabsec->size -= skip * STABSIZE;
|
if (stabsec->size == 0)
|
if (stabsec->size == 0)
|
stabsec->flags |= SEC_EXCLUDE | SEC_KEEP;
|
stabsec->flags |= SEC_EXCLUDE | SEC_KEEP;
|
|
|
/* Recalculate the `cumulative_skips' array now that stabs have been
|
/* Recalculate the `cumulative_skips' array now that stabs have been
|
deleted for this section. */
|
deleted for this section. */
|
|
|
if (skip != 0)
|
if (skip != 0)
|
{
|
{
|
bfd_size_type i, offset;
|
bfd_size_type i, offset;
|
bfd_size_type *pskips;
|
bfd_size_type *pskips;
|
|
|
if (secinfo->cumulative_skips == NULL)
|
if (secinfo->cumulative_skips == NULL)
|
{
|
{
|
amt = count * sizeof (bfd_size_type);
|
amt = count * sizeof (bfd_size_type);
|
secinfo->cumulative_skips = (bfd_size_type *) bfd_alloc (abfd, amt);
|
secinfo->cumulative_skips = (bfd_size_type *) bfd_alloc (abfd, amt);
|
if (secinfo->cumulative_skips == NULL)
|
if (secinfo->cumulative_skips == NULL)
|
goto error_return;
|
goto error_return;
|
}
|
}
|
|
|
pskips = secinfo->cumulative_skips;
|
pskips = secinfo->cumulative_skips;
|
pstridx = secinfo->stridxs;
|
pstridx = secinfo->stridxs;
|
offset = 0;
|
offset = 0;
|
|
|
for (i = 0; i < count; i++, pskips++, pstridx++)
|
for (i = 0; i < count; i++, pskips++, pstridx++)
|
{
|
{
|
*pskips = offset;
|
*pskips = offset;
|
if (*pstridx == (bfd_size_type) -1)
|
if (*pstridx == (bfd_size_type) -1)
|
offset += STABSIZE;
|
offset += STABSIZE;
|
}
|
}
|
|
|
BFD_ASSERT (offset != 0);
|
BFD_ASSERT (offset != 0);
|
}
|
}
|
|
|
return skip > 0;
|
return skip > 0;
|
|
|
error_return:
|
error_return:
|
if (stabbuf != NULL)
|
if (stabbuf != NULL)
|
free (stabbuf);
|
free (stabbuf);
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
/* Write out the stab section. This is called with the relocated
|
/* Write out the stab section. This is called with the relocated
|
contents. */
|
contents. */
|
|
|
bfd_boolean
|
bfd_boolean
|
_bfd_write_section_stabs (bfd *output_bfd,
|
_bfd_write_section_stabs (bfd *output_bfd,
|
struct stab_info *sinfo,
|
struct stab_info *sinfo,
|
asection *stabsec,
|
asection *stabsec,
|
void * *psecinfo,
|
void * *psecinfo,
|
bfd_byte *contents)
|
bfd_byte *contents)
|
{
|
{
|
struct stab_section_info *secinfo;
|
struct stab_section_info *secinfo;
|
struct stab_excl_list *e;
|
struct stab_excl_list *e;
|
bfd_byte *sym, *tosym, *symend;
|
bfd_byte *sym, *tosym, *symend;
|
bfd_size_type *pstridx;
|
bfd_size_type *pstridx;
|
|
|
secinfo = (struct stab_section_info *) *psecinfo;
|
secinfo = (struct stab_section_info *) *psecinfo;
|
|
|
if (secinfo == NULL)
|
if (secinfo == NULL)
|
return bfd_set_section_contents (output_bfd, stabsec->output_section,
|
return bfd_set_section_contents (output_bfd, stabsec->output_section,
|
contents, stabsec->output_offset,
|
contents, stabsec->output_offset,
|
stabsec->size);
|
stabsec->size);
|
|
|
/* Handle each N_BINCL entry. */
|
/* Handle each N_BINCL entry. */
|
for (e = secinfo->excls; e != NULL; e = e->next)
|
for (e = secinfo->excls; e != NULL; e = e->next)
|
{
|
{
|
bfd_byte *excl_sym;
|
bfd_byte *excl_sym;
|
|
|
BFD_ASSERT (e->offset < stabsec->rawsize);
|
BFD_ASSERT (e->offset < stabsec->rawsize);
|
excl_sym = contents + e->offset;
|
excl_sym = contents + e->offset;
|
bfd_put_32 (output_bfd, e->val, excl_sym + VALOFF);
|
bfd_put_32 (output_bfd, e->val, excl_sym + VALOFF);
|
excl_sym[TYPEOFF] = e->type;
|
excl_sym[TYPEOFF] = e->type;
|
}
|
}
|
|
|
/* Copy over all the stabs symbols, omitting the ones we don't want,
|
/* Copy over all the stabs symbols, omitting the ones we don't want,
|
and correcting the string indices for those we do want. */
|
and correcting the string indices for those we do want. */
|
tosym = contents;
|
tosym = contents;
|
symend = contents + stabsec->rawsize;
|
symend = contents + stabsec->rawsize;
|
for (sym = contents, pstridx = secinfo->stridxs;
|
for (sym = contents, pstridx = secinfo->stridxs;
|
sym < symend;
|
sym < symend;
|
sym += STABSIZE, ++pstridx)
|
sym += STABSIZE, ++pstridx)
|
{
|
{
|
if (*pstridx != (bfd_size_type) -1)
|
if (*pstridx != (bfd_size_type) -1)
|
{
|
{
|
if (tosym != sym)
|
if (tosym != sym)
|
memcpy (tosym, sym, STABSIZE);
|
memcpy (tosym, sym, STABSIZE);
|
bfd_put_32 (output_bfd, *pstridx, tosym + STRDXOFF);
|
bfd_put_32 (output_bfd, *pstridx, tosym + STRDXOFF);
|
|
|
if (sym[TYPEOFF] == 0)
|
if (sym[TYPEOFF] == 0)
|
{
|
{
|
/* This is the header symbol for the stabs section. We
|
/* This is the header symbol for the stabs section. We
|
don't really need one, since we have merged all the
|
don't really need one, since we have merged all the
|
input stabs sections into one, but we generate one
|
input stabs sections into one, but we generate one
|
for the benefit of readers which expect to see one. */
|
for the benefit of readers which expect to see one. */
|
BFD_ASSERT (sym == contents);
|
BFD_ASSERT (sym == contents);
|
bfd_put_32 (output_bfd, _bfd_stringtab_size (sinfo->strings),
|
bfd_put_32 (output_bfd, _bfd_stringtab_size (sinfo->strings),
|
tosym + VALOFF);
|
tosym + VALOFF);
|
bfd_put_16 (output_bfd,
|
bfd_put_16 (output_bfd,
|
stabsec->output_section->size / STABSIZE - 1,
|
stabsec->output_section->size / STABSIZE - 1,
|
tosym + DESCOFF);
|
tosym + DESCOFF);
|
}
|
}
|
|
|
tosym += STABSIZE;
|
tosym += STABSIZE;
|
}
|
}
|
}
|
}
|
|
|
BFD_ASSERT ((bfd_size_type) (tosym - contents) == stabsec->size);
|
BFD_ASSERT ((bfd_size_type) (tosym - contents) == stabsec->size);
|
|
|
return bfd_set_section_contents (output_bfd, stabsec->output_section,
|
return bfd_set_section_contents (output_bfd, stabsec->output_section,
|
contents, (file_ptr) stabsec->output_offset,
|
contents, (file_ptr) stabsec->output_offset,
|
stabsec->size);
|
stabsec->size);
|
}
|
}
|
|
|
/* Write out the .stabstr section. */
|
/* Write out the .stabstr section. */
|
|
|
bfd_boolean
|
bfd_boolean
|
_bfd_write_stab_strings (bfd *output_bfd, struct stab_info *sinfo)
|
_bfd_write_stab_strings (bfd *output_bfd, struct stab_info *sinfo)
|
{
|
{
|
if (bfd_is_abs_section (sinfo->stabstr->output_section))
|
if (bfd_is_abs_section (sinfo->stabstr->output_section))
|
/* The section was discarded from the link. */
|
/* The section was discarded from the link. */
|
return TRUE;
|
return TRUE;
|
|
|
BFD_ASSERT ((sinfo->stabstr->output_offset
|
BFD_ASSERT ((sinfo->stabstr->output_offset
|
+ _bfd_stringtab_size (sinfo->strings))
|
+ _bfd_stringtab_size (sinfo->strings))
|
<= sinfo->stabstr->output_section->size);
|
<= sinfo->stabstr->output_section->size);
|
|
|
if (bfd_seek (output_bfd,
|
if (bfd_seek (output_bfd,
|
(file_ptr) (sinfo->stabstr->output_section->filepos
|
(file_ptr) (sinfo->stabstr->output_section->filepos
|
+ sinfo->stabstr->output_offset),
|
+ sinfo->stabstr->output_offset),
|
SEEK_SET) != 0)
|
SEEK_SET) != 0)
|
return FALSE;
|
return FALSE;
|
|
|
if (! _bfd_stringtab_emit (output_bfd, sinfo->strings))
|
if (! _bfd_stringtab_emit (output_bfd, sinfo->strings))
|
return FALSE;
|
return FALSE;
|
|
|
/* We no longer need the stabs information. */
|
/* We no longer need the stabs information. */
|
_bfd_stringtab_free (sinfo->strings);
|
_bfd_stringtab_free (sinfo->strings);
|
bfd_hash_table_free (&sinfo->includes);
|
bfd_hash_table_free (&sinfo->includes);
|
|
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Adjust an address in the .stab section. Given OFFSET within
|
/* Adjust an address in the .stab section. Given OFFSET within
|
STABSEC, this returns the new offset in the adjusted stab section,
|
STABSEC, this returns the new offset in the adjusted stab section,
|
or -1 if the address refers to a stab which has been removed. */
|
or -1 if the address refers to a stab which has been removed. */
|
|
|
bfd_vma
|
bfd_vma
|
_bfd_stab_section_offset (asection *stabsec,
|
_bfd_stab_section_offset (asection *stabsec,
|
void * psecinfo,
|
void * psecinfo,
|
bfd_vma offset)
|
bfd_vma offset)
|
{
|
{
|
struct stab_section_info *secinfo;
|
struct stab_section_info *secinfo;
|
|
|
secinfo = (struct stab_section_info *) psecinfo;
|
secinfo = (struct stab_section_info *) psecinfo;
|
|
|
if (secinfo == NULL)
|
if (secinfo == NULL)
|
return offset;
|
return offset;
|
|
|
if (offset >= stabsec->rawsize)
|
if (offset >= stabsec->rawsize)
|
return offset - stabsec->rawsize + stabsec->size;
|
return offset - stabsec->rawsize + stabsec->size;
|
|
|
if (secinfo->cumulative_skips)
|
if (secinfo->cumulative_skips)
|
{
|
{
|
bfd_vma i;
|
bfd_vma i;
|
|
|
i = offset / STABSIZE;
|
i = offset / STABSIZE;
|
|
|
if (secinfo->stridxs [i] == (bfd_size_type) -1)
|
if (secinfo->stridxs [i] == (bfd_size_type) -1)
|
return (bfd_vma) -1;
|
return (bfd_vma) -1;
|
|
|
return offset - secinfo->cumulative_skips [i];
|
return offset - secinfo->cumulative_skips [i];
|
}
|
}
|
|
|
return offset;
|
return offset;
|
}
|
}
|
|
|
