From: Craig Burley <burley@gnu.org>
Date: Wed, 8 Jul 1998 23:47:55 +0000 (-0600)
Subject: Fix debugging of CHARACTER*(*), etc., which requires emitting debug info on types... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2b228a318027d5b26691ad49b4f6b89a03c9c24f;p=gcc.git

Fix debugging of CHARACTER*(*), etc., which requires emitting debug info on types like `ftnlen':

d
	Fix debugging of CHARACTER*(*), etc., which requires
	emitting debug info on types like `ftnlen':
	* com.c (ffecom_start_progunit_): Don't bother
	resetting "invented" flag for identifier.
	(ffecom_transform_equiv_): Don't bother zeroing
	"ignored" flag for decl.
	(pushdecl): No longer set "ignored", "used", or
	"suppressed debug" flags for decls having "invented"
	identifiers.

From-SVN: r21021
---

diff --git a/gcc/f/com.c b/gcc/f/com.c
index d2ff346b0ff..322b10324e3 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -7929,7 +7929,6 @@ ffecom_start_progunit_ ()
       id = ffecom_get_invented_identifier ("__g77_masterfun_%s",
 					   ffesymbol_text (fn),
 					   0);
-      IDENTIFIER_INVENTED (id) = 0;	/* Allow this to be debugged. */
     }
 #if FFETARGET_isENFORCED_MAIN
   else if (main_program)
@@ -9474,11 +9473,6 @@ ffecom_transform_equiv_ (ffestorag eqst)
 
   eqt = start_decl (eqt, FALSE);
 
-  /* Make sure this shows up as a debug symbol, which is not normally
-     the case for invented identifiers.  */
-
-  DECL_IGNORED_P (eqt) = 0;
-
   /* Make sure that any type can live in EQUIVALENCE and be referenced
      without getting a bus error.  We could pick the most restrictive
      alignment of all entities actually placed in the EQUIVALENCE, but
@@ -15330,10 +15324,6 @@ pushdecl (x)
 	  DECL_ARTIFICIAL (x) = 1;
 #endif
 	  DECL_IN_SYSTEM_HEADER (x) = 1;
-	  DECL_IGNORED_P (x) = 1;
-	  TREE_USED (x) = 1;
-	  if (TREE_CODE (x) == TYPE_DECL)
-	    TYPE_DECL_SUPPRESS_DEBUG (x) = 1;
 	}
 
       t = lookup_name_current_level (name);