diff options
| author | Mikhail Maltsev <maltsevm@gmail.com> | 2015-10-23 22:36:12 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 2015-10-23 16:36:12 -0600 |
| commit | c86db055fb12b463bb49802ea9691c908e44f7ce (patch) | |
| tree | ac9f8f4ec23550f1c7051ab424688f90af50735f /gcc/fortran/trans-common.c | |
| parent | 9447d255f44d763533cd25ca464665fa806aeb66 (diff) | |
| download | gcc-c86db055fb12b463bb49802ea9691c908e44f7ce.zip gcc-c86db055fb12b463bb49802ea9691c908e44f7ce.tar.gz gcc-c86db055fb12b463bb49802ea9691c908e44f7ce.tar.bz2 | |
[PATCH 4/9] ENABLE_CHECKING refactoring: Fortran
2015-10-05 Mikhail Maltsev <maltsevm@gmail.com>
* trans-common.c (create_common): Adjust to use flag_checking.
* trans.c (gfc_add_modify_loc): Use gcc_checking_assert.
From-SVN: r229273
Diffstat (limited to 'gcc/fortran/trans-common.c')
| -rw-r--r-- | gcc/fortran/trans-common.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index 7f4bfe5..ae336c1 100644 --- a/gcc/fortran/trans-common.c +++ b/gcc/fortran/trans-common.c @@ -686,14 +686,13 @@ create_common (gfc_common_head *com, segment_info *head, bool saw_equiv) TREE_STATIC (ctor) = 1; DECL_INITIAL (decl) = ctor; -#ifdef ENABLE_CHECKING - { - tree field, value; - unsigned HOST_WIDE_INT idx; - FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (ctor), idx, field, value) - gcc_assert (TREE_CODE (field) == FIELD_DECL); - } -#endif + if (flag_checking) + { + tree field, value; + unsigned HOST_WIDE_INT idx; + FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (ctor), idx, field, value) + gcc_assert (TREE_CODE (field) == FIELD_DECL); + } } /* Build component reference for each variable. */ |