From a8e2bb766665027e5e04de7e8ec3085a1b117e8a Mon Sep 17 00:00:00 2001 From: "G. Helffrich" Date: Fri, 11 Aug 2000 16:11:08 +0000 Subject: [PATCH] com.c (ffecom_transform_equiv_): Make EQUIVALENCEs addressable so that debug info can be attached to their storage. 2000-08-11 G. Helffrich Toon Moene * com.c (ffecom_transform_equiv_): Make EQUIVALENCEs addressable so that debug info can be attached to their storage. Unconditionally list the storage set aside for them. Co-Authored-By: Toon Moene From-SVN: r35637 --- gcc/f/ChangeLog | 7 +++++++ gcc/f/com.c | 3 +-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 41cf8f1f4cf..10ccafc8471 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,10 @@ +2000-08-11 G. Helffrich + Toon Moene + + * com.c (ffecom_transform_equiv_): Make EQUIVALENCEs addressable + so that debug info can be attached to their storage. + Unconditionally list the storage set aside for them. + 2000-08-07 Toon Moene * g77spec.c (lang_specific_driver): Clearer g77 version message. diff --git a/gcc/f/com.c b/gcc/f/com.c index f4332ff8947..c72abddef6c 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -8927,6 +8927,7 @@ ffecom_transform_equiv_ (ffestorag eqst) else TREE_STATIC (eqt) = 0; TREE_PUBLIC (eqt) = 0; + TREE_ADDRESSABLE (eqt) = 1; /* Ensure non-register allocation */ DECL_CONTEXT (eqt) = current_function_decl; if (init) DECL_INITIAL (eqt) = error_mark_node; @@ -8961,11 +8962,9 @@ ffecom_transform_equiv_ (ffestorag eqst) ffestorag_set_hook (eqst, eqt); -#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING ffestorag_drive (ffestorag_list_equivs (eqst), &ffecom_member_phase2_, eqst); -#endif resume_momentary (yes); } -- 2.30.2