diff options
| -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 } |