* 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.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@232503 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 3 insertions, 3 deletions

diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c
index f051c0c0acf6..33839f32eaa1 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);
     }