From 33afb1b72b8399bd65973453965690275d7ac0a9 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Wed, 5 Dec 2001 11:56:22 +0000 Subject: [PATCH] * f/com.c (ffecom_1): Properly handle TREE_READONLY for INDIRECT_REF. From-SVN: r47667 --- gcc/f/ChangeLog | 4 ++++ gcc/f/com.c | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index e9728d336fc..7277d71a31e 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +Wed Dec 5 06:49:21 2001 Richard Kenner + + * com.c (ffecom_1): Properly handle TREE_READONLY for INDIRECT_REF. + Mon Dec 3 18:56:04 2001 Neil Booth * com.c: Remove leading capital from diagnostic messages, as diff --git a/gcc/f/com.c b/gcc/f/com.c index 64aa8ffb389..7167b408158 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); } -- 2.30.2