diff options
| author | Richard Kenner <kenner@vlsi1.ultra.nyu.edu> | 2001-12-05 11:56:22 +0000 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 2001-12-05 06:56:22 -0500 |
| commit | 33afb1b72b8399bd65973453965690275d7ac0a9 (patch) | |
| tree | 2c3ddbb8bb628ab961539d2c5db79219e93171a1 /gcc/f/com.c | |
| parent | 4e3f481210a055db184ad3c3181b4ab9e59d4e9b (diff) | |
| download | gcc-33afb1b72b8399bd65973453965690275d7ac0a9.zip gcc-33afb1b72b8399bd65973453965690275d7ac0a9.tar.gz gcc-33afb1b72b8399bd65973453965690275d7ac0a9.tar.bz2 | |
* f/com.c (ffecom_1): Properly handle TREE_READONLY for INDIRECT_REF.
From-SVN: r47667
Diffstat (limited to 'gcc/f/com.c')
| -rw-r--r-- | gcc/f/com.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index 64aa8ff..7167b40 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -9556,8 +9556,10 @@ ffecom_1 (enum tree_code code, tree type, tree node) if (TREE_SIDE_EFFECTS (node)) TREE_SIDE_EFFECTS (item) = 1; - if ((code == ADDR_EXPR) && staticp (node)) + if (code == ADDR_EXPR && staticp (node)) TREE_CONSTANT (item) = 1; + else if (code == INDIRECT_REF) + TREE_READONLY (item) = TYPE_READONLY (type); return fold (item); } |