contrib/gcc/ipa-cp.c

147 /* Get orig node field of ipa_node associated with method MT.  */
156 ipcp_method_is_cloned (struct cgraph_node *node)
158   return (ipcp_method_orig_node (node) != NULL);
163 ipcp_method_set_orig_node (struct cgraph_node *node,
166   IPA_NODE_REF (node)->ipcp_orig_node = orig_node;
197 ipcp_method_set_scale (struct cgraph_node *node, gcov_type count)
199   IPA_NODE_REF (node)->count_scale = count;
379   struct cgraph_node *node;
384   for (node = cgraph_nodes; node; node = node->next)
386       fprintf (f, "Printing cvals %s:\n", cgraph_node_name (node));
387       count = ipa_method_formal_count (node);
390 	  if (ipcp_cval_get_cvalue_type (ipcp_method_cval (node, i))
392 	      || ipcp_cval_get_cvalue_type (ipcp_method_cval (node, i)) ==
398 		ipcp_cval_get_cvalue (ipcp_method_cval (node, i))->
403 	  else if (ipcp_method_cval (node, i)->cval_type == TOP)
494 ipcp_method_compute_scale (struct cgraph_node *node)
501   for (cs = node->callers; cs != NULL; cs = cs->next_caller)
503   if (node->count == 0)
504     ipcp_method_set_scale (node, 0);
506     ipcp_method_set_scale (node, sum * REG_BR_PROB_BASE / node->count);
516   struct cgraph_node *node;
519   for (node = cgraph_nodes; node; node = node->next)
521       ipa_method_formal_compute_count (node);
522       ipa_method_compute_tree_map (node);
523       ipcp_method_cval_init (node);
524       ipa_method_compute_modify (node);
525       ipcp_method_compute_scale (node);
527   for (node = cgraph_nodes; node; node = node->next)
530       for (cs = node->callees; cs; cs = cs->next_callee)
553   struct cgraph_node *node;
557   for (node = cgraph_nodes; node; node = node->next)
559       count = ipa_method_formal_count (node);
561 	if (ipcp_cval_get_cvalue_type (ipcp_method_cval (node, i)) == TOP)
564 	    ipcp_method_cval_set_cvalue_type (node, i, BOTTOM);
639   struct cgraph_node *node;
647   for (node = cgraph_nodes; node; node = node->next)
649       for (cs = node->callees; cs; cs = cs->next_callee)
651 	  fprintf (f, "callsite  %s ", cgraph_node_name (node));
685   struct cgraph_node *node;
687   for (node = cgraph_nodes; node; node = node->next)
689       fprintf (f, "printing scale for %s: ", cgraph_node_name (node));
691 	       "  \n", (HOST_WIDE_INT) ipcp_method_get_scale (node));
699   struct cgraph_node *node;
701   for (node = cgraph_nodes; node; node = node->next)
703       fprintf (f, "method %s: ", cgraph_node_name (node));
705 	       "  \n", (HOST_WIDE_INT) node->count);
713   struct cgraph_node *node;
716   for (node = cgraph_nodes; node; node = node->next)
718       for (cs = node->callees; cs; cs = cs->next_callee)
732   struct cgraph_node *node;
737   for (node = cgraph_nodes; node; node = node->next)
739       fprintf (f, "method %s: \n", cgraph_node_name (node));
740       if (DECL_SAVED_TREE (node->decl))
743 	    ENTRY_BLOCK_PTR_FOR_FUNCTION (DECL_STRUCT_FUNCTION (node->decl));
753 					       (node->decl)))
761 	  FOR_EACH_BB_FN (bb, DECL_STRUCT_FUNCTION (node->decl))
770 					       (node->decl)))
788   struct cgraph_node *node;
790   for (node = cgraph_nodes; node; node = node->next)
792       fprintf (f, "method %s: \n", cgraph_node_name (node));
793       if (DECL_SAVED_TREE (node->decl))
796 	    ENTRY_BLOCK_PTR_FOR_FUNCTION (DECL_STRUCT_FUNCTION (node->decl));
802 	  FOR_EACH_BB_FN (bb, DECL_STRUCT_FUNCTION (node->decl))
810 	    EXIT_BLOCK_PTR_FOR_FUNCTION (DECL_STRUCT_FUNCTION (node->decl));
922   struct cgraph_node *node, *orig_callee;
925   for (node = cgraph_nodes; node; node = node->next)
928       if (ipcp_method_is_cloned (node))
930       for (cs = node->callees; cs; cs = cs->next_callee)
933 	    /* Callee is a cloned node  */
948 ipcp_update_bb_counts (struct cgraph_node *node, gcov_type scale)
952   FOR_ALL_BB_FN (bb, DECL_STRUCT_FUNCTION (node->decl))
958 ipcp_update_edges_counts (struct cgraph_node *node, gcov_type scale)
964   FOR_ALL_BB_FN (bb, DECL_STRUCT_FUNCTION (node->decl))
974   struct cgraph_node *node, *orig_node;
978   for (node = cgraph_nodes; node; node = node->next)
980       if (ipcp_method_is_cloned (node))
982 	  orig_node = ipcp_method_orig_node (node);
984 	  node->count = orig_node->count * scale / REG_BR_PROB_BASE;
988 	  for (cs = node->callees; cs; cs = cs->next_callee)
992 	  ipcp_update_bb_counts (node, scale);
994 	  ipcp_update_edges_counts (node, scale);
1005   struct cgraph_node *node, *node1 = NULL;
1016   for (node = cgraph_nodes; node; node = node->next)
1020       if (ipcp_method_dont_insert_const (node))
1023       count = ipa_method_formal_count (node);
1026 	  type = ipcp_cval_get_cvalue_type (ipcp_method_cval (node, i));
1035 	  type = ipcp_cval_get_cvalue_type (ipcp_method_cval (node, i));
1038 	      cvalue = ipcp_cval_get_cvalue (ipcp_method_cval (node, i));
1039 	      parm_tree = ipa_method_get_tree (node, i);
1045       /* Compute how many callers node has.  */
1047       for (cs = node->callers; cs != NULL; cs = cs->next_caller)
1050       for (cs = node->callers; cs != NULL; cs = cs->next_caller)
1052       /* Redirecting all the callers of the node to the
1053          new versioned node.  */
1055 	cgraph_function_versioning (node, redirect_callers, replace_trees);
1062 		 cgraph_node_name (node));
1063       ipcp_cloned_create (node, node1);
1066 	  type = ipcp_cval_get_cvalue_type (ipcp_method_cval (node, i));
1069 	      cvalue = ipcp_cval_get_cvalue (ipcp_method_cval (node, i));
1070 	      parm_tree = ipa_method_get_tree (node, i);