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/trans.c | |
| parent | 7a252450a987ac114fe9bb0467f8cb5480803de7 (diff) | |
| download | gcc-2a3864bdad35ef53f820f26509a39cec8efae3cc.tar.gz | |
* 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/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 0cc6f953fe6..903b314477a 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -4164,6 +4164,7 @@ add_decl_expr (tree gnu_decl, Entity_Id gnat_entity) gnu_lhs, DECL_INITIAL (gnu_decl)); DECL_INITIAL (gnu_decl) = 0; + TREE_READONLY (gnu_decl) = 0; annotate_with_locus (gnu_assign_stmt, DECL_SOURCE_LOCATION (gnu_decl)); add_stmt (gnu_assign_stmt); |