diff options
author | Craig Burley <burley@gnu.org> | 1998-07-08 17:47:55 -0600 |
---|---|---|
committer | Jeff Law <law@gcc.gnu.org> | 1998-07-08 17:47:55 -0600 |
commit | 2b228a318027d5b26691ad49b4f6b89a03c9c24f (patch) | |
tree | f63bb9df3cd5b3db8a2e88cd4c936cfe58ea6ba8 /gcc/f | |
parent | 621bb5b115057a5430eb4c1e5325274705dea1e3 (diff) | |
download | gcc-2b228a318027d5b26691ad49b4f6b89a03c9c24f.zip gcc-2b228a318027d5b26691ad49b4f6b89a03c9c24f.tar.gz gcc-2b228a318027d5b26691ad49b4f6b89a03c9c24f.tar.bz2 |
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
Diffstat (limited to 'gcc/f')
-rw-r--r-- | gcc/f/com.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index d2ff346..322b103 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); |