diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2007-07-27 21:16:06 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2007-07-27 21:16:06 +0300 |
| commit | 4e27018f036fa959fbfd774ace6311f23541d528 (patch) | |
| tree | cbaaac9b02d6b45a9a2b2fc25b543a62c31bbe49 | |
| parent | 6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1 (diff) | |
| download | gcc-4e27018f036fa959fbfd774ace6311f23541d528.zip gcc-4e27018f036fa959fbfd774ace6311f23541d528.tar.gz gcc-4e27018f036fa959fbfd774ace6311f23541d528.tar.bz2 | |
trans-decl.c (gfc_build_builtin_function_decls): Use existing gfc_array_index_type rather than creating another typenode for...
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.
From-SVN: r126993
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 7 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 79571fd..53c199f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 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 gfc_array_index_type for array descriptor triplets instead of gfc_int4_type_node. diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index f2dcec7..0a9c0d7 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 = |