diff options
Diffstat (limited to 'gcc/ada/gcc-interface/cuintp.c')
| -rw-r--r-- | gcc/ada/gcc-interface/cuintp.c | 26 |
1 files changed, 8 insertions, 18 deletions
diff --git a/gcc/ada/gcc-interface/cuintp.c b/gcc/ada/gcc-interface/cuintp.c index a22662e..420686c 100644 --- a/gcc/ada/gcc-interface/cuintp.c +++ b/gcc/ada/gcc-interface/cuintp.c @@ -142,13 +142,16 @@ UI_From_gnu (tree Input) /* UI_Base is defined so that 5 Uint digits is sufficient to hold the largest possible signed 64-bit value. */ const int Max_For_Dint = 5; - int v[Max_For_Dint], i; + int v[Max_For_Dint]; Vector_Template temp; Int_Vector vec; -#if HOST_BITS_PER_WIDE_INT == 64 - /* On 64-bit hosts, tree_fits_shwi_p tells whether the input fits in a - signed 64-bit integer. Then a truncation tells whether it fits +#if HOST_BITS_PER_WIDE_INT < 64 +#error unsupported HOST_BITS_PER_WIDE_INT setting +#endif + + /* On 64-bit hosts, tree_fits_shwi_p tells whether the input fits in + a signed 64-bit integer. Then a truncation tells whether it fits in a signed 32-bit integer. */ if (tree_fits_shwi_p (Input)) { @@ -158,24 +161,11 @@ UI_From_gnu (tree Input) } else return No_Uint; -#else - /* On 32-bit hosts, tree_fits_shwi_p tells whether the input fits in a - signed 32-bit integer. Then a sign test tells whether it fits - in a signed 64-bit integer. */ - if (tree_fits_shwi_p (Input)) - return UI_From_Int (tree_to_shwi (Input)); - - gcc_assert (TYPE_PRECISION (gnu_type) <= 64); - if (TYPE_UNSIGNED (gnu_type) - && TYPE_PRECISION (gnu_type) == 64 - && wi::neg_p (Input, SIGNED)) - return No_Uint; -#endif gnu_base = build_int_cst (gnu_type, UI_Base); gnu_temp = Input; - for (i = Max_For_Dint - 1; i >= 0; i--) + for (int i = Max_For_Dint - 1; i >= 0; i--) { v[i] = tree_to_shwi (fold_build1 (ABS_EXPR, gnu_type, fold_build2 (TRUNC_MOD_EXPR, gnu_type, |