trans-array.c (gfc_trans_array_constructor_value): Make the static const "data" array...

	* trans-array.c (gfc_trans_array_constructor_value): Make the
	static const "data" array as TREE_READONLY.
	* trans-stmt.c (gfc_trans_character_select): Likewise.

From-SVN: r120501

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 73dcf0e57f2c1a8b6adbef3a4d03de07864b3419..a6d222341a0fc255be6ca08c03dadb58b226375e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-01-05  Roger Sayle  <roger@eyesopen.com>
+
+       * trans-array.c (gfc_trans_array_constructor_value): Make the
+       static const "data" array as TREE_READONLY.
+       * trans-stmt.c (gfc_trans_character_select): Likewise.
+
 2007-01-05  Roger Sayle  <roger@eyesopen.com>
 
        * trans-array.c (gfc_conv_loop_setup):  Test whether the loop

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index d6d3ff7eff086f7a2d19063deff1e24ddc4e2252..86e565781203c1cabe5a8d2b7605bdadfd9e9bd1 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -1224,6 +1224,7 @@ gfc_trans_array_constructor_value (stmtblock_t * pblock, tree type,
              TREE_STATIC (tmp) = 1;
              TREE_CONSTANT (tmp) = 1;
              TREE_INVARIANT (tmp) = 1;
+             TREE_READONLY (tmp) = 1;
              DECL_INITIAL (tmp) = init;
              init = tmp;
 

diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index 8a2a2b37255a9ac7e1fe46f5a74ce41027ffac4c..3c14d0299ef0d5982c80e7cd731b36170de89bcb 100644 (file)
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -1445,6 +1445,7 @@ gfc_trans_character_select (gfc_code *code)
   TREE_CONSTANT (tmp) = 1;
   TREE_INVARIANT (tmp) = 1;
   TREE_STATIC (tmp) = 1;
+  TREE_READONLY (tmp) = 1;
   DECL_INITIAL (tmp) = init;
   init = tmp;