diff options
| author | Douglas B Rupp <rupp@gnat.com> | 2001-12-19 06:21:29 -0500 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 2001-12-19 06:21:29 -0500 |
| commit | b2c16b03be8c341e73afff5e9ae13fdca57386e9 (patch) | |
| tree | ef549b699903d2baac0241fcd9ccfaae6e5479a3 /gcc/dwarf2out.c | |
| parent | db1ae4280294bca52a32c176c09ca572b8390b7b (diff) | |
| download | gcc-b2c16b03be8c341e73afff5e9ae13fdca57386e9.zip gcc-b2c16b03be8c341e73afff5e9ae13fdca57386e9.tar.gz gcc-b2c16b03be8c341e73afff5e9ae13fdca57386e9.tar.bz2 | |
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
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index d4ef42e..2cbe716 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 } |