LCOV - code coverage report
Current view: top level - gcc - ipa-reference.c (source / functions) Hit Total Coverage
Test: gcc.info Lines: 551 607 90.8 %
Date: 2020-04-04 11:58:09 Functions: 27 30 90.0 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 0 0 -

           Branch data     Line data    Source code
       1                 :            : /* Callgraph based analysis of static variables.
       2                 :            :    Copyright (C) 2004-2020 Free Software Foundation, Inc.
       3                 :            :    Contributed by Kenneth Zadeck <zadeck@naturalbridge.com>
       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                 :            : /* This file gathers information about how variables whose scope is
      22                 :            :    confined to the compilation unit are used.
      23                 :            : 
      24                 :            :    The transitive call site specific clobber effects are computed
      25                 :            :    for the variables whose scope is contained within this compilation
      26                 :            :    unit.
      27                 :            : 
      28                 :            :    First each function and static variable initialization is analyzed
      29                 :            :    to determine which local static variables are either read, written,
      30                 :            :    or have their address taken.  Any local static that has its address
      31                 :            :    taken is removed from consideration.  Once the local read and
      32                 :            :    writes are determined, a transitive closure of this information is
      33                 :            :    performed over the call graph to determine the worst case set of
      34                 :            :    side effects of each call.  In later parts of the compiler, these
      35                 :            :    local and global sets are examined to make the call clobbering less
      36                 :            :    traumatic, promote some statics to registers, and improve aliasing
      37                 :            :    information.  */
      38                 :            : 
      39                 :            : #include "config.h"
      40                 :            : #include "system.h"
      41                 :            : #include "coretypes.h"
      42                 :            : #include "backend.h"
      43                 :            : #include "tree.h"
      44                 :            : #include "gimple.h"
      45                 :            : #include "tree-pass.h"
      46                 :            : #include "cgraph.h"
      47                 :            : #include "data-streamer.h"
      48                 :            : #include "calls.h"
      49                 :            : #include "ipa-utils.h"
      50                 :            : #include "ipa-reference.h"
      51                 :            : #include "alloc-pool.h"
      52                 :            : #include "symbol-summary.h"
      53                 :            : 
      54                 :            : /* The static variables defined within the compilation unit that are
      55                 :            :    loaded or stored directly by function that owns this structure.  */
      56                 :            : 
      57                 :            : struct ipa_reference_local_vars_info_d
      58                 :            : {
      59                 :            :   bitmap statics_read;
      60                 :            :   bitmap statics_written;
      61                 :            : };
      62                 :            : 
      63                 :            : /* Statics that are read and written by some set of functions. The
      64                 :            :    local ones are based on the loads and stores local to the function.
      65                 :            :    The global ones are based on the local info as well as the
      66                 :            :    transitive closure of the functions that are called. */
      67                 :            : 
      68                 :            : struct ipa_reference_global_vars_info_d
      69                 :            : {
      70                 :            :   bitmap statics_read;
      71                 :            :   bitmap statics_written;
      72                 :            : };
      73                 :            : 
      74                 :            : /* Information we save about every function after ipa-reference is completed.  */
      75                 :            : 
      76                 :            : struct ipa_reference_optimization_summary_d
      77                 :            : {
      78                 :            :   bitmap statics_read;
      79                 :            :   bitmap statics_written;
      80                 :            : };
      81                 :            : 
      82                 :            : typedef ipa_reference_local_vars_info_d *ipa_reference_local_vars_info_t;
      83                 :            : typedef ipa_reference_global_vars_info_d *ipa_reference_global_vars_info_t;
      84                 :            : typedef ipa_reference_optimization_summary_d *
      85                 :            :   ipa_reference_optimization_summary_t;
      86                 :            : 
      87                 :            : struct ipa_reference_vars_info_d
      88                 :            : {
      89                 :            :   struct ipa_reference_local_vars_info_d local;
      90                 :            :   struct ipa_reference_global_vars_info_d global;
      91                 :            : };
      92                 :            : 
      93                 :            : typedef struct ipa_reference_vars_info_d *ipa_reference_vars_info_t;
      94                 :            : 
      95                 :            : /* This map contains all of the static variables that are
      96                 :            :    being considered by the compilation level alias analysis.  */
      97                 :            : typedef hash_map<tree, int> reference_vars_map_t;
      98                 :            : static reference_vars_map_t *ipa_reference_vars_map;
      99                 :            : static int ipa_reference_vars_uids;
     100                 :            : static vec<tree> *reference_vars_to_consider;
     101                 :            : varpool_node_hook_list *varpool_node_hooks;
     102                 :            : 
     103                 :            : /* Set of all interesting module statics.  A bit is set for every module
     104                 :            :    static we are considering.  This is added to the local info when asm
     105                 :            :    code is found that clobbers all memory.  */
     106                 :            : static bitmap all_module_statics;
     107                 :            : /* Zero bitmap.  */
     108                 :            : static bitmap no_module_statics;
     109                 :            : /* Set of all statics that should be ignored because they are touched by
     110                 :            :    -fno-ipa-reference code.  */
     111                 :            : static bitmap ignore_module_statics;
     112                 :            : 
     113                 :            : /* Obstack holding bitmaps of local analysis (live from analysis to
     114                 :            :    propagation)  */
     115                 :            : static bitmap_obstack local_info_obstack;
     116                 :            : /* Obstack holding global analysis live forever.  */
     117                 :            : static bitmap_obstack optimization_summary_obstack;
     118                 :            : 
     119                 :            : class ipa_ref_var_info_summary_t: public fast_function_summary
     120                 :            :                           <ipa_reference_vars_info_d *, va_heap>
     121                 :            : {
     122                 :            : public:
     123                 :     110919 :   ipa_ref_var_info_summary_t (symbol_table *symtab):
     124                 :     221838 :     fast_function_summary <ipa_reference_vars_info_d *, va_heap> (symtab) {}
     125                 :            : };
     126                 :            : 
     127                 :            : static ipa_ref_var_info_summary_t *ipa_ref_var_info_summaries = NULL;
     128                 :            : 
     129                 :            : class ipa_ref_opt_summary_t: public fast_function_summary
     130                 :            :                              <ipa_reference_optimization_summary_d *, va_heap>
     131                 :            : {
     132                 :            : public:
     133                 :     116275 :   ipa_ref_opt_summary_t (symbol_table *symtab):
     134                 :     232550 :     fast_function_summary <ipa_reference_optimization_summary_d *, va_heap> (symtab) {}
     135                 :            : 
     136                 :            :   virtual void remove (cgraph_node *src_node,
     137                 :            :                        ipa_reference_optimization_summary_d *data);
     138                 :            :   virtual void duplicate (cgraph_node *src_node, cgraph_node *dst_node,
     139                 :            :                           ipa_reference_optimization_summary_d *src_data,
     140                 :            :                           ipa_reference_optimization_summary_d *dst_data);
     141                 :            : };
     142                 :            : 
     143                 :            : static ipa_ref_opt_summary_t *ipa_ref_opt_sum_summaries = NULL;
     144                 :            : 
     145                 :            : /* Return ID used by ipa-reference bitmaps.  -1 if failed.  */
     146                 :            : int
     147                 :    8136680 : ipa_reference_var_uid (tree t)
     148                 :            : {
     149                 :    8136680 :   if (!ipa_reference_vars_map)
     150                 :            :     return -1;
     151                 :    6014500 :   int *id = ipa_reference_vars_map->get
     152                 :    6027660 :     (symtab_node::get (t)->ultimate_alias_target (NULL)->decl);
     153                 :    1893470 :   if (!id)
     154                 :            :     return -1;
     155                 :    1893470 :   return *id;
     156                 :            : }
     157                 :            : 
     158                 :            : /* Return ID used by ipa-reference bitmaps.  Create new entry if
     159                 :            :    T is not in map.  Set EXISTED accordinly  */
     160                 :            : int
     161                 :     160230 : ipa_reference_var_get_or_insert_uid (tree t, bool *existed)
     162                 :            : {
     163                 :     160230 :   int &id = ipa_reference_vars_map->get_or_insert
     164                 :     160234 :     (symtab_node::get (t)->ultimate_alias_target (NULL)->decl, existed);
     165                 :     160230 :   if (!*existed)
     166                 :      12090 :     id = ipa_reference_vars_uids++;
     167                 :     160230 :   return id;
     168                 :            : }
     169                 :            : 
     170                 :            : /* Return the ipa_reference_vars structure starting from the cgraph NODE.  */
     171                 :            : static inline ipa_reference_vars_info_t
     172                 :    4620950 : get_reference_vars_info (struct cgraph_node *node)
     173                 :            : {
     174                 :    4620950 :   if (ipa_ref_var_info_summaries == NULL)
     175                 :            :     return NULL;
     176                 :            : 
     177                 :    4620950 :   ipa_reference_vars_info_t v = ipa_ref_var_info_summaries->get (node);
     178                 :    2002220 :   return v == NULL ? NULL : v;
     179                 :            : }
     180                 :            : 
     181                 :            : /* Return the ipa_reference_vars structure starting from the cgraph NODE.  */
     182                 :            : static inline ipa_reference_optimization_summary_t
     183                 :    1783400 : get_reference_optimization_summary (struct cgraph_node *node)
     184                 :            : {
     185                 :    1783400 :   if (ipa_ref_opt_sum_summaries == NULL)
     186                 :            :     return NULL;
     187                 :            : 
     188                 :    1783400 :   ipa_reference_optimization_summary_t v
     189                 :    1783400 :     = ipa_ref_opt_sum_summaries->get (node);
     190                 :            : 
     191                 :       2030 :   return v == NULL ? NULL : v;
     192                 :            : }
     193                 :            : 
     194                 :            : /* Return a bitmap indexed by ipa_reference_var_uid for the static variables
     195                 :            :    that are *not* read during the execution of the function FN.  Returns
     196                 :            :    NULL if no data is available.  */
     197                 :            : 
     198                 :            : bitmap
     199                 :      24676 : ipa_reference_get_read_global (struct cgraph_node *fn)
     200                 :            : {
     201                 :      24676 :   if (!opt_for_fn (current_function_decl, flag_ipa_reference))
     202                 :            :     return NULL;
     203                 :            : 
     204                 :      24676 :   enum availability avail;
     205                 :      24676 :   struct cgraph_node *fn2 = fn->function_symbol (&avail);
     206                 :      24676 :   ipa_reference_optimization_summary_t info =
     207                 :      46156 :     get_reference_optimization_summary (fn2);
     208                 :            : 
     209                 :      24676 :   if (info
     210                 :       3196 :       && (avail >= AVAIL_AVAILABLE
     211                 :          0 :           || (avail == AVAIL_INTERPOSABLE
     212                 :          0 :               && flags_from_decl_or_type (fn->decl) & ECF_LEAF))
     213                 :      27872 :       && opt_for_fn (fn2->decl, flag_ipa_reference))
     214                 :       3196 :     return info->statics_read;
     215                 :      21480 :   else if (avail == AVAIL_NOT_AVAILABLE
     216                 :      21480 :            && flags_from_decl_or_type (fn->decl) & ECF_LEAF)
     217                 :       3966 :     return no_module_statics;
     218                 :            :   else
     219                 :      17514 :     return NULL;
     220                 :            : }
     221                 :            : 
     222                 :            : /* Return a bitmap indexed by ipa_reference_var_uid for the static variables
     223                 :            :    that are *not* written during the execution of the function FN.  Note
     224                 :            :    that variables written may or may not be read during the function
     225                 :            :    call.  Returns NULL if no data is available.  */
     226                 :            : 
     227                 :            : bitmap
     228                 :    1716460 : ipa_reference_get_written_global (struct cgraph_node *fn)
     229                 :            : {
     230                 :    1716460 :   if (!opt_for_fn (current_function_decl, flag_ipa_reference))
     231                 :            :     return NULL;
     232                 :            : 
     233                 :    1716460 :   enum availability avail;
     234                 :    1716460 :   struct cgraph_node *fn2 = fn->function_symbol (&avail);
     235                 :    1716460 :   ipa_reference_optimization_summary_t info =
     236                 :    3391570 :     get_reference_optimization_summary (fn2);
     237                 :            : 
     238                 :    1716460 :   if (info
     239                 :      41346 :       && (avail >= AVAIL_AVAILABLE
     240                 :          0 :           || (avail == AVAIL_INTERPOSABLE
     241                 :          0 :               && flags_from_decl_or_type (fn->decl) & ECF_LEAF))
     242                 :    1757810 :       && opt_for_fn (fn2->decl, flag_ipa_reference))
     243                 :      41346 :     return info->statics_written;
     244                 :    1675110 :   else if (avail == AVAIL_NOT_AVAILABLE
     245                 :    1675110 :            && flags_from_decl_or_type (fn->decl) & ECF_LEAF)
     246                 :      30152 :     return no_module_statics;
     247                 :            :   else
     248                 :    1644960 :     return NULL;
     249                 :            : }
     250                 :            : 
     251                 :            : 
     252                 :            : /* Hepler for is_proper_for_analysis.  */
     253                 :            : static bool
     254                 :    2372700 : is_improper (symtab_node *n, void *v ATTRIBUTE_UNUSED)
     255                 :            : {
     256                 :    2372700 :   tree t = n->decl;
     257                 :            :   /* If the variable has the "used" attribute, treat it as if it had a
     258                 :            :      been touched by the devil.  */
     259                 :    2372700 :   if (DECL_PRESERVE_P (t))
     260                 :            :     return true;
     261                 :            : 
     262                 :            :   /* Do not want to do anything with volatile except mark any
     263                 :            :      function that uses one to be not const or pure.  */
     264                 :    2372190 :   if (TREE_THIS_VOLATILE (t))
     265                 :            :     return true;
     266                 :            : 
     267                 :            :   /* We do not need to analyze readonly vars, we already know they do not
     268                 :            :      alias.  */
     269                 :    2083230 :   if (TREE_READONLY (t))
     270                 :            :     return true;
     271                 :            : 
     272                 :            :   /* We cannot track variables with address taken.  */
     273                 :    1320990 :   if (TREE_ADDRESSABLE (t))
     274                 :            :     return true;
     275                 :            : 
     276                 :            :   /* TODO: We could track public variables that are not addressable, but
     277                 :            :      currently frontends don't give us those.  */
     278                 :     388547 :   if (TREE_PUBLIC (t))
     279                 :     229594 :     return true;
     280                 :            : 
     281                 :            :   return false;
     282                 :            : }
     283                 :            : 
     284                 :            : /* Return true if the variable T is the right kind of static variable to
     285                 :            :    perform compilation unit scope escape analysis.  */
     286                 :            : 
     287                 :            : static inline bool
     288                 :    2372680 : is_proper_for_analysis (tree t)
     289                 :            : {
     290                 :    2372680 :   int id = ipa_reference_var_uid (t);
     291                 :            : 
     292                 :    2372680 :   if (id != -1 && bitmap_bit_p (ignore_module_statics, id))
     293                 :            :     return false;
     294                 :            : 
     295                 :    2372680 :   if (symtab_node::get (t)
     296                 :    2372680 :         ->call_for_symbol_and_aliases (is_improper, NULL, true))
     297                 :    2213740 :     return false;
     298                 :            : 
     299                 :            :   return true;
     300                 :            : }
     301                 :            : 
     302                 :            : /* Lookup the tree node for the static variable that has UID and
     303                 :            :    convert the name to a string for debugging.  */
     304                 :            : 
     305                 :            : static const char *
     306                 :          0 : get_static_name (int index)
     307                 :            : {
     308                 :          0 :   return fndecl_name ((*reference_vars_to_consider)[index]);
     309                 :            : }
     310                 :            : 
     311                 :            : /* Dump a set of static vars to FILE.  */
     312                 :            : static void
     313                 :        136 : dump_static_vars_set_to_file (FILE *f, bitmap set)
     314                 :            : {
     315                 :        136 :   unsigned int index;
     316                 :        136 :   bitmap_iterator bi;
     317                 :        136 :   if (set == NULL)
     318                 :          0 :     return;
     319                 :        136 :   else if (set == all_module_statics)
     320                 :         36 :     fprintf (f, "ALL");
     321                 :        100 :   else if (set == no_module_statics)
     322                 :          0 :     fprintf (f, "NO");
     323                 :            :   else
     324                 :        100 :     EXECUTE_IF_SET_IN_BITMAP (set, 0, index, bi)
     325                 :            :       {
     326                 :          0 :         fprintf (f, "%s ", get_static_name (index));
     327                 :            :       }
     328                 :            : }
     329                 :            : 
     330                 :            : /* Compute X |= Y, taking into account the possibility that
     331                 :            :    either X or Y is already the maximum set.
     332                 :            :    Return true if X is the maximum set after taking the union with Y.  */
     333                 :            : 
     334                 :            : static bool
     335                 :    1231200 : union_static_var_sets (bitmap &x, bitmap y)
     336                 :            : {
     337                 :    1231200 :   if (x != all_module_statics)
     338                 :            :     {
     339                 :     867301 :       if (y == all_module_statics)
     340                 :            :         {
     341                 :     413611 :           BITMAP_FREE (x);
     342                 :     413611 :           x = all_module_statics;
     343                 :            :         }
     344                 :     453690 :       else if (bitmap_ior_into (x, y))
     345                 :            :         {
     346                 :            :           /* The union may have reduced X to the maximum set.
     347                 :            :              In that case, we want to make that visible explicitly.
     348                 :            :              Even though bitmap_equal_p can be very expensive, it
     349                 :            :              turns out to be an overall win to check this here for
     350                 :            :              an LTO bootstrap of GCC itself.  Liberally extrapoliate
     351                 :            :              that result to be applicable to all cases.  */
     352                 :      12357 :           if (bitmap_equal_p (x, all_module_statics))
     353                 :            :             {
     354                 :      11308 :               BITMAP_FREE (x);
     355                 :      11308 :               x = all_module_statics;
     356                 :            :             }
     357                 :            :         }
     358                 :            :     }
     359                 :    1231200 :   return x == all_module_statics;
     360                 :            : }
     361                 :            : 
     362                 :            : /* Return a copy of SET on the bitmap obstack containing SET.
     363                 :            :    But if SET is NULL or the maximum set, return that instead.  */
     364                 :            : 
     365                 :            : static bitmap
     366                 :    1324660 : copy_static_var_set (bitmap set, bool for_propagation)
     367                 :            : {
     368                 :    1324660 :   if (set == NULL || set == all_module_statics)
     369                 :            :     return set;
     370                 :    1324660 :   if (!for_propagation && set == no_module_statics)
     371                 :            :     return set;
     372                 :    1324660 :   bitmap_obstack *o = set->obstack;
     373                 :    1324660 :   gcc_checking_assert (o);
     374                 :    1324660 :   bitmap copy = BITMAP_ALLOC (o);
     375                 :    1324660 :   bitmap_copy (copy, set);
     376                 :    1324660 :   return copy;
     377                 :            : }
     378                 :            : 
     379                 :            : /* Compute the union all of the statics read and written by every callee of X
     380                 :            :    into X_GLOBAL->statics_read and X_GLOBAL->statics_written.  X_GLOBAL is
     381                 :            :    actually the set representing the cycle containing X.  If the read and
     382                 :            :    written sets of X_GLOBAL has been reduced to the maximum set, we don't
     383                 :            :    have to look at the remaining callees.  */
     384                 :            : 
     385                 :            : static void
     386                 :     684190 : propagate_bits (ipa_reference_global_vars_info_t x_global, struct cgraph_node *x)
     387                 :            : {
     388                 :     684190 :   struct cgraph_edge *e;
     389                 :     684190 :   bool read_all = x_global->statics_read == all_module_statics;
     390                 :     684190 :   bool write_all = x_global->statics_written == all_module_statics;
     391                 :     684190 :   for (e = x->callees;
     392                 :    1929660 :        e && !(read_all && write_all);
     393                 :    1245470 :        e = e->next_callee)
     394                 :            :     {
     395                 :    1245470 :       enum availability avail;
     396                 :    1245470 :       struct cgraph_node *y = e->callee->function_symbol (&avail);
     397                 :    1245470 :       if (!y)
     398                 :     100310 :         continue;
     399                 :            : 
     400                 :            :       /* Only look into nodes we can propagate something.  */
     401                 :    1245470 :       int flags = flags_from_decl_or_type (y->decl);
     402                 :    1245470 :       if (opt_for_fn (y->decl, flag_ipa_reference)
     403                 :    1245470 :           && (avail > AVAIL_INTERPOSABLE
     404                 :     565758 :               || (avail == AVAIL_INTERPOSABLE && (flags & ECF_LEAF))))
     405                 :            :         {
     406                 :     679748 :           if (get_reference_vars_info (y))
     407                 :            :             {
     408                 :     679748 :               ipa_reference_vars_info_t y_info = get_reference_vars_info (y);
     409                 :     679748 :               ipa_reference_global_vars_info_t y_global = &y_info->global;
     410                 :            : 
     411                 :            :               /* Calls in the current cycle do not have their global set
     412                 :            :                  computed yet (but everything else does because we're
     413                 :            :                  visiting nodes in topological order).  */
     414                 :     679748 :               if (!y_global->statics_read)
     415                 :       4527 :                 continue;
     416                 :            : 
     417                 :            :               /* If the function is const, it reads no memory even if it
     418                 :            :                  seems so to local analysis.  */
     419                 :     675221 :               if (flags & ECF_CONST)
     420                 :      28962 :                 continue;
     421                 :            : 
     422                 :     646259 :               union_static_var_sets (x_global->statics_read,
     423                 :            :                                      y_global->statics_read);
     424                 :            : 
     425                 :            :               /* If the function is pure, it has no stores even if it
     426                 :            :                  seems so to local analysis.  If we cannot return from
     427                 :            :                  the function, we can safely ignore the call.  */
     428                 :     713080 :               if ((flags & ECF_PURE)
     429                 :     646259 :                   || e->cannot_lead_to_return_p ())
     430                 :      66821 :                 continue;
     431                 :            : 
     432                 :     579438 :               union_static_var_sets (x_global->statics_written,
     433                 :            :                                      y_global->statics_written);
     434                 :            :             }
     435                 :            :           else
     436                 :          0 :             gcc_unreachable ();
     437                 :            :         }
     438                 :            :     }
     439                 :     684190 : }
     440                 :            : 
     441                 :            : /* Delete NODE from map.  */
     442                 :            : 
     443                 :            : static void
     444                 :      24559 : varpool_removal_hook (varpool_node *node, void *)
     445                 :            : {
     446                 :      24559 :   ipa_reference_vars_map->remove (node->decl);
     447                 :      24559 : }
     448                 :            : 
     449                 :            : static bool ipa_init_p = false;
     450                 :            : 
     451                 :            : /* The init routine for analyzing global static variable usage.  See
     452                 :            :    comments at top for description.  */
     453                 :            : static void
     454                 :     110919 : ipa_init (void)
     455                 :            : {
     456                 :     110919 :   if (ipa_init_p)
     457                 :            :     return;
     458                 :            : 
     459                 :     110919 :   ipa_init_p = true;
     460                 :            : 
     461                 :     110919 :   vec_alloc (reference_vars_to_consider, 10);
     462                 :            : 
     463                 :            : 
     464                 :     110919 :   if (ipa_ref_opt_sum_summaries != NULL)
     465                 :            :     {
     466                 :          0 :       delete ipa_ref_opt_sum_summaries;
     467                 :          0 :       ipa_ref_opt_sum_summaries = NULL;
     468                 :          0 :       delete ipa_reference_vars_map;
     469                 :            :     }
     470                 :     110919 :   ipa_reference_vars_map = new reference_vars_map_t(257);
     471                 :     110919 :   varpool_node_hooks
     472                 :     110919 :          = symtab->add_varpool_removal_hook (varpool_removal_hook, NULL);
     473                 :     110919 :   ipa_reference_vars_uids = 0;
     474                 :            : 
     475                 :     110919 :   bitmap_obstack_initialize (&local_info_obstack);
     476                 :     110919 :   bitmap_obstack_initialize (&optimization_summary_obstack);
     477                 :     110919 :   all_module_statics = BITMAP_ALLOC (&optimization_summary_obstack);
     478                 :     110919 :   no_module_statics = BITMAP_ALLOC (&optimization_summary_obstack);
     479                 :     110919 :   ignore_module_statics = BITMAP_ALLOC (&optimization_summary_obstack);
     480                 :            : 
     481                 :     110919 :   if (ipa_ref_var_info_summaries == NULL)
     482                 :     110919 :     ipa_ref_var_info_summaries = new ipa_ref_var_info_summary_t (symtab);
     483                 :            : }
     484                 :            : 
     485                 :            : 
     486                 :            : /* Set up the persistent info for FN.  */
     487                 :            : 
     488                 :            : static ipa_reference_local_vars_info_t
     489                 :    1306220 : init_function_info (struct cgraph_node *fn)
     490                 :            : {
     491                 :    1306220 :   ipa_reference_vars_info_t info
     492                 :    1306220 :     = ipa_ref_var_info_summaries->get_create (fn);
     493                 :            : 
     494                 :    1306220 :   info->local.statics_read = BITMAP_ALLOC (&local_info_obstack);
     495                 :    1306220 :   info->local.statics_written = BITMAP_ALLOC (&local_info_obstack);
     496                 :    1306220 :   info->global.statics_read = NULL;
     497                 :            : 
     498                 :    1306220 :   return &info->local;
     499                 :            : }
     500                 :            : 
     501                 :            : 
     502                 :            : /* This is the main routine for finding the reference patterns for
     503                 :            :    global variables within a function FN.  */
     504                 :            : 
     505                 :            : static void
     506                 :    1314600 : analyze_function (struct cgraph_node *fn)
     507                 :            : {
     508                 :    1314600 :   ipa_reference_local_vars_info_t local;
     509                 :    1314600 :   struct ipa_ref *ref = NULL;
     510                 :    1314600 :   int i;
     511                 :    1314600 :   tree var;
     512                 :            : 
     513                 :    1314600 :   if (!opt_for_fn (fn->decl, flag_ipa_reference))
     514                 :       8386 :     return;
     515                 :    1306220 :   local = init_function_info (fn);
     516                 :    3877110 :   for (i = 0; fn->iterate_reference (i, ref); i++)
     517                 :            :     {
     518                 :    2570900 :       int id;
     519                 :    2570900 :       bool existed;
     520                 :    2570900 :       if (!is_a <varpool_node *> (ref->referred))
     521                 :    2412060 :         continue;
     522                 :    2371420 :       var = ref->referred->decl;
     523                 :    2371420 :       if (!is_proper_for_analysis (var))
     524                 :    2212580 :         continue;
     525                 :            :       /* This is a variable we care about.  Check if we have seen it
     526                 :            :          before, and if not add it the set of variables we care about.  */
     527                 :     158838 :       id = ipa_reference_var_get_or_insert_uid (var, &existed);
     528                 :     158838 :       if (!existed)
     529                 :            :         {
     530                 :      10698 :           bitmap_set_bit (all_module_statics, id);
     531                 :      10698 :           if (dump_file)
     532                 :          0 :             reference_vars_to_consider->safe_push (var);
     533                 :            :         }
     534                 :     158838 :       switch (ref->use)
     535                 :            :         {
     536                 :     125780 :         case IPA_REF_LOAD:
     537                 :     125780 :           bitmap_set_bit (local->statics_read, id);
     538                 :     125780 :           break;
     539                 :      33058 :         case IPA_REF_STORE:
     540                 :      33058 :           if (ref->cannot_lead_to_return ())
     541                 :            :             break;
     542                 :      32595 :           bitmap_set_bit (local->statics_written, id);
     543                 :      32595 :           break;
     544                 :            :         case IPA_REF_ADDR:
     545                 :            :           break;
     546                 :          0 :         default:
     547                 :          0 :           gcc_unreachable ();
     548                 :            :         }
     549                 :            :     }
     550                 :            : 
     551                 :    1306220 :   if (fn->cannot_return_p ())
     552                 :      20293 :     bitmap_clear (local->statics_written);
     553                 :            : }
     554                 :            : 
     555                 :            : 
     556                 :            : /* Called when new clone is inserted to callgraph late.  */
     557                 :            : 
     558                 :            : void
     559                 :          0 : ipa_ref_opt_summary_t::duplicate (cgraph_node *, cgraph_node *,
     560                 :            :                                   ipa_reference_optimization_summary_d *ginfo,
     561                 :            :                                   ipa_reference_optimization_summary_d
     562                 :            :                                   *dst_ginfo)
     563                 :            : {
     564                 :          0 :   dst_ginfo->statics_read =
     565                 :          0 :     copy_static_var_set (ginfo->statics_read, false);
     566                 :          0 :   dst_ginfo->statics_written =
     567                 :          0 :     copy_static_var_set (ginfo->statics_written, false);
     568                 :          0 : }
     569                 :            : 
     570                 :            : /* Called when node is removed.  */
     571                 :            : 
     572                 :            : void
     573                 :          0 : ipa_ref_opt_summary_t::remove (cgraph_node *,
     574                 :            :                                ipa_reference_optimization_summary_d *ginfo)
     575                 :            : {
     576                 :          0 :   if (ginfo->statics_read
     577                 :          0 :       && ginfo->statics_read != all_module_statics
     578                 :          0 :       && ginfo->statics_read != no_module_statics)
     579                 :          0 :     BITMAP_FREE (ginfo->statics_read);
     580                 :            : 
     581                 :          0 :   if (ginfo->statics_written
     582                 :          0 :       && ginfo->statics_written != all_module_statics
     583                 :          0 :       && ginfo->statics_written != no_module_statics)
     584                 :          0 :     BITMAP_FREE (ginfo->statics_written);
     585                 :          0 : }
     586                 :            : 
     587                 :            : /* Analyze each function in the cgraph to see which global or statics
     588                 :            :    are read or written.  */
     589                 :            : 
     590                 :            : static void
     591                 :     110919 : generate_summary (void)
     592                 :            : {
     593                 :     110919 :   struct cgraph_node *node;
     594                 :     110919 :   unsigned int index;
     595                 :     110919 :   bitmap_iterator bi;
     596                 :            : 
     597                 :     110919 :   ipa_init ();
     598                 :            : 
     599                 :            :   /* Process all of the functions next.  */
     600                 :    1536440 :   FOR_EACH_DEFINED_FUNCTION (node)
     601                 :    1314600 :     if (!node->alias && !opt_for_fn (node->decl, flag_ipa_reference))
     602                 :            :       {
     603                 :      11049 :         struct ipa_ref *ref = NULL;
     604                 :            :         int i;
     605                 :            :         tree var;
     606                 :    1321330 :         for (i = 0; node->iterate_reference (i, ref); i++)
     607                 :            :           {
     608                 :       3691 :             if (!is_a <varpool_node *> (ref->referred))
     609                 :       2432 :               continue;
     610                 :       1259 :             var = ref->referred->decl;
     611                 :       1259 :             if (!is_proper_for_analysis (var))
     612                 :       1159 :               continue;
     613                 :        100 :             bitmap_set_bit (ignore_module_statics, ipa_reference_var_uid (var));
     614                 :            :           }
     615                 :            :       }
     616                 :    2851040 :   FOR_EACH_DEFINED_FUNCTION (node)
     617                 :    1314600 :     analyze_function (node);
     618                 :            : 
     619                 :     110919 :   if (dump_file)
     620                 :         20 :     EXECUTE_IF_SET_IN_BITMAP (all_module_statics, 0, index, bi)
     621                 :            :       {
     622                 :          0 :         fprintf (dump_file, "\nPromotable global:%s (uid=%u)\n",
     623                 :            :                  get_static_name (index), index);
     624                 :            :       }
     625                 :            : 
     626                 :     110919 :   if (dump_file)
     627                 :        108 :     FOR_EACH_DEFINED_FUNCTION (node)
     628                 :         34 :       if (node->get_availability () >= AVAIL_INTERPOSABLE
     629                 :         34 :           && opt_for_fn (node->decl, flag_ipa_reference))
     630                 :            :         {
     631                 :         34 :           ipa_reference_local_vars_info_t l;
     632                 :         34 :           unsigned int index;
     633                 :         34 :           bitmap_iterator bi;
     634                 :            : 
     635                 :         34 :           l = &get_reference_vars_info (node)->local;
     636                 :         34 :           fprintf (dump_file,
     637                 :            :                    "\nFunction name:%s:", node->dump_name ());
     638                 :         34 :           fprintf (dump_file, "\n  locals read: ");
     639                 :         34 :           if (l->statics_read)
     640                 :         34 :             EXECUTE_IF_SET_IN_BITMAP (l->statics_read,
     641                 :            :                                       0, index, bi)
     642                 :            :               {
     643                 :          0 :                 fprintf (dump_file, "%s ",
     644                 :            :                          get_static_name (index));
     645                 :            :               }
     646                 :         34 :           fprintf (dump_file, "\n  locals written: ");
     647                 :         34 :           if (l->statics_written)
     648                 :         34 :             EXECUTE_IF_SET_IN_BITMAP (l->statics_written,
     649                 :            :                                       0, index, bi)
     650                 :            :               {
     651                 :          0 :                 fprintf (dump_file, "%s ", get_static_name (index));
     652                 :            :               }
     653                 :            :         }
     654                 :     110919 : }
     655                 :            : 
     656                 :            : /* Set READ_ALL/WRITE_ALL based on decl flags of NODE.  */
     657                 :            : 
     658                 :            : static void
     659                 :    1228850 : read_write_all_from_decl (struct cgraph_node *node,
     660                 :            :                           bool &read_all, bool &write_all)
     661                 :            : {
     662                 :    1228850 :   tree decl = node->decl;
     663                 :    1228850 :   int flags = flags_from_decl_or_type (decl);
     664                 :    1228850 :   if ((flags & ECF_LEAF)
     665                 :    1228850 :       && node->get_availability () < AVAIL_INTERPOSABLE)
     666                 :            :     ;
     667                 :     688001 :   else if (flags & ECF_CONST)
     668                 :            :     ;
     669                 :     636814 :   else if ((flags & ECF_PURE) || node->cannot_return_p ())
     670                 :            :     {
     671                 :      99874 :       read_all = true;
     672                 :      99874 :       if (dump_file && (dump_flags & TDF_DETAILS))
     673                 :          0 :         fprintf (dump_file, "   %s -> read all\n", node->dump_name ());
     674                 :            :     }
     675                 :            :   else
     676                 :            :     {
     677                 :            :        /* TODO: To be able to produce sane results, we should also handle
     678                 :            :           common builtins, in particular throw.  */
     679                 :     536940 :       read_all = true;
     680                 :     536940 :       write_all = true;
     681                 :     536940 :       if (dump_file && (dump_flags & TDF_DETAILS))
     682                 :          0 :         fprintf (dump_file, "   %s -> read all, write all\n",
     683                 :            :                   node->dump_name ());
     684                 :            :     }
     685                 :    1228850 : }
     686                 :            : 
     687                 :            : /* Set READ_ALL/WRITE_ALL based on decl flags of NODE or any member
     688                 :            :    in the cycle of NODE.  */
     689                 :            : 
     690                 :            : static void
     691                 :    1266290 : get_read_write_all_from_node (struct cgraph_node *node,
     692                 :            :                               bool &read_all, bool &write_all)
     693                 :            : {
     694                 :    1266290 :   struct cgraph_edge *e, *ie;
     695                 :            : 
     696                 :            :   /* When function is overwritable, we cannot assume anything.  */
     697                 :    1266290 :   if (node->get_availability () <= AVAIL_INTERPOSABLE
     698                 :    1266290 :       || (node->analyzed && !opt_for_fn (node->decl, flag_ipa_reference)))
     699                 :      56108 :     read_write_all_from_decl (node, read_all, write_all);
     700                 :            : 
     701                 :    1266290 :   for (e = node->callees;
     702                 :    3317480 :        e && !(read_all && write_all);
     703                 :    2051200 :        e = e->next_callee)
     704                 :            :     {
     705                 :    2051200 :       enum availability avail;
     706                 :    2051200 :       struct cgraph_node *callee = e->callee->function_symbol (&avail);
     707                 :    2051200 :       gcc_checking_assert (callee);
     708                 :    2051200 :       if (avail <= AVAIL_INTERPOSABLE
     709                 :    2051200 :           || (callee->analyzed && !opt_for_fn (callee->decl,
     710                 :            :                                                flag_ipa_reference)))
     711                 :    1172740 :         read_write_all_from_decl (callee, read_all, write_all);
     712                 :            :     }
     713                 :            : 
     714                 :    1266290 :   for (ie = node->indirect_calls;
     715                 :    1307860 :        ie && !(read_all && write_all);
     716                 :      41569 :        ie = ie->next_callee)
     717                 :      41569 :     if (!(ie->indirect_info->ecf_flags & ECF_CONST))
     718                 :            :       {
     719                 :      41559 :         read_all = true;
     720                 :      41559 :         if (dump_file && (dump_flags & TDF_DETAILS))
     721                 :          0 :           fprintf (dump_file, "   indirect call -> read all\n");
     722                 :      41559 :         if (!ie->cannot_lead_to_return_p ()
     723                 :      41559 :             && !(ie->indirect_info->ecf_flags & ECF_PURE))
     724                 :            :           {
     725                 :      41489 :             if (dump_file && (dump_flags & TDF_DETAILS))
     726                 :          0 :               fprintf (dump_file, "   indirect call -> write all\n");
     727                 :      41489 :             write_all = true;
     728                 :            :           }
     729                 :            :       }
     730                 :    1266290 : }
     731                 :            : 
     732                 :            : /* Skip edges from and to nodes without ipa_reference enabled.
     733                 :            :    Ignore not available symbols.  This leave
     734                 :            :    them out of strongly connected components and makes them easy to skip in the
     735                 :            :    propagation loop bellow.  */
     736                 :            : 
     737                 :            : static bool
     738                 :    4152130 : ignore_edge_p (cgraph_edge *e)
     739                 :            : {
     740                 :    4152130 :   enum availability avail;
     741                 :    4152130 :   cgraph_node *ultimate_target
     742                 :    4152130 :     = e->callee->function_or_virtual_thunk_symbol (&avail, e->caller);
     743                 :            : 
     744                 :    4152130 :   return (avail < AVAIL_INTERPOSABLE
     745                 :    1326940 :           || (avail == AVAIL_INTERPOSABLE
     746                 :      56598 :               && !(flags_from_decl_or_type (e->callee->decl) & ECF_LEAF))
     747                 :    1270390 :           || !opt_for_fn (e->caller->decl, flag_ipa_reference)
     748                 :    5413730 :           || !opt_for_fn (ultimate_target->decl, flag_ipa_reference));
     749                 :            : }
     750                 :            : 
     751                 :            : /* Produce the global information by preforming a transitive closure
     752                 :            :    on the local information that was produced by ipa_analyze_function.  */
     753                 :            : 
     754                 :            : static unsigned int
     755                 :     110919 : propagate (void)
     756                 :            : {
     757                 :     110919 :   struct cgraph_node *node;
     758                 :     110919 :   struct cgraph_node **order =
     759                 :     110919 :     XCNEWVEC (struct cgraph_node *, symtab->cgraph_count);
     760                 :     110919 :   int order_pos;
     761                 :     110919 :   int i;
     762                 :     110919 :   bool remove_p;
     763                 :            : 
     764                 :     110919 :   if (dump_file)
     765                 :         20 :     cgraph_node::dump_cgraph (dump_file);
     766                 :            : 
     767                 :     110919 :   remove_p = ipa_discover_variable_flags ();
     768                 :     110919 :   generate_summary ();
     769                 :            : 
     770                 :            :   /* Propagate the local information through the call graph to produce
     771                 :            :      the global information.  All the nodes within a cycle will have
     772                 :            :      the same info so we collapse cycles first.  Then we can do the
     773                 :            :      propagation in one pass from the leaves to the roots.  */
     774                 :     110919 :   order_pos = ipa_reduced_postorder (order, true, ignore_edge_p);
     775                 :     110919 :   if (dump_file)
     776                 :         20 :     ipa_print_order (dump_file, "reduced", order, order_pos);
     777                 :            : 
     778                 :    1409050 :   for (i = 0; i < order_pos; i++ )
     779                 :            :     {
     780                 :    1298130 :       unsigned x;
     781                 :    1298130 :       struct cgraph_node *w;
     782                 :    1298130 :       ipa_reference_vars_info_t node_info;
     783                 :    1298130 :       ipa_reference_global_vars_info_t node_g;
     784                 :    1298130 :       ipa_reference_local_vars_info_t node_l;
     785                 :    1298130 :       bool read_all = false;
     786                 :    1298130 :       bool write_all = false;
     787                 :            : 
     788                 :    1298130 :       node = order[i];
     789                 :    1298130 :       if (node->alias || !opt_for_fn (node->decl, flag_ipa_reference))
     790                 :      38897 :         continue;
     791                 :            : 
     792                 :    1259240 :       node_info = get_reference_vars_info (node);
     793                 :    1259240 :       gcc_assert (node_info);
     794                 :    1259240 :       node_l = &node_info->local;
     795                 :    1259240 :       node_g = &node_info->global;
     796                 :            : 
     797                 :    1259240 :       if (dump_file && (dump_flags & TDF_DETAILS))
     798                 :          0 :         fprintf (dump_file, "Starting cycle with %s\n", node->dump_name ());
     799                 :            : 
     800                 :    1259240 :       vec<cgraph_node *> cycle_nodes = ipa_get_nodes_in_cycle (node);
     801                 :            : 
     802                 :            :       /* If any node in a cycle is read_all or write_all, they all are.  */
     803                 :    1947090 :       FOR_EACH_VEC_ELT (cycle_nodes, x, w)
     804                 :            :         {
     805                 :    1266290 :           if (dump_file && (dump_flags & TDF_DETAILS))
     806                 :          0 :             fprintf (dump_file, "  Visiting %s\n", w->dump_asm_name ());
     807                 :    1266290 :           get_read_write_all_from_node (w, read_all, write_all);
     808                 :    1266290 :           if (read_all && write_all)
     809                 :            :             break;
     810                 :            :         }
     811                 :            : 
     812                 :            :       /* Initialized the bitmaps global sets for the reduced node.  */
     813                 :    1259240 :       if (read_all)
     814                 :     615378 :         node_g->statics_read = all_module_statics;
     815                 :            :       else
     816                 :     643858 :         node_g->statics_read = copy_static_var_set (node_l->statics_read, true);
     817                 :    1259240 :       if (write_all)
     818                 :     578429 :         node_g->statics_written = all_module_statics;
     819                 :            :       else
     820                 :     680807 :         node_g->statics_written
     821                 :     680807 :           = copy_static_var_set (node_l->statics_written, true);
     822                 :            : 
     823                 :            :       /* Merge the sets of this cycle with all sets of callees reached
     824                 :            :          from this cycle.  */
     825                 :    1943430 :       FOR_EACH_VEC_ELT (cycle_nodes, x, w)
     826                 :            :         {
     827                 :    1263070 :           if (read_all && write_all)
     828                 :            :             break;
     829                 :            : 
     830                 :     684190 :           if (w != node)
     831                 :            :             {
     832                 :       3383 :               ipa_reference_vars_info_t w_ri = get_reference_vars_info (w);
     833                 :       3383 :               ipa_reference_local_vars_info_t w_l = &w_ri->local;
     834                 :       3383 :               int flags = flags_from_decl_or_type (w->decl);
     835                 :            : 
     836                 :       3383 :               if (!(flags & ECF_CONST))
     837                 :       2548 :                 read_all = union_static_var_sets (node_g->statics_read,
     838                 :            :                                                   w_l->statics_read);
     839                 :       3383 :               if (!(flags & ECF_PURE)
     840                 :       3383 :                   && !w->cannot_return_p ())
     841                 :       2957 :                 write_all = union_static_var_sets (node_g->statics_written,
     842                 :            :                                                    w_l->statics_written);
     843                 :            :             }
     844                 :            : 
     845                 :     684190 :           propagate_bits (node_g, w);
     846                 :            :         }
     847                 :            : 
     848                 :            :       /* All nodes within a cycle have the same global info bitmaps.  */
     849                 :    2534920 :       FOR_EACH_VEC_ELT (cycle_nodes, x, w)
     850                 :            :         {
     851                 :    1275690 :           ipa_reference_vars_info_t w_ri = get_reference_vars_info (w);
     852                 :    1275690 :           w_ri->global = *node_g;
     853                 :            :         }
     854                 :            : 
     855                 :    2518470 :       cycle_nodes.release ();
     856                 :            :     }
     857                 :            : 
     858                 :     110919 :   if (dump_file)
     859                 :            :     {
     860                 :         54 :       for (i = 0; i < order_pos; i++)
     861                 :            :         {
     862                 :         34 :           unsigned x;
     863                 :         34 :           struct cgraph_node *w;
     864                 :            : 
     865                 :         34 :           node = order[i];
     866                 :         34 :           if (node->alias || !opt_for_fn (node->decl, flag_ipa_reference))
     867                 :          0 :             continue;
     868                 :            : 
     869                 :         34 :           fprintf (dump_file, "\nFunction name:%s:", node->dump_asm_name ());
     870                 :            : 
     871                 :         34 :           ipa_reference_vars_info_t node_info = get_reference_vars_info (node);
     872                 :         34 :           ipa_reference_global_vars_info_t node_g = &node_info->global;
     873                 :            : 
     874                 :         34 :           vec<cgraph_node *> cycle_nodes = ipa_get_nodes_in_cycle (node);
     875                 :         68 :           FOR_EACH_VEC_ELT (cycle_nodes, x, w)
     876                 :            :             {
     877                 :         34 :               ipa_reference_vars_info_t w_ri = get_reference_vars_info (w);
     878                 :         34 :               ipa_reference_local_vars_info_t w_l = &w_ri->local;
     879                 :         34 :               if (w != node)
     880                 :          0 :                 fprintf (dump_file, "\n  next cycle: %s ", w->dump_asm_name ());
     881                 :         34 :               fprintf (dump_file, "\n    locals read: ");
     882                 :         34 :               dump_static_vars_set_to_file (dump_file, w_l->statics_read);
     883                 :         34 :               fprintf (dump_file, "\n    locals written: ");
     884                 :         34 :               dump_static_vars_set_to_file (dump_file, w_l->statics_written);
     885                 :            :             }
     886                 :         34 :           cycle_nodes.release ();
     887                 :            : 
     888                 :         34 :           fprintf (dump_file, "\n  globals read: ");
     889                 :         34 :           dump_static_vars_set_to_file (dump_file, node_g->statics_read);
     890                 :         34 :           fprintf (dump_file, "\n  globals written: ");
     891                 :         34 :           dump_static_vars_set_to_file (dump_file, node_g->statics_written);
     892                 :         34 :           fprintf (dump_file, "\n");
     893                 :            :         }
     894                 :            :     }
     895                 :            : 
     896                 :     110919 :   if (ipa_ref_opt_sum_summaries == NULL)
     897                 :     110919 :     ipa_ref_opt_sum_summaries = new ipa_ref_opt_summary_t (symtab);
     898                 :            : 
     899                 :            :   /* Cleanup. */
     900                 :    2851040 :   FOR_EACH_DEFINED_FUNCTION (node)
     901                 :            :     {
     902                 :    1314600 :       ipa_reference_vars_info_t node_info;
     903                 :    1314600 :       ipa_reference_global_vars_info_t node_g;
     904                 :            : 
     905                 :            :       /* No need to produce summaries for inline clones.  */
     906                 :    1314600 :       if (node->inlined_to)
     907                 :     591553 :         continue;
     908                 :            : 
     909                 :     723049 :       node_info = get_reference_vars_info (node);
     910                 :     723049 :       if (!node->alias && opt_for_fn (node->decl, flag_ipa_reference))
     911                 :            :         {
     912                 :     684133 :           node_g = &node_info->global;
     913                 :     684133 :           bool read_all = 
     914                 :     684133 :                 (node_g->statics_read == all_module_statics
     915                 :     684133 :                  || bitmap_equal_p (node_g->statics_read, all_module_statics));
     916                 :     684133 :           bool written_all = 
     917                 :     684133 :                 (node_g->statics_written == all_module_statics
     918                 :     684133 :                  || bitmap_equal_p (node_g->statics_written,
     919                 :     684133 :                                     all_module_statics));
     920                 :            : 
     921                 :            :           /* There is no need to produce summary if we collected nothing
     922                 :            :              useful.  */
     923                 :     684133 :           if (read_all && written_all)
     924                 :     667242 :             continue;
     925                 :            : 
     926                 :      16891 :           ipa_reference_optimization_summary_d *opt
     927                 :      16891 :             = ipa_ref_opt_sum_summaries->get_create (node);
     928                 :            : 
     929                 :            :           /* Create the complimentary sets.  */
     930                 :            : 
     931                 :      16891 :           if (bitmap_empty_p (node_g->statics_read))
     932                 :      13188 :             opt->statics_read = no_module_statics;
     933                 :       3703 :           else if (read_all)
     934                 :       2582 :             opt->statics_read = all_module_statics;
     935                 :            :           else
     936                 :            :             {
     937                 :       1121 :               opt->statics_read
     938                 :       1121 :                  = BITMAP_ALLOC (&optimization_summary_obstack);
     939                 :       1121 :               bitmap_copy (opt->statics_read, node_g->statics_read);
     940                 :            :             }
     941                 :            : 
     942                 :      16891 :           if (bitmap_empty_p (node_g->statics_written))
     943                 :      14766 :             opt->statics_written = no_module_statics;
     944                 :       2125 :           else if (written_all)
     945                 :        934 :             opt->statics_written = all_module_statics;
     946                 :            :           else
     947                 :            :             {
     948                 :       1191 :               opt->statics_written
     949                 :       1191 :                 = BITMAP_ALLOC (&optimization_summary_obstack);
     950                 :       1191 :               bitmap_copy (opt->statics_written, node_g->statics_written);
     951                 :            :             }
     952                 :            :         }
     953                 :            :    }
     954                 :            : 
     955                 :     110919 :   ipa_free_postorder_info ();
     956                 :     110919 :   free (order);
     957                 :            : 
     958                 :     110919 :   bitmap_obstack_release (&local_info_obstack);
     959                 :            : 
     960                 :     110919 :   if (ipa_ref_var_info_summaries != NULL)
     961                 :            :     {
     962                 :     110919 :       delete ipa_ref_var_info_summaries;
     963                 :     110919 :       ipa_ref_var_info_summaries = NULL;
     964                 :            :     }
     965                 :            : 
     966                 :     110919 :   if (dump_file)
     967                 :         20 :     vec_free (reference_vars_to_consider);
     968                 :     110919 :   reference_vars_to_consider = NULL;
     969                 :     110919 :   return remove_p ? TODO_remove_functions : 0;
     970                 :            : }
     971                 :            : 
     972                 :            : /* Return true if we need to write summary of NODE. */
     973                 :            : 
     974                 :            : static bool
     975                 :      48442 : write_node_summary_p (struct cgraph_node *node,
     976                 :            :                       lto_symtab_encoder_t encoder,
     977                 :            :                       bitmap ltrans_statics)
     978                 :            : {
     979                 :      48442 :   ipa_reference_optimization_summary_t info;
     980                 :            : 
     981                 :            :   /* See if we have (non-empty) info.  */
     982                 :      48442 :   if (!node->definition || node->inlined_to)
     983                 :            :     return false;
     984                 :      40234 :   info = get_reference_optimization_summary (node);
     985                 :      40234 :   if (!info)
     986                 :            :     return false;
     987                 :            : 
     988                 :            :   /* See if we want to encode it.
     989                 :            :      Encode also referenced functions since constant folding might turn it into
     990                 :            :      a direct call.
     991                 :            : 
     992                 :            :      In future we might also want to include summaries of functions references
     993                 :            :      by initializers of constant variables references in current unit.  */
     994                 :       5304 :   if (!reachable_from_this_partition_p (node, encoder)
     995                 :       5304 :       && !referenced_from_this_partition_p (node, encoder))
     996                 :            :     return false;
     997                 :            : 
     998                 :            :   /* See if the info has non-empty intersections with vars we want to
     999                 :            :      encode.  */
    1000                 :       4060 :   bitmap_iterator bi;
    1001                 :       4060 :   unsigned int i;
    1002                 :       4060 :   EXECUTE_IF_AND_COMPL_IN_BITMAP (ltrans_statics, info->statics_read, 0,
    1003                 :            :                                   i, bi)
    1004                 :            :     return true;
    1005                 :       1802 :   EXECUTE_IF_AND_COMPL_IN_BITMAP (ltrans_statics, info->statics_written, 0,
    1006                 :            :                                   i, bi)
    1007                 :            :     return true;
    1008                 :          0 :   return false;
    1009                 :            : }
    1010                 :            : 
    1011                 :            : /* Stream out BITS&LTRANS_STATICS as list of decls to OB.
    1012                 :            :    LTRANS_STATICS_BITCOUNT specify number of bits in LTRANS_STATICS
    1013                 :            :    or -1.  When it is positive, just output -1 when
    1014                 :            :    BITS&LTRANS_STATICS == BITS&LTRANS_STATICS.  */
    1015                 :            : 
    1016                 :            : static void
    1017                 :       4666 : stream_out_bitmap (struct lto_simple_output_block *ob,
    1018                 :            :                    bitmap bits, bitmap ltrans_statics,
    1019                 :            :                    int ltrans_statics_bitcount)
    1020                 :            : {
    1021                 :       4666 :   int count = 0;
    1022                 :       4666 :   unsigned int index;
    1023                 :       4666 :   bitmap_iterator bi;
    1024                 :       4666 :   if (bits == all_module_statics)
    1025                 :            :     {
    1026                 :       1025 :       streamer_write_hwi_stream (ob->main_stream, -1);
    1027                 :       4043 :       return;
    1028                 :            :     }
    1029                 :       6549 :   EXECUTE_IF_AND_IN_BITMAP (bits, ltrans_statics, 0, index, bi)
    1030                 :       2908 :     count ++;
    1031                 :       3641 :   if (count == ltrans_statics_bitcount)
    1032                 :            :     {
    1033                 :          0 :       streamer_write_hwi_stream (ob->main_stream, -1);
    1034                 :          0 :       return;
    1035                 :            :     }
    1036                 :       3641 :   streamer_write_hwi_stream (ob->main_stream, count);
    1037                 :       3641 :   if (!count)
    1038                 :            :     return;
    1039                 :       4556 :   EXECUTE_IF_AND_IN_BITMAP (bits, ltrans_statics, 0, index, bi)
    1040                 :            :     {
    1041                 :       2908 :       tree decl = (*reference_vars_to_consider) [index];
    1042                 :       2908 :       lto_output_var_decl_index (ob->decl_state, ob->main_stream, decl);
    1043                 :            :     }
    1044                 :            : }
    1045                 :            : 
    1046                 :            : /* Serialize the ipa info for lto.  */
    1047                 :            : 
    1048                 :            : static void
    1049                 :       5356 : ipa_reference_write_optimization_summary (void)
    1050                 :            : {
    1051                 :       5356 :   struct lto_simple_output_block *ob
    1052                 :       5356 :     = lto_create_simple_output_block (LTO_section_ipa_reference);
    1053                 :       5356 :   unsigned int count = 0;
    1054                 :       5356 :   int ltrans_statics_bitcount = 0;
    1055                 :       5356 :   lto_symtab_encoder_t encoder = ob->decl_state->symtab_node_encoder;
    1056                 :       5356 :   auto_bitmap ltrans_statics;
    1057                 :       5356 :   int i;
    1058                 :            : 
    1059                 :       5356 :   vec_alloc (reference_vars_to_consider, ipa_reference_vars_uids);
    1060                 :       5356 :   reference_vars_to_consider->safe_grow (ipa_reference_vars_uids);
    1061                 :            : 
    1062                 :            :   /* See what variables we are interested in.  */
    1063                 :     153555 :   for (i = 0; i < lto_symtab_encoder_size (encoder); i++)
    1064                 :            :     {
    1065                 :     142852 :       symtab_node *snode = lto_symtab_encoder_deref (encoder, i);
    1066                 :     142852 :       varpool_node *vnode = dyn_cast <varpool_node *> (snode);
    1067                 :      20990 :       int id;
    1068                 :            : 
    1069                 :      20990 :       if (vnode
    1070                 :      20990 :           && (id = ipa_reference_var_uid (vnode->decl)) != -1
    1071                 :       2679 :           && referenced_from_this_partition_p (vnode, encoder))
    1072                 :            :         {
    1073                 :       2677 :           tree decl = vnode->decl;
    1074                 :       2677 :           bitmap_set_bit (ltrans_statics, id);
    1075                 :       2677 :           (*reference_vars_to_consider)[id] = decl;
    1076                 :       2677 :           ltrans_statics_bitcount ++;
    1077                 :            :         }
    1078                 :            :     }
    1079                 :            : 
    1080                 :            : 
    1081                 :       5356 :   if (ltrans_statics_bitcount)
    1082                 :      60372 :     for (i = 0; i < lto_symtab_encoder_size (encoder); i++)
    1083                 :            :       {
    1084                 :      57868 :         symtab_node *snode = lto_symtab_encoder_deref (encoder, i);
    1085                 :      57868 :         cgraph_node *cnode = dyn_cast <cgraph_node *> (snode);
    1086                 :      24221 :         if (cnode && write_node_summary_p (cnode, encoder, ltrans_statics))
    1087                 :       2030 :           count++;
    1088                 :            :       }
    1089                 :            : 
    1090                 :       5356 :   streamer_write_uhwi_stream (ob->main_stream, count);
    1091                 :       5356 :   if (count)
    1092                 :        606 :     stream_out_bitmap (ob, ltrans_statics, ltrans_statics,
    1093                 :            :                        -1);
    1094                 :            : 
    1095                 :            :   /* Process all of the functions.  */
    1096                 :       5356 :   if (ltrans_statics_bitcount)
    1097                 :      60372 :     for (i = 0; i < lto_symtab_encoder_size (encoder); i++)
    1098                 :            :       {
    1099                 :      57868 :         symtab_node *snode = lto_symtab_encoder_deref (encoder, i);
    1100                 :      57868 :         cgraph_node *cnode = dyn_cast <cgraph_node *> (snode);
    1101                 :      24221 :         if (cnode && write_node_summary_p (cnode, encoder, ltrans_statics))
    1102                 :            :           {
    1103                 :       2030 :             ipa_reference_optimization_summary_t info;
    1104                 :       2030 :             int node_ref;
    1105                 :            : 
    1106                 :       2030 :             info = get_reference_optimization_summary (cnode);
    1107                 :       2030 :             node_ref = lto_symtab_encoder_encode (encoder, snode);
    1108                 :       2030 :             streamer_write_uhwi_stream (ob->main_stream, node_ref);
    1109                 :            : 
    1110                 :       2030 :             stream_out_bitmap (ob, info->statics_read, ltrans_statics,
    1111                 :            :                                ltrans_statics_bitcount);
    1112                 :       2030 :             stream_out_bitmap (ob, info->statics_written, ltrans_statics,
    1113                 :            :                                ltrans_statics_bitcount);
    1114                 :            :           }
    1115                 :            :       }
    1116                 :       5356 :   lto_destroy_simple_output_block (ob);
    1117                 :       5356 :   delete reference_vars_to_consider;
    1118                 :       5356 : }
    1119                 :            : 
    1120                 :            : /* Deserialize the ipa info for lto.  */
    1121                 :            : 
    1122                 :            : static void
    1123                 :       5356 : ipa_reference_read_optimization_summary (void)
    1124                 :            : {
    1125                 :       5356 :   struct lto_file_decl_data ** file_data_vec
    1126                 :       5356 :     = lto_get_file_decl_data ();
    1127                 :       5356 :   struct lto_file_decl_data * file_data;
    1128                 :       5356 :   unsigned int j = 0;
    1129                 :       5356 :   bitmap_obstack_initialize (&optimization_summary_obstack);
    1130                 :            : 
    1131                 :       5356 :   gcc_checking_assert (ipa_ref_opt_sum_summaries == NULL);
    1132                 :       5356 :   ipa_ref_opt_sum_summaries = new ipa_ref_opt_summary_t (symtab);
    1133                 :       5356 :   ipa_reference_vars_map = new reference_vars_map_t(257);
    1134                 :       5356 :   varpool_node_hooks
    1135                 :       5356 :          = symtab->add_varpool_removal_hook (varpool_removal_hook, NULL);
    1136                 :       5356 :   ipa_reference_vars_uids = 0;
    1137                 :            : 
    1138                 :       5356 :   all_module_statics = BITMAP_ALLOC (&optimization_summary_obstack);
    1139                 :       5356 :   no_module_statics = BITMAP_ALLOC (&optimization_summary_obstack);
    1140                 :            : 
    1141                 :      10712 :   while ((file_data = file_data_vec[j++]))
    1142                 :            :     {
    1143                 :       5356 :       const char *data;
    1144                 :       5356 :       size_t len;
    1145                 :       5356 :       class lto_input_block *ib
    1146                 :       5356 :         = lto_create_simple_input_block (file_data,
    1147                 :            :                                          LTO_section_ipa_reference,
    1148                 :            :                                          &data, &len);
    1149                 :       5356 :       if (ib)
    1150                 :            :         {
    1151                 :       5356 :           unsigned int i;
    1152                 :       5356 :           unsigned int f_count = streamer_read_uhwi (ib);
    1153                 :       5356 :           int b_count;
    1154                 :       5356 :           if (!f_count)
    1155                 :       4750 :             continue;
    1156                 :        606 :           b_count = streamer_read_hwi (ib);
    1157                 :        606 :           if (dump_file)
    1158                 :          0 :             fprintf (dump_file, "all module statics:");
    1159                 :       1998 :           for (i = 0; i < (unsigned int)b_count; i++)
    1160                 :            :             {
    1161                 :       1392 :               unsigned int var_index = streamer_read_uhwi (ib);
    1162                 :       1392 :               tree v_decl = lto_file_decl_data_get_var_decl (file_data,
    1163                 :            :                                                              var_index);
    1164                 :       1392 :               bool existed;
    1165                 :       1392 :               bitmap_set_bit (all_module_statics,
    1166                 :            :                               ipa_reference_var_get_or_insert_uid
    1167                 :            :                                  (v_decl, &existed));
    1168                 :       1392 :               gcc_checking_assert (!existed);
    1169                 :       1392 :               if (dump_file)
    1170                 :          0 :                 fprintf (dump_file, " %s", fndecl_name (v_decl));
    1171                 :            :             }
    1172                 :            : 
    1173                 :       2636 :           for (i = 0; i < f_count; i++)
    1174                 :            :             {
    1175                 :       2030 :               unsigned int j, index;
    1176                 :       2030 :               struct cgraph_node *node;
    1177                 :       2030 :               int v_count;
    1178                 :       2030 :               lto_symtab_encoder_t encoder;
    1179                 :            : 
    1180                 :       2030 :               index = streamer_read_uhwi (ib);
    1181                 :       2030 :               encoder = file_data->symtab_node_encoder;
    1182                 :       4060 :               node = dyn_cast<cgraph_node *> (lto_symtab_encoder_deref
    1183                 :            :                 (encoder, index));
    1184                 :            : 
    1185                 :       2030 :               ipa_reference_optimization_summary_d *info
    1186                 :       2030 :                 = ipa_ref_opt_sum_summaries->get_create (node);
    1187                 :            : 
    1188                 :       2030 :               if (dump_file)
    1189                 :          0 :                 fprintf (dump_file,
    1190                 :            :                          "\nFunction name:%s:\n  static read:",
    1191                 :            :                          node->dump_asm_name ());
    1192                 :            : 
    1193                 :            :               /* Set the statics read.  */
    1194                 :       2030 :               v_count = streamer_read_hwi (ib);
    1195                 :       2030 :               if (v_count == -1)
    1196                 :            :                 {
    1197                 :        901 :                   info->statics_read = all_module_statics;
    1198                 :        901 :                   if (dump_file)
    1199                 :          0 :                     fprintf (dump_file, " all module statics");
    1200                 :            :                 }
    1201                 :       1129 :               else if (v_count == 0)
    1202                 :        563 :                 info->statics_read = no_module_statics;
    1203                 :            :               else
    1204                 :            :                 {
    1205                 :       1132 :                   info->statics_read = BITMAP_ALLOC
    1206                 :        566 :                     (&optimization_summary_obstack);
    1207                 :       1439 :                   for (j = 0; j < (unsigned int)v_count; j++)
    1208                 :            :                     {
    1209                 :        873 :                       unsigned int var_index = streamer_read_uhwi (ib);
    1210                 :        873 :                       tree v_decl = lto_file_decl_data_get_var_decl (file_data,
    1211                 :            :                                                                      var_index);
    1212                 :        873 :                       bitmap_set_bit (info->statics_read,
    1213                 :            :                                       ipa_reference_var_uid (v_decl));
    1214                 :        873 :                       if (dump_file)
    1215                 :          0 :                         fprintf (dump_file, " %s", fndecl_name (v_decl));
    1216                 :            :                     }
    1217                 :            :                 }
    1218                 :            : 
    1219                 :       2030 :               if (dump_file)
    1220                 :          0 :                 fprintf (dump_file,
    1221                 :            :                          "\n  static written:");
    1222                 :            :               /* Set the statics written.  */
    1223                 :       2030 :               v_count = streamer_read_hwi (ib);
    1224                 :       2030 :               if (v_count == -1)
    1225                 :            :                 {
    1226                 :        124 :                   info->statics_written = all_module_statics;
    1227                 :        124 :                   if (dump_file)
    1228                 :          0 :                     fprintf (dump_file, " all module statics");
    1229                 :            :                 }
    1230                 :       1906 :               else if (v_count == 0)
    1231                 :       1430 :                 info->statics_written = no_module_statics;
    1232                 :            :               else
    1233                 :            :                 {
    1234                 :        952 :                   info->statics_written = BITMAP_ALLOC
    1235                 :        476 :                     (&optimization_summary_obstack);
    1236                 :       1119 :                   for (j = 0; j < (unsigned int)v_count; j++)
    1237                 :            :                     {
    1238                 :        643 :                       unsigned int var_index = streamer_read_uhwi (ib);
    1239                 :        643 :                       tree v_decl = lto_file_decl_data_get_var_decl (file_data,
    1240                 :            :                                                                      var_index);
    1241                 :        643 :                       bitmap_set_bit (info->statics_written,
    1242                 :            :                                       ipa_reference_var_uid (v_decl));
    1243                 :        643 :                       if (dump_file)
    1244                 :          0 :                         fprintf (dump_file, " %s", fndecl_name (v_decl));
    1245                 :            :                     }
    1246                 :            :                 }
    1247                 :       2030 :               if (dump_file)
    1248                 :          0 :                 fprintf (dump_file, "\n");
    1249                 :            :             }
    1250                 :            : 
    1251                 :        606 :           lto_destroy_simple_input_block (file_data,
    1252                 :            :                                           LTO_section_ipa_reference,
    1253                 :            :                                           ib, data, len);
    1254                 :            :         }
    1255                 :            :       else
    1256                 :            :         /* Fatal error here.  We do not want to support compiling ltrans units
    1257                 :            :            with different version of compiler or different flags than
    1258                 :            :            the WPA unit, so this should never happen.  */
    1259                 :          0 :         fatal_error (input_location,
    1260                 :            :                      "ipa reference summary is missing in ltrans unit");
    1261                 :            :     }
    1262                 :       5356 : }
    1263                 :            : 
    1264                 :            : namespace {
    1265                 :            : 
    1266                 :            : const pass_data pass_data_ipa_reference =
    1267                 :            : {
    1268                 :            :   IPA_PASS, /* type */
    1269                 :            :   "static-var", /* name */
    1270                 :            :   OPTGROUP_NONE, /* optinfo_flags */
    1271                 :            :   TV_IPA_REFERENCE, /* tv_id */
    1272                 :            :   0, /* properties_required */
    1273                 :            :   0, /* properties_provided */
    1274                 :            :   0, /* properties_destroyed */
    1275                 :            :   0, /* todo_flags_start */
    1276                 :            :   0, /* todo_flags_finish */
    1277                 :            : };
    1278                 :            : 
    1279                 :            : class pass_ipa_reference : public ipa_opt_pass_d
    1280                 :            : {
    1281                 :            : public:
    1282                 :     200773 :   pass_ipa_reference (gcc::context *ctxt)
    1283                 :            :     : ipa_opt_pass_d (pass_data_ipa_reference, ctxt,
    1284                 :            :                       NULL, /* generate_summary */
    1285                 :            :                       NULL, /* write_summary */
    1286                 :            :                       NULL, /* read_summary */
    1287                 :            :                       ipa_reference_write_optimization_summary, /*
    1288                 :            :                       write_optimization_summary */
    1289                 :            :                       ipa_reference_read_optimization_summary, /*
    1290                 :            :                       read_optimization_summary */
    1291                 :            :                       NULL, /* stmt_fixup */
    1292                 :            :                       0, /* function_transform_todo_flags_start */
    1293                 :            :                       NULL, /* function_transform */
    1294                 :     401546 :                       NULL) /* variable_transform */
    1295                 :            :     {}
    1296                 :            : 
    1297                 :            :   /* opt_pass methods: */
    1298                 :     421040 :   virtual bool gate (function *)
    1299                 :            :     {
    1300                 :     318478 :       return ((in_lto_p || flag_ipa_reference)
    1301                 :            :               /* Don't bother doing anything if the program has errors.  */
    1302                 :     633022 :               && !seen_error ());
    1303                 :            :     }
    1304                 :            : 
    1305                 :     110919 :   virtual unsigned int execute (function *) { return propagate (); }
    1306                 :            : 
    1307                 :            : }; // class pass_ipa_reference
    1308                 :            : 
    1309                 :            : } // anon namespace
    1310                 :            : 
    1311                 :            : ipa_opt_pass_d *
    1312                 :     200773 : make_pass_ipa_reference (gcc::context *ctxt)
    1313                 :            : {
    1314                 :     200773 :   return new pass_ipa_reference (ctxt);
    1315                 :            : }
    1316                 :            : 
    1317                 :            : /* Reset all state within ipa-reference.c so that we can rerun the compiler
    1318                 :            :    within the same process.  For use by toplev::finalize.  */
    1319                 :            : 
    1320                 :            : void
    1321                 :        903 : ipa_reference_c_finalize (void)
    1322                 :            : {
    1323                 :        903 :   if (ipa_ref_opt_sum_summaries != NULL)
    1324                 :            :     {
    1325                 :        792 :       delete ipa_ref_opt_sum_summaries;
    1326                 :        792 :       ipa_ref_opt_sum_summaries = NULL;
    1327                 :       1584 :       delete ipa_reference_vars_map;
    1328                 :        792 :       ipa_reference_vars_map = NULL;
    1329                 :        792 :       symtab->remove_varpool_removal_hook (varpool_node_hooks);
    1330                 :            :     }
    1331                 :            : 
    1332                 :        903 :   if (ipa_init_p)
    1333                 :            :     {
    1334                 :        792 :       bitmap_obstack_release (&optimization_summary_obstack);
    1335                 :        792 :       ipa_init_p = false;
    1336                 :            :     }
    1337                 :        903 : }

Generated by: LCOV version 1.0

LCOV profile is generated on x86_64 machine using following configure options: configure --disable-bootstrap --enable-coverage=opt --enable-languages=c,c++,fortran,go,jit,lto --enable-host-shared. GCC test suite is run with the built compiler.