2000-08-11 G. Helffrich <george@gly.bris.ac.uk>

            Toon Moene  <toon@moene.indiv.nluug.nl>

	* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@35637 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 41cf8f1..10ccafc 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+2000-08-11  G. Helffrich  <george@gly.bris.ac.uk>
+            Toon Moene  <toon@moene.indiv.nluug.nl>
+
+       * 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  <toon@moene.indiv.nluug.nl>
 
        * g77spec.c (lang_specific_driver): Clearer g77 version message.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index f4332ff..c72abdd 100644 (file)
--- 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);
 }