* tree.h (build_index_2_type): Remove.
* tree.c (build_index_2_type): Remove.
ada/gcc-interface/
* utils.c (create_index_type): Use build_range_type.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164164
138bc75d-0d04-0410-961f-
82ee72b054a4
+2010-09-10 Richard Guenther <rguenther@suse.de>
+
+ * tree.h (build_index_2_type): Remove.
+ * tree.c (build_index_2_type): Remove.
+
2010-09-10 Jakub Jelinek <jakub@redhat.com>
PR bootstrap/45630
+2010-09-10 Richard Guenther <rguenther@suse.de>
+
+ * gcc-interface/utils.c (create_index_type): Use build_range_type.
+
2010-09-10 Arnaud Charlet <charlet@adacore.com>
* vms_cmds.ads: New.
create_index_type (tree min, tree max, tree index, Node_Id gnat_node)
{
/* First build a type for the desired range. */
- tree type = build_index_2_type (min, max);
+ tree type = build_range_type (sizetype, min, max);
/* If this type has the TYPE_INDEX_TYPE we want, return it. */
if (TYPE_INDEX_TYPE (type) == index)
return true;
}
-/* Just like build_index_type, but takes lowval and highval instead
- of just highval (maxval). */
-
-tree
-build_index_2_type (tree lowval, tree highval)
-{
- return build_range_type (sizetype, lowval, highval);
-}
-
/* Construct, lay out and return the type of arrays of elements with ELT_TYPE
and number of elements specified by the range of values of INDEX_TYPE.
If such a type has already been constructed, reuse it. */
extern tree build_opaque_vector_type (tree innertype, int nunits);
extern tree build_type_no_quals (tree);
extern tree build_index_type (tree);
-extern tree build_index_2_type (tree, tree);
extern tree build_array_type (tree, tree);
extern tree build_function_type (tree, tree);
extern tree build_function_type_list (tree, ...);