diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-11-18 18:19:57 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-11-18 18:19:57 +0000 |
| commit | a239279ee574a15ed79d27b48f835c3db45a593f (patch) | |
| tree | 03a87a3b1bf91bdcddd818f9c42aab84c74228dc /gcc/ada/gcc-interface/trans.c | |
| parent | 70318db4b196d0937ee62e5c34b0b478d3e69816 (diff) | |
| download | gcc-a239279ee574a15ed79d27b48f835c3db45a593f.zip gcc-a239279ee574a15ed79d27b48f835c3db45a593f.tar.gz gcc-a239279ee574a15ed79d27b48f835c3db45a593f.tar.bz2 | |
trans.c (fold_constant_decl_in_expr): If the index is not itself constant then bail out.
* gcc-interface/trans.c (fold_constant_decl_in_expr) <ARRAY_REF>: If
the index is not itself constant then bail out.
From-SVN: r230558
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index eeb2aac..0d10019 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -975,6 +975,9 @@ fold_constant_decl_in_expr (tree exp) case ARRAY_REF: case ARRAY_RANGE_REF: + /* If the index is not itself constant, then nothing can be folded. */ + if (!TREE_CONSTANT (TREE_OPERAND (exp, 1))) + return exp; op0 = fold_constant_decl_in_expr (TREE_OPERAND (exp, 0)); if (op0 == TREE_OPERAND (exp, 0)) return exp; |