2001-07-04 Daniel Berlin <dan@cgsoftware.com>

	* dwarf2out.c (dwarf2out_define): Update comment.
	(dwarf2out_undef): Ditto.
	(dwarf2out_start_source_file): Ditto.
	(dwarf2out_end_source_file): Ditto.
	(dwarf2out_finish): Output DW_MACINFO_end_file for primary file,
	since we never call the start/end debug hook for the primary file.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@43773 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 769cd39..2014e76 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,12 @@
+2001-07-04  Daniel Berlin  <dan@cgsoftware.com>
+
+       * dwarf2out.c (dwarf2out_define): Update comment.
+       (dwarf2out_undef): Ditto.
+       (dwarf2out_start_source_file): Ditto.
+       (dwarf2out_end_source_file): Ditto.
+       (dwarf2out_finish): Output DW_MACINFO_end_file for primary file,
+       since we never call the start/end debug hook for the primary file.
+
 2001-07-04  Kazu Hirata  <kazu@hxi.com>
 
        * config/h8300/h8300.c (get_shift_alg): Remove an extra operand

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 5879a8e..d5f3d40 100644 (file)
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -11268,8 +11268,7 @@ dwarf2out_line (filename, line)
     }
 }
 
-/* Record the beginning of a new source file, for later output
-   of the .debug_macinfo section.*/
+/* Record the beginning of a new source file. */
 
 void
 dwarf2out_start_source_file (lineno, filename)
@@ -11291,8 +11290,7 @@ dwarf2out_start_source_file (lineno, filename)
     }
 }
 
-/* Record the end of a source file, for later output
-   of the .debug_macinfo section.  At present, unimplemented.  */
+/* Record the end of a source file.  */
 
 void
 dwarf2out_end_source_file ()
@@ -11309,7 +11307,7 @@ dwarf2out_end_source_file ()
     }
 }
 
-/* Called from check_newline in c-parse.y.  The `buffer' parameter contains
+/* Called from debug_define in toplev.c.  The `buffer' parameter contains
    the tail part of the directive line, i.e. the part which is past the
    initial whitespace, #, whitespace, directive-name, whitespace part.  */
 
@@ -11333,7 +11331,7 @@ dwarf2out_define (lineno, buffer)
     }
 }
 
-/* Called from check_newline in c-parse.y.  The `buffer' parameter contains
+/* Called from debug_undef in toplev.c.  The `buffer' parameter contains
    the tail part of the directive line, i.e. the part which is past the
    initial whitespace, #, whitespace, directive-name, whitespace part.  */
 
@@ -11565,6 +11563,13 @@ dwarf2out_finish ()
       output_location_lists (die);
       have_location_lists = 0;
     }
+
+  /* Have to end the primary source file. */
+  if (debug_info_level >= DINFO_LEVEL_VERBOSE)
+    { 
+      ASM_OUTPUT_SECTION (asm_out_file, DEBUG_MACINFO_SECTION);
+      dw2_asm_output_data (1, DW_MACINFO_end_file, "End file");
+    }
   
 }
 #endif /* DWARF2_DEBUGGING_INFO */