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/cuintp.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/cuintp.c')
| -rw-r--r-- | gcc/ada/gcc-interface/cuintp.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/cuintp.c b/gcc/ada/gcc-interface/cuintp.c index 347658e..a22662e 100644 --- a/gcc/ada/gcc-interface/cuintp.c +++ b/gcc/ada/gcc-interface/cuintp.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2015, Free Software Foundation, Inc. * + * Copyright (C) 1992-2016, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -52,8 +52,8 @@ the integer value itself. The origin of the Uints_Ptr table is adjusted so that a Uint value of Uint_Bias indexes the first element. - First define a utility function that operates like build_int_cst_type for - integral types and does a conversion for floating-point types. */ + First define a utility function that is build_int_cst for integral types and + does a conversion for floating-point types. */ static tree build_cst_from_int (tree type, HOST_WIDE_INT low) @@ -61,7 +61,7 @@ build_cst_from_int (tree type, HOST_WIDE_INT low) if (SCALAR_FLOAT_TYPE_P (type)) return convert (type, build_int_cst (gnat_type_for_size (32, 0), low)); else - return build_int_cst_type (type, low); + return build_int_cst (type, low); } /* Similar to UI_To_Int, but return a GCC INTEGER_CST or REAL_CST node, |