diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2011-06-30 12:25:40 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2011-06-30 12:25:40 +0200 |
| commit | 21ea4922aceb3ffa50c3d00b8d26da6b41af92cf (patch) | |
| tree | f873fddb9973169bde2c078e90368a59e90983c7 /gcc/fortran/data.h | |
| parent | f7069d58f6b79b685000544981eb4d05d8261bf9 (diff) | |
| download | gcc-21ea4922aceb3ffa50c3d00b8d26da6b41af92cf.zip gcc-21ea4922aceb3ffa50c3d00b8d26da6b41af92cf.tar.gz gcc-21ea4922aceb3ffa50c3d00b8d26da6b41af92cf.tar.bz2 | |
re PR fortran/49540 (Memory-hog with large DATA stmt)
PR fortran/49540
* gfortran.h (gfc_constructor): Add repeat field.
* trans-array.c (gfc_conv_array_initializer): Handle repeat > 1.
* array.c (current_expand): Add repeat field.
(expand_constructor): Copy repeat.
* constructor.c (node_free, node_copy, gfc_constructor_get,
gfc_constructor_lookup): Handle repeat field.
(gfc_constructor_lookup_next, gfc_constructor_remove): New functions.
* data.h (gfc_assign_data_value): Add mpz_t * argument.
(gfc_assign_data_value_range): Removed.
* constructor.h (gfc_constructor_advance): Removed.
(gfc_constructor_lookup_next, gfc_constructor_remove): New prototypes.
* data.c (gfc_assign_data_value): Add REPEAT argument, handle it and
also handle overwriting a range with a single entry.
(gfc_assign_data_value_range): Removed.
* resolve.c (check_data_variable): Adjust gfc_assign_data_value
call. Use gfc_assign_data_value instead of
gfc_assign_data_value_expr.
* gfortran.dg/pr49540-1.f90: New test.
* gfortran.dg/pr49540-2.f90: New test.
From-SVN: r175693
Diffstat (limited to 'gcc/fortran/data.h')
| -rw-r--r-- | gcc/fortran/data.h | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/data.h b/gcc/fortran/data.h index 955843c..a9687c4 100644 --- a/gcc/fortran/data.h +++ b/gcc/fortran/data.h @@ -1,5 +1,5 @@ /* Header for functions resolving DATA statements. - Copyright (C) 2007, 2008, 2010 Free Software Foundation, Inc. + Copyright (C) 2007, 2008, 2010, 2011 Free Software Foundation, Inc. This file is part of GCC. @@ -19,6 +19,5 @@ along with GCC; see the file COPYING3. If not see void gfc_formalize_init_value (gfc_symbol *); void gfc_get_section_index (gfc_array_ref *, mpz_t *, mpz_t *); -gfc_try gfc_assign_data_value (gfc_expr *, gfc_expr *, mpz_t); -gfc_try gfc_assign_data_value_range (gfc_expr *, gfc_expr *, mpz_t, mpz_t); +gfc_try gfc_assign_data_value (gfc_expr *, gfc_expr *, mpz_t, mpz_t *); void gfc_advance_section (mpz_t *, gfc_array_ref *, mpz_t *); |