diff options
| author | Andy Vaught <andy@maxwell.la.asu.edu> | 2000-02-17 10:06:03 +0000 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2000-02-17 02:06:03 -0800 |
| commit | b7a80862349bb9df5143ad83308bc1c7e6df331d (patch) | |
| tree | 9468e43005522e015f71e843acfaf593183ae8a7 /gcc | |
| parent | ee8d66f79529a789cf0dbfbc82f8eca84178d660 (diff) | |
| download | gcc-b7a80862349bb9df5143ad83308bc1c7e6df331d.zip gcc-b7a80862349bb9df5143ad83308bc1c7e6df331d.tar.gz gcc-b7a80862349bb9df5143ad83308bc1c7e6df331d.tar.bz2 | |
Andy Vaught <andy@maxwell.la.asu.edu>
* com.c (ffecom_member_phase2_): Re-enable COMMON debug code.
(ffecom_finish_symbol_transform_): Likewise.
(ffecom_transform_common_): Call ffestorag_set_hook.
From-SVN: r32034
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/f/com.c | 11 |
2 files changed, 10 insertions, 7 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 03ef8c2..f9ae016 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +2000-02-17 Andy Vaught <andy@maxwell.la.asu.edu> + + * com.c (ffecom_member_phase2_): Re-enable COMMON debug code. + (ffecom_finish_symbol_transform_): Likewise. + (ffecom_transform_common_): Call ffestorag_set_hook. + Wed Feb 16 11:09:38 2000 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * Make-lang.in (g77spec.o): Depend on $(GCC_H), not gcc.h. diff --git a/gcc/f/com.c b/gcc/f/com.c index 81ddf47..49560ac 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -421,9 +421,7 @@ static void ffecom_let_char_ (tree dest_tree, ffebld source); static void ffecom_make_gfrt_ (ffecomGfrt ix); static void ffecom_member_phase1_ (ffestorag mst, ffestorag st); -#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING static void ffecom_member_phase2_ (ffestorag mst, ffestorag st); -#endif static void ffecom_prepare_let_char_ (ffetargetCharacterSize dest_size, ffebld source); static void ffecom_push_dummy_decls_ (ffebld dumlist, @@ -6146,7 +6144,6 @@ ffecom_finish_symbol_transform_ (ffesymbol s) if ((ffesymbol_where (s) == FFEINFO_whereCOMMON) && (ffesymbol_hook (s).decl_tree != error_mark_node)) { -#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING int yes = suspend_momentary (); /* This isn't working, at least for dbxout. The .s file looks @@ -6159,7 +6156,6 @@ ffecom_finish_symbol_transform_ (ffesymbol s) ffesymbol_storage (s)); resume_momentary (yes); -#endif } return s; @@ -7107,7 +7103,6 @@ ffecom_member_phase1_ (ffestorag mst UNUSED, ffestorag st) referencing the member. */ #if FFECOM_targetCURRENT == FFECOM_targetGCC -#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING static void ffecom_member_phase2_ (ffestorag mst, ffestorag st) { @@ -7152,7 +7147,6 @@ ffecom_member_phase2_ (ffestorag mst, ffestorag st) } #endif -#endif /* Prepare source expression for assignment into a destination perhaps known to be of a specific size. */ @@ -8729,7 +8723,10 @@ ffecom_transform_common_ (ffesymbol s) if ((cbt != NULL_TREE) && (!is_init || !DECL_EXTERNAL (cbt))) - return; + { + if (st->hook == NULL) ffestorag_set_hook (st, cbt); + return; + } /* Process inits. */ |