diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-23 10:22:55 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-23 10:22:55 +0000 |
| commit | 26383c648f1e2bb6e3e2da84eaa6061159fe3904 (patch) | |
| tree | 9e425a0292fcfe1ed87343fee372b792fc2df72f /gcc/ada/gcc-interface/utils2.c | |
| parent | 4782dfa72f25706e3276784417630b6d163e784d (diff) | |
| download | gcc-26383c648f1e2bb6e3e2da84eaa6061159fe3904.zip gcc-26383c648f1e2bb6e3e2da84eaa6061159fe3904.tar.gz gcc-26383c648f1e2bb6e3e2da84eaa6061159fe3904.tar.bz2 | |
ada-tree.h (union lang_tree_node): Use standard idiom.
* gcc-interface/ada-tree.h (union lang_tree_node): Use standard idiom.
(SET_TYPE_LANG_SPECIFIC): Likewise. Fix formatting.
(SET_DECL_LANG_SPECIFIC): Likewise.
Reorder macros.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Signed_Integer_Subtype>:
Update comment about use of build_range_type.
<E_Array_Type, E_Array_Subtype>: Use consistent naming convention.
<E_Array_Subtype>: Rework comments about TYPE_ACTUAL_BOUNDS and add
check for other cases of overloading.
* gcc-interface/trans.c (gigi): Use size_int in lieu of build_int_cst.
* gcc-interface/utils2.c (build_call_raise): Fix off-by-one error.
Use size_int in lieu of build_int_cst.
(build_call_alloc_dealloc): Use build_index_2_type in lieu of
build_range_type.
From-SVN: r146639
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index d6b7d68..baa8a27 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -1591,15 +1591,14 @@ build_call_raise (int msg, Node_Id gnat_node, char kind) (Get_Source_File_Index (Sloc (gnat_node)))))) : ref_filename; - len = strlen (str) + 1; + len = strlen (str); filename = build_string (len, str); line_number = (gnat_node != Empty && Sloc (gnat_node) != No_Location) ? Get_Logical_Line_Number (Sloc(gnat_node)) : input_line; TREE_TYPE (filename) - = build_array_type (char_type_node, - build_index_type (build_int_cst (NULL_TREE, len))); + = build_array_type (char_type_node, build_index_type (size_int (len))); return build_call_2_expr (fndecl, @@ -1928,14 +1927,12 @@ build_call_alloc_dealloc (tree gnu_obj, tree gnu_size, unsigned align, /* If the size is a constant, we can put it in the fixed portion of the stack frame to avoid the need to adjust the stack pointer. */ { - tree gnu_range - = build_range_type (NULL_TREE, size_one_node, gnu_size); - tree gnu_array_type = build_array_type (char_type_node, gnu_range); + tree gnu_index = build_index_2_type (size_one_node, gnu_size); + tree gnu_array_type = build_array_type (char_type_node, gnu_index); tree gnu_decl = create_var_decl (get_identifier ("RETVAL"), NULL_TREE, gnu_array_type, NULL_TREE, false, false, false, false, NULL, gnat_node); - return convert (ptr_void_type_node, build_unary_op (ADDR_EXPR, NULL_TREE, gnu_decl)); } |