From 2195e4c9a477f96096622d025278eef2039eba44 Mon Sep 17 00:00:00 2001 From: rth Date: Thu, 17 Feb 2000 10:06:03 +0000 Subject: [PATCH] Andy Vaught * com.c (ffecom_member_phase2_): Re-enable COMMON debug code. (ffecom_finish_symbol_transform_): Likewise. (ffecom_transform_common_): Call ffestorag_set_hook. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@32034 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/f/ChangeLog | 6 ++++++ 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 + + * 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 * 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. */ -- 2.7.4