diff options
| author | Richard Kenner <kenner@vlsi1.ultra.nyu.edu> | 2004-07-15 03:17:42 +0000 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 2004-07-14 23:17:42 -0400 |
| commit | 54805e134f0eacc458edae67f2dfde22f0f73e32 (patch) | |
| tree | 8b76c3c276caffea1a06dec99e6fa71cee182bcf /gcc/ada/utils.c | |
| parent | cc5e9f5a4c9d096ecd1516088eeb92e1c3473575 (diff) | |
| download | gcc-54805e134f0eacc458edae67f2dfde22f0f73e32.zip gcc-54805e134f0eacc458edae67f2dfde22f0f73e32.tar.gz gcc-54805e134f0eacc458edae67f2dfde22f0f73e32.tar.bz2 | |
trans.c (add_decl_expr): Clear TREE_READONLY if clear DECL_INITIAL.
* trans.c (add_decl_expr): Clear TREE_READONLY if clear DECL_INITIAL.
* utils.c (unchecked_convert): Don't do two VIEW_CONVERT_EXPRs.
From-SVN: r84742
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index dc8a5b1..3d525a0 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -3224,6 +3224,11 @@ unchecked_convert (tree type, tree expr, int notrunc_p) else { expr = maybe_unconstrained_array (expr); + + /* There's no point in doing two unchecked conversions in a row. */ + if (TREE_CODE (expr) == VIEW_CONVERT_EXPR) + expr = TREE_OPERAND (expr, 0); + etype = TREE_TYPE (expr); expr = build1 (VIEW_CONVERT_EXPR, type, expr); } |