From: Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
Date: Wed, 5 Dec 2001 11:56:22 +0000 (+0000)
Subject: * f/com.c (ffecom_1): Properly handle TREE_READONLY for INDIRECT_REF.
X-Git-Tag: prereleases/libstdc++-3.0.95~460
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=33afb1b72b8399bd65973453965690275d7ac0a9;p=thirdparty%2Fgcc.git

* f/com.c (ffecom_1): Properly handle TREE_READONLY for INDIRECT_REF.

From-SVN: r47667
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index e9728d336fcf..7277d71a31e5 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+Wed Dec  5 06:49:21 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+	* com.c (ffecom_1): Properly handle TREE_READONLY for INDIRECT_REF.
+
 Mon Dec  3 18:56:04 2001  Neil Booth  <neil@daikokuya.demon.co.uk>
 
 	* com.c: Remove leading capital from diagnostic messages, as
diff --git a/gcc/f/com.c b/gcc/f/com.c
index 64aa8ffb389c..7167b4081584 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);
 }