diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/f/com.c | 3 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 41cf8f1..10ccafc 100644 --- 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 --- 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); } |