From: Douglas B Rupp <rupp@gnat.com>
Date: Wed, 19 Dec 2001 11:21:29 +0000 (-0500)
Subject: dwarf2out.c (add_name_and_src_coords_attributes): Fix VMS procedure descriptor output.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b2c16b03be8c341e73afff5e9ae13fdca57386e9;p=gcc.git

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 9dfd344685d..0b2da0b47b1 100644
--- 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 d4ef42e8c3f..2cbe71663f2 100644
--- 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
 }