diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-09-14 07:21:38 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-09-14 07:21:38 +0000 |
| commit | ba4643153b87f84c0ee07ffd7f7fd53589c94ddc (patch) | |
| tree | 83fbdae90cd7856085145cac723fa634819cb318 /gcc/ada/gcc-interface/misc.c | |
| parent | 92d5f5ab3c36e05f10fc3445f0bf4b38e48be8fb (diff) | |
| download | gcc-ba4643153b87f84c0ee07ffd7f7fd53589c94ddc.zip gcc-ba4643153b87f84c0ee07ffd7f7fd53589c94ddc.tar.gz gcc-ba4643153b87f84c0ee07ffd7f7fd53589c94ddc.tar.bz2 | |
gigi.h (ref_filename): Delete.
* gcc-interface/gigi.h (ref_filename): Delete.
(Sloc_to_locus): Add clean_column parameter defaulting to false.
(build_call_raise): Adjust comment.
(build_call_raise_range): Move around.
* gcc-interface/trans.c (ref_filename): Delete.
(gigi): Fix formatting.
(block_end_locus_sink): Delete.
(Sloc_to_locus1): Tidy up and reformat. Rename into...
(Sloc_to_locus): ...this. Add default for clean_colmun parameter.
(set_expr_location_from_node1): Rename into...
(set_expr_location_from_node): ...this.
(set_end_locus_from_node): Move around. Adjust for renaming.
(Handled_Sequence_Of_Statements_to_gnu): Likewise.
(add_cleanup): Likewise.
* gcc-interface/utils2.c (expand_sloc): New static function.
(build_call_raise): Call it.
(build_call_raise_column): Likewise.
(build_call_raise_range): Likewise. Move around.
From-SVN: r227736
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 5b2d8b3..9d8d262 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -658,7 +658,7 @@ gnat_get_array_descr_info (const_tree type, struct array_descr_info *info) info->ndimensions = i; convention_fortran_p = TYPE_CONVENTION_FORTRAN_P (type); - /* TODO: For row major ordering, we probably want to emit nothing and + /* TODO: for row major ordering, we probably want to emit nothing and instead specify it as the default in Dw_TAG_compile_unit. */ info->ordering = (convention_fortran_p ? array_descr_ordering_column_major |