* calls.c (calls_function_1, case CONSTRUCTOR): New case.

From-SVN: r38560

gcc/ChangeLog

 2000-12-30  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
+	* calls.c (calls_function_1, case CONSTRUCTOR): New case.
+
 	* alias.c (alias_sets_conflict_p): New function.
 	(mems_in_disjoint_alias_sets_p): Use it.
 	(readonly_fields_p): Moved from expr.c; check for record type.

gcc/calls.c

@@ -297,6 +297,17 @@ calls_function_1 (exp, which)
 
       break;
 
+    case CONSTRUCTOR:
+      {
+	tree tem;
+
+	for (tem = CONSTRUCTOR_ELTS (exp); tem != 0; tem = TREE_CHAIN (tem))
+	  if (calls_function_1 (TREE_VALUE (tem), which))
+	    return 1;
+      }
+
+      return 0;
+
     case SAVE_EXPR:
       if (SAVE_EXPR_RTL (exp) != 0)
 	return 0;