From: Douglas B Rupp 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-Tag: prereleases/libstdc++-3.0.95~11 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b2c16b03be8c341e73afff5e9ae13fdca57386e9;p=thirdparty%2Fgcc.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 9dfd344685d2..0b2da0b47b12 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +Wed Dec 19 06:12:34 2001 Douglas B. Rupp + + * dwarf2out.c (add_name_and_src_coords_attributes): Fix VMS procedure + descriptor output. + 2001-12-18 Stan Shebs * rs6000.h (LOCAL_ALIGNMENT): Fix parens. diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index d4ef42e8c3ff..2cbe71663f2e 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 }