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 | |
| parent | db1ae4280294bca52a32c176c09ca572b8390b7b (diff) | |
| download | gcc-b2c16b03be8c341e73afff5e9ae13fdca57386e9.tar.gz | |
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
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/dwarf2out.c | 4 |
2 files changed, 7 insertions, 2 deletions
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 } |