1999-05-03 07:29:11 +00:00
|
|
|
/* Generic stabs parsing for gas.
|
2014-03-05 11:46:15 +00:00
|
|
|
Copyright (C) 1989-2014 Free Software Foundation, Inc.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2007-07-03 11:01:12 +00:00
|
|
|
This file is part of GAS, the GNU Assembler.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2007-07-03 11:01:12 +00:00
|
|
|
GAS 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,
|
|
|
|
or (at your option) any later version.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2007-07-03 11:01:12 +00:00
|
|
|
GAS 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.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2007-07-03 11:01:12 +00:00
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with GAS; see the file COPYING. If not, write to the Free
|
|
|
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
|
|
|
02110-1301, USA. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
#include "as.h"
|
2011-02-28 18:32:52 +00:00
|
|
|
#include "filenames.h"
|
1999-05-03 07:29:11 +00:00
|
|
|
#include "obstack.h"
|
|
|
|
#include "subsegs.h"
|
|
|
|
#include "ecoff.h"
|
|
|
|
|
|
|
|
/* We need this, despite the apparent object format dependency, since
|
2000-09-12 03:56:22 +00:00
|
|
|
it defines stab types, which all object formats can use now. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
#include "aout/stab_gnu.h"
|
|
|
|
|
2000-12-05 00:56:09 +00:00
|
|
|
/* Holds whether the assembler is generating stabs line debugging
|
|
|
|
information or not. Potentially used by md_cleanup function. */
|
|
|
|
|
2000-12-12 21:21:39 +00:00
|
|
|
int outputting_stabs_line_debug = 0;
|
2000-12-05 00:56:09 +00:00
|
|
|
|
2003-12-03 03:39:58 +00:00
|
|
|
static void s_stab_generic (int, char *, char *);
|
|
|
|
static void generate_asm_file (int, char *);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
/* Allow backends to override the names used for the stab sections. */
|
|
|
|
#ifndef STAB_SECTION_NAME
|
|
|
|
#define STAB_SECTION_NAME ".stab"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef STAB_STRING_SECTION_NAME
|
|
|
|
#define STAB_STRING_SECTION_NAME ".stabstr"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Non-zero if we're in the middle of a .func function, in which case
|
|
|
|
stabs_generate_asm_lineno emits function relative line number stabs.
|
|
|
|
Otherwise it emits line number stabs with absolute addresses. Note that
|
|
|
|
both cases only apply to assembler code assembled with -gstabs. */
|
|
|
|
static int in_dot_func_p;
|
|
|
|
|
|
|
|
/* Label at start of current function if in_dot_func_p != 0. */
|
|
|
|
static const char *current_function_label;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Handle .stabX directives, which used to be open-coded.
|
|
|
|
* So much creeping featurism overloaded the semantics that we decided
|
|
|
|
* to put all .stabX thinking in one place. Here.
|
|
|
|
*
|
|
|
|
* We try to make any .stabX directive legal. Other people's AS will often
|
|
|
|
* do assembly-time consistency checks: eg assigning meaning to n_type bits
|
|
|
|
* and "protecting" you from setting them to certain values. (They also zero
|
|
|
|
* certain bits before emitting symbols. Tut tut.)
|
|
|
|
*
|
|
|
|
* If an expression is not absolute we either gripe or use the relocation
|
|
|
|
* information. Other people's assemblers silently forget information they
|
|
|
|
* don't need and invent information they need that you didn't supply.
|
|
|
|
*/
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Build a string dictionary entry for a .stabX symbol.
|
|
|
|
* The symbol is added to the .<secname>str section.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifndef SEPARATE_STAB_SECTIONS
|
|
|
|
#define SEPARATE_STAB_SECTIONS 0
|
|
|
|
#endif
|
|
|
|
|
|
|
|
unsigned int
|
2003-12-03 03:39:58 +00:00
|
|
|
get_stab_string_offset (const char *string, const char *stabstr_secname)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
unsigned int length;
|
|
|
|
unsigned int retval;
|
|
|
|
segT save_seg;
|
|
|
|
subsegT save_subseg;
|
|
|
|
segT seg;
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
if (! SEPARATE_STAB_SECTIONS)
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
length = strlen (string);
|
|
|
|
|
|
|
|
save_seg = now_seg;
|
|
|
|
save_subseg = now_subseg;
|
|
|
|
|
|
|
|
/* Create the stab string section. */
|
|
|
|
seg = subseg_new (stabstr_secname, 0);
|
|
|
|
|
|
|
|
retval = seg_info (seg)->stabu.stab_string_size;
|
|
|
|
if (retval <= 0)
|
|
|
|
{
|
|
|
|
/* Make sure the first string is empty. */
|
|
|
|
p = frag_more (1);
|
|
|
|
*p = 0;
|
|
|
|
retval = seg_info (seg)->stabu.stab_string_size = 1;
|
|
|
|
bfd_set_section_flags (stdoutput, seg, SEC_READONLY | SEC_DEBUGGING);
|
|
|
|
if (seg->name == stabstr_secname)
|
|
|
|
seg->name = xstrdup (stabstr_secname);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (length > 0)
|
2000-09-12 03:56:22 +00:00
|
|
|
{ /* Ordinary case. */
|
1999-05-03 07:29:11 +00:00
|
|
|
p = frag_more (length + 1);
|
|
|
|
strcpy (p, string);
|
|
|
|
|
|
|
|
seg_info (seg)->stabu.stab_string_size += length + 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
retval = 0;
|
|
|
|
|
|
|
|
subseg_set (save_seg, save_subseg);
|
|
|
|
|
|
|
|
return retval;
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef AOUT_STABS
|
|
|
|
#ifndef OBJ_PROCESS_STAB
|
|
|
|
#define OBJ_PROCESS_STAB(SEG,W,S,T,O,D) aout_process_stab(W,S,T,O,D)
|
|
|
|
#endif
|
|
|
|
|
2000-05-21 18:26:10 +00:00
|
|
|
/* Here instead of obj-aout.c because other formats use it too. */
|
|
|
|
void
|
1999-05-03 07:29:11 +00:00
|
|
|
aout_process_stab (what, string, type, other, desc)
|
|
|
|
int what;
|
|
|
|
const char *string;
|
|
|
|
int type, other, desc;
|
|
|
|
{
|
|
|
|
/* Put the stab information in the symbol table. */
|
|
|
|
symbolS *symbol;
|
|
|
|
|
|
|
|
/* Create the symbol now, but only insert it into the symbol chain
|
|
|
|
after any symbols mentioned in the value expression get into the
|
|
|
|
symbol chain. This is to avoid "continuation symbols" (where one
|
|
|
|
ends in "\" and the debug info is continued in the next .stabs
|
|
|
|
directive) from being separated by other random symbols. */
|
|
|
|
symbol = symbol_create (string, undefined_section, 0,
|
2005-04-09 03:48:09 +00:00
|
|
|
&zero_address_frag);
|
1999-05-03 07:29:11 +00:00
|
|
|
if (what == 's' || what == 'n')
|
|
|
|
{
|
|
|
|
/* Pick up the value from the input line. */
|
|
|
|
pseudo_set (symbol);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* .stabd sets the name to NULL. Why? */
|
|
|
|
S_SET_NAME (symbol, NULL);
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 00:29:48 +00:00
|
|
|
symbol_set_frag (symbol, frag_now);
|
1999-05-03 07:29:11 +00:00
|
|
|
S_SET_VALUE (symbol, (valueT) frag_now_fix ());
|
|
|
|
}
|
|
|
|
|
|
|
|
symbol_append (symbol, symbol_lastP, &symbol_rootP, &symbol_lastP);
|
|
|
|
|
2007-10-03 11:35:16 +00:00
|
|
|
symbol_get_bfdsym (symbol)->flags |= BSF_DEBUGGING;
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
S_SET_TYPE (symbol, type);
|
|
|
|
S_SET_OTHER (symbol, other);
|
|
|
|
S_SET_DESC (symbol, desc);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* This can handle different kinds of stabs (s,n,d) and different
|
2000-09-12 03:56:22 +00:00
|
|
|
kinds of stab sections. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2000-09-12 03:56:22 +00:00
|
|
|
static void
|
2003-12-03 03:39:58 +00:00
|
|
|
s_stab_generic (int what, char *stab_secname, char *stabstr_secname)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
long longint;
|
2001-03-15 19:30:32 +00:00
|
|
|
char *string, *saved_string_obstack_end;
|
1999-05-03 07:29:11 +00:00
|
|
|
int type;
|
|
|
|
int other;
|
|
|
|
int desc;
|
|
|
|
|
|
|
|
/* The general format is:
|
|
|
|
.stabs "STRING",TYPE,OTHER,DESC,VALUE
|
|
|
|
.stabn TYPE,OTHER,DESC,VALUE
|
|
|
|
.stabd TYPE,OTHER,DESC
|
|
|
|
At this point input_line_pointer points after the pseudo-op and
|
|
|
|
any trailing whitespace. The argument what is one of 's', 'n' or
|
|
|
|
'd' indicating which type of .stab this is. */
|
|
|
|
|
|
|
|
if (what != 's')
|
2001-03-15 19:30:32 +00:00
|
|
|
{
|
|
|
|
string = "";
|
|
|
|
saved_string_obstack_end = 0;
|
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
else
|
|
|
|
{
|
|
|
|
int length;
|
|
|
|
|
|
|
|
string = demand_copy_C_string (&length);
|
2001-03-15 19:30:32 +00:00
|
|
|
/* FIXME: We should probably find some other temporary storage
|
|
|
|
for string, rather than leaking memory if someone else
|
|
|
|
happens to use the notes obstack. */
|
|
|
|
saved_string_obstack_end = notes.next_free;
|
1999-05-03 07:29:11 +00:00
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
input_line_pointer++;
|
|
|
|
else
|
|
|
|
{
|
* read.c: Standardize error/warning messages - don't capitalise, no
final period or newline, don't say "ignored" or "zero assumed" for
as_bad messages. In some cases, change the wording to that used
elsewhere for similar messages.
* app.c, as.c, atof-generic.c, cgen.c, cond.c, depend.c, dwarf2dbg.c,
ecoff.c, expr.c, frags.c, input-file.c, input-scrub.c, listing.c,
output-file.c, stabs.c, subsegs.c, symbols.c, write.c: Likewise.
* ecoff.c (ecoff_directive_end): Test for missing name by
comparing input line pointers rather than reading string.
(ecoff_directive_ent): Likewise.
* read.c (s_set): Likewise.
(s_align): Report a warning rather than an error for
alignment too large.
(s_comm): Check for missing symbol name.
(s_lcomm_internal): Likewise.
(s_lsym): Likewise.
(s_globl): Use is_end_of_line instead of looking for '\n'.
(s_lcomm_internal): Likewise.
(ignore_rest_of_line): Report a warning rather than an error.
2001-08-01 01:44:25 +00:00
|
|
|
as_warn (_(".stab%c: missing comma"), what);
|
1999-05-03 07:29:11 +00:00
|
|
|
ignore_rest_of_line ();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (get_absolute_expression_and_terminator (&longint) != ',')
|
|
|
|
{
|
* read.c: Standardize error/warning messages - don't capitalise, no
final period or newline, don't say "ignored" or "zero assumed" for
as_bad messages. In some cases, change the wording to that used
elsewhere for similar messages.
* app.c, as.c, atof-generic.c, cgen.c, cond.c, depend.c, dwarf2dbg.c,
ecoff.c, expr.c, frags.c, input-file.c, input-scrub.c, listing.c,
output-file.c, stabs.c, subsegs.c, symbols.c, write.c: Likewise.
* ecoff.c (ecoff_directive_end): Test for missing name by
comparing input line pointers rather than reading string.
(ecoff_directive_ent): Likewise.
* read.c (s_set): Likewise.
(s_align): Report a warning rather than an error for
alignment too large.
(s_comm): Check for missing symbol name.
(s_lcomm_internal): Likewise.
(s_lsym): Likewise.
(s_globl): Use is_end_of_line instead of looking for '\n'.
(s_lcomm_internal): Likewise.
(ignore_rest_of_line): Report a warning rather than an error.
2001-08-01 01:44:25 +00:00
|
|
|
as_warn (_(".stab%c: missing comma"), what);
|
1999-05-03 07:29:11 +00:00
|
|
|
ignore_rest_of_line ();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
type = longint;
|
|
|
|
|
|
|
|
if (get_absolute_expression_and_terminator (&longint) != ',')
|
|
|
|
{
|
* read.c: Standardize error/warning messages - don't capitalise, no
final period or newline, don't say "ignored" or "zero assumed" for
as_bad messages. In some cases, change the wording to that used
elsewhere for similar messages.
* app.c, as.c, atof-generic.c, cgen.c, cond.c, depend.c, dwarf2dbg.c,
ecoff.c, expr.c, frags.c, input-file.c, input-scrub.c, listing.c,
output-file.c, stabs.c, subsegs.c, symbols.c, write.c: Likewise.
* ecoff.c (ecoff_directive_end): Test for missing name by
comparing input line pointers rather than reading string.
(ecoff_directive_ent): Likewise.
* read.c (s_set): Likewise.
(s_align): Report a warning rather than an error for
alignment too large.
(s_comm): Check for missing symbol name.
(s_lcomm_internal): Likewise.
(s_lsym): Likewise.
(s_globl): Use is_end_of_line instead of looking for '\n'.
(s_lcomm_internal): Likewise.
(ignore_rest_of_line): Report a warning rather than an error.
2001-08-01 01:44:25 +00:00
|
|
|
as_warn (_(".stab%c: missing comma"), what);
|
1999-05-03 07:29:11 +00:00
|
|
|
ignore_rest_of_line ();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
other = longint;
|
|
|
|
|
|
|
|
desc = get_absolute_expression ();
|
2002-05-11 19:40:29 +00:00
|
|
|
|
|
|
|
if ((desc > 0xffff) || (desc < -0x8000))
|
|
|
|
/* This could happen for example with a source file with a huge
|
|
|
|
number of lines. The only cure is to use a different debug
|
|
|
|
format, probably DWARF. */
|
2002-05-13 10:16:36 +00:00
|
|
|
as_warn (_(".stab%c: description field '%x' too big, try a different debug format"),
|
2002-05-11 19:40:29 +00:00
|
|
|
what, desc);
|
2002-05-18 12:53:30 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
if (what == 's' || what == 'n')
|
|
|
|
{
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
{
|
* read.c: Standardize error/warning messages - don't capitalise, no
final period or newline, don't say "ignored" or "zero assumed" for
as_bad messages. In some cases, change the wording to that used
elsewhere for similar messages.
* app.c, as.c, atof-generic.c, cgen.c, cond.c, depend.c, dwarf2dbg.c,
ecoff.c, expr.c, frags.c, input-file.c, input-scrub.c, listing.c,
output-file.c, stabs.c, subsegs.c, symbols.c, write.c: Likewise.
* ecoff.c (ecoff_directive_end): Test for missing name by
comparing input line pointers rather than reading string.
(ecoff_directive_ent): Likewise.
* read.c (s_set): Likewise.
(s_align): Report a warning rather than an error for
alignment too large.
(s_comm): Check for missing symbol name.
(s_lcomm_internal): Likewise.
(s_lsym): Likewise.
(s_globl): Use is_end_of_line instead of looking for '\n'.
(s_lcomm_internal): Likewise.
(ignore_rest_of_line): Report a warning rather than an error.
2001-08-01 01:44:25 +00:00
|
|
|
as_warn (_(".stab%c: missing comma"), what);
|
1999-05-03 07:29:11 +00:00
|
|
|
ignore_rest_of_line ();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
input_line_pointer++;
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef TC_PPC
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
/* Solaris on PowerPC has decided that .stabd can take 4 arguments, so if we were
|
|
|
|
given 4 arguments, make it a .stabn */
|
|
|
|
else if (what == 'd')
|
|
|
|
{
|
|
|
|
char *save_location = input_line_pointer;
|
|
|
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
{
|
|
|
|
input_line_pointer++;
|
|
|
|
what = 'n';
|
|
|
|
}
|
|
|
|
else
|
|
|
|
input_line_pointer = save_location;
|
|
|
|
}
|
|
|
|
#endif /* OBJ_ELF */
|
|
|
|
#endif /* TC_PPC */
|
|
|
|
|
|
|
|
#ifndef NO_LISTING
|
|
|
|
if (listing)
|
|
|
|
{
|
|
|
|
switch (type)
|
|
|
|
{
|
|
|
|
case N_SLINE:
|
|
|
|
listing_source_line ((unsigned int) desc);
|
|
|
|
break;
|
|
|
|
case N_SO:
|
|
|
|
case N_SOL:
|
|
|
|
listing_source_file (string);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif /* ! NO_LISTING */
|
|
|
|
|
|
|
|
/* We have now gathered the type, other, and desc information. For
|
|
|
|
.stabs or .stabn, input_line_pointer is now pointing at the
|
|
|
|
value. */
|
|
|
|
|
|
|
|
if (SEPARATE_STAB_SECTIONS)
|
|
|
|
/* Output the stab information in a separate section. This is used
|
|
|
|
at least for COFF and ELF. */
|
|
|
|
{
|
|
|
|
segT saved_seg = now_seg;
|
|
|
|
subsegT saved_subseg = now_subseg;
|
|
|
|
fragS *saved_frag = frag_now;
|
|
|
|
valueT dot;
|
|
|
|
segT seg;
|
|
|
|
unsigned int stroff;
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
static segT cached_sec;
|
|
|
|
static char *cached_secname;
|
|
|
|
|
|
|
|
dot = frag_now_fix ();
|
|
|
|
|
|
|
|
#ifdef md_flush_pending_output
|
|
|
|
md_flush_pending_output ();
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if (cached_secname && !strcmp (cached_secname, stab_secname))
|
|
|
|
{
|
|
|
|
seg = cached_sec;
|
|
|
|
subseg_set (seg, 0);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
seg = subseg_new (stab_secname, 0);
|
|
|
|
if (cached_secname)
|
|
|
|
free (cached_secname);
|
|
|
|
cached_secname = xstrdup (stab_secname);
|
|
|
|
cached_sec = seg;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (! seg_info (seg)->hadone)
|
|
|
|
{
|
|
|
|
bfd_set_section_flags (stdoutput, seg,
|
|
|
|
SEC_READONLY | SEC_RELOC | SEC_DEBUGGING);
|
|
|
|
#ifdef INIT_STAB_SECTION
|
|
|
|
INIT_STAB_SECTION (seg);
|
|
|
|
#endif
|
|
|
|
seg_info (seg)->hadone = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
stroff = get_stab_string_offset (string, stabstr_secname);
|
|
|
|
if (what == 's')
|
|
|
|
{
|
2001-03-15 19:30:32 +00:00
|
|
|
/* Release the string, if nobody else has used the obstack. */
|
2002-05-03 02:25:33 +00:00
|
|
|
if (saved_string_obstack_end == notes.next_free)
|
2001-03-15 19:30:32 +00:00
|
|
|
obstack_free (¬es, string);
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/* At least for now, stabs in a special stab section are always
|
|
|
|
output as 12 byte blocks of information. */
|
|
|
|
p = frag_more (8);
|
|
|
|
md_number_to_chars (p, (valueT) stroff, 4);
|
|
|
|
md_number_to_chars (p + 4, (valueT) type, 1);
|
|
|
|
md_number_to_chars (p + 5, (valueT) other, 1);
|
|
|
|
md_number_to_chars (p + 6, (valueT) desc, 2);
|
|
|
|
|
|
|
|
if (what == 's' || what == 'n')
|
|
|
|
{
|
|
|
|
/* Pick up the value from the input line. */
|
|
|
|
cons (4);
|
|
|
|
input_line_pointer--;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
symbolS *symbol;
|
|
|
|
expressionS exp;
|
|
|
|
|
|
|
|
/* Arrange for a value representing the current location. */
|
2003-05-27 19:19:29 +00:00
|
|
|
symbol = symbol_temp_new (saved_seg, dot, saved_frag);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
exp.X_op = O_symbol;
|
|
|
|
exp.X_add_symbol = symbol;
|
|
|
|
exp.X_add_number = 0;
|
|
|
|
|
|
|
|
emit_expr (&exp, 4);
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef OBJ_PROCESS_STAB
|
|
|
|
OBJ_PROCESS_STAB (seg, what, string, type, other, desc);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
subseg_set (saved_seg, saved_subseg);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
#ifdef OBJ_PROCESS_STAB
|
|
|
|
OBJ_PROCESS_STAB (0, what, string, type, other, desc);
|
|
|
|
#else
|
|
|
|
abort ();
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
}
|
|
|
|
|
2000-09-12 03:56:22 +00:00
|
|
|
/* Regular stab directive. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
void
|
2003-12-03 03:39:58 +00:00
|
|
|
s_stab (int what)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
s_stab_generic (what, STAB_SECTION_NAME, STAB_STRING_SECTION_NAME);
|
|
|
|
}
|
|
|
|
|
2000-09-12 03:56:22 +00:00
|
|
|
/* "Extended stabs", used in Solaris only now. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
void
|
2003-12-03 03:39:58 +00:00
|
|
|
s_xstab (int what)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
int length;
|
|
|
|
char *stab_secname, *stabstr_secname;
|
|
|
|
static char *saved_secname, *saved_strsecname;
|
|
|
|
|
|
|
|
/* @@ MEMORY LEAK: This allocates a copy of the string, but in most
|
|
|
|
cases it will be the same string, so we could release the storage
|
|
|
|
back to the obstack it came from. */
|
|
|
|
stab_secname = demand_copy_C_string (&length);
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
input_line_pointer++;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
as_bad (_("comma missing in .xstabs"));
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* To get the name of the stab string section, simply add "str" to
|
|
|
|
the stab section name. */
|
|
|
|
if (saved_secname == 0 || strcmp (saved_secname, stab_secname))
|
|
|
|
{
|
|
|
|
stabstr_secname = (char *) xmalloc (strlen (stab_secname) + 4);
|
|
|
|
strcpy (stabstr_secname, stab_secname);
|
|
|
|
strcat (stabstr_secname, "str");
|
|
|
|
if (saved_secname)
|
|
|
|
{
|
|
|
|
free (saved_secname);
|
|
|
|
free (saved_strsecname);
|
|
|
|
}
|
|
|
|
saved_secname = stab_secname;
|
|
|
|
saved_strsecname = stabstr_secname;
|
|
|
|
}
|
|
|
|
s_stab_generic (what, saved_secname, saved_strsecname);
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef S_SET_DESC
|
|
|
|
|
|
|
|
/* Frob invented at RMS' request. Set the n_desc of a symbol. */
|
|
|
|
|
2000-09-12 03:56:22 +00:00
|
|
|
void
|
1999-05-03 07:29:11 +00:00
|
|
|
s_desc (ignore)
|
2000-05-21 18:26:10 +00:00
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
char *name;
|
|
|
|
char c;
|
|
|
|
char *p;
|
|
|
|
symbolS *symbolP;
|
|
|
|
int temp;
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
c = get_symbol_end ();
|
|
|
|
p = input_line_pointer;
|
|
|
|
*p = c;
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
{
|
|
|
|
*p = 0;
|
* read.c: Standardize error/warning messages - don't capitalise, no
final period or newline, don't say "ignored" or "zero assumed" for
as_bad messages. In some cases, change the wording to that used
elsewhere for similar messages.
* app.c, as.c, atof-generic.c, cgen.c, cond.c, depend.c, dwarf2dbg.c,
ecoff.c, expr.c, frags.c, input-file.c, input-scrub.c, listing.c,
output-file.c, stabs.c, subsegs.c, symbols.c, write.c: Likewise.
* ecoff.c (ecoff_directive_end): Test for missing name by
comparing input line pointers rather than reading string.
(ecoff_directive_ent): Likewise.
* read.c (s_set): Likewise.
(s_align): Report a warning rather than an error for
alignment too large.
(s_comm): Check for missing symbol name.
(s_lcomm_internal): Likewise.
(s_lsym): Likewise.
(s_globl): Use is_end_of_line instead of looking for '\n'.
(s_lcomm_internal): Likewise.
(ignore_rest_of_line): Report a warning rather than an error.
2001-08-01 01:44:25 +00:00
|
|
|
as_bad (_("expected comma after \"%s\""), name);
|
1999-05-03 07:29:11 +00:00
|
|
|
*p = c;
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
input_line_pointer++;
|
|
|
|
temp = get_absolute_expression ();
|
|
|
|
*p = 0;
|
|
|
|
symbolP = symbol_find_or_make (name);
|
|
|
|
*p = c;
|
|
|
|
S_SET_DESC (symbolP, temp);
|
|
|
|
}
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
} /* s_desc() */
|
|
|
|
|
|
|
|
#endif /* defined (S_SET_DESC) */
|
|
|
|
|
|
|
|
/* Generate stabs debugging information to denote the main source file. */
|
|
|
|
|
|
|
|
void
|
2003-12-03 03:39:58 +00:00
|
|
|
stabs_generate_asm_file (void)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
char *file;
|
|
|
|
unsigned int lineno;
|
|
|
|
|
|
|
|
as_where (&file, &lineno);
|
2003-10-08 14:37:20 +00:00
|
|
|
if (use_gnu_debug_info_extensions)
|
|
|
|
{
|
2007-08-24 21:49:55 +00:00
|
|
|
const char *dir;
|
|
|
|
char *dir2;
|
2003-10-08 14:37:20 +00:00
|
|
|
|
2007-08-24 21:49:55 +00:00
|
|
|
dir = remap_debug_filename (getpwd ());
|
2009-09-11 15:27:38 +00:00
|
|
|
dir2 = (char *) alloca (strlen (dir) + 2);
|
2003-10-08 14:37:20 +00:00
|
|
|
sprintf (dir2, "%s%s", dir, "/");
|
|
|
|
generate_asm_file (N_SO, dir2);
|
2011-03-11 14:18:24 +00:00
|
|
|
xfree ((char *) dir);
|
2003-10-08 14:37:20 +00:00
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
generate_asm_file (N_SO, file);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Generate stabs debugging information to denote the source file.
|
|
|
|
TYPE is one of N_SO, N_SOL. */
|
|
|
|
|
|
|
|
static void
|
2003-12-03 03:39:58 +00:00
|
|
|
generate_asm_file (int type, char *file)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
static char *last_file;
|
|
|
|
static int label_count;
|
|
|
|
char *hold;
|
|
|
|
char sym[30];
|
2000-11-07 19:36:08 +00:00
|
|
|
char *buf;
|
|
|
|
char *tmp = file;
|
2009-12-11 13:42:17 +00:00
|
|
|
char *file_endp = file + strlen (file);
|
2004-02-19 17:15:28 +00:00
|
|
|
char *bufp;
|
2001-01-23 22:15:01 +00:00
|
|
|
|
2000-11-07 19:36:08 +00:00
|
|
|
if (last_file != NULL
|
2011-02-28 18:32:52 +00:00
|
|
|
&& filename_cmp (last_file, file) == 0)
|
2000-11-07 19:36:08 +00:00
|
|
|
return;
|
2001-01-23 22:15:01 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
/* Rather than try to do this in some efficient fashion, we just
|
|
|
|
generate a string and then parse it again. That lets us use the
|
|
|
|
existing stabs hook, which expect to see a string, rather than
|
|
|
|
inventing new ones. */
|
|
|
|
hold = input_line_pointer;
|
|
|
|
|
2000-11-07 19:36:08 +00:00
|
|
|
sprintf (sym, "%sF%d", FAKE_LABEL_NAME, label_count);
|
|
|
|
++label_count;
|
|
|
|
|
|
|
|
/* Allocate enough space for the file name (possibly extended with
|
|
|
|
doubled up backslashes), the symbol name, and the other characters
|
|
|
|
that make up a stabs file directive. */
|
2009-09-11 15:27:38 +00:00
|
|
|
bufp = buf = (char *) xmalloc (2 * strlen (file) + strlen (sym) + 12);
|
2001-01-23 22:15:01 +00:00
|
|
|
|
2000-11-07 19:36:08 +00:00
|
|
|
*bufp++ = '"';
|
|
|
|
|
2009-12-11 13:42:17 +00:00
|
|
|
while (tmp < file_endp)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
2000-11-07 19:36:08 +00:00
|
|
|
char *bslash = strchr (tmp, '\\');
|
2001-06-25 07:57:09 +00:00
|
|
|
size_t len = (bslash) ? (size_t) (bslash - tmp + 1) : strlen (tmp);
|
2001-01-23 22:15:01 +00:00
|
|
|
|
2000-11-07 19:36:08 +00:00
|
|
|
/* Double all backslashes, since demand_copy_C_string (used by
|
|
|
|
s_stab to extract the part in quotes) will try to replace them as
|
|
|
|
escape sequences. backslash may appear in a filespec. */
|
|
|
|
strncpy (bufp, tmp, len);
|
2001-01-23 22:15:01 +00:00
|
|
|
|
2000-11-07 19:36:08 +00:00
|
|
|
tmp += len;
|
|
|
|
bufp += len;
|
|
|
|
|
|
|
|
if (bslash != NULL)
|
|
|
|
*bufp++ = '\\';
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
|
2000-11-07 19:36:08 +00:00
|
|
|
sprintf (bufp, "\",%d,0,0,%s\n", type, sym);
|
|
|
|
|
|
|
|
input_line_pointer = buf;
|
|
|
|
s_stab ('s');
|
|
|
|
colon (sym);
|
|
|
|
|
|
|
|
if (last_file != NULL)
|
|
|
|
free (last_file);
|
|
|
|
last_file = xstrdup (file);
|
2001-01-23 22:15:01 +00:00
|
|
|
|
2000-02-02 00:24:17 +00:00
|
|
|
free (buf);
|
2000-11-07 19:36:08 +00:00
|
|
|
|
|
|
|
input_line_pointer = hold;
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Generate stabs debugging information for the current line. This is
|
|
|
|
used to produce debugging information for an assembler file. */
|
|
|
|
|
|
|
|
void
|
2003-12-03 03:39:58 +00:00
|
|
|
stabs_generate_asm_lineno (void)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
static int label_count;
|
|
|
|
char *hold;
|
|
|
|
char *file;
|
|
|
|
unsigned int lineno;
|
|
|
|
char *buf;
|
|
|
|
char sym[30];
|
2002-05-03 02:25:33 +00:00
|
|
|
/* Remember the last file/line and avoid duplicates. */
|
2001-12-04 23:07:26 +00:00
|
|
|
static unsigned int prev_lineno = -1;
|
|
|
|
static char *prev_file = NULL;
|
2000-12-05 00:56:09 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
/* Rather than try to do this in some efficient fashion, we just
|
|
|
|
generate a string and then parse it again. That lets us use the
|
|
|
|
existing stabs hook, which expect to see a string, rather than
|
|
|
|
inventing new ones. */
|
|
|
|
|
|
|
|
hold = input_line_pointer;
|
|
|
|
|
|
|
|
as_where (&file, &lineno);
|
|
|
|
|
2002-05-03 02:25:33 +00:00
|
|
|
/* Don't emit sequences of stabs for the same line. */
|
2001-12-04 23:07:26 +00:00
|
|
|
if (prev_file == NULL)
|
|
|
|
{
|
2002-05-03 02:25:33 +00:00
|
|
|
/* First time thru. */
|
2001-12-04 23:07:26 +00:00
|
|
|
prev_file = xstrdup (file);
|
|
|
|
prev_lineno = lineno;
|
|
|
|
}
|
|
|
|
else if (lineno == prev_lineno
|
2011-02-28 18:32:52 +00:00
|
|
|
&& filename_cmp (file, prev_file) == 0)
|
2001-12-04 23:07:26 +00:00
|
|
|
{
|
2002-05-03 02:25:33 +00:00
|
|
|
/* Same file/line as last time. */
|
2001-12-04 23:07:26 +00:00
|
|
|
return;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2002-05-03 02:25:33 +00:00
|
|
|
/* Remember file/line for next time. */
|
2001-12-04 23:07:26 +00:00
|
|
|
prev_lineno = lineno;
|
2011-02-28 18:32:52 +00:00
|
|
|
if (filename_cmp (file, prev_file) != 0)
|
2001-12-04 23:07:26 +00:00
|
|
|
{
|
|
|
|
free (prev_file);
|
|
|
|
prev_file = xstrdup (file);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Let the world know that we are in the middle of generating a
|
|
|
|
piece of stabs line debugging information. */
|
|
|
|
outputting_stabs_line_debug = 1;
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
generate_asm_file (N_SOL, file);
|
|
|
|
|
|
|
|
sprintf (sym, "%sL%d", FAKE_LABEL_NAME, label_count);
|
|
|
|
++label_count;
|
|
|
|
|
|
|
|
if (in_dot_func_p)
|
|
|
|
{
|
|
|
|
buf = (char *) alloca (100 + strlen (current_function_label));
|
|
|
|
sprintf (buf, "%d,0,%d,%s-%s\n", N_SLINE, lineno,
|
|
|
|
sym, current_function_label);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
buf = (char *) alloca (100);
|
|
|
|
sprintf (buf, "%d,0,%d,%s\n", N_SLINE, lineno, sym);
|
|
|
|
}
|
|
|
|
input_line_pointer = buf;
|
|
|
|
s_stab ('n');
|
|
|
|
colon (sym);
|
|
|
|
|
|
|
|
input_line_pointer = hold;
|
2000-12-05 00:56:09 +00:00
|
|
|
outputting_stabs_line_debug = 0;
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Emit a function stab.
|
|
|
|
All assembler functions are assumed to have return type `void'. */
|
|
|
|
|
|
|
|
void
|
2003-12-03 03:39:58 +00:00
|
|
|
stabs_generate_asm_func (const char *funcname, const char *startlabname)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
static int void_emitted_p;
|
|
|
|
char *hold = input_line_pointer;
|
|
|
|
char *buf;
|
|
|
|
char *file;
|
|
|
|
unsigned int lineno;
|
|
|
|
|
|
|
|
if (! void_emitted_p)
|
|
|
|
{
|
|
|
|
input_line_pointer = "\"void:t1=1\",128,0,0,0";
|
|
|
|
s_stab ('s');
|
|
|
|
void_emitted_p = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
as_where (&file, &lineno);
|
2007-10-15 02:01:25 +00:00
|
|
|
if (asprintf (&buf, "\"%s:F1\",%d,0,%d,%s",
|
|
|
|
funcname, N_FUN, lineno + 1, startlabname) == -1)
|
|
|
|
as_fatal ("%s", xstrerror (errno));
|
1999-05-03 07:29:11 +00:00
|
|
|
input_line_pointer = buf;
|
|
|
|
s_stab ('s');
|
|
|
|
free (buf);
|
|
|
|
|
|
|
|
input_line_pointer = hold;
|
|
|
|
current_function_label = xstrdup (startlabname);
|
|
|
|
in_dot_func_p = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Emit a stab to record the end of a function. */
|
|
|
|
|
|
|
|
void
|
2003-12-03 03:39:58 +00:00
|
|
|
stabs_generate_asm_endfunc (const char *funcname ATTRIBUTE_UNUSED,
|
|
|
|
const char *startlabname)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
static int label_count;
|
|
|
|
char *hold = input_line_pointer;
|
|
|
|
char *buf;
|
|
|
|
char sym[30];
|
|
|
|
|
|
|
|
sprintf (sym, "%sendfunc%d", FAKE_LABEL_NAME, label_count);
|
|
|
|
++label_count;
|
|
|
|
colon (sym);
|
|
|
|
|
2007-10-15 02:01:25 +00:00
|
|
|
if (asprintf (&buf, "\"\",%d,0,0,%s-%s", N_FUN, sym, startlabname) == -1)
|
|
|
|
as_fatal ("%s", xstrerror (errno));
|
1999-05-03 07:29:11 +00:00
|
|
|
input_line_pointer = buf;
|
|
|
|
s_stab ('s');
|
|
|
|
free (buf);
|
|
|
|
|
|
|
|
input_line_pointer = hold;
|
|
|
|
in_dot_func_p = 0;
|
|
|
|
current_function_label = NULL;
|
|
|
|
}
|