2007-07-27 Janne Blomqvist <jb@gcc.gnu.org>

	* trans-decl.c (gfc_build_builtin_function_decls): Use existing
	gfc_array_index_type rather than creating another typenode for
	gfc_index_integer_kind.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126993 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 79571fdc48c3fc47a4f37e3182e6754c03d110a9..53c199feb4379cb2a46258c27c98aa78160b5f4a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-27  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       * trans-decl.c (gfc_build_builtin_function_decls): Use existing
+       gfc_array_index_type rather than creating another typenode for
+       gfc_index_integer_kind.
+
 2007-07-27  Janne Blomqvist  <jb@gcc.gnu.org>
 
        * trans-io.c (gfc_build_io_library_fndecls): Change to use

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index f2dcec75d98753d4a05a43f2e1e98a3a7ca0dd13..0a9c0d7b3171acaca387ffa66ce89372f5764956 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -2283,24 +2283,23 @@ gfc_build_builtin_function_decls (void)
   tree gfc_int4_type_node = gfc_get_int_type (4);
   tree gfc_logical4_type_node = gfc_get_logical_type (4);
   tree gfc_pint4_type_node = build_pointer_type (gfc_int4_type_node);
-  tree gfc_index_int_type_node = gfc_get_int_type (gfc_index_integer_kind);
 
   gfor_fndecl_internal_realloc =
     gfc_build_library_function_decl (get_identifier
                                     (PREFIX("internal_realloc")),
                                     pvoid_type_node, 2, pvoid_type_node,
-                                    gfc_index_int_type_node);
+                                    gfc_array_index_type);
 
   gfor_fndecl_allocate =
     gfc_build_library_function_decl (get_identifier (PREFIX("allocate")),
                                     pvoid_type_node, 2,
-                                    gfc_index_int_type_node, gfc_pint4_type_node);
+                                    gfc_array_index_type, gfc_pint4_type_node);
   DECL_IS_MALLOC (gfor_fndecl_allocate) = 1;
 
   gfor_fndecl_allocate_array =
     gfc_build_library_function_decl (get_identifier (PREFIX("allocate_array")),
                                     pvoid_type_node, 3, pvoid_type_node,
-                                    gfc_index_int_type_node, gfc_pint4_type_node);
+                                    gfc_array_index_type, gfc_pint4_type_node);
   DECL_IS_MALLOC (gfor_fndecl_allocate_array) = 1;
 
   gfor_fndecl_deallocate =