re PR middle-end/27889 (ICE on complex assignment in nested function)

        PR 27889
        * tree-nested.c (create_tmp_var_for): Set DECL_COMPLEX_GIMPLE_REG_P
        if needed.

From-SVN: r115541

gcc/ChangeLog

+2006-07-17  Richard Henderson  <rth@redhat.com>
+
+	PR 27889
+	* tree-nested.c (create_tmp_var_for): Set DECL_COMPLEX_GIMPLE_REG_P
+	if needed.
+
 2006-07-17  Roger Sayle  <roger@eyesopen.com>
 	    Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
 

gcc/testsuite/gcc.c-torture/compile/pr27889.c

+void h(void (*)(void));
+_Complex int g (void)
+{
+  _Complex int x;
+  void f(void)
+  {
+     x = x + x;
+  }
+  h(f);
+  return x;
+}

gcc/tree-nested.c

@@ -147,6 +147,9 @@ create_tmp_var_for (struct nesting_info *info, tree type, const char *prefix)
   DECL_CONTEXT (tmp_var) = info->context;
   TREE_CHAIN (tmp_var) = info->new_local_var_chain;
   DECL_SEEN_IN_BIND_EXPR_P (tmp_var) = 1;
+  if (TREE_CODE (type) == COMPLEX_TYPE)
+    DECL_COMPLEX_GIMPLE_REG_P (tmp_var) = 1;
+
   info->new_local_var_chain = tmp_var;
 
   return tmp_var;