From: jb Date: Fri, 27 Jul 2007 18:16:06 +0000 (+0000) Subject: 2007-07-27 Janne Blomqvist X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ce8f0aead42aca922c0a22ed50e723db43261644;p=thirdparty%2Fgcc.git 2007-07-27 Janne Blomqvist * 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 79571fdc48c3..53c199feb437 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-27 Janne Blomqvist + + * 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 * 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 f2dcec75d987..0a9c0d7b3171 100644 --- 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 =