diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 16:01:07 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 16:01:07 +0000 |
| commit | ff540fb068b6274bd0b1c88cccf01b1cfdd19ef6 (patch) | |
| tree | ed4707cd5dcbe013280768918cb414abc1be1092 /gcc/ada/utils2.c | |
| parent | b238a680662674f2e66b553b385cab0f493116f2 (diff) | |
| download | gcc-ff540fb068b6274bd0b1c88cccf01b1cfdd19ef6.tar.gz | |
* decl.c (gnat_to_gnu_entity, case E_General_Access_Type):
Make constant variant of designated type for Is_Access_Constant.
Call update_pointer_to with main variant.
* trans.c (process_freeze_entity, process_type):
Call update_pointer_to on main variant.
* utils.c (update_pointer_to): Make corresponding variant for NEW_TYPE.
If main variant, update all other variants.
* utils2.c (build_unary_op, case INDIRECT_REF): No longer set
TREE_STATIC.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46547 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/utils2.c')
| -rw-r--r-- | gcc/ada/utils2.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c index 424673ba103..7cc8a3f669a 100644 --- a/gcc/ada/utils2.c +++ b/gcc/ada/utils2.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision: 1.1 $ + * $Revision$ * * * Copyright (C) 1992-2001, Free Software Foundation, Inc. * * * @@ -1279,8 +1279,7 @@ build_unary_op (op_code, result_type, operand) else { result = fold (build1 (op_code, TREE_TYPE (type), operand)); - TREE_READONLY (result) = TREE_STATIC (result) - = TREE_READONLY (TREE_TYPE (type)); + TREE_READONLY (result) = TREE_READONLY (TREE_TYPE (type)); } side_effects = flag_volatile |