diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/ada/cuintp.c | 13 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 8 | ||||
| -rw-r--r-- | gcc/ada/utils.c | 2 | ||||
| -rw-r--r-- | gcc/ada/utils2.c | 8 |
5 files changed, 21 insertions, 19 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index dc3dd9a..e49c9ab 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,6 +1,13 @@ +2004-08-25 Nathan Sidwell <nathan@codesourcery.com> + + * cuintp.c (UI_To_gnu): Adjust build_int_cst calls. + * trans.c (Exception_Handler_to_gnu_sjlj, gnat_to_gnu): Likewise. + * utils.c (init_gigi_decls): Likewise. + * utils2.c (build_call_raise, build_allocator): Likewise. + 2004-08-24 Nathan Sidwell <nathan@codesourcery.com> - * ada/utils.c (gnat_init_decl_processing): Adjust + * utils.c (gnat_init_decl_processing): Adjust build_common_tree_nodes call. 2004-08-20 Nathan Sidwell <nathan@codesourcery.com> diff --git a/gcc/ada/cuintp.c b/gcc/ada/cuintp.c index b919bb5..12eff09 100644 --- a/gcc/ada/cuintp.c +++ b/gcc/ada/cuintp.c @@ -63,9 +63,7 @@ UI_To_gnu (Uint Input, tree type) if (Input <= Uint_Direct_Last) gnu_ret = convert (type, build_int_cst (NULL_TREE, - Input - Uint_Direct_Bias, - Input < Uint_Direct_Bias - ? -1 : 0)); + Input - Uint_Direct_Bias)); else { Int Idx = Uints_Ptr[Input].Loc; @@ -76,13 +74,12 @@ 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_cst (NULL_TREE, Base, 0)); + tree gnu_base = convert (comp_type, build_int_cst (NULL_TREE, Base)); if (Length <= 0) abort (); - gnu_ret = convert (comp_type, build_int_cst (NULL_TREE, - First, First < 0 ? -1 : 0)); + gnu_ret = convert (comp_type, build_int_cst (NULL_TREE, First)); if (First < 0) for (Idx++, Length--; Length; Idx++, Length--) gnu_ret = fold (build (MINUS_EXPR, comp_type, @@ -90,7 +87,7 @@ UI_To_gnu (Uint Input, tree type) gnu_ret, gnu_base)), convert (comp_type, build_int_cst (NULL_TREE, - Udigits_Ptr[Idx], 0)))); + Udigits_Ptr[Idx])))); else for (Idx++, Length--; Length; Idx++, Length--) gnu_ret = fold (build (PLUS_EXPR, comp_type, @@ -98,7 +95,7 @@ UI_To_gnu (Uint Input, tree type) gnu_ret, gnu_base)), convert (comp_type, build_int_cst (NULL_TREE, - Udigits_Ptr[Idx], 0)))); + Udigits_Ptr[Idx])))); } gnu_ret = convert (type, gnu_ret); diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 452c3e5..d7b3b23 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -2218,8 +2218,7 @@ Exception_Handler_to_gnu_sjlj (Node_Id gnat_node) (TRUTH_ORIF_EXPR, integer_type_node, build_binary_op (EQ_EXPR, integer_type_node, gnu_comp, convert (TREE_TYPE (gnu_comp), - build_int_cst (NULL_TREE, - 'V', 0))), + build_int_cst (NULL_TREE, 'V'))), this_choice); } } @@ -2507,7 +2506,7 @@ gnat_to_gnu (Node_Id gnat_node) else gnu_result = convert (gnu_result_type, build_int_cst (NULL_TREE, - Char_Literal_Value (gnat_node), 0)); + Char_Literal_Value (gnat_node))); break; case N_Real_Literal: @@ -2623,8 +2622,7 @@ gnat_to_gnu (Node_Id gnat_node) convert (TREE_TYPE (gnu_result_type), build_int_cst (NULL_TREE, - Get_String_Char (gnat_string, i + 1), - 0)), + Get_String_Char (gnat_string, i + 1))), gnu_list); gnu_idx = int_const_binop (PLUS_EXPR, gnu_idx, integer_one_node, diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index f0440f7..0cc6c98 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -580,7 +580,7 @@ init_gigi_decls (tree long_long_float_type, tree exception_type) /* Make the types and functions used for exception processing. */ jmpbuf_type = build_array_type (gnat_type_for_mode (Pmode, 0), - build_index_type (build_int_cst (NULL_TREE, 5, 0))); + build_index_type (build_int_cst (NULL_TREE, 5))); create_type_decl (get_identifier ("JMPBUF_T"), jmpbuf_type, NULL, false, true, Empty); jmpbuf_ptr_type = build_pointer_type (jmpbuf_type); diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c index 60de87d..10da013 100644 --- a/gcc/ada/utils2.c +++ b/gcc/ada/utils2.c @@ -1444,13 +1444,13 @@ build_call_raise (int msg) TREE_TYPE (filename) = build_array_type (char_type_node, - build_index_type (build_int_cst (NULL_TREE, len, 0))); + build_index_type (build_int_cst (NULL_TREE, len))); return build_call_2_expr (fndecl, build1 (ADDR_EXPR, build_pointer_type (char_type_node), filename), - build_int_cst (NULL_TREE, input_line, 0)); + build_int_cst (NULL_TREE, input_line)); } /* Return a CONSTRUCTOR of TYPE whose list is LIST. */ @@ -1799,7 +1799,7 @@ build_allocator (tree type, tree init, tree result_type, Entity_Id gnat_proc, /* If the size overflows, pass -1 so the allocator will raise storage error. */ if (TREE_CODE (size) == INTEGER_CST && TREE_OVERFLOW (size)) - size = build_int_cst (ssizetype, -1, -1); + size = build_int_cst (ssizetype, -1); storage = build_call_alloc_dealloc (NULL_TREE, size, TYPE_ALIGN (storage_type), @@ -1872,7 +1872,7 @@ build_allocator (tree type, tree init, tree result_type, Entity_Id gnat_proc, /* If the size overflows, pass -1 so the allocator will raise storage error. */ if (TREE_CODE (size) == INTEGER_CST && TREE_OVERFLOW (size)) - size = build_int_cst (ssizetype, -1, -1); + size = build_int_cst (ssizetype, -1); /* If this is a type whose alignment is larger than the biggest we support in normal alignment and this is in |