OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* as.c (debug_type): Init to DEBUG_UNSPECIFIED. 

* as.h (debug_type): Clarify documentation of the meaning
	of this variable.
	* dwarf2dbg.c (DWARF2_LINE_MIN_INSN_LENGTH): Default to 1.
	(print_stats): Fix parenthesis problem.
	(now_subseg_size): New.
	(dwarf2_finish): Use it.  If DEBUG_DWARF2, emit bits for .debug_info.
	(dwarf2_directive_file): Don't set debug_type.
	(dwarf2_where): Honor DEBUG_DWARF2 first.
	(dwarf2_emit_insn): Renamed from dwarf2_generate_asm_lineno;
	do nothing if not emitting dwarf2 debug info, or no work.
	* dwarf2dbg.h (dwarf2_emit_insn): Update.
	* ecoff.c (add_file): Turn on DEBUG_ECOFF only if DEBUG_UNSPECIFIED.
	(ecoff_new_file): Likewise.
	* read.c (generate_lineno_debug): Kill ecoff hackery.  Update
	commentary wrt dwarf2.

	* config/tc-alpha.c (alpha_adjust_symtab_relocs): Add
	ATTRIBUTE_UNUSED as needed.
	(emit_insn): Call dwarf2_emit_insn.
	(s_alpha_file): New.
	(s_alpha_loc): New.
	(s_alpha_coff_wrapper): Don't handle them.
	(md_pseudo_table): Update for .file and .loc.
	* config/tc-alpha.h (DWARF2_LINE_MIN_INSN_LENGTH): New.

	* config/tc-arm.c (output_inst): Update for dwarf2_emit_insn;
	don't protect with debug_type.
	* config/tc-hppa.c (md_assemble): Likewise.
	* config/tc-m68hc11.c (m68hc11_new_insn): Likewise.
	* config/tc-mn10300.c (md_assemble): Likewise.
	* config/tc-sh.c (md_assemble): Likewise.
	* config/tc-v850.c (md_assemble): Likewise.

	* config/tc-arm.c (arm_end_of_source): Remove.
	* config/tc-hppa.c (pa_end_of_source): Remove.
	* config/tc-m68hc11.c (m68hc11_end_of_source): Remove.
	* config/tc-mn10300.c (mn10300_finalize): Remove.
	* config/tc-sh.c (sh_finalize): Remove.
	* config/tc-v850.c (sh_finalize): Remove.

	* config/tc-arm.h (md_end): Remove.
	* config/tc-hppa.h (md_end): Remove.
	(DWARF2_LINE_MIN_INSN_LENGTH): New.
	* config/tc-m68hc11.h (md_end): Remove.
	* config/tc-mn10300.h (md_end): Remove.
	* config/tc-sh.h (md_end): Remove.
	* config/tc-v850.h (md_end): Remove.

	* config/tc-ia64.c (emit_one_bundle): Don't protect
	dwarf2 bits with debug_type.
	(md_assemble): Likewise.
	(ia64_end_of_source): Don't call dwarf2_finish.
This commit is contained in:
Richard Henderson 2000-11-17 08:47:52 +00:00
parent 512d22f487
commit 4dc7ead9fd
22 changed files with 210 additions and 168 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
gas/ChangeLog
View File

