diff options
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 2 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 14 |
2 files changed, 7 insertions, 9 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 42e2cfb..3c243a2 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -5185,7 +5185,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) && !Present (Alias (gnat_entity)) && !(Present (Renamed_Object (gnat_entity)) && saved)) { - /* ?? DECL_ARTIFICIAL, and possibly DECL_IGNORED_P below, should + /* ??? DECL_ARTIFICIAL, and possibly DECL_IGNORED_P below, should be set before calling rest_of_decl_compilation above (through create_var_decl_1). This is because rest_of_decl_compilation calls the debugging backend and will create a DIE without diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 307a841..e24a295 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -5182,13 +5182,11 @@ smaller_form_type_p (tree type, tree orig_type) return tree_int_cst_lt (size, osize) != 0; } -/* Perform final processing on global variables. */ - -static GTY (()) tree dummy_global; - /* Keep track of types used at the global level and emit debug info for all global types. */ +static GTY (()) tree dummy_global; + void note_types_used_by_globals (void) { @@ -5219,10 +5217,10 @@ note_types_used_by_globals (void) } } - /* Output debug information for all global type declarations first. This - ensures that global types whose compilation haven't been finalized yet, - for example pointers to Taft amendment types, have their compilation - finalized in the right context. */ + /* Output debug information for all global type declarations. This ensures + that global types whose compilation cannot been finalized earlier, e.g. + pointers to Taft amendment types, have their compilation finalized in + the right context. */ FOR_EACH_VEC_SAFE_ELT (type_decls, i, iter) if (!DECL_IGNORED_P (iter)) debug_hooks->type_decl (iter, false); |