diff options
| author | G. Helffrich <george@gly.bris.ac.uk> | 2000-08-11 16:11:08 +0000 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2000-08-11 16:11:08 +0000 |
| commit | a8e2bb766665027e5e04de7e8ec3085a1b117e8a (patch) | |
| tree | 58dbca04374a886457950aff47c9355733cd5f04 /gcc | |
| parent | 87cf27fece68c41bdd910844526c50339748013f (diff) | |
| download | gcc-a8e2bb766665027e5e04de7e8ec3085a1b117e8a.zip gcc-a8e2bb766665027e5e04de7e8ec3085a1b117e8a.tar.gz gcc-a8e2bb766665027e5e04de7e8ec3085a1b117e8a.tar.bz2 | |
com.c (ffecom_transform_equiv_): Make EQUIVALENCEs addressable so that debug info can be attached to their storage.
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.
Co-Authored-By: Toon Moene <toon@moene.indiv.nluug.nl>
From-SVN: r35637
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); } |