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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 9dfd344685d21548daecf27455557d741282647e..0b2da0b47b12fdbbbbbdfb877c193354a07d6c49 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index d4ef42e8c3ff94c4d7f073330ac3d9a5dfe7e7a1..2cbe71663f2e8310873cab68051a0db0206e1a17 100644 (file)
--- 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
 }