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.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.c')
| -rw-r--r-- | gcc/fortran/trans.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index f30809a..4eaea53 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -151,7 +151,6 @@ gfc_add_modify_loc (location_t loc, stmtblock_t * pblock, tree lhs, tree rhs) { tree tmp; -#ifdef ENABLE_CHECKING tree t1, t2; t1 = TREE_TYPE (rhs); t2 = TREE_TYPE (lhs); @@ -159,9 +158,8 @@ gfc_add_modify_loc (location_t loc, stmtblock_t * pblock, tree lhs, tree rhs) for scalar assignments. We should probably have something similar for aggregates, but right now removing that check just breaks everything. */ - gcc_assert (t1 == t2 - || AGGREGATE_TYPE_P (TREE_TYPE (lhs))); -#endif + gcc_checking_assert (t1 == t2 + || AGGREGATE_TYPE_P (TREE_TYPE (lhs))); tmp = fold_build2_loc (loc, MODIFY_EXPR, void_type_node, lhs, rhs); |