dwarf2out.c (loclabel_num): Move outside #ifdef DWARF2_DEBUGGING_INFO and mark with GTY(()).

	* dwarf2out.c (loclabel_num): Move outside #ifdef
	DWARF2_DEBUGGING_INFO and mark with GTY(()).
	* config/ia64/ia64.c (struct extern_func_list,extern_func_head):
	Mark with GTY(()).
	(ia64_hpux_add_extern_decl): Save the decl, not the name string.
	Allocate memory with ggc_alloc.  No need to copy anything.
	(ia64_hpux_file_end): Update to match.

From-SVN: r78061

3 files changed, 53 insertions, 43 deletions

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index e7ed408..a32d3f8 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,13 @@
+2004-02-18  Zack Weinberg  <zack@codesourcery.com>
+
+	* dwarf2out.c (loclabel_num): Move outside #ifdef
+	DWARF2_DEBUGGING_INFO and mark with GTY(()).
+	* config/ia64/ia64.c (struct extern_func_list,extern_func_head):
+	Mark with GTY(()).
+	(ia64_hpux_add_extern_decl): Save the decl, not the name string.
+	Allocate memory with ggc_alloc.  No need to copy anything.
+	(ia64_hpux_file_end): Update to match.
+
 2004-02-18  Jakub Jelinek  <jakub@redhat.com>
 
 	* config/i386/i386.c (override_options): Don't imply 3DNow! for -m64
@@ -225,7 +235,7 @@
 
 2004-02-17  Ulrich Weigand  <uweigand@de.ibm.com>
 
-	* combine.c (simplify_if_then_else): Do not replace 
+	* combine.c (simplify_if_then_else): Do not replace
 	(if_then_else (ne reg 0) (0) (const_int)) by (reg) if the
 	modes differ.
 
@@ -249,29 +259,29 @@
 	* config/mips/t-irix-gld: ... this.
 	* config.gcc (mips-sgi-irix6*): Reflect this
 	(mips-sgi-irix5*): Use it with GNU ld.
-	
+
 	* config/mips/irix6-crti.asm, config/mips/irix6-crtn.asm: Renamed
 	to ...
 	* config/mips/irix-crti.asm, config/mips/irix-crtn.asm: ... this.
 	* config/mips/t-irix-gld: Reflect this.
 	* config/mips/iris6gld.h (STARTFILE_SPEC, ENDFILE_SPEC): Likewise.
-	
+
 	* config/mips/iris5gld.h: New file.
 	* config.gcc (mips-sgi-irix5*): Use it with GNU ld.
 	Only use collect2 without gas.
-	
+
 	* config/mips/iris6.h (IRIX6_STARTFILE_SPEC, IRIX6_ENDFILE_SPEC):
 	Renamed to IRIX_STARTFILE_SPEC, IRIX_ENDFILE_SPEC.
 	(STARTFILE_SPEC, ENDFILE_SPEC, SUBTARGET_EXTRA_SPECS): Reflect this.
 	* config/mips/iris6gld.h (STARTFILE_SPEC, ENDFILE_SPEC): Likewise.
-	
+
 	* config/mips/iris6.h (SUBTARGET_EXTRA_SPECS): Moved ...
 	* config/mips/iris5.h: ... here.
 
 	* config/mips/iris5.h (STARTFILE_SPEC, ENDFILE_SPEC): Renamed to
-	IRIX_STARTFILE_SPEC, IRIX_ENDFILE_SPEC. 
+	IRIX_STARTFILE_SPEC, IRIX_ENDFILE_SPEC.
 	(STARTFILE_SPEC, ENDFILE_SPEC): Define.
-	
+
 	* config/mips/iris5gas.h (STARTFILE_SPEC, ENDFILE_SPEC): Simplify
 	using irix_startfile_spec, irix_endfile_spec.
 
@@ -306,7 +316,7 @@
 	New function.
 	(ia64_output_mi_thunk): Use it.
 	(ia64_struct_value_rtx): Likewise.
-	
+
 2004-02-17  Kazu Hirata  <kazu@cs.umass.edu>
 
 	* config/h8300/h8300.c (h8300_emit_stack_adjustment):
@@ -372,11 +382,11 @@
 
 2004-02-16  Matthias Klose  <doko@debian.org>
 
-        * config/t-slibgcc-elf-ver: Define SHLIB_NAME and SHLIB_SONAME
-        in terms of SHLIB_SOVERSION.
-        * config/m68k/t-slibgcc-elf-ver: New file.
-        * config/pa/t-slibgcc-elf-ver: New file.
-        * config.gcc (m68k-linux, parisc-linux): Use them when not 
+	* config/t-slibgcc-elf-ver: Define SHLIB_NAME and SHLIB_SONAME
+	in terms of SHLIB_SOVERSION.
+	* config/m68k/t-slibgcc-elf-ver: New file.
+	* config/pa/t-slibgcc-elf-ver: New file.
+	* config.gcc (m68k-linux, parisc-linux): Use them when not
 	sjlj exceptions are not configured.
 
 2004-02-16  Eric Botcazou  <ebotcazou@libertysurf.fr>
