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

gcc/f/ChangeLog

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

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);
 }