diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-06-06 07:44:03 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-06-06 07:44:03 +0000 |
| commit | 0f50b3db8ab24d90f29143c80fc6b54efa9cba83 (patch) | |
| tree | 4fef9d81db0131619bdf0bb71bb0627c0f5e675b | |
| parent | bb5c49564ff5ec66f4ae39a00b2ed59189f95fc8 (diff) | |
| download | gcc-0f50b3db8ab24d90f29143c80fc6b54efa9cba83.zip gcc-0f50b3db8ab24d90f29143c80fc6b54efa9cba83.tar.gz gcc-0f50b3db8ab24d90f29143c80fc6b54efa9cba83.tar.bz2 | |
utils.c (note_types_used_by_globals): Tweak comment.
* gcc-interface/utils.c (note_types_used_by_globals): Tweak comment.
* gcc-interface/decl.c (gnat_to_gnu_entity): Likewise.
From-SVN: r224184
| -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); |