diff --git a/gcc/config/ia64/ia64.c b/gcc/config/ia64/ia64.c
index 5e39e6e..f7e5cc3 100644
--- a/gcc/config/ia64/ia64.c
+++ b/gcc/config/ia64/ia64.c
@@ -257,7 +257,7 @@ static void ia64_rwreloc_select_rtx_section (enum machine_mode, rtx,
 static unsigned int ia64_rwreloc_section_type_flags (tree, const char *, int)
      ATTRIBUTE_UNUSED;
 
-static void ia64_hpux_add_extern_decl (const char *name)
+static void ia64_hpux_add_extern_decl (tree decl)
      ATTRIBUTE_UNUSED;
 static void ia64_hpux_file_end (void)
      ATTRIBUTE_UNUSED;
@@ -4627,7 +4627,7 @@ ia64_asm_output_external (FILE *file, tree decl, const char *name)
     return;
 
   if (TARGET_HPUX_LD)
-    ia64_hpux_add_extern_decl (name);
+    ia64_hpux_add_extern_decl (decl);
   else
     {
       /* assemble_name will set TREE_SYMBOL_REFERENCED, so we must save and
@@ -8653,20 +8653,20 @@ ia64_hpux_function_arg_padding (enum machine_mode mode, tree type)
    We output the name if and only if TREE_SYMBOL_REFERENCED is set in
    order to avoid putting out names that are never really used.  */
 
-struct extern_func_list
+struct extern_func_list GTY(())
 {
-  struct extern_func_list *next; /* next external */
-  char *name;                    /* name of the external */
-} *extern_func_head = 0;
+  struct extern_func_list *next;
+  tree decl;
+};
+
+static GTY(()) struct extern_func_list *extern_func_head;
 
 static void
-ia64_hpux_add_extern_decl (const char *name)
+ia64_hpux_add_extern_decl (tree decl)
 {
-  struct extern_func_list *p;
+  struct extern_func_list *p = ggc_alloc (sizeof (struct extern_func_list));
 
-  p = (struct extern_func_list *) xmalloc (sizeof (struct extern_func_list));
-  p->name = xmalloc (strlen (name) + 1);
-  strcpy(p->name, name);
+  p->decl = decl;
   p->next = extern_func_head;
   extern_func_head = p;
 }
@@ -8676,29 +8676,29 @@ ia64_hpux_add_extern_decl (const char *name)
 static void
 ia64_hpux_file_end (void)
 {
-  while (extern_func_head)
+  struct extern_func_list *p;
+
+  for (p = extern_func_head; p; p = p->next)
     {
-      const char *real_name;
-      tree decl;
+      tree decl = p->decl;
+      tree id = DECL_NAME (decl);
 
-      real_name = (* targetm.strip_name_encoding) (extern_func_head->name);
-      decl = maybe_get_identifier (real_name);
+      if (!id)
+	abort ();
 
-      if (!decl
-	  || (! TREE_ASM_WRITTEN (decl) && TREE_SYMBOL_REFERENCED (decl)))
+      if (!TREE_ASM_WRITTEN (decl) && TREE_SYMBOL_REFERENCED (id))
         {
-	  if (decl)
-	    TREE_ASM_WRITTEN (decl) = 1;
-	  (*targetm.asm_out.globalize_label) (asm_out_file,
-					      extern_func_head->name);
+	  const char *name = XSTR (XEXP (DECL_RTL (decl), 0), 0);
+
+	  TREE_ASM_WRITTEN (decl) = 1;
+	  (*targetm.asm_out.globalize_label) (asm_out_file, name);
 	  fputs (TYPE_ASM_OP, asm_out_file);
-	  assemble_name (asm_out_file, extern_func_head->name);
-	  putc (',', asm_out_file);
-	  fprintf (asm_out_file, TYPE_OPERAND_FMT, "function");
-	  putc ('\n', asm_out_file);
+	  assemble_name (asm_out_file, name);
+	  fprintf (asm_out_file, "," TYPE_OPERAND_FMT "\n", "function");
         }
-      extern_func_head = extern_func_head->next;
     }
+
+  extern_func_head = 0;
 }
 
 /* Rename all the TFmode libfuncs using the HPUX conventions.  */
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 87f1be7..0bfe62c4 100644
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -3592,12 +3592,12 @@ static GTY(()) unsigned ranges_table_in_use;
 /* Whether we have location lists that need outputting */
 static GTY(()) unsigned have_location_lists;
 
+/* Unique label counter.  */
+static GTY(()) unsigned int loclabel_num;
+
 #ifdef DWARF2_DEBUGGING_INFO
 /* Record whether the function being analyzed contains inlined functions.  */
 static int current_function_has_inlines;
-
-/* Unique label counter.  */
-static unsigned int loclabel_num = 0;
 #endif
 #if 0 && defined (MIPS_DEBUGGING_INFO)
 static int comp_unit_has_inlines;