From 2b228a318027d5b26691ad49b4f6b89a03c9c24f Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Wed, 8 Jul 1998 17:47:55 -0600 Subject: [PATCH] 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 --- gcc/f/com.c | 10 ---------- 1 file changed, 10 deletions(-) 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); -- 2.30.2