actions.c (chill_convert_for_assignment): Make a copy of the result node before modif...

Thu Sep 10 17:52:36 1998  Dave Brolley  <brolley@cygnus.com>
	* actions.c (chill_convert_for_assignment): Make a copy of the result
	node before modifying it.

From-SVN: r22382

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index 59d7287..3bc0dcc 100644 (file)
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,8 @@
+Thu Sep 10 17:52:36 1998  Dave Brolley  <brolley@cygnus.com>
+
+       * actions.c (chill_convert_for_assignment): Make a copy of the result
+       node before modifying it.
+
 Sat Sep  5 16:55:37 1998  John Carr  <jfc@mit.edu>
 
        * Make-lang.in: Comment ^L characters.  Sun make doesn't like them.

diff --git a/gcc/ch/actions.c b/gcc/ch/actions.c
index 79bacf0..5937f85 100644 (file)
--- a/gcc/ch/actions.c
+++ b/gcc/ch/actions.c
@@ -589,6 +589,7 @@ chill_convert_for_assignment (type, expr, place)
                }
            }
        }
+      result = copy_node (result);
       TREE_OPERAND (result, 1) = nreverse (new_list);
       TREE_TYPE (result) = build_bitstring_type (TYPE_SIZE (type));
     }