diff options
| author | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-15 03:17:42 +0000 |
|---|---|---|
| committer | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-15 03:17:42 +0000 |
| commit | 2a3864bdad35ef53f820f26509a39cec8efae3cc (patch) | |
| tree | 8b76c3c276caffea1a06dec99e6fa71cee182bcf /gcc/ada/utils.c | |
| parent | 7a252450a987ac114fe9bb0467f8cb5480803de7 (diff) | |
| download | ppe42-gcc-2a3864bdad35ef53f820f26509a39cec8efae3cc.tar.gz ppe42-gcc-2a3864bdad35ef53f820f26509a39cec8efae3cc.zip | |
* trans.c (add_decl_expr): Clear TREE_READONLY if clear DECL_INITIAL.
* utils.c (unchecked_convert): Don't do two VIEW_CONVERT_EXPRs.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84742 138bc75d-0d04-0410-961f-82ee72b054a4
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 dc8a5b129f8..3d525a07b7c 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); } |
