summaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorNathan Sidwell <nathan@codesourcery.com>2004-08-25 09:52:54 +0000
committerNathan Sidwell <nathan@gcc.gnu.org>2004-08-25 09:52:54 +0000
commit7d60be94d610cd5f18bc2ae64e4e97f210c8538b (patch)
treeb5d8f16132872f7a863ddce55007c0a82239369a /gcc/ada
parent5b292a4b0568b7b360fb092893496211f3a51126 (diff)
downloadgcc-7d60be94d610cd5f18bc2ae64e4e97f210c8538b.tar.gz
tree.h (build_int_cst): New, sign extended constant.
* tree.h (build_int_cst): New, sign extended constant. (build_int_cstu): New, zero extended constant. (build_int_cst_wide): Renamed from build_int_cst. * tree.c (build_int_cst, build_int_cstu): New. (build_int_cst_wide): Renamed from build_int_cst. (make_vector_type, build_common_tree_nodes, build_common_tree_nodes_2): Adjust build_int_cst calls. * builtins.c (expand_builtin_prefetch, expand_builtin_strstr, expand_builtin_strpbrk, expand_builtin_fputs, build_string_literal, expand_builtin_printf, expand_builtin_sprintf, fold_builtin_classify_type, fold_builtin_lround, fold_builtin_bitop, fold_builtin_isascii, fold_builtin_toascii, fold_builtin_isdigit, simplify_builtin_strstr, simplify_builtin_strpbrk, fold_builtin_fputs, simplify_builtin_sprintf): Likewise. * c-common.c (start_fname_decls, fix_string_type, shorten_compare, DEF_ATTR_INT): Likewise. * c-decl.c (complete_array_type, check_bitfield_type_and_width): Likewise. * c-lex.c (interpret_integer, lex_charconst): Likewise. * c-parse.in (primary) <TYPES_COMPATIBLE_P> Likewise. * c-pretty-print.c (pp_c_integer_constant): Likewise. * c-typeck.c (really_start_incremental_init, push_init_level, set_nonincremental_init_from_string): Likewise. * calls.c (load_register_parameters): Likewise. convert.c (convert_to_pointer): Likewise. coverage.c (coverage_counter_alloc, tree_coverage_counter_ref, build_fn_info_type, build_fn_info_value, build_ctr_info_value, build_gcov_info): Likewise. * except.c (init_eh, assign_filter_values): Likewise. * expmed.c (store_fixed_bit_field, extract_bit_field, extract_fixed_bit_field, extract_split_bit_field, expand_shift, expand_mult_const, expand_mult_highpart_adjust, extract_high_half, expand_sdiv_pow2, expand_divmod, make_tree): Likewise. * expr.c (convert_move, emit_group_load, emit_group_store, expand_assignment, store_constructor, store_field, expand_expr_real_1, reduce_to_bit_field_precision): Likewise. fold-const.c (force_fit_type, int_const_binop, fold_convert_const, invert_truthvalue, optimize_bit_field_compare, decode_field_reference, all_ones_mask_p, constant_boolean_node, fold_div_compare, fold, fold_read_from_constant_string, fold_negate_const, fold_abs_const, fold_not_const, round_up, round_down): Likewise. * function.c (assign_parm_setup_block): Likewise. * stmt.c (shift_return_value, expand_case, estimate_case_costs): Likewise. * stor-layout.c (layout_type, initialize_sizetypes, set_min_and_max_values_for_integral_type): Likewise. * tree-chrec.c (chrec_fold_multiply_poly_poly, reset_evolution_in_loop): Likewise. * tree-chrec.h (build_polynomial_chrec): Likewise. * tree-complex.c (build_replicated_const): Likewise. * tree-eh.c (honor_protect_cleanup_actions, lower_try_finally_onedest, lower_try_finally_copy, lower_try_finally_switch): Likewise. * tree-mudflap.c (mf_build_string, mx_register_decls, mudflap_register_call, mudflap_enqueue_constant): Likewise. * tree-nested.c (get_trampoline_type, get_nl_goto_field): Likewise. * tree-pretty-print.c (dump_generic_node): Likewise. * tree-ssa-ccp.c (widen_bitfield, maybe_fold_offset_to_array_ref): Likewise. * tree-ssa-dom.c (simplify_rhs_and_lookup_avail_expr): Likewise. * tree-ssa-loop-niter.c (number_of_iterations_cond, loop_niter_by_eval, upper_bound_in_type, lower_bound_in_type): Likewise. * tree-ssa-loop-ivcanon.c (create_canonical_iv, canonicalize_loop_induction_variables): Likewise. * tree-vectorizer.c (vect_create_index_for_array_ref, vect_transform_loop_bound, vect_compute_data_ref_alignment): Likewise. * config/alpha/alpha.c (alpha_initialize_trampoline, alpha_va_start, alpha_gimplify_va_arg_1): Likewise. * config/arm/arm.c (arm_get_cookie_size): Likewise. * config/c4x/c4x.c (c4x_gimplify_va_arg_expr): Likewise. * config/i386/i386.c (ix86_va_start, ix86_gimplify_va_arg): Likewise. * config/ia64/ia64.c (ia64_gimplify_va_arg): Likewise. * config/mips/mips.c (mips_build_builtin_va_list, mips_va_start, mips_gimplify_va_arg_expr): Likewise. * config/pa/pa.c (hppa_gimplify_va_arg_expr): Likewise. * config/rs6000/rs6000.c (rs6000_va_start, rs6000_gimplify_va_arg, add_compiler_branch_island): Likewise. * config/s390/s390.c (s390_va_start): Likewise. * config/sh/sh.c (sh_va_start): Likewise. * config/stormy16/stormy16.c (xstormy16_expand_builtin_va_start): Likewise. * config/xtensa/xtensa.c (xtensa_va_start, xtensa_gimplify_va_arg_expr): Likewise. * objc/objc-act.c (build_objc_string_object, build_objc_symtab_template, init_def_list, init_objc_symtab, init_module_descriptor, generate_static_references, build_selector_translation_table, get_proto_encoding, build_typed_selector_reference, build_selector_reference, build_next_objc_exception_stuff, build_method_prototype_list_template, generate_descriptor_table, generate_protocols, build_protocol_initializer, build_ivar_list_template, build_method_list_template, build_ivar_list_initializer, generate_ivars_list, generate_dispatch_table, generate_protocol_list, build_category_initializer, build_shared_structure_initializer, generate_shared_structures, handle_impent, generate_objc_image_info): Likewise. 2004-04-25 Paolo Bonzini <bonzini@gnu.org> * cfglayout.c (duplicate_insn_chain): Remove references to NOTE_INSN_LOOP_VTOP and NOTE_INSN_LOOP_CONT. * cfgloop.h (struct loop): Remove fields vtop, cont and cont_dominator. * cfgrtl.c (rtl_delete_block): Remove handling of NOTE_INSN_LOOP_CONT. * final.c (final_scan_insn): Remove references to NOTE_INSN_LOOP_VTOP and NOTE_INSN_LOOP_CONT. * insn-notes.def (NOTE_INSN_LOOP_VTOP, NOTE_INSN_LOOP_CONT): Remove. * jump.c (squeeze_notes): Remove references to NOTE_INSN_LOOP_VTOP and NOTE_INSN_LOOP_CONT. * loop.c (scan_loops, find_and_verify_loops, for_each_insn_in_loop, check_dbra_loop, loop_dump_aux): Remove references to removed notes and fields. * reorg.c (mostly_true_jump): Do not rely on NOTE_INSN_LOOP_VTOPs. * unroll.c (unroll_loop, copy_loop_body, loop_iterations): Remove references to removed notes and fields. (subtract_reg_term, ujump_to_loop_cont): Remove. From-SVN: r86544
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog9
-rw-r--r--gcc/ada/cuintp.c13
-rw-r--r--gcc/ada/trans.c8
-rw-r--r--gcc/ada/utils.c2
-rw-r--r--gcc/ada/utils2.c8
5 files changed, 21 insertions, 19 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index dc3dd9a26f9..e49c9ab4e46 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 b919bb58ce1..12eff09e840 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 452c3e56fc7..d7b3b2364aa 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 f0440f7eef8..0cc6c987514 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 60de87d89d6..10da013f91e 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