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

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 03ef8c29aeaef4a28acd5c2403cf60fbbe5434b3..f9ae0163eb9aca3ca966b54b8068b6593a889331 100644 (file)
--- 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 81ddf4797cb28fde72d171bd0be5c7d2cfe10f35..49560ac92c471da9d6206d944cd11e150c2875c9 100644 (file)
--- 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)
 {
@@ -7151,7 +7146,6 @@ ffecom_member_phase2_ (ffestorag mst, ffestorag st)
   finish_decl (t, NULL_TREE, FALSE);
 }
 
-#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.  */