diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2016-01-18 11:29:00 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2016-01-18 11:29:00 +0000 |
| commit | 9a1bdc314ba086904861838838bc2e0743476dcd (patch) | |
| tree | 9b5a32fc16b8443b82e93e51c4c082d86cb64a11 /gcc/ada/gcc-interface/misc.c | |
| parent | f5460595a488ce9c131815016d0c89dc0d17ca14 (diff) | |
| download | gcc-9a1bdc314ba086904861838838bc2e0743476dcd.zip gcc-9a1bdc314ba086904861838838bc2e0743476dcd.tar.gz gcc-9a1bdc314ba086904861838838bc2e0743476dcd.tar.bz2 | |
gigi.h (build_call_raise_column): Adjust prototype.
* gcc-interface/gigi.h (build_call_raise_column): Adjust prototype.
(build_call_raise_range): Likewise.
(gnat_unsigned_type): Delete.
(gnat_signed_type): Likewise.
(gnat_signed_or_unsigned_type_for): New prototype.
(gnat_unsigned_type_for): New inline function.
(gnat_signed_type_for): Likewise.
* gcc-interface/cuintp.c (build_cst_from_int): Call build_int_cst.
* gcc-interface/decl.c (gnat_to_gnu_entity): Likewise.
(gnat_to_gnu_entity) <E_Array_Type>: Always translate the index types
and compute their base type from that.
<E_Array_Subtype>: Remove duplicate declaration.
* gcc-interface/misc.c (get_array_bit_stride): Call build_int_cst.
* gcc-interface/trans.c (get_type_length): Likewise.
(Attribute_to_gnu): Likewise.
(Loop_Statement_to_gnu): Likewise.
(Call_to_gnu): Likewise.
(gnat_to_gnu): Call build_real, build_int_cst, gnat_unsigned_type_for
and gnat_signed_type_for. Minor tweaks.
(build_binary_op_trapv): Likewise.
(emit_check): Likewise.
(convert_with_check): Likewise.
(Raise_Error_to_gnu): Adjust calls to the build_call_raise family of
functions. Minor tweaks.
(Case_Statement_to_gnu): Remove dead code.
(gnat_to_gnu): Call gnat_unsigned_type_for and gnat_signed_type_for.
(init_code_table): Minor reordering.
* gcc-interface/utils.c (gnat_unsigned_type): Delete.
(gnat_signed_type): Likewise.
(gnat_signed_or_unsigned_type_for): New function.
(unchecked_convert): Use directly the size in the test for precision
vs size adjustments.
(install_builtin_elementary_types): Call gnat_signed_type_for.
* gcc-interface/utils2.c (nonbinary_modular_operation): Call
build_int_cst.
(build_goto_raise): New function taken from...
(build_call_raise): ...here. Call it.
(build_call_raise_column): Add KIND parameter and call it.
(build_call_raise_range): Likewise.
From-SVN: r232503
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index f051c0c..33839f3 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -1035,7 +1035,7 @@ get_array_bit_stride (tree comp_type) { stride = fold_convert (bitsizetype, stride); stride = build_binary_op (MULT_EXPR, bitsizetype, - stride, build_int_cstu (bitsizetype, 8)); + stride, build_int_cst (bitsizetype, 8)); } for (int i = 0; i < info.ndimensions; ++i) @@ -1053,10 +1053,10 @@ get_array_bit_stride (tree comp_type) fold_convert (sbitsizetype, info.dimen[i].lower_bound)), count = build_binary_op (PLUS_EXPR, sbitsizetype, - count, build_int_cstu (sbitsizetype, 1)); + count, build_int_cst (sbitsizetype, 1)); count = build_binary_op (MAX_EXPR, sbitsizetype, count, - build_int_cstu (sbitsizetype, 0)); + build_int_cst (sbitsizetype, 0)); count = fold_convert (bitsizetype, count); stride = build_binary_op (MULT_EXPR, bitsizetype, stride, count); } |