dwarf2out.c (add_name_and_src_coords_attributes): Fix VMS procedure descriptor output.

* dwarf2out.c (add_name_and_src_coords_attributes): Fix VMS procedure descriptor output. From-SVN: r48175

dwarf2out.c (add_name_and_src_coords_attributes): Fix VMS procedure descriptor output.
* dwarf2out.c (add_name_and_src_coords_attributes): Fix VMS procedure descriptor output. From-SVN: r48175
b2c16b03 · Douglas B Rupp · Richard Kenner · db1ae428 · b2c16b03 · b2c16b03
Commit b2c16b03 authored Dec 19, 2001 by Douglas B Rupp Committed by Richard Kenner Dec 19, 2001
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

gcc/ChangeLog
+5 -0

gcc/dwarf2out.c
+2 -2

No files found.
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
+Wed Dec 19 06:12:34 2001  Douglas B. Rupp  <rupp@gnat.com>
+
+	* dwarf2out.c (add_name_and_src_coords_attributes): Fix VMS procedure
+	descriptor output.
+
 2001-12-18  Stan Shebs  <shebs@apple.com>

 	* rs6000.h (LOCAL_ALIGNMENT): Fix parens.

--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -9365,8 +9365,8 @@ add_name_and_src_coords_attributes (die, decl)
  /* Get the function's name, as described by its RTL.  This may be different
     from the DECL_NAME name used in the source file.  */
  if (TREE_CODE (decl) == FUNCTION_DECL && TREE_ASM_WRITTEN (decl))
-    add_AT_string (die, DW_AT_VMS_rtnbeg_pd_address,
-		   xstrdup (XSTR (XEXP (DECL_RTL (decl), 0), 0)));
+    add_AT_addr (die, DW_AT_VMS_rtnbeg_pd_address,
+		 save_rtx (XEXP (DECL_RTL (decl), 0)));
 #endif
 }