OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Craig Burley 1998-07-08 17:47:55 -06:00 committed by Jeff Law
parent 621bb5b115
commit 2b228a3180
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/f/com.c
View File

@ -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);