@ -1,3 +1,59 @@
2000-11-17 Richard Henderson <rth@redhat.com>
* as.c (debug_type): Init to DEBUG_UNSPECIFIED.
* as.h (debug_type): Clarify documentation of the meaning
of this variable.
* dwarf2dbg.c (DWARF2_LINE_MIN_INSN_LENGTH): Default to 1.
(print_stats): Fix parenthesis problem.
(now_subseg_size): New.
(dwarf2_finish): Use it. If DEBUG_DWARF2, emit bits for .debug_info.
(dwarf2_directive_file): Don't set debug_type.
(dwarf2_where): Honor DEBUG_DWARF2 first.
(dwarf2_emit_insn): Renamed from dwarf2_generate_asm_lineno;
do nothing if not emitting dwarf2 debug info, or no work.
* dwarf2dbg.h (dwarf2_emit_insn): Update.
* ecoff.c (add_file): Turn on DEBUG_ECOFF only if DEBUG_UNSPECIFIED.
(ecoff_new_file): Likewise.
* read.c (generate_lineno_debug): Kill ecoff hackery. Update
commentary wrt dwarf2.
* config/tc-alpha.c (alpha_adjust_symtab_relocs): Add
ATTRIBUTE_UNUSED as needed.
(emit_insn): Call dwarf2_emit_insn.
(s_alpha_file): New.
(s_alpha_loc): New.
(s_alpha_coff_wrapper): Don't handle them.
(md_pseudo_table): Update for .file and .loc.
* config/tc-alpha.h (DWARF2_LINE_MIN_INSN_LENGTH): New.
* config/tc-arm.c (output_inst): Update for dwarf2_emit_insn;
don't protect with debug_type.
* config/tc-hppa.c (md_assemble): Likewise.
* config/tc-m68hc11.c (m68hc11_new_insn): Likewise.
* config/tc-mn10300.c (md_assemble): Likewise.
* config/tc-sh.c (md_assemble): Likewise.
* config/tc-v850.c (md_assemble): Likewise.
* config/tc-arm.c (arm_end_of_source): Remove.
* config/tc-hppa.c (pa_end_of_source): Remove.
* config/tc-m68hc11.c (m68hc11_end_of_source): Remove.
* config/tc-mn10300.c (mn10300_finalize): Remove.
* config/tc-sh.c (sh_finalize): Remove.
* config/tc-v850.c (sh_finalize): Remove.
* config/tc-arm.h (md_end): Remove.
* config/tc-hppa.h (md_end): Remove.
(DWARF2_LINE_MIN_INSN_LENGTH): New.
* config/tc-m68hc11.h (md_end): Remove.
* config/tc-mn10300.h (md_end): Remove.
* config/tc-sh.h (md_end): Remove.
* config/tc-v850.h (md_end): Remove.
* config/tc-ia64.c (emit_one_bundle): Don't protect
dwarf2 bits with debug_type.
(md_assemble): Likewise.
(ia64_end_of_source): Don't call dwarf2_finish.
2000-11-16 Jim Wilson <wilson@redhat.com>
* config/tc-ia64.c (errata_nop_necessary_p): Abort if general regno

2
gas/as.c
View File

@ -68,7 +68,7 @@ static char *listing_filename = NULL;
/* Type of debugging to generate. */
enum debug_info_type debug_type = DEBUG_NONE;
enum debug_info_type debug_type = DEBUG_UNSPECIFIED;
/* Maximum level of macro nesting. */
int max_macro_nest = 100;

9
gas/as.h
View File

