From: Andy Vaught <andy@maxwell.la.asu.edu>
Date: Thu, 17 Feb 2000 10:06:03 +0000 (+0000)
Subject: Andy Vaught  <andy@maxwell.la.asu.edu>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b7a80862349bb9df5143ad83308bc1c7e6df331d;p=gcc.git

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 03ef8c29aea..f9ae0163eb9 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 81ddf4797cb..49560ac92c4 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)
 {
@@ -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.  */