diff options
| author | Diego Novillo <dnovillo@gcc.gnu.org> | 2004-05-13 02:41:07 -0400 |
|---|---|---|
| committer | Diego Novillo <dnovillo@gcc.gnu.org> | 2004-05-13 02:41:07 -0400 |
| commit | 6de9cd9a886ea695aa892c3c7c07818a7b7e9e6f (patch) | |
| tree | a2568888a519c077427b133de9ece5879a8484a5 /gcc/ada/utils.c | |
| parent | ac1a20aec53364d77f3bdff94a2a0a06840e0fe9 (diff) | |
| download | gcc-6de9cd9a886ea695aa892c3c7c07818a7b7e9e6f.zip gcc-6de9cd9a886ea695aa892c3c7c07818a7b7e9e6f.tar.gz gcc-6de9cd9a886ea695aa892c3c7c07818a7b7e9e6f.tar.bz2 | |
Merge tree-ssa-20020619-branch into mainline.
From-SVN: r81764
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index e1aac17..f84907d 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -2220,7 +2220,7 @@ max_size (tree exp, int max_p) max_size (TREE_OPERAND (exp, 2), max_p))); else if (code == CALL_EXPR && TREE_OPERAND (exp, 1) != 0) return build (CALL_EXPR, type, TREE_OPERAND (exp, 0), - max_size (TREE_OPERAND (exp, 1), max_p)); + max_size (TREE_OPERAND (exp, 1), max_p), NULL); } } @@ -3432,7 +3432,8 @@ unchecked_convert (tree type, tree expr, int notrunc_p) /* If the sizes of the types differ and this is an VIEW_CONVERT_EXPR, show no longer constant. */ if (TREE_CODE (expr) == VIEW_CONVERT_EXPR - && ! operand_equal_p (TYPE_SIZE_UNIT (type), TYPE_SIZE_UNIT (etype), 1)) + && ! operand_equal_p (TYPE_SIZE_UNIT (type), TYPE_SIZE_UNIT (etype), + OEP_ONLY_CONST)) TREE_CONSTANT (expr) = 0; return expr; |