contrib/gcc-8.0/gcc/ipa-inline-transform.c

   1 /* Callgraph transformations to handle inlining
   2    Copyright (C) 2003-2018 Free Software Foundation, Inc.
   3    Contributed by Jan Hubicka
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 3, or (at your option) any later
  10 version.
  11
  12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING3.  If not see
  19 <http://www.gnu.org/licenses/>.  */
  20
  21 /* The inline decisions are stored in callgraph in "inline plan" and
  22    applied later.
  23
  24    To mark given call inline, use inline_call function.
  25    The function marks the edge inlinable and, if necessary, produces
  26    virtual clone in the callgraph representing the new copy of callee's
  27    function body.
  28
  29    The inline plan is applied on given function body by inline_transform.  */
  30
  31 #include "config.h"
  32 #include "system.h"
  33 #include "coretypes.h"
  34 #include "tm.h"
  35 #include "function.h"
  36 #include "tree.h"
  37 #include "alloc-pool.h"
  38 #include "tree-pass.h"
  39 #include "cgraph.h"
  40 #include "tree-cfg.h"
  41 #include "symbol-summary.h"
  42 #include "tree-vrp.h"
  43 #include "ipa-prop.h"
  44 #include "ipa-fnsummary.h"
  45 #include "ipa-inline.h"
  46 #include "tree-inline.h"
  47 #include "function.h"
  48 #include "cfg.h"
  49 #include "basic-block.h"
  50
  51 int ncalls_inlined;
  52 int nfunctions_inlined;
  53
  54 /* Scale counts of NODE edges by NUM/DEN.  */
  55
  56 static void
  57 update_noncloned_counts (struct cgraph_node *node,
  58                          profile_count num, profile_count den)
  59 {
  60   struct cgraph_edge *e;
  61
  62   profile_count::adjust_for_ipa_scaling (&num, &den);
  63
  64   for (e = node->callees; e; e = e->next_callee)
  65     {
  66       if (!e->inline_failed)
  67         update_noncloned_counts (e->callee, num, den);
  68       e->count = e->count.apply_scale (num, den);
  69     }
  70   for (e = node->indirect_calls; e; e = e->next_callee)
  71     e->count = e->count.apply_scale (num, den);
  72   node->count = node->count.apply_scale (num, den);
  73 }
  74
  75 /* We removed or are going to remove the last call to NODE.
  76    Return true if we can and want proactively remove the NODE now.
  77    This is important to do, since we want inliner to know when offline
  78    copy of function was removed.  */
  79
  80 static bool
  81 can_remove_node_now_p_1 (struct cgraph_node *node, struct cgraph_edge *e)
  82 {
  83   ipa_ref *ref;
  84
  85   FOR_EACH_ALIAS (node, ref)
  86     {
  87       cgraph_node *alias = dyn_cast <cgraph_node *> (ref->referring);
  88       if ((alias->callers && alias->callers != e)
  89           || !can_remove_node_now_p_1 (alias, e))
  90         return false;
  91     }
  92   /* FIXME: When address is taken of DECL_EXTERNAL function we still
  93      can remove its offline copy, but we would need to keep unanalyzed node in
  94      the callgraph so references can point to it.
  95
  96      Also for comdat group we can ignore references inside a group as we
  97      want to prove the group as a whole to be dead.  */
  98   return (!node->address_taken
  99           && node->can_remove_if_no_direct_calls_and_refs_p ()
 100           /* Inlining might enable more devirtualizing, so we want to remove
 101              those only after all devirtualizable virtual calls are processed.
 102              Lacking may edges in callgraph we just preserve them post
 103              inlining.  */
 104           && (!DECL_VIRTUAL_P (node->decl)
 105               || !opt_for_fn (node->decl, flag_devirtualize))
 106           /* During early inlining some unanalyzed cgraph nodes might be in the
 107              callgraph and they might reffer the function in question.  */
 108           && !cgraph_new_nodes.exists ());
 109 }
 110
 111 /* We are going to eliminate last direct call to NODE (or alias of it) via edge E.
 112    Verify that the NODE can be removed from unit and if it is contained in comdat
 113    group that the whole comdat group is removable.  */
 114
 115 static bool
 116 can_remove_node_now_p (struct cgraph_node *node, struct cgraph_edge *e)
 117 {
 118   struct cgraph_node *next;
 119   if (!can_remove_node_now_p_1 (node, e))
 120     return false;
 121
 122   /* When we see same comdat group, we need to be sure that all
 123      items can be removed.  */
 124   if (!node->same_comdat_group || !node->externally_visible)
 125     return true;
 126   for (next = dyn_cast<cgraph_node *> (node->same_comdat_group);
 127        next != node; next = dyn_cast<cgraph_node *> (next->same_comdat_group))
 128     {
 129       if (next->alias)
 130         continue;
 131       if ((next->callers && next->callers != e)
 132           || !can_remove_node_now_p_1 (next, e))
 133         return false;
 134     }
 135   return true;
 136 }
 137
 138 /* Return true if NODE is a master clone with non-inline clones.  */
 139
 140 static bool
 141 master_clone_with_noninline_clones_p (struct cgraph_node *node)
 142 {
 143   if (node->clone_of)
 144     return false;
 145
 146   for (struct cgraph_node *n = node->clones; n; n = n->next_sibling_clone)
 147     if (n->decl != node->decl)
 148       return true;
 149
 150   return false;
 151 }
 152
 153 /* E is expected to be an edge being inlined.  Clone destination node of
 154    the edge and redirect it to the new clone.
 155    DUPLICATE is used for bookkeeping on whether we are actually creating new
 156    clones or re-using node originally representing out-of-line function call.
 157    By default the offline copy is removed, when it appears dead after inlining.
 158    UPDATE_ORIGINAL prevents this transformation.
 159    If OVERALL_SIZE is non-NULL, the size is updated to reflect the
 160    transformation.  */
 161
 162 void
 163 clone_inlined_nodes (struct cgraph_edge *e, bool duplicate,
 164                      bool update_original, int *overall_size)
 165 {
 166   struct cgraph_node *inlining_into;
 167   struct cgraph_edge *next;
 168
 169   if (e->caller->global.inlined_to)
 170     inlining_into = e->caller->global.inlined_to;
 171   else
 172     inlining_into = e->caller;
 173
 174   if (duplicate)
 175     {
 176       /* We may eliminate the need for out-of-line copy to be output.
 177          In that case just go ahead and re-use it.  This is not just an
 178          memory optimization.  Making offline copy of fuction disappear
 179          from the program will improve future decisions on inlining.  */
 180       if (!e->callee->callers->next_caller
 181           /* Recursive inlining never wants the master clone to
 182              be overwritten.  */
 183           && update_original
 184           && can_remove_node_now_p (e->callee, e)
 185           /* We cannot overwrite a master clone with non-inline clones
 186              until after these clones are materialized.  */
 187           && !master_clone_with_noninline_clones_p (e->callee))
 188         {
 189           /* TODO: When callee is in a comdat group, we could remove all of it,
 190              including all inline clones inlined into it.  That would however
 191              need small function inlining to register edge removal hook to
 192              maintain the priority queue.
 193
 194              For now we keep the ohter functions in the group in program until
 195              cgraph_remove_unreachable_functions gets rid of them.  */
 196           gcc_assert (!e->callee->global.inlined_to);
 197           e->callee->remove_from_same_comdat_group ();
 198           if (e->callee->definition
 199               && inline_account_function_p (e->callee))
 200             {
 201               gcc_assert (!e->callee->alias);
 202               if (overall_size)
 203                 *overall_size -= ipa_fn_summaries->get (e->callee)->size;
 204               nfunctions_inlined++;
 205             }
 206           duplicate = false;
 207           e->callee->externally_visible = false;
 208           update_noncloned_counts (e->callee, e->count, e->callee->count);
 209
 210           dump_callgraph_transformation (e->callee, inlining_into,
 211                                          "inlining to");
 212         }
 213       else
 214         {
 215           struct cgraph_node *n;
 216
 217           n = e->callee->create_clone (e->callee->decl,
 218                                        e->count,
 219                                        update_original, vNULL, true,
 220                                        inlining_into,
 221                                        NULL);
 222           n->used_as_abstract_origin = e->callee->used_as_abstract_origin;
 223           e->redirect_callee (n);
 224         }
 225     }
 226   else
 227     e->callee->remove_from_same_comdat_group ();
 228
 229   e->callee->global.inlined_to = inlining_into;
 230
 231   /* Recursively clone all bodies.  */
 232   for (e = e->callee->callees; e; e = next)
 233     {
 234       next = e->next_callee;
 235       if (!e->inline_failed)
 236         clone_inlined_nodes (e, duplicate, update_original, overall_size);
 237     }
 238 }
 239
 240 /* Check all speculations in N and resolve them if they seems useless. */
 241
 242 static bool
 243 check_speculations (cgraph_node *n)
 244 {
 245   bool speculation_removed = false;
 246   cgraph_edge *next;
 247
 248   for (cgraph_edge *e = n->callees; e; e = next)
 249     {
 250       next = e->next_callee;
 251       if (e->speculative && !speculation_useful_p (e, true))
 252         {
 253           e->resolve_speculation (NULL);
 254           speculation_removed = true;
 255         }
 256       else if (!e->inline_failed)
 257         speculation_removed |= check_speculations (e->callee);
 258     }
 259   return speculation_removed;
 260 }
 261
 262 /* Mark all call graph edges coming out of NODE and all nodes that have been
 263    inlined to it as in_polymorphic_cdtor.  */
 264
 265 static void
 266 mark_all_inlined_calls_cdtor (cgraph_node *node)
 267 {
 268   for (cgraph_edge *cs = node->callees; cs; cs = cs->next_callee)
 269     {
 270       cs->in_polymorphic_cdtor = true;
 271       if (!cs->inline_failed)
 272         mark_all_inlined_calls_cdtor (cs->callee);
 273     }
 274   for (cgraph_edge *cs = node->indirect_calls; cs; cs = cs->next_callee)
 275     cs->in_polymorphic_cdtor = true;
 276 }
 277
 278
 279 /* Mark edge E as inlined and update callgraph accordingly.  UPDATE_ORIGINAL
 280    specify whether profile of original function should be updated.  If any new
 281    indirect edges are discovered in the process, add them to NEW_EDGES, unless
 282    it is NULL. If UPDATE_OVERALL_SUMMARY is false, do not bother to recompute overall
 283    size of caller after inlining. Caller is required to eventually do it via
 284    ipa_update_overall_fn_summary.
 285    If callee_removed is non-NULL, set it to true if we removed callee node.
 286
 287    Return true iff any new callgraph edges were discovered as a
 288    result of inlining.  */
 289
 290 bool
 291 inline_call (struct cgraph_edge *e, bool update_original,
 292              vec<cgraph_edge *> *new_edges,
 293              int *overall_size, bool update_overall_summary,
 294              bool *callee_removed)
 295 {
 296   int old_size = 0, new_size = 0;
 297   struct cgraph_node *to = NULL;
 298   struct cgraph_edge *curr = e;
 299   struct cgraph_node *callee = e->callee->ultimate_alias_target ();
 300   bool new_edges_found = false;
 301
 302   int estimated_growth = 0;
 303   if (! update_overall_summary)
 304     estimated_growth = estimate_edge_growth (e);
 305   /* This is used only for assert bellow.  */
 306 #if 0
 307   bool predicated = inline_edge_summary (e)->predicate != NULL;
 308 #endif
 309
 310   /* Don't inline inlined edges.  */
 311   gcc_assert (e->inline_failed);
 312   /* Don't even think of inlining inline clone.  */
 313   gcc_assert (!callee->global.inlined_to);
 314
 315   to = e->caller;
 316   if (to->global.inlined_to)
 317     to = to->global.inlined_to;
 318   if (to->thunk.thunk_p)
 319     {
 320       struct cgraph_node *target = to->callees->callee;
 321       if (in_lto_p)
 322         to->get_untransformed_body ();
 323       to->expand_thunk (false, true);
 324       /* When thunk is instrumented we may have multiple callees.  */
 325       for (e = to->callees; e && e->callee != target; e = e->next_callee)
 326         ;
 327       gcc_assert (e);
 328     }
 329
 330
 331   e->inline_failed = CIF_OK;
 332   DECL_POSSIBLY_INLINED (callee->decl) = true;
 333
 334   if (DECL_FUNCTION_PERSONALITY (callee->decl))
 335     DECL_FUNCTION_PERSONALITY (to->decl)
 336       = DECL_FUNCTION_PERSONALITY (callee->decl);
 337
 338   bool reload_optimization_node = false;
 339   if (!opt_for_fn (callee->decl, flag_strict_aliasing)
 340       && opt_for_fn (to->decl, flag_strict_aliasing))
 341     {
 342       struct gcc_options opts = global_options;
 343
 344       cl_optimization_restore (&opts, opts_for_fn (to->decl));
 345       opts.x_flag_strict_aliasing = false;
 346       if (dump_file)
 347         fprintf (dump_file, "Dropping flag_strict_aliasing on %s\n",
 348                  to->dump_name ());
 349       DECL_FUNCTION_SPECIFIC_OPTIMIZATION (to->decl)
 350          = build_optimization_node (&opts);
 351       reload_optimization_node = true;
 352     }
 353
 354   ipa_fn_summary *caller_info = ipa_fn_summaries->get (to);
 355   ipa_fn_summary *callee_info = ipa_fn_summaries->get (callee);
 356   if (!caller_info->fp_expressions && callee_info->fp_expressions)
 357     {
 358       caller_info->fp_expressions = true;
 359       if (opt_for_fn (callee->decl, flag_rounding_math)
 360           != opt_for_fn (to->decl, flag_rounding_math)
 361           || opt_for_fn (callee->decl, flag_trapping_math)
 362              != opt_for_fn (to->decl, flag_trapping_math)
 363           || opt_for_fn (callee->decl, flag_unsafe_math_optimizations)
 364              != opt_for_fn (to->decl, flag_unsafe_math_optimizations)
 365           || opt_for_fn (callee->decl, flag_finite_math_only)
 366              != opt_for_fn (to->decl, flag_finite_math_only)
 367           || opt_for_fn (callee->decl, flag_signaling_nans)
 368              != opt_for_fn (to->decl, flag_signaling_nans)
 369           || opt_for_fn (callee->decl, flag_cx_limited_range)
 370              != opt_for_fn (to->decl, flag_cx_limited_range)
 371           || opt_for_fn (callee->decl, flag_signed_zeros)
 372              != opt_for_fn (to->decl, flag_signed_zeros)
 373           || opt_for_fn (callee->decl, flag_associative_math)
 374              != opt_for_fn (to->decl, flag_associative_math)
 375           || opt_for_fn (callee->decl, flag_reciprocal_math)
 376              != opt_for_fn (to->decl, flag_reciprocal_math)
 377           || opt_for_fn (callee->decl, flag_fp_int_builtin_inexact)
 378              != opt_for_fn (to->decl, flag_fp_int_builtin_inexact)
 379           || opt_for_fn (callee->decl, flag_errno_math)
 380              != opt_for_fn (to->decl, flag_errno_math))
 381         {
 382           struct gcc_options opts = global_options;
 383
 384           cl_optimization_restore (&opts, opts_for_fn (to->decl));
 385           opts.x_flag_rounding_math
 386             = opt_for_fn (callee->decl, flag_rounding_math);
 387           opts.x_flag_trapping_math
 388             = opt_for_fn (callee->decl, flag_trapping_math);
 389           opts.x_flag_unsafe_math_optimizations
 390             = opt_for_fn (callee->decl, flag_unsafe_math_optimizations);
 391           opts.x_flag_finite_math_only
 392             = opt_for_fn (callee->decl, flag_finite_math_only);
 393           opts.x_flag_signaling_nans
 394             = opt_for_fn (callee->decl, flag_signaling_nans);
 395           opts.x_flag_cx_limited_range
 396             = opt_for_fn (callee->decl, flag_cx_limited_range);
 397           opts.x_flag_signed_zeros
 398             = opt_for_fn (callee->decl, flag_signed_zeros);
 399           opts.x_flag_associative_math
 400             = opt_for_fn (callee->decl, flag_associative_math);
 401           opts.x_flag_reciprocal_math
 402             = opt_for_fn (callee->decl, flag_reciprocal_math);
 403           opts.x_flag_fp_int_builtin_inexact
 404             = opt_for_fn (callee->decl, flag_fp_int_builtin_inexact);
 405           opts.x_flag_errno_math
 406             = opt_for_fn (callee->decl, flag_errno_math);
 407           if (dump_file)
 408             fprintf (dump_file, "Copying FP flags from %s to %s\n",
 409                      callee->dump_name (), to->dump_name ());
 410           DECL_FUNCTION_SPECIFIC_OPTIMIZATION (to->decl)
 411              = build_optimization_node (&opts);
 412           reload_optimization_node = true;
 413         }
 414     }
 415
 416   /* Reload global optimization flags.  */
 417   if (reload_optimization_node && DECL_STRUCT_FUNCTION (to->decl) == cfun)
 418     set_cfun (cfun, true);
 419
 420   /* If aliases are involved, redirect edge to the actual destination and
 421      possibly remove the aliases.  */
 422   if (e->callee != callee)
 423     {
 424       struct cgraph_node *alias = e->callee, *next_alias;
 425       e->redirect_callee (callee);
 426       while (alias && alias != callee)
 427         {
 428           if (!alias->callers
 429               && can_remove_node_now_p (alias,
 430                                         !e->next_caller && !e->prev_caller ? e : NULL))
 431             {
 432               next_alias = alias->get_alias_target ();
 433               alias->remove ();
 434               if (callee_removed)
 435                 *callee_removed = true;
 436               alias = next_alias;
 437             }
 438           else
 439             break;
 440         }
 441     }
 442
 443   clone_inlined_nodes (e, true, update_original, overall_size);
 444
 445   gcc_assert (curr->callee->global.inlined_to == to);
 446
 447   old_size = ipa_fn_summaries->get (to)->size;
 448   ipa_merge_fn_summary_after_inlining (e);
 449   if (e->in_polymorphic_cdtor)
 450     mark_all_inlined_calls_cdtor (e->callee);
 451   if (opt_for_fn (e->caller->decl, optimize))
 452     new_edges_found = ipa_propagate_indirect_call_infos (curr, new_edges);
 453   check_speculations (e->callee);
 454   if (update_overall_summary)
 455     ipa_update_overall_fn_summary (to);
 456   else
 457     /* Update self size by the estimate so overall function growth limits
 458        work for further inlining into this function.  Before inlining
 459        the function we inlined to again we expect the caller to update
 460        the overall summary.  */
 461     ipa_fn_summaries->get (to)->size += estimated_growth;
 462   new_size = ipa_fn_summaries->get (to)->size;
 463
 464   if (callee->calls_comdat_local)
 465     to->calls_comdat_local = true;
 466   else if (to->calls_comdat_local && callee->comdat_local_p ())
 467     {
 468       struct cgraph_edge *se = to->callees;
 469       for (; se; se = se->next_callee)
 470         if (se->inline_failed && se->callee->comdat_local_p ())
 471           break;
 472       if (se == NULL)
 473         to->calls_comdat_local = false;
 474     }
 475
 476   /* FIXME: This assert suffers from roundoff errors, disable it for GCC 5
 477      and revisit it after conversion to sreals in GCC 6.
 478      See PR 65654.  */
 479 #if 0
 480   /* Verify that estimated growth match real growth.  Allow off-by-one
 481      error due to ipa_fn_summary::size_scale roudoff errors.  */
 482   gcc_assert (!update_overall_summary || !overall_size || new_edges_found
 483               || abs (estimated_growth - (new_size - old_size)) <= 1
 484               || speculation_removed
 485               /* FIXME: a hack.  Edges with false predicate are accounted
 486                  wrong, we should remove them from callgraph.  */
 487               || predicated);
 488 #endif
 489
 490   /* Account the change of overall unit size; external functions will be
 491      removed and are thus not accounted.  */
 492   if (overall_size && inline_account_function_p (to))
 493     *overall_size += new_size - old_size;
 494   ncalls_inlined++;
 495
 496   /* This must happen after ipa_merge_fn_summary_after_inlining that rely on jump
 497      functions of callee to not be updated.  */
 498   return new_edges_found;
 499 }
 500
 501
 502 /* Copy function body of NODE and redirect all inline clones to it.
 503    This is done before inline plan is applied to NODE when there are
 504    still some inline clones if it.
 505
 506    This is necessary because inline decisions are not really transitive
 507    and the other inline clones may have different bodies.  */
 508
 509 static struct cgraph_node *
 510 save_inline_function_body (struct cgraph_node *node)
 511 {
 512   struct cgraph_node *first_clone, *n;
 513
 514   if (dump_file)
 515     fprintf (dump_file, "\nSaving body of %s for later reuse\n",
 516              node->name ());
 517
 518   gcc_assert (node == cgraph_node::get (node->decl));
 519
 520   /* first_clone will be turned into real function.  */
 521   first_clone = node->clones;
 522
 523   /* Arrange first clone to not be thunk as those do not have bodies.  */
 524   if (first_clone->thunk.thunk_p)
 525     {
 526       while (first_clone->thunk.thunk_p)
 527         first_clone = first_clone->next_sibling_clone;
 528       first_clone->prev_sibling_clone->next_sibling_clone
 529         = first_clone->next_sibling_clone;
 530       if (first_clone->next_sibling_clone)
 531         first_clone->next_sibling_clone->prev_sibling_clone
 532            = first_clone->prev_sibling_clone;
 533       first_clone->next_sibling_clone = node->clones;
 534       first_clone->prev_sibling_clone = NULL;
 535       node->clones->prev_sibling_clone = first_clone;
 536       node->clones = first_clone;
 537     }
 538   first_clone->decl = copy_node (node->decl);
 539   first_clone->decl->decl_with_vis.symtab_node = first_clone;
 540   gcc_assert (first_clone == cgraph_node::get (first_clone->decl));
 541
 542   /* Now reshape the clone tree, so all other clones descends from
 543      first_clone.  */
 544   if (first_clone->next_sibling_clone)
 545     {
 546       for (n = first_clone->next_sibling_clone; n->next_sibling_clone;
 547            n = n->next_sibling_clone)
 548         n->clone_of = first_clone;
 549       n->clone_of = first_clone;
 550       n->next_sibling_clone = first_clone->clones;
 551       if (first_clone->clones)
 552         first_clone->clones->prev_sibling_clone = n;
 553       first_clone->clones = first_clone->next_sibling_clone;
 554       first_clone->next_sibling_clone->prev_sibling_clone = NULL;
 555       first_clone->next_sibling_clone = NULL;
 556       gcc_assert (!first_clone->prev_sibling_clone);
 557     }
 558   first_clone->clone_of = NULL;
 559
 560   /* Now node in question has no clones.  */
 561   node->clones = NULL;
 562
 563   /* Inline clones share decl with the function they are cloned
 564      from.  Walk the whole clone tree and redirect them all to the
 565      new decl.  */
 566   if (first_clone->clones)
 567     for (n = first_clone->clones; n != first_clone;)
 568       {
 569         gcc_assert (n->decl == node->decl);
 570         n->decl = first_clone->decl;
 571         if (n->clones)
 572           n = n->clones;
 573         else if (n->next_sibling_clone)
 574           n = n->next_sibling_clone;
 575         else
 576           {
 577             while (n != first_clone && !n->next_sibling_clone)
 578               n = n->clone_of;
 579             if (n != first_clone)
 580               n = n->next_sibling_clone;
 581           }
 582       }
 583
 584   /* Copy the OLD_VERSION_NODE function tree to the new version.  */
 585   tree_function_versioning (node->decl, first_clone->decl,
 586                             NULL, true, NULL, false,
 587                             NULL, NULL);
 588
 589   /* The function will be short lived and removed after we inline all the clones,
 590      but make it internal so we won't confuse ourself.  */
 591   DECL_EXTERNAL (first_clone->decl) = 0;
 592   TREE_PUBLIC (first_clone->decl) = 0;
 593   DECL_COMDAT (first_clone->decl) = 0;
 594   first_clone->ipa_transforms_to_apply.release ();
 595
 596   /* When doing recursive inlining, the clone may become unnecessary.
 597      This is possible i.e. in the case when the recursive function is proved to be
 598      non-throwing and the recursion happens only in the EH landing pad.
 599      We can not remove the clone until we are done with saving the body.
 600      Remove it now.  */
 601   if (!first_clone->callers)
 602     {
 603       first_clone->remove_symbol_and_inline_clones ();
 604       first_clone = NULL;
 605     }
 606   else if (flag_checking)
 607     first_clone->verify ();
 608
 609   return first_clone;
 610 }
 611
 612 /* Return true when function body of DECL still needs to be kept around
 613    for later re-use.  */
 614 static bool
 615 preserve_function_body_p (struct cgraph_node *node)
 616 {
 617   gcc_assert (symtab->global_info_ready);
 618   gcc_assert (!node->alias && !node->thunk.thunk_p);
 619
 620   /* Look if there is any non-thunk clone around.  */
 621   for (node = node->clones; node; node = node->next_sibling_clone)
 622     if (!node->thunk.thunk_p)
 623       return true;
 624   return false;
 625 }
 626
 627 /* Apply inline plan to function.  */
 628
 629 unsigned int
 630 inline_transform (struct cgraph_node *node)
 631 {
 632   unsigned int todo = 0;
 633   struct cgraph_edge *e, *next;
 634   bool has_inline = false;
 635
 636   /* FIXME: Currently the pass manager is adding inline transform more than
 637      once to some clones.  This needs revisiting after WPA cleanups.  */
 638   if (cfun->after_inlining)
 639     return 0;
 640
 641   /* We might need the body of this function so that we can expand
 642      it inline somewhere else.  */
 643   if (preserve_function_body_p (node))
 644     save_inline_function_body (node);
 645
 646   for (e = node->callees; e; e = next)
 647     {
 648       if (!e->inline_failed)
 649         has_inline = true;
 650       next = e->next_callee;
 651       e->redirect_call_stmt_to_callee ();
 652     }
 653   node->remove_all_references ();
 654
 655   timevar_push (TV_INTEGRATION);
 656   if (node->callees && (opt_for_fn (node->decl, optimize) || has_inline))
 657     {
 658       profile_count num = node->count;
 659       profile_count den = ENTRY_BLOCK_PTR_FOR_FN (cfun)->count;
 660       bool scale = num.initialized_p () && !(num == den);
 661       if (scale)
 662         {
 663           profile_count::adjust_for_ipa_scaling (&num, &den);
 664           if (dump_file)
 665             {
 666               fprintf (dump_file, "Applying count scale ");
 667               num.dump (dump_file);
 668               fprintf (dump_file, "/");
 669               den.dump (dump_file);
 670               fprintf (dump_file, "\n");
 671             }
 672
 673           basic_block bb;
 674           cfun->cfg->count_max = profile_count::uninitialized ();
 675           FOR_ALL_BB_FN (bb, cfun)
 676             {
 677               bb->count = bb->count.apply_scale (num, den);
 678               cfun->cfg->count_max = cfun->cfg->count_max.max (bb->count);
 679             }
 680           ENTRY_BLOCK_PTR_FOR_FN (cfun)->count = node->count;
 681         }
 682       todo = optimize_inline_calls (current_function_decl);
 683    }
 684   timevar_pop (TV_INTEGRATION);
 685
 686   cfun->always_inline_functions_inlined = true;
 687   cfun->after_inlining = true;
 688   todo |= execute_fixup_cfg ();
 689
 690   if (!(todo & TODO_update_ssa_any))
 691     /* Redirecting edges might lead to a need for vops to be recomputed.  */
 692     todo |= TODO_update_ssa_only_virtuals;
 693
 694   return todo;
 695 }