* dwarf2out.c (add_name_and_src_coords_attributes): Fix VMS procedure

	descriptor output.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 9dfd344..0b2da0b 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 d4ef42e..2cbe716 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
 }