diff options
Diffstat (limited to 'gcc/ada/cuintp.c')
| -rw-r--r-- | gcc/ada/cuintp.c | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/cuintp.c b/gcc/ada/cuintp.c index 3b8495c..c0338af 100644 --- a/gcc/ada/cuintp.c +++ b/gcc/ada/cuintp.c @@ -62,8 +62,10 @@ UI_To_gnu (Uint Input, tree type) tree gnu_ret; if (Input <= Uint_Direct_Last) - gnu_ret = convert (type, build_int_2 (Input - Uint_Direct_Bias, - Input < Uint_Direct_Bias ? -1 : 0)); + gnu_ret = convert (type, build_int_cst (NULL_TREE, + Input - Uint_Direct_Bias, + Input < Uint_Direct_Bias + ? -1 : 0)); else { Int Idx = Uints_Ptr[Input].Loc; @@ -74,26 +76,26 @@ UI_To_gnu (Uint Input, tree type) tree comp_type = (TYPE_PRECISION (type) >= TYPE_PRECISION (integer_type_node) ? type : integer_type_node); - tree gnu_base = convert (comp_type, build_int_2 (Base, 0)); + tree gnu_base = build_int_cst (comp_type, Base, 0); if (Length <= 0) abort (); - gnu_ret = convert (comp_type, build_int_2 (First, First < 0 ? -1 : 0)); + gnu_ret = build_int_cst (comp_type, First, First < 0 ? -1 : 0); if (First < 0) for (Idx++, Length--; Length; Idx++, Length--) gnu_ret = fold (build (MINUS_EXPR, comp_type, fold (build (MULT_EXPR, comp_type, gnu_ret, gnu_base)), - convert (comp_type, - build_int_2 (Udigits_Ptr[Idx], 0)))); + build_int_cst (comp_type, + Udigits_Ptr[Idx], 0))); else for (Idx++, Length--; Length; Idx++, Length--) gnu_ret = fold (build (PLUS_EXPR, comp_type, fold (build (MULT_EXPR, comp_type, gnu_ret, gnu_base)), - convert (comp_type, - build_int_2 (Udigits_Ptr[Idx], 0)))); + build_int_cst (comp_type, + Udigits_Ptr[Idx], 0))); } gnu_ret = convert (type, gnu_ret); |