@ -454,8 +454,13 @@ COMMON int linkrelax;
/* TRUE if we should produce a listing. */
extern int listing;
/* Type of debugging information we should generate. We currently
support stabs, ECOFF, and DWARF2. */
/* Type of debugging information we should generate. We currently support
stabs, ECOFF, and DWARF2.
NOTE! This means debug information about the assembly source code itself
and _not_ about possible debug information from a high-level language.
This is especially relevant to DWARF2, since the compiler may emit line
number directives that the assembler resolves. */
enum debug_info_type {
DEBUG_UNSPECIFIED,

49
gas/config/tc-alpha.c
View File

@ -58,6 +58,7 @@
#ifdef OBJ_ELF
#include "elf/alpha.h"
#include "dwarf2dbg.h"
#endif
#include <ctype.h>
@ -245,6 +246,8 @@ static void s_alpha_end PARAMS ((int));
static void s_alpha_mask PARAMS ((int));
static void s_alpha_frame PARAMS ((int));
static void s_alpha_prologue PARAMS ((int));
static void s_alpha_file PARAMS ((int));
static void s_alpha_loc PARAMS ((int));
static void s_alpha_coff_wrapper PARAMS ((int));
#endif
#ifdef OBJ_EVAX
@ -393,8 +396,8 @@ static offsetT alpha_lit4_literal;
static offsetT alpha_lit8_literal;
#endif
/* The active .ent symbol. */
#ifdef OBJ_ELF
/* The active .ent symbol. */
static symbolS *alpha_cur_ent_sym;
#endif
@ -1671,9 +1674,9 @@ alpha_adjust_symtab ()
static void
alpha_adjust_symtab_relocs (abfd, sec, ptr)
bfd *abfd;
bfd *abfd ATTRIBUTE_UNUSED;
asection *sec;
PTR ptr;
PTR ptr ATTRIBUTE_UNUSED;
{
segment_info_type *seginfo = seg_info (sec);
fixS **prevP;
@ -2466,6 +2469,10 @@ emit_insn (insn)
f = frag_more (4);
md_number_to_chars (f, insn->insn, 4);
#ifdef OBJ_ELF
dwarf2_emit_insn (4);
#endif
/* Apply the fixups in order */
for (i = 0; i < insn->nfixups; ++i)
{
@ -3287,8 +3294,8 @@ emit_lda (tok, ntok, opname)
|| tok[2].X_op != O_pregister
|| !is_ir_num(tok[2].X_add_number))
{
as_bad (_("bad instruction format for lda !%s!%d"), r->name,
reloc->X_add_number);
as_bad (_("bad instruction format for lda !%s!%ld"), r->name,
(long) reloc->X_add_number);
reloc = (const expressionS *)0;
ntok--;
@ -4571,6 +4578,26 @@ s_alpha_prologue (ignore)
}
}
static void
s_alpha_file (ignore)
int ignore ATTRIBUTE_UNUSED;
{
if (ECOFF_DEBUGGING)
ecoff_directive_file (0);
else
dwarf2_directive_file (0);
}
static void
s_alpha_loc (ignore)
int ignore ATTRIBUTE_UNUSED;
{
if (ECOFF_DEBUGGING)
ecoff_directive_loc (0);
else
dwarf2_directive_loc (0);
}
static void
s_alpha_coff_wrapper (which)
int which;
@ -4581,11 +4608,9 @@ s_alpha_coff_wrapper (which)
ecoff_directive_def,
ecoff_directive_dim,
ecoff_directive_endef,
ecoff_directive_file,
ecoff_directive_scl,
ecoff_directive_tag,
ecoff_directive_val,
ecoff_directive_loc,
};
assert (which >= 0 && which < (int)(sizeof(fns)/sizeof(*fns)));
@ -5447,17 +5472,17 @@ const pseudo_typeS md_pseudo_table[] =
{"fmask", s_alpha_mask, 1},
{"frame", s_alpha_frame, 0},
{"prologue", s_alpha_prologue, 0},
{"file", s_alpha_file, 5},
{"loc", s_alpha_loc, 9},
/* COFF debugging related pseudos. */
{"begin", s_alpha_coff_wrapper, 0},
{"bend", s_alpha_coff_wrapper, 1},
{"def", s_alpha_coff_wrapper, 2},
{"dim", s_alpha_coff_wrapper, 3},
{"endef", s_alpha_coff_wrapper, 4},
{"file", s_alpha_coff_wrapper, 5},
{"scl", s_alpha_coff_wrapper, 6},
{"tag", s_alpha_coff_wrapper, 7},
{"val", s_alpha_coff_wrapper, 8},
{"loc", s_alpha_coff_wrapper, 9},
{"scl", s_alpha_coff_wrapper, 5},
{"tag", s_alpha_coff_wrapper, 6},
{"val", s_alpha_coff_wrapper, 7},
#else
{"prologue", s_ignore, 0},
#endif

2
gas/config/tc-alpha.h
View File

@ -146,3 +146,5 @@ do { \
(long)fixP->tc_fix_data.next_lituse); \
} while (0)
#endif
#define DWARF2_LINE_MIN_INSN_LENGTH 4

14
gas/config/tc-arm.c
View File

@ -6374,11 +6374,10 @@ output_inst PARAMS ((void))
fix_new_arm (frag_now, to - frag_now->fr_literal,
inst.size, & inst.reloc.exp, inst.reloc.pc_rel,
inst.reloc.type);
#ifdef OBJ_ELF
if (debug_type == DEBUG_DWARF2)
dwarf2_generate_asm_lineno (inst.size);
dwarf2_emit_insn (inst.size);
#endif
return;
}
void
@ -7505,13 +7504,4 @@ s_arm_elf_cons (nbytes)
demand_empty_rest_of_line ();
}
/* Stuff to do after assembling all of the source file. */
void
arm_end_of_source ()
{
if (debug_type == DEBUG_DWARF2)
dwarf2_finish ();
}
#endif /* OBJ_ELF */

