summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--gcc/ChangeLog10
-rw-r--r--gcc/dwarfout.c13
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 235e319fe90..62bfa4758f1 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,13 @@
+2001-04-09 Richard Sandiford <rsandifo@redhat.com>
+
+ * dwarfout.c (DEBUG_ARANGES_BEGIN_LABEL): New label.
+ (DEBUG_ARANGES_END_LABEL): Ditto.
+ (dwarfout_init): Generate length and version fields at the start
+ of the .debug_aranges info. Insert DEBUG_ARANGES_BEGIN_LABEL
+ after the length field.
+ (dwarfout_finish): Insert DEBUG_ARANGED_END_LABEL at the end of
+ the .debug_aranges info.
+
Sun Apr 8 00:43:27 CEST 2001 Jan Hubicka <jh@suse.cz>
* i386.c (call, call_value): Make sure that resulting call_insn
diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c
index 80b06ae1754..47a521ac725 100644
--- a/gcc/dwarfout.c
+++ b/gcc/dwarfout.c
@@ -551,6 +551,13 @@ static void retry_incomplete_types PARAMS ((void));
#define MACINFO_BEGIN_LABEL "*.L_macinfo_b"
#endif
+#ifndef DEBUG_ARANGES_BEGIN_LABEL
+#define DEBUG_ARANGES_BEGIN_LABEL "*.L_debug_aranges_begin"
+#endif
+#ifndef DEBUG_ARANGES_END_LABEL
+#define DEBUG_ARANGES_END_LABEL "*.L_debug_aranges_end"
+#endif
+
#ifndef DIE_BEGIN_LABEL_FMT
#define DIE_BEGIN_LABEL_FMT "*.L_D%u"
#endif
@@ -5778,6 +5785,11 @@ dwarfout_init (asm_out_file, main_input_filename)
fputc ('\n', asm_out_file);
ASM_OUTPUT_PUSH_SECTION (asm_out_file, ARANGES_SECTION);
+ ASM_OUTPUT_DWARF_DELTA4 (asm_out_file,
+ DEBUG_ARANGES_END_LABEL,
+ DEBUG_ARANGES_BEGIN_LABEL);
+ ASM_OUTPUT_LABEL (asm_out_file, DEBUG_ARANGES_BEGIN_LABEL);
+ ASM_OUTPUT_DWARF_DATA1 (asm_out_file, 1);
ASM_OUTPUT_DWARF_ADDR (asm_out_file, DEBUG_BEGIN_LABEL);
ASM_OUTPUT_POP_SECTION (asm_out_file);
}
@@ -5983,6 +5995,7 @@ dwarfout_finish ()
ASM_OUTPUT_DWARF_DATA4 (asm_out_file, 0);
ASM_OUTPUT_DWARF_DATA4 (asm_out_file, 0);
+ ASM_OUTPUT_LABEL (asm_out_file, DEBUG_ARANGES_END_LABEL);
ASM_OUTPUT_POP_SECTION (asm_out_file);
}
OpenPOWER on IntegriCloud