re PR tree-optimization/24172 (error: incorrect sharing of tree nodes)

	PR tree-optimization/24172
	* tree-inline.c (copy_body_r): Unshare the substituted value first.
	* g++.dg/tree-ssa/pr24172.C: New testcase.

From-SVN: r106247

gcc/ChangeLog

+2005-10-30  Jan Hubicka  <jh@suse.cz>
+
+	PR tree-optimization/24172
+	* tree-inline.c (copy_body_r): Unshare the substituted value first.
+
 2005-10-30  Hans-Peter Nilsson  <hp@bitrange.com>
 
 	* config/mmix/mmix.c (mmix_intval): Correct handling of DFmode

gcc/testsuite/ChangeLog

+2005-10-30  Jan Hubicka  <jh@suse.cz>
+
+	* g++.dg/tree-ssa/pr24172.C: New testcase.
+
 2005-10-30  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	* gfortran.dg/enum_10.f90, gfortran.dg/enum_10.c: New test.

gcc/testsuite/g++.dg/tree-ssa/pr24172.C

+// { dg-options "-O2" }
+void IOException( char);
+inline int* dummy( const char* const mode )
+{
+  IOException(*mode+*mode);
+}
+
+void prepare_inpaint( )
+{
+  dummy ("rb");
+}

gcc/tree-inline.c

@@ -639,6 +639,7 @@ copy_body_r (tree *tp, int *walk_subtrees, void *data)
 	  n = splay_tree_lookup (id->decl_map, (splay_tree_key) decl);
 	  if (n)
 	    {
+	      tree new;
 	      /* If we happen to get an ADDR_EXPR in n->value, strip
 	         it manually here as we'll eventually get ADDR_EXPRs
 		 which lie about their types pointed to.  In this case
@@ -646,13 +647,14 @@ copy_body_r (tree *tp, int *walk_subtrees, void *data)
 		 but we absolutely rely on that.  As fold_indirect_ref
 	         does other useful transformations, try that first, though.  */
 	      tree type = TREE_TYPE (TREE_TYPE ((tree)n->value));
-	      *tp = fold_indirect_ref_1 (type, (tree)n->value);
+	      new = unshare_expr ((tree)n->value);
+	      *tp = fold_indirect_ref_1 (type, new);
 	      if (! *tp)
 	        {
-		  if (TREE_CODE ((tree)n->value) == ADDR_EXPR)
-		    *tp = TREE_OPERAND ((tree)n->value, 0);
+		  if (TREE_CODE (new) == ADDR_EXPR)
+		    *tp = TREE_OPERAND (new, 0);
 	          else
-	            *tp = build1 (INDIRECT_REF, type, (tree)n->value);
+	            *tp = build1 (INDIRECT_REF, type, new);
 		}
 	      *walk_subtrees = 0;
 	      return NULL;