3
gas/config/tc-arm.h
View File

@ -212,8 +212,5 @@ void armelf_frob_symbol PARAMS ((symbolS *, int *));
#endif
#ifdef OBJ_ELF
#define md_end() arm_end_of_source ()
extern void arm_end_of_source PARAMS ((void));
#define DWARF2_LINE_MIN_INSN_LENGTH 2
#endif

10
gas/config/tc-hppa.c
View File

@ -1491,8 +1491,7 @@ md_assemble (str)
the_insn.format, the_insn.arg_reloc, NULL);
#ifdef OBJ_ELF
if (debug_type == DEBUG_DWARF2)
dwarf2_generate_asm_lineno (4);
dwarf2_emit_insn (4);
#endif
}
@ -8540,13 +8539,6 @@ elf_hppa_final_processing ()
}
}
void
pa_end_of_source ()
{
if (debug_type == DEBUG_DWARF2)
dwarf2_finish ();
}
static void
pa_vtable_entry (ignore)
int ignore ATTRIBUTE_UNUSED;

3
gas/config/tc-hppa.h
View File

@ -173,8 +173,7 @@ int hppa_fix_adjustable PARAMS((struct fix *));
#define elf_tc_final_processing elf_hppa_final_processing
void elf_hppa_final_processing PARAMS ((void));
#define md_end() pa_end_of_source ()
void pa_end_of_source PARAMS ((void));
#define DWARF2_LINE_MIN_INSN_LENGTH 4
#endif /* OBJ_ELF */
#define md_operand(x)

7
gas/config/tc-ia64.c
View File

@ -5649,7 +5649,6 @@ emit_one_bundle ()
continue; /* try next slot */
}
if (debug_type == DEBUG_DWARF2)
{
bfd_vma addr;
@ -6197,9 +6196,6 @@ ia64_end_of_source ()
bfd_set_private_flags (stdoutput, md.flags);
if (debug_type == DEBUG_DWARF2)
dwarf2_finish ();
md.mem_offset.hint = 0;
}
@ -9088,8 +9084,7 @@ md_assemble (str)
CURR_SLOT.qp_regno = qp_regno;
CURR_SLOT.idesc = idesc;
as_where (&CURR_SLOT.src_file, &CURR_SLOT.src_line);
if (debug_type == DEBUG_DWARF2)
dwarf2_where (&CURR_SLOT.debug_line);
dwarf2_where (&CURR_SLOT.debug_line);
/* Add unwind entry, if there is one. */
if (unwind.current_entry)

39
gas/config/tc-m68hc11.c
View File

@ -1371,9 +1371,7 @@ m68hc11_new_insn (size)
f = frag_more (size);
/* Emit line number information in dwarf2 debug sections. */
if (debug_type == DEBUG_DWARF2)
dwarf2_generate_asm_lineno (size);
dwarf2_emit_insn (size);
return f;
}
@ -2769,38 +2767,3 @@ m68hc11_cleanup ()
{
return 1;
}
void
m68hc11_end_of_source ()
{
segT saved_seg;
subsegT saved_subseg;
segT debug_info;
char *p;
long total_size = 0;
if (debug_type != DEBUG_DWARF2)
return;
dwarf2_finish ();
saved_seg = now_seg;
saved_subseg = now_subseg;
debug_info = subseg_new (".debug_info", 0);
bfd_set_section_flags (stdoutput, debug_info, SEC_READONLY);
subseg_set (debug_info, 0);
p = frag_more (10);
total_size = 12;
# define STUFF(val,size) md_number_to_chars (p, val, size); p += size;
STUFF (total_size, 4); /* Length of compilation unit. */
STUFF (2, 2); /* Dwarf version */
STUFF (0, 4);
STUFF (2, 1); /* Pointer size */
STUFF (1, 1); /* Compile unit */
STUFF (0, 4);
now_subseg = saved_subseg;
now_seg = saved_seg;
}

3
gas/config/tc-m68hc11.h
View File

@ -79,9 +79,6 @@ extern void m68hc11_init_after_args PARAMS ((void));
extern int m68hc11_parse_long_option PARAMS ((char *));
#define md_parse_long_option m68hc11_parse_long_option
extern void m68hc11_end_of_source PARAMS ((void));
#define md_end() m68hc11_end_of_source ()
#define DWARF2_LINE_MIN_INSN_LENGTH 1
/* We don't need to handle .word strangely. */

10
gas/config/tc-mn10300.c
View File

@ -1789,8 +1789,7 @@ keep_going:
}
}
if (debug_type == DEBUG_DWARF2)
dwarf2_generate_asm_lineno (real_size);
dwarf2_emit_insn (real_size);
}
/* If while processing a fixup, a reloc really needs to be created
@ -2135,10 +2134,3 @@ set_arch_mach (mach)
current_machine = mach;
}
void
mn10300_finalize ()
{
if (debug_type == DEBUG_DWARF2)
dwarf2_finish ();
}

3
gas/config/tc-mn10300.h
View File

@ -62,7 +62,4 @@ extern boolean mn10300_fix_adjustable PARAMS ((struct fix *));
extern const struct relax_type md_relax_table[];
#define TC_GENERIC_RELAX_TABLE md_relax_table
#define md_end() mn10300_finalize ()
void mn10300_finalize PARAMS ((void));
#define DWARF2_LINE_MIN_INSN_LENGTH 1

10
gas/config/tc-sh.c
View File

@ -1929,8 +1929,7 @@ md_assemble (str)
}
}
if (debug_type == DEBUG_DWARF2)
dwarf2_generate_asm_lineno (size);
dwarf2_emit_insn (size);
}
/* This routine is called each time a label definition is seen. It
@ -3324,10 +3323,3 @@ tc_gen_reloc (section, fixp)
}
#endif /* BFD_ASSEMBLER */
void
sh_finalize ()
{
if (debug_type == DEBUG_DWARF2)
dwarf2_finish ();
}

3
gas/config/tc-sh.h
View File

@ -206,6 +206,3 @@ extern void sh_elf_final_processing PARAMS ((void));
&& ! S_IS_COMMON ((FIX)->fx_addsy))))
#endif /* OBJ_ELF */
#define md_end() sh_finalize ()
void sh_finalize PARAMS ((void));

10
gas/config/tc-v850.c
View File

@ -2275,8 +2275,7 @@ md_assemble (str)
input_line_pointer = saved_input_line_pointer;
if (debug_type == DEBUG_DWARF2)
dwarf2_generate_asm_lineno (total_insn_size);
dwarf2_emit_insn (total_insn_size);
}
/* If while processing a fixup, a reloc really needs to be created
@ -2534,10 +2533,3 @@ v850_force_relocation (fixP)
return 0;
}
void
v850_finalize ()
{
if (debug_type == DEBUG_DWARF2)
dwarf2_finish ();
}

3
gas/config/tc-v850.h
View File

@ -90,7 +90,4 @@ extern const struct relax_type md_relax_table[];
#define MD_PCREL_FROM_SECTION(fixP,section) v850_pcrel_from_section (fixP, section)
extern long v850_pcrel_from_section ();
#define md_end() v850_finalize ()
extern void v850_finalize PARAMS ((void));
#define DWARF2_LINE_MIN_INSN_LENGTH 2

108
gas/dwarf2dbg.c
View File

@ -63,7 +63,7 @@
#ifndef DWARF2_LINE_MIN_INSN_LENGTH
/* Define the architecture-dependent minimum instruction length (in
bytes). This value should be rather too small than too big. */
# define DWARF2_LINE_MIN_INSN_LENGTH 4
# define DWARF2_LINE_MIN_INSN_LENGTH 1
#endif
/* Flag that indicates the initial value of the is_stmt_start flag.
@ -178,6 +178,7 @@ static int get_filenum PARAMS ((int, char *));
static void gen_dir_list PARAMS ((void));
static void gen_file_list PARAMS ((void));
static void print_stats PARAMS ((unsigned long));
static addressT now_subseg_size PARAMS ((void));
#define out_byte(byte) FRAG_APPEND_1_CHAR(byte)
#define out_opcode(opc) (out_byte ((opc)), ++ls.opcode_hist[(opc) & 0xff])
@ -643,13 +644,29 @@ print_stats (total_size)
j = SPECIAL_LINE (i);
if (j == DWARF2_LINE_BASE)
fprintf (stderr, "\n%4u: ",
((unsigned int)
DWARF2_LINE_MIN_INSN_LENGTH * SPECIAL_ADDR (i)));
(unsigned int) (DWARF2_LINE_MIN_INSN_LENGTH
* SPECIAL_ADDR (i)));
fprintf (stderr, " %2u", ls.opcode_hist[i]);
}
fprintf (stderr, "\n");
}
/* Compute the size of the current subsegment, taking all fragments
into account. Note that we don't generate variant frags, so the
fixed portion is all we need to consider. */
static addressT
now_subseg_size ()
{
struct frag *f;
addressT size = 0;
for (f = frchain_now->frch_root; f ; f = f->fr_next)
size += f->fr_fix;
return size + frag_now_fix_octets ();
}
void
dwarf2_finish ()
{
@ -667,23 +684,29 @@ dwarf2_finish ()
if (!ls.sm.empty_sequence)
out_end_sequence ();
total_size = body_size = frag_now_fix ();
subseg_set (ls.line_seg, DL_BODY);
total_size = body_size = now_subseg_size ();
/* Now generate the directory and file lists. */
subseg_set (ls.line_seg, DL_FILES);
gen_dir_list ();
gen_file_list ();
total_size += frag_now_fix ();
total_size += now_subseg_size ();
/* And now the header ("statement program prolog", in DWARF2 lingo...). */
subseg_set (ls.line_seg, DL_PROLOG);
cp = frag_more (15 + DWARF2_LINE_OPCODE_BASE - 1);
total_size += frag_now_fix ();
total_size += now_subseg_size ();
prolog_size = total_size - body_size - 10;
# define STUFF(val,size) md_number_to_chars (cp, val, size); cp += size;
#define STUFF(val,size) \
do { \
md_number_to_chars (cp, val, size); \
cp += size; \
} while (0)
STUFF (total_size - 4, 4); /* length */
STUFF (2, 2); /* version */
STUFF (prolog_size, 4); /* prologue_length */
@ -704,6 +727,47 @@ dwarf2_finish ()
STUFF (0, 1); /* DW_LNS_const_add_pc */
STUFF (1, 1); /* DW_LNS_fixed_advance_pc */
#undef STUFF
/* If this is assembler generated line info, add a .debug_info
section as well. */
if (debug_type == DEBUG_DWARF2)
{
segT info_seg = subseg_new (".debug_info", 0);
segT abbrev_seg = subseg_new (".debug_abbrev", 0);
char *len;
#ifdef BFD_ASSEMBLER
bfd_set_section_flags (stdoutput, info_seg, SEC_READONLY);
bfd_set_section_flags (stdoutput, abbrev_seg, SEC_READONLY);
#endif
subseg_set (info_seg, 0);
len = frag_more (4);
#define STUFF(val, size) \
do { \
cp = frag_more (size); \
md_number_to_chars (cp, (val), (size)); \
} while(0)
STUFF (2, 2); /* Dwarf version */
STUFF (0, 4); /* Offset into (final!) .debug_abbrev. */
/* Pointer size. */
#ifdef BFD_ASSEMBLER
STUFF (bfd_arch_bits_per_address (stdoutput) / 8, 1);
#else
STUFF (4, 1);
#endif
/* FIXME: Add a DW_TAG_compile_unit DIE. The line info cannot
even be seen without it. */
/* Set size of debug_info. */
md_number_to_chars (len, now_subseg_size () - 4, 4);
}
subseg_set (saved_seg, saved_subseg);
if (flag_debug)
@ -726,11 +790,6 @@ dwarf2_directive_file (dummy)
ls.any_dwarf2_directives = 1;
if (debug_type == DEBUG_NONE)
/* Automatically turn on DWARF2 debug info unless something else
has been selected. */
debug_type = DEBUG_DWARF2;
ls.current.filenum = get_absolute_expression ();
ls.current.filename = demand_copy_C_string (&len);
@ -762,33 +821,42 @@ void
dwarf2_where (line)
struct dwarf2_line_info *line;
{
if (ls.any_dwarf2_directives)
*line = ls.current;
else
if (debug_type == DEBUG_DWARF2)
{
as_where (&line->filename, &line->line);
line->filenum = 0;
line->column = 0;
line->flags = DWARF2_FLAG_BEGIN_STMT;
}
else
*line = ls.current;
}
/* Generate a DWARF2 line statement for an
instruction of SIZE bytes in length. */
/* Called for each machine instruction, or relatively atomic group of
machine instructions (ie built-in macro). The instruction or group
is SIZE bytes in length. If dwarf2 line number generation is called
for, emit a line statement appropriately. */
void
dwarf2_generate_asm_lineno (size)
dwarf2_emit_insn (size)
int size;
{
addressT addr;
static struct dwarf2_line_info debug_line;
struct dwarf2_line_info debug_line;
if (debug_type != DEBUG_DWARF2 && ! ls.any_dwarf2_directives)
return;
/* Reset any_dwarf2_directives so that we won't waste time
determining that no information has changed between insns. */
ls.any_dwarf2_directives = 0;
/* First update the notion of the current source line. */
dwarf2_where (&debug_line);
/* We want the offset of the start of this
instruction within the the current frag. */
addr = frag_now->fr_address + frag_now_fix () - size;
addr = frag_now_fix () - size;
/* And record the information. */
dwarf2_gen_line_info (addr, &debug_line);

2
gas/dwarf2dbg.h
View File

@ -65,6 +65,6 @@ extern void dwarf2_gen_line_info PARAMS ((addressT addr,
.debug_line section. */
extern void dwarf2_finish PARAMS ((void));
extern void dwarf2_generate_asm_lineno PARAMS ((int));
extern void dwarf2_emit_insn PARAMS ((int));
#endif /* AS_DWARF2DBG_H */

6
gas/ecoff.c
View File

@ -2216,9 +2216,11 @@ add_file (file_name, indx, fake)
this if we see a .file directive with a string, since that
implies that some sort of debugging information is being
provided. */
if (! symbol_table_frozen && debug_type == DEBUG_NONE)
if (! symbol_table_frozen && debug_type == DEBUG_UNSPECIFIED)
debug_type = DEBUG_ECOFF;
}
else
debug_type = DEBUG_NONE;
#ifndef NO_LISTING
if (listing)
@ -2335,7 +2337,7 @@ ecoff_new_file (name)
/* This is a hand coded assembler file, so automatically turn on
debugging information. */
if (debug_type == DEBUG_NONE)
if (debug_type == DEBUG_UNSPECIFIED)
debug_type = DEBUG_ECOFF;
}

26
gas/read.c
View File

@ -4982,22 +4982,11 @@ generate_file_debug ()
void
generate_lineno_debug ()
{
#ifdef ECOFF_DEBUGGING
/* ECOFF assemblers automatically generate debugging information.
FIXME: This should probably be handled elsewhere. */
if (debug_type == DEBUG_UNSPECIFIED)
{
if (ECOFF_DEBUGGING && ecoff_no_current_file ())
debug_type = DEBUG_ECOFF;
else
debug_type = DEBUG_NONE;
}
#endif
switch (debug_type)
{
case DEBUG_UNSPECIFIED:
case DEBUG_NONE:
case DEBUG_DWARF:
break;
case DEBUG_STABS:
stabs_generate_asm_lineno ();
@ -5005,16 +4994,11 @@ generate_lineno_debug ()
case DEBUG_ECOFF:
ecoff_generate_asm_lineno ();
break;
case DEBUG_DWARF:
case DEBUG_DWARF2:
/* This cannot safely be done in a generic manner. A single
binary instruction word may span mutliple lines of assembler
source and may occupy a variable number of bytes. Instead,
if a port wishes to support DWARF2 line number generation by
the assembler, it should add a call to dwarf2_generate_asm_lineno
inside md_assemble() at whatever point is appropriate. Note,
such a port should also define md_end and make sure that
dwarf2_finish is called, to emit the accumulated line information. */
/* ??? We could here indicate to dwarf2dbg.c that something
has changed. However, since there is additional backend
support that is required (calling dwarf2_emit_insn), we
let dwarf2dbg.c call as_where on its own. */
break;
}
}