LCOV - code coverage report
Current view: top level - gcc - tree-eh.c (source / functions) Hit Total Coverage
Test: gcc.info Lines: 2041 2261 90.3 %
Date: 2020-04-04 11:58:09 Functions: 100 103 97.1 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 0 0 -

           Branch data     Line data    Source code
       1                 :            : /* Exception handling semantics and decomposition for trees.
       2                 :            :    Copyright (C) 2003-2020 Free Software Foundation, Inc.
       3                 :            : 
       4                 :            : This file is part of GCC.
       5                 :            : 
       6                 :            : GCC is free software; you can redistribute it and/or modify
       7                 :            : it under the terms of the GNU General Public License as published by
       8                 :            : the Free Software Foundation; either version 3, or (at your option)
       9                 :            : any later version.
      10                 :            : 
      11                 :            : GCC is distributed in the hope that it will be useful,
      12                 :            : but WITHOUT ANY WARRANTY; without even the implied warranty of
      13                 :            : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      14                 :            : GNU General Public License for more details.
      15                 :            : 
      16                 :            : You should have received a copy of the GNU General Public License
      17                 :            : along with GCC; see the file COPYING3.  If not see
      18                 :            : <http://www.gnu.org/licenses/>.  */
      19                 :            : 
      20                 :            : #include "config.h"
      21                 :            : #include "system.h"
      22                 :            : #include "coretypes.h"
      23                 :            : #include "backend.h"
      24                 :            : #include "rtl.h"
      25                 :            : #include "tree.h"
      26                 :            : #include "gimple.h"
      27                 :            : #include "cfghooks.h"
      28                 :            : #include "tree-pass.h"
      29                 :            : #include "ssa.h"
      30                 :            : #include "cgraph.h"
      31                 :            : #include "diagnostic-core.h"
      32                 :            : #include "fold-const.h"
      33                 :            : #include "calls.h"
      34                 :            : #include "except.h"
      35                 :            : #include "cfganal.h"
      36                 :            : #include "cfgcleanup.h"
      37                 :            : #include "tree-eh.h"
      38                 :            : #include "gimple-iterator.h"
      39                 :            : #include "tree-cfg.h"
      40                 :            : #include "tree-into-ssa.h"
      41                 :            : #include "tree-ssa.h"
      42                 :            : #include "tree-inline.h"
      43                 :            : #include "langhooks.h"
      44                 :            : #include "cfgloop.h"
      45                 :            : #include "gimple-low.h"
      46                 :            : #include "stringpool.h"
      47                 :            : #include "attribs.h"
      48                 :            : #include "asan.h"
      49                 :            : #include "gimplify.h"
      50                 :            : 
      51                 :            : /* In some instances a tree and a gimple need to be stored in a same table,
      52                 :            :    i.e. in hash tables. This is a structure to do this. */
      53                 :            : typedef union {tree *tp; tree t; gimple *g;} treemple;
      54                 :            : 
      55                 :            : /* Misc functions used in this file.  */
      56                 :            : 
      57                 :            : /* Remember and lookup EH landing pad data for arbitrary statements.
      58                 :            :    Really this means any statement that could_throw_p.  We could
      59                 :            :    stuff this information into the stmt_ann data structure, but:
      60                 :            : 
      61                 :            :    (1) We absolutely rely on this information being kept until
      62                 :            :    we get to rtl.  Once we're done with lowering here, if we lose
      63                 :            :    the information there's no way to recover it!
      64                 :            : 
      65                 :            :    (2) There are many more statements that *cannot* throw as
      66                 :            :    compared to those that can.  We should be saving some amount
      67                 :            :    of space by only allocating memory for those that can throw.  */
      68                 :            : 
      69                 :            : /* Add statement T in function IFUN to landing pad NUM.  */
      70                 :            : 
      71                 :            : static void
      72                 :    4636010 : add_stmt_to_eh_lp_fn (struct function *ifun, gimple *t, int num)
      73                 :            : {
      74                 :    4636010 :   gcc_assert (num != 0);
      75                 :            : 
      76                 :    4636010 :   if (!get_eh_throw_stmt_table (ifun))
      77                 :     253825 :     set_eh_throw_stmt_table (ifun, hash_map<gimple *, int>::create_ggc (31));
      78                 :            : 
      79                 :    4636010 :   gcc_assert (!get_eh_throw_stmt_table (ifun)->put (t, num));
      80                 :    4636010 : }
      81                 :            : 
      82                 :            : /* Add statement T in the current function (cfun) to EH landing pad NUM.  */
      83                 :            : 
      84                 :            : void
      85                 :    1921020 : add_stmt_to_eh_lp (gimple *t, int num)
      86                 :            : {
      87                 :    1921020 :   add_stmt_to_eh_lp_fn (cfun, t, num);
      88                 :    1921020 : }
      89                 :            : 
      90                 :            : /* Add statement T to the single EH landing pad in REGION.  */
      91                 :            : 
      92                 :            : static void
      93                 :    2281890 : record_stmt_eh_region (eh_region region, gimple *t)
      94                 :            : {
      95                 :    2281890 :   if (region == NULL)
      96                 :            :     return;
      97                 :    2281890 :   if (region->type == ERT_MUST_NOT_THROW)
      98                 :      82852 :     add_stmt_to_eh_lp_fn (cfun, t, -region->index);
      99                 :            :   else
     100                 :            :     {
     101                 :    2199040 :       eh_landing_pad lp = region->landing_pads;
     102                 :    2199040 :       if (lp == NULL)
     103                 :     527960 :         lp = gen_eh_landing_pad (region);
     104                 :            :       else
     105                 :    1671080 :         gcc_assert (lp->next_lp == NULL);
     106                 :    2199040 :       add_stmt_to_eh_lp_fn (cfun, t, lp->index);
     107                 :            :     }
     108                 :            : }
     109                 :            : 
     110                 :            : 
     111                 :            : /* Remove statement T in function IFUN from its EH landing pad.  */
     112                 :            : 
     113                 :            : bool
     114                 :  396164000 : remove_stmt_from_eh_lp_fn (struct function *ifun, gimple *t)
     115                 :            : {
     116                 :  396164000 :   if (!get_eh_throw_stmt_table (ifun))
     117                 :            :     return false;
     118                 :            : 
     119                 :  182703000 :   if (!get_eh_throw_stmt_table (ifun)->get (t))
     120                 :            :     return false;
     121                 :            : 
     122                 :    4012140 :   get_eh_throw_stmt_table (ifun)->remove (t);
     123                 :    4012140 :       return true;
     124                 :            : }
     125                 :            : 
     126                 :            : 
     127                 :            : /* Remove statement T in the current function (cfun) from its
     128                 :            :    EH landing pad.  */
     129                 :            : 
     130                 :            : bool
     131                 :   67929100 : remove_stmt_from_eh_lp (gimple *t)
     132                 :            : {
     133                 :   67929100 :   return remove_stmt_from_eh_lp_fn (cfun, t);
     134                 :            : }
     135                 :            : 
     136                 :            : /* Determine if statement T is inside an EH region in function IFUN.
     137                 :            :    Positive numbers indicate a landing pad index; negative numbers
     138                 :            :    indicate a MUST_NOT_THROW region index; zero indicates that the
     139                 :            :    statement is not recorded in the region table.  */
     140                 :            : 
     141                 :            : int
     142                 : 8565600000 : lookup_stmt_eh_lp_fn (struct function *ifun, const gimple *t)
     143                 :            : {
     144                 : 8565600000 :   if (ifun->eh->throw_stmt_table == NULL)
     145                 :            :     return 0;
     146                 :            : 
     147                 : 4517050000 :   int *lp_nr = ifun->eh->throw_stmt_table->get (const_cast <gimple *> (t));
     148                 : 4517050000 :   return lp_nr ? *lp_nr : 0;
     149                 :            : }
     150                 :            : 
     151                 :            : /* Likewise, but always use the current function.  */
     152                 :            : 
     153                 :            : int
     154                 : 8141240000 : lookup_stmt_eh_lp (const gimple *t)
     155                 :            : {
     156                 :            :   /* We can get called from initialized data when -fnon-call-exceptions
     157                 :            :      is on; prevent crash.  */
     158                 : 8141240000 :   if (!cfun)
     159                 :            :     return 0;
     160                 : 8141240000 :   return lookup_stmt_eh_lp_fn (cfun, t);
     161                 :            : }
     162                 :            : 
     163                 :            : /* First pass of EH node decomposition.  Build up a tree of GIMPLE_TRY_FINALLY
     164                 :            :    nodes and LABEL_DECL nodes.  We will use this during the second phase to
     165                 :            :    determine if a goto leaves the body of a TRY_FINALLY_EXPR node.  */
     166                 :            : 
     167                 :            : struct finally_tree_node
     168                 :            : {
     169                 :            :   /* When storing a GIMPLE_TRY, we have to record a gimple.  However
     170                 :            :      when deciding whether a GOTO to a certain LABEL_DECL (which is a
     171                 :            :      tree) leaves the TRY block, its necessary to record a tree in
     172                 :            :      this field.  Thus a treemple is used. */
     173                 :            :   treemple child;
     174                 :            :   gtry *parent;
     175                 :            : };
     176                 :            : 
     177                 :            : /* Hashtable helpers.  */
     178                 :            : 
     179                 :            : struct finally_tree_hasher : free_ptr_hash <finally_tree_node>
     180                 :            : {
     181                 :            :   static inline hashval_t hash (const finally_tree_node *);
     182                 :            :   static inline bool equal (const finally_tree_node *,
     183                 :            :                             const finally_tree_node *);
     184                 :            : };
     185                 :            : 
     186                 :            : inline hashval_t
     187                 :   73449800 : finally_tree_hasher::hash (const finally_tree_node *v)
     188                 :            : {
     189                 :   73449800 :   return (intptr_t)v->child.t >> 4;
     190                 :            : }
     191                 :            : 
     192                 :            : inline bool
     193                 :   62697800 : finally_tree_hasher::equal (const finally_tree_node *v,
     194                 :            :                             const finally_tree_node *c)
     195                 :            : {
     196                 :   62697800 :   return v->child.t == c->child.t;
     197                 :            : }
     198                 :            : 
     199                 :            : /* Note that this table is *not* marked GTY.  It is short-lived.  */
     200                 :            : static hash_table<finally_tree_hasher> *finally_tree;
     201                 :            : 
     202                 :            : static void
     203                 :   11863800 : record_in_finally_tree (treemple child, gtry *parent)
     204                 :            : {
     205                 :   11863800 :   struct finally_tree_node *n;
     206                 :   11863800 :   finally_tree_node **slot;
     207                 :            : 
     208                 :   11863800 :   n = XNEW (struct finally_tree_node);
     209                 :   11863800 :   n->child = child;
     210                 :   11863800 :   n->parent = parent;
     211                 :            : 
     212                 :   11863800 :   slot = finally_tree->find_slot (n, INSERT);
     213                 :   11863800 :   gcc_assert (!*slot);
     214                 :   11863800 :   *slot = n;
     215                 :   11863800 : }
     216                 :            : 
     217                 :            : static void
     218                 :            : collect_finally_tree (gimple *stmt, gtry *region);
     219                 :            : 
     220                 :            : /* Go through the gimple sequence.  Works with collect_finally_tree to
     221                 :            :    record all GIMPLE_LABEL and GIMPLE_TRY statements. */
     222                 :            : 
     223                 :            : static void
     224                 :    5759200 : collect_finally_tree_1 (gimple_seq seq, gtry *region)
     225                 :            : {
     226                 :    5759200 :   gimple_stmt_iterator gsi;
     227                 :            : 
     228                 :   64046000 :   for (gsi = gsi_start (seq); !gsi_end_p (gsi); gsi_next (&gsi))
     229                 :   58286900 :     collect_finally_tree (gsi_stmt (gsi), region);
     230                 :    3270080 : }
     231                 :            : 
     232                 :            : static void
     233                 :   58286900 : collect_finally_tree (gimple *stmt, gtry *region)
     234                 :            : {
     235                 :   58286900 :   treemple temp;
     236                 :            : 
     237                 :   58286900 :   switch (gimple_code (stmt))
     238                 :            :     {
     239                 :   10841100 :     case GIMPLE_LABEL:
     240                 :   10841100 :       temp.t = gimple_label_label (as_a <glabel *> (stmt));
     241                 :   10841100 :       record_in_finally_tree (temp, region);
     242                 :   10841100 :       break;
     243                 :            : 
     244                 :    1603810 :     case GIMPLE_TRY:
     245                 :    1603810 :       if (gimple_try_kind (stmt) == GIMPLE_TRY_FINALLY)
     246                 :            :         {
     247                 :     981707 :           temp.g = stmt;
     248                 :     981707 :           record_in_finally_tree (temp, region);
     249                 :     981707 :           collect_finally_tree_1 (gimple_try_eval (stmt),
     250                 :            :                                   as_a <gtry *> (stmt));
     251                 :     981707 :           collect_finally_tree_1 (gimple_try_cleanup (stmt), region);
     252                 :            :         }
     253                 :     622106 :       else if (gimple_try_kind (stmt) == GIMPLE_TRY_CATCH)
     254                 :            :         {
     255                 :     622106 :           collect_finally_tree_1 (gimple_try_eval (stmt), region);
     256                 :     622106 :           collect_finally_tree_1 (gimple_try_cleanup (stmt), region);
     257                 :            :         }
     258                 :            :       break;
     259                 :            : 
     260                 :      52736 :     case GIMPLE_CATCH:
     261                 :      52736 :       collect_finally_tree_1 (gimple_catch_handler (
     262                 :      52736 :                                  as_a <gcatch *> (stmt)),
     263                 :            :                               region);
     264                 :      52736 :       break;
     265                 :            : 
     266                 :       8389 :     case GIMPLE_EH_FILTER:
     267                 :       8389 :       collect_finally_tree_1 (gimple_eh_filter_failure (stmt), region);
     268                 :       8389 :       break;
     269                 :            : 
     270                 :        666 :     case GIMPLE_EH_ELSE:
     271                 :        666 :       {
     272                 :        666 :         geh_else *eh_else_stmt = as_a <geh_else *> (stmt);
     273                 :        666 :         collect_finally_tree_1 (gimple_eh_else_n_body (eh_else_stmt), region);
     274                 :        666 :         collect_finally_tree_1 (gimple_eh_else_e_body (eh_else_stmt), region);
     275                 :            :       }
     276                 :        666 :       break;
     277                 :            : 
     278                 :            :     default:
     279                 :            :       /* A type, a decl, or some kind of statement that we're not
     280                 :            :          interested in.  Don't walk them.  */
     281                 :            :       break;
     282                 :            :     }
     283                 :   58286900 : }
     284                 :            : 
     285                 :            : 
     286                 :            : /* Use the finally tree to determine if a jump from START to TARGET
     287                 :            :    would leave the try_finally node that START lives in.  */
     288                 :            : 
     289                 :            : static bool
     290                 :    5692550 : outside_finally_tree (treemple start, gimple *target)
     291                 :            : {
     292                 :    6146840 :   struct finally_tree_node n, *p;
     293                 :            : 
     294                 :    6146840 :   do
     295                 :            :     {
     296                 :    6146840 :       n.child = start;
     297                 :    6146840 :       p = finally_tree->find (&n);
     298                 :    6146840 :       if (!p)
     299                 :            :         return true;
     300                 :    5714140 :       start.g = p->parent;
     301                 :            :     }
     302                 :    5714140 :   while (start.g != target);
     303                 :            : 
     304                 :            :   return false;
     305                 :            : }
     306                 :            : 
     307                 :            : /* Second pass of EH node decomposition.  Actually transform the GIMPLE_TRY
     308                 :            :    nodes into a set of gotos, magic labels, and eh regions.
     309                 :            :    The eh region creation is straight-forward, but frobbing all the gotos
     310                 :            :    and such into shape isn't.  */
     311                 :            : 
     312                 :            : /* The sequence into which we record all EH stuff.  This will be
     313                 :            :    placed at the end of the function when we're all done.  */
     314                 :            : static gimple_seq eh_seq;
     315                 :            : 
     316                 :            : /* Record whether an EH region contains something that can throw,
     317                 :            :    indexed by EH region number.  */
     318                 :            : static bitmap eh_region_may_contain_throw_map;
     319                 :            : 
     320                 :            : /* The GOTO_QUEUE is an array of GIMPLE_GOTO and GIMPLE_RETURN
     321                 :            :    statements that are seen to escape this GIMPLE_TRY_FINALLY node.
     322                 :            :    The idea is to record a gimple statement for everything except for
     323                 :            :    the conditionals, which get their labels recorded. Since labels are
     324                 :            :    of type 'tree', we need this node to store both gimple and tree
     325                 :            :    objects.  REPL_STMT is the sequence used to replace the goto/return
     326                 :            :    statement.  CONT_STMT is used to store the statement that allows
     327                 :            :    the return/goto to jump to the original destination. */
     328                 :            : 
     329                 :            : struct goto_queue_node
     330                 :            : {
     331                 :            :   treemple stmt;
     332                 :            :   location_t location;
     333                 :            :   gimple_seq repl_stmt;
     334                 :            :   gimple *cont_stmt;
     335                 :            :   int index;
     336                 :            :   /* This is used when index >= 0 to indicate that stmt is a label (as
     337                 :            :      opposed to a goto stmt).  */
     338                 :            :   int is_label;
     339                 :            : };
     340                 :            : 
     341                 :            : /* State of the world while lowering.  */
     342                 :            : 
     343                 :            : struct leh_state
     344                 :            : {
     345                 :            :   /* What's "current" while constructing the eh region tree.  These
     346                 :            :      correspond to variables of the same name in cfun->eh, which we
     347                 :            :      don't have easy access to.  */
     348                 :            :   eh_region cur_region;
     349                 :            : 
     350                 :            :   /* What's "current" for the purposes of __builtin_eh_pointer.  For
     351                 :            :      a CATCH, this is the associated TRY.  For an EH_FILTER, this is
     352                 :            :      the associated ALLOWED_EXCEPTIONS, etc.  */
     353                 :            :   eh_region ehp_region;
     354                 :            : 
     355                 :            :   /* Processing of TRY_FINALLY requires a bit more state.  This is
     356                 :            :      split out into a separate structure so that we don't have to
     357                 :            :      copy so much when processing other nodes.  */
     358                 :            :   struct leh_tf_state *tf;
     359                 :            : 
     360                 :            :   /* Outer non-clean up region.  */
     361                 :            :   eh_region outer_non_cleanup;
     362                 :            : };
     363                 :            : 
     364                 :            : struct leh_tf_state
     365                 :            : {
     366                 :            :   /* Pointer to the GIMPLE_TRY_FINALLY node under discussion.  The
     367                 :            :      try_finally_expr is the original GIMPLE_TRY_FINALLY.  We need to retain
     368                 :            :      this so that outside_finally_tree can reliably reference the tree used
     369                 :            :      in the collect_finally_tree data structures.  */
     370                 :            :   gtry *try_finally_expr;
     371                 :            :   gtry *top_p;
     372                 :            : 
     373                 :            :   /* While lowering a top_p usually it is expanded into multiple statements,
     374                 :            :      thus we need the following field to store them. */
     375                 :            :   gimple_seq top_p_seq;
     376                 :            : 
     377                 :            :   /* The state outside this try_finally node.  */
     378                 :            :   struct leh_state *outer;
     379                 :            : 
     380                 :            :   /* The exception region created for it.  */
     381                 :            :   eh_region region;
     382                 :            : 
     383                 :            :   /* The goto queue.  */
     384                 :            :   struct goto_queue_node *goto_queue;
     385                 :            :   size_t goto_queue_size;
     386                 :            :   size_t goto_queue_active;
     387                 :            : 
     388                 :            :   /* Pointer map to help in searching goto_queue when it is large.  */
     389                 :            :   hash_map<gimple *, goto_queue_node *> *goto_queue_map;
     390                 :            : 
     391                 :            :   /* The set of unique labels seen as entries in the goto queue.  */
     392                 :            :   vec<tree> dest_array;
     393                 :            : 
     394                 :            :   /* A label to be added at the end of the completed transformed
     395                 :            :      sequence.  It will be set if may_fallthru was true *at one time*,
     396                 :            :      though subsequent transformations may have cleared that flag.  */
     397                 :            :   tree fallthru_label;
     398                 :            : 
     399                 :            :   /* True if it is possible to fall out the bottom of the try block.
     400                 :            :      Cleared if the fallthru is converted to a goto.  */
     401                 :            :   bool may_fallthru;
     402                 :            : 
     403                 :            :   /* True if any entry in goto_queue is a GIMPLE_RETURN.  */
     404                 :            :   bool may_return;
     405                 :            : 
     406                 :            :   /* True if the finally block can receive an exception edge.
     407                 :            :      Cleared if the exception case is handled by code duplication.  */
     408                 :            :   bool may_throw;
     409                 :            : };
     410                 :            : 
     411                 :            : static gimple_seq lower_eh_must_not_throw (struct leh_state *, gtry *);
     412                 :            : 
     413                 :            : /* Search for STMT in the goto queue.  Return the replacement,
     414                 :            :    or null if the statement isn't in the queue.  */
     415                 :            : 
     416                 :            : #define LARGE_GOTO_QUEUE 20
     417                 :            : 
     418                 :            : static void lower_eh_constructs_1 (struct leh_state *state, gimple_seq *seq);
     419                 :            : 
     420                 :            : static gimple_seq
     421                 :    4746450 : find_goto_replacement (struct leh_tf_state *tf, treemple stmt)
     422                 :            : {
     423                 :    4746450 :   unsigned int i;
     424                 :            : 
     425                 :    4746450 :   if (tf->goto_queue_active < LARGE_GOTO_QUEUE)
     426                 :            :     {
     427                 :   15216800 :       for (i = 0; i < tf->goto_queue_active; i++)
     428                 :   10958400 :         if ( tf->goto_queue[i].stmt.g == stmt.g)
     429                 :     426603 :           return tf->goto_queue[i].repl_stmt;
     430                 :            :       return NULL;
     431                 :            :     }
     432                 :            : 
     433                 :            :   /* If we have a large number of entries in the goto_queue, create a
     434                 :            :      pointer map and use that for searching.  */
     435                 :            : 
     436                 :      61522 :   if (!tf->goto_queue_map)
     437                 :            :     {
     438                 :        235 :       tf->goto_queue_map = new hash_map<gimple *, goto_queue_node *>;
     439                 :       6337 :       for (i = 0; i < tf->goto_queue_active; i++)
     440                 :            :         {
     441                 :      12204 :           bool existed = tf->goto_queue_map->put (tf->goto_queue[i].stmt.g,
     442                 :       6102 :                                                   &tf->goto_queue[i]);
     443                 :       6102 :           gcc_assert (!existed);
     444                 :            :         }
     445                 :            :     }
     446                 :            : 
     447                 :      61522 :   goto_queue_node **slot = tf->goto_queue_map->get (stmt.g);
     448                 :       6102 :   if (slot != NULL)
     449                 :       6102 :     return ((*slot)->repl_stmt);
     450                 :            : 
     451                 :            :   return NULL;
     452                 :            : }
     453                 :            : 
     454                 :            : /* A subroutine of replace_goto_queue_1.  Handles the sub-clauses of a
     455                 :            :    lowered GIMPLE_COND.  If, by chance, the replacement is a simple goto,
     456                 :            :    then we can just splat it in, otherwise we add the new stmts immediately
     457                 :            :    after the GIMPLE_COND and redirect.  */
     458                 :            : 
     459                 :            : static void
     460                 :    3091330 : replace_goto_queue_cond_clause (tree *tp, struct leh_tf_state *tf,
     461                 :            :                                 gimple_stmt_iterator *gsi)
     462                 :            : {
     463                 :    3091330 :   tree label;
     464                 :    3091330 :   gimple_seq new_seq;
     465                 :    3091330 :   treemple temp;
     466                 :    3091330 :   location_t loc = gimple_location (gsi_stmt (*gsi));
     467                 :            : 
     468                 :    3091330 :   temp.tp = tp;
     469                 :    3091330 :   new_seq = find_goto_replacement (tf, temp);
     470                 :    3091330 :   if (!new_seq)
     471                 :    3091320 :     return;
     472                 :            : 
     473                 :       1140 :   if (gimple_seq_singleton_p (new_seq)
     474                 :       1128 :       && gimple_code (gimple_seq_first_stmt (new_seq)) == GIMPLE_GOTO)
     475                 :            :     {
     476                 :       1128 :       *tp = gimple_goto_dest (gimple_seq_first_stmt (new_seq));
     477                 :       1128 :       return;
     478                 :            :     }
     479                 :            : 
     480                 :         12 :   label = create_artificial_label (loc);
     481                 :            :   /* Set the new label for the GIMPLE_COND */
     482                 :         12 :   *tp = label;
     483                 :            : 
     484                 :         12 :   gsi_insert_after (gsi, gimple_build_label (label), GSI_CONTINUE_LINKING);
     485                 :         12 :   gsi_insert_seq_after (gsi, gimple_seq_copy (new_seq), GSI_CONTINUE_LINKING);
     486                 :            : }
     487                 :            : 
     488                 :            : /* The real work of replace_goto_queue.  Returns with TSI updated to
     489                 :            :    point to the next statement.  */
     490                 :            : 
     491                 :            : static void replace_goto_queue_stmt_list (gimple_seq *, struct leh_tf_state *);
     492                 :            : 
     493                 :            : static void
     494                 :   23697100 : replace_goto_queue_1 (gimple *stmt, struct leh_tf_state *tf,
     495                 :            :                       gimple_stmt_iterator *gsi)
     496                 :            : {
     497                 :   23697100 :   gimple_seq seq;
     498                 :   23697100 :   treemple temp;
     499                 :   23697100 :   temp.g = NULL;
     500                 :            : 
     501                 :   23697100 :   switch (gimple_code (stmt))
     502                 :            :     {
     503                 :    1655120 :     case GIMPLE_GOTO:
     504                 :    1655120 :     case GIMPLE_RETURN:
     505                 :    1655120 :       temp.g = stmt;
     506                 :    1655120 :       seq = find_goto_replacement (tf, temp);
     507                 :    1655120 :       if (seq)
     508                 :            :         {
     509                 :     431565 :           gimple_stmt_iterator i;
     510                 :     431565 :           seq = gimple_seq_copy (seq);
     511                 :     863651 :           for (i = gsi_start (seq); !gsi_end_p (i); gsi_next (&i))
     512                 :     432086 :             gimple_set_location (gsi_stmt (i), gimple_location (stmt));
     513                 :     431565 :           gsi_insert_seq_before (gsi, seq, GSI_SAME_STMT);
     514                 :     431565 :           gsi_remove (gsi, false);
     515                 :     431565 :           return;
     516                 :            :         }
     517                 :            :       break;
     518                 :            : 
     519                 :    1545670 :     case GIMPLE_COND:
     520                 :    1545670 :       replace_goto_queue_cond_clause (gimple_op_ptr (stmt, 2), tf, gsi);
     521                 :    1545670 :       replace_goto_queue_cond_clause (gimple_op_ptr (stmt, 3), tf, gsi);
     522                 :    1545670 :       break;
     523                 :            : 
     524                 :          0 :     case GIMPLE_TRY:
     525                 :          0 :       replace_goto_queue_stmt_list (gimple_try_eval_ptr (stmt), tf);
     526                 :          0 :       replace_goto_queue_stmt_list (gimple_try_cleanup_ptr (stmt), tf);
     527                 :          0 :       break;
     528                 :          0 :     case GIMPLE_CATCH:
     529                 :          0 :       replace_goto_queue_stmt_list (gimple_catch_handler_ptr (
     530                 :            :                                       as_a <gcatch *> (stmt)),
     531                 :            :                                     tf);
     532                 :          0 :       break;
     533                 :          0 :     case GIMPLE_EH_FILTER:
     534                 :          0 :       replace_goto_queue_stmt_list (gimple_eh_filter_failure_ptr (stmt), tf);
     535                 :          0 :       break;
     536                 :          0 :     case GIMPLE_EH_ELSE:
     537                 :          0 :       {
     538                 :          0 :         geh_else *eh_else_stmt = as_a <geh_else *> (stmt);
     539                 :          0 :         replace_goto_queue_stmt_list (gimple_eh_else_n_body_ptr (eh_else_stmt),
     540                 :            :                                       tf);
     541                 :          0 :         replace_goto_queue_stmt_list (gimple_eh_else_e_body_ptr (eh_else_stmt),
     542                 :            :                                       tf);
     543                 :            :       }
     544                 :          0 :       break;
     545                 :            : 
     546                 :            :     default:
     547                 :            :       /* These won't have gotos in them.  */
     548                 :            :       break;
     549                 :            :     }
     550                 :            : 
     551                 :   23265500 :   gsi_next (gsi);
     552                 :            : }
     553                 :            : 
     554                 :            : /* A subroutine of replace_goto_queue.  Handles GIMPLE_SEQ.  */
     555                 :            : 
     556                 :            : static void
     557                 :     621366 : replace_goto_queue_stmt_list (gimple_seq *seq, struct leh_tf_state *tf)
     558                 :            : {
     559                 :     621366 :   gimple_stmt_iterator gsi = gsi_start (*seq);
     560                 :            : 
     561                 :   24318500 :   while (!gsi_end_p (gsi))
     562                 :   23697100 :     replace_goto_queue_1 (gsi_stmt (gsi), tf, &gsi);
     563                 :     621366 : }
     564                 :            : 
     565                 :            : /* Replace all goto queue members.  */
     566                 :            : 
     567                 :            : static void
     568                 :     310690 : replace_goto_queue (struct leh_tf_state *tf)
     569                 :            : {
     570                 :     310690 :   if (tf->goto_queue_active == 0)
     571                 :            :     return;
     572                 :     310683 :   replace_goto_queue_stmt_list (&tf->top_p_seq, tf);
     573                 :     310683 :   replace_goto_queue_stmt_list (&eh_seq, tf);
     574                 :            : }
     575                 :            : 
     576                 :            : /* Add a new record to the goto queue contained in TF. NEW_STMT is the
     577                 :            :    data to be added, IS_LABEL indicates whether NEW_STMT is a label or
     578                 :            :    a gimple return. */
     579                 :            : 
     580                 :            : static void
     581                 :     432705 : record_in_goto_queue (struct leh_tf_state *tf,
     582                 :            :                       treemple new_stmt,
     583                 :            :                       int index,
     584                 :            :                       bool is_label,
     585                 :            :                       location_t location)
     586                 :            : {
     587                 :     432705 :   size_t active, size;
     588                 :     432705 :   struct goto_queue_node *q;
     589                 :            : 
     590                 :     432705 :   gcc_assert (!tf->goto_queue_map);
     591                 :            : 
     592                 :     432705 :   active = tf->goto_queue_active;
     593                 :     432705 :   size = tf->goto_queue_size;
     594                 :     432705 :   if (active >= size)
     595                 :            :     {
     596                 :     310700 :       size = (size ? size * 2 : 32);
     597                 :     310700 :       tf->goto_queue_size = size;
     598                 :     310700 :       tf->goto_queue
     599                 :     310700 :          = XRESIZEVEC (struct goto_queue_node, tf->goto_queue, size);
     600                 :            :     }
     601                 :            : 
     602                 :     432705 :   q = &tf->goto_queue[active];
     603                 :     432705 :   tf->goto_queue_active = active + 1;
     604                 :            : 
     605                 :     432705 :   memset (q, 0, sizeof (*q));
     606                 :     432705 :   q->stmt = new_stmt;
     607                 :     432705 :   q->index = index;
     608                 :     432705 :   q->location = location;
     609                 :     432705 :   q->is_label = is_label;
     610                 :     432705 : }
     611                 :            : 
     612                 :            : /* Record the LABEL label in the goto queue contained in TF.
     613                 :            :    TF is not null.  */
     614                 :            : 
     615                 :            : static void
     616                 :    5569920 : record_in_goto_queue_label (struct leh_tf_state *tf, treemple stmt, tree label,
     617                 :            :                             location_t location)
     618                 :            : {
     619                 :    5569920 :   int index;
     620                 :    5569920 :   treemple temp, new_stmt;
     621                 :            : 
     622                 :    5569920 :   if (!label)
     623                 :    5137210 :     return;
     624                 :            : 
     625                 :            :   /* Computed and non-local gotos do not get processed.  Given
     626                 :            :      their nature we can neither tell whether we've escaped the
     627                 :            :      finally block nor redirect them if we knew.  */
     628                 :    5569920 :   if (TREE_CODE (label) != LABEL_DECL)
     629                 :            :     return;
     630                 :            : 
     631                 :            :   /* No need to record gotos that don't leave the try block.  */
     632                 :    5569750 :   temp.t = label;
     633                 :    5569750 :   if (!outside_finally_tree (temp, tf->try_finally_expr))
     634                 :            :     return;
     635                 :            : 
     636                 :     432705 :   if (! tf->dest_array.exists ())
     637                 :            :     {
     638                 :     310683 :       tf->dest_array.create (10);
     639                 :     310683 :       tf->dest_array.quick_push (label);
     640                 :     310683 :       index = 0;
     641                 :            :     }
     642                 :            :   else
     643                 :            :     {
     644                 :     122022 :       int n = tf->dest_array.length ();
     645                 :     126757 :       for (index = 0; index < n; ++index)
     646                 :     124343 :         if (tf->dest_array[index] == label)
     647                 :            :           break;
     648                 :     122022 :       if (index == n)
     649                 :       2414 :         tf->dest_array.safe_push (label);
     650                 :            :     }
     651                 :            : 
     652                 :            :   /* In the case of a GOTO we want to record the destination label,
     653                 :            :      since with a GIMPLE_COND we have an easy access to the then/else
     654                 :            :      labels. */
     655                 :     432705 :   new_stmt = stmt;
     656                 :     432705 :   record_in_goto_queue (tf, new_stmt, index, true, location);
     657                 :            : }
     658                 :            : 
     659                 :            : /* For any GIMPLE_GOTO or GIMPLE_RETURN, decide whether it leaves a try_finally
     660                 :            :    node, and if so record that fact in the goto queue associated with that
     661                 :            :    try_finally node.  */
     662                 :            : 
     663                 :            : static void
     664                 :    9127270 : maybe_record_in_goto_queue (struct leh_state *state, gimple *stmt)
     665                 :            : {
     666                 :    9127270 :   struct leh_tf_state *tf = state->tf;
     667                 :    9127270 :   treemple new_stmt;
     668                 :            : 
     669                 :    9127270 :   if (!tf)
     670                 :    9127270 :     return;
     671                 :            : 
     672                 :    3590190 :   switch (gimple_code (stmt))
     673                 :            :     {
     674                 :    1979730 :     case GIMPLE_COND:
     675                 :    1979730 :       {
     676                 :    1979730 :         gcond *cond_stmt = as_a <gcond *> (stmt);
     677                 :    1979730 :         new_stmt.tp = gimple_op_ptr (cond_stmt, 2);
     678                 :    1979730 :         record_in_goto_queue_label (tf, new_stmt,
     679                 :            :                                     gimple_cond_true_label (cond_stmt),
     680                 :    1979730 :                                     EXPR_LOCATION (*new_stmt.tp));
     681                 :    1979730 :         new_stmt.tp = gimple_op_ptr (cond_stmt, 3);
     682                 :    1979730 :         record_in_goto_queue_label (tf, new_stmt,
     683                 :            :                                     gimple_cond_false_label (cond_stmt),
     684                 :    1979730 :                                     EXPR_LOCATION (*new_stmt.tp));
     685                 :            :       }
     686                 :    1979730 :       break;
     687                 :    1610460 :     case GIMPLE_GOTO:
     688                 :    1610460 :       new_stmt.g = stmt;
     689                 :    1610460 :       record_in_goto_queue_label (tf, new_stmt, gimple_goto_dest (stmt),
     690                 :            :                                   gimple_location (stmt));
     691                 :    1610460 :       break;
     692                 :            : 
     693                 :          0 :     case GIMPLE_RETURN:
     694                 :          0 :       tf->may_return = true;
     695                 :          0 :       new_stmt.g = stmt;
     696                 :          0 :       record_in_goto_queue (tf, new_stmt, -1, false, gimple_location (stmt));
     697                 :          0 :       break;
     698                 :            : 
     699                 :          0 :     default:
     700                 :          0 :       gcc_unreachable ();
     701                 :            :     }
     702                 :            : }
     703                 :            : 
     704                 :            : 
     705                 :            : #if CHECKING_P
     706                 :            : /* We do not process GIMPLE_SWITCHes for now.  As long as the original source
     707                 :            :    was in fact structured, and we've not yet done jump threading, then none
     708                 :            :    of the labels will leave outer GIMPLE_TRY_FINALLY nodes. Verify this.  */
     709                 :            : 
     710                 :            : static void
     711                 :      33069 : verify_norecord_switch_expr (struct leh_state *state,
     712                 :            :                              gswitch *switch_expr)
     713                 :            : {
     714                 :      33069 :   struct leh_tf_state *tf = state->tf;
     715                 :      33069 :   size_t i, n;
     716                 :            : 
     717                 :      33069 :   if (!tf)
     718                 :            :     return;
     719                 :            : 
     720                 :      17906 :   n = gimple_switch_num_labels (switch_expr);
     721                 :            : 
     722                 :     140706 :   for (i = 0; i < n; ++i)
     723                 :            :     {
     724                 :     122800 :       treemple temp;
     725                 :     122800 :       tree lab = CASE_LABEL (gimple_switch_label (switch_expr, i));
     726                 :     122800 :       temp.t = lab;
     727                 :     122800 :       gcc_assert (!outside_finally_tree (temp, tf->try_finally_expr));
     728                 :            :     }
     729                 :            : }
     730                 :            : #else
     731                 :            : #define verify_norecord_switch_expr(state, switch_expr)
     732                 :            : #endif
     733                 :            : 
     734                 :            : /* Redirect a RETURN_EXPR pointed to by Q to FINLAB.  If MOD is
     735                 :            :    non-null, insert it before the new branch.  */
     736                 :            : 
     737                 :            : static void
     738                 :          0 : do_return_redirection (struct goto_queue_node *q, tree finlab, gimple_seq mod)
     739                 :            : {
     740                 :          0 :   gimple *x;
     741                 :            : 
     742                 :            :   /* In the case of a return, the queue node must be a gimple statement.  */
     743                 :          0 :   gcc_assert (!q->is_label);
     744                 :            : 
     745                 :            :   /* Note that the return value may have already been computed, e.g.,
     746                 :            : 
     747                 :            :         int x;
     748                 :            :         int foo (void)
     749                 :            :         {
     750                 :            :           x = 0;
     751                 :            :           try {
     752                 :            :             return x;
     753                 :            :           } finally {
     754                 :            :             x++;
     755                 :            :           }
     756                 :            :         }
     757                 :            : 
     758                 :            :      should return 0, not 1.  We don't have to do anything to make
     759                 :            :      this happens because the return value has been placed in the
     760                 :            :      RESULT_DECL already.  */
     761                 :            : 
     762                 :          0 :   q->cont_stmt = q->stmt.g;
     763                 :            : 
     764                 :          0 :   if (mod)
     765                 :          0 :     gimple_seq_add_seq (&q->repl_stmt, mod);
     766                 :            : 
     767                 :          0 :   x = gimple_build_goto (finlab);
     768                 :          0 :   gimple_set_location (x, q->location);
     769                 :          0 :   gimple_seq_add_stmt (&q->repl_stmt, x);
     770                 :          0 : }
     771                 :            : 
     772                 :            : /* Similar, but easier, for GIMPLE_GOTO.  */
     773                 :            : 
     774                 :            : static void
     775                 :     432705 : do_goto_redirection (struct goto_queue_node *q, tree finlab, gimple_seq mod,
     776                 :            :                      struct leh_tf_state *tf)
     777                 :            : {
     778                 :     432705 :   ggoto *x;
     779                 :            : 
     780                 :     432705 :   gcc_assert (q->is_label);
     781                 :            : 
     782                 :     432705 :   q->cont_stmt = gimple_build_goto (tf->dest_array[q->index]);
     783                 :            : 
     784                 :     432705 :   if (mod)
     785                 :        533 :     gimple_seq_add_seq (&q->repl_stmt, mod);
     786                 :            : 
     787                 :     432705 :   x = gimple_build_goto (finlab);
     788                 :     432705 :   gimple_set_location (x, q->location);
     789                 :     432705 :   gimple_seq_add_stmt (&q->repl_stmt, x);
     790                 :     432705 : }
     791                 :            : 
     792                 :            : /* Emit a standard landing pad sequence into SEQ for REGION.  */
     793                 :            : 
     794                 :            : static void
     795                 :     527960 : emit_post_landing_pad (gimple_seq *seq, eh_region region)
     796                 :            : {
     797                 :     527960 :   eh_landing_pad lp = region->landing_pads;
     798                 :     527960 :   glabel *x;
     799                 :            : 
     800                 :     527960 :   if (lp == NULL)
     801                 :          0 :     lp = gen_eh_landing_pad (region);
     802                 :            : 
     803                 :     527960 :   lp->post_landing_pad = create_artificial_label (UNKNOWN_LOCATION);
     804                 :     527960 :   EH_LANDING_PAD_NR (lp->post_landing_pad) = lp->index;
     805                 :            : 
     806                 :     527960 :   x = gimple_build_label (lp->post_landing_pad);
     807                 :     527960 :   gimple_seq_add_stmt (seq, x);
     808                 :     527960 : }
     809                 :            : 
     810                 :            : /* Emit a RESX statement into SEQ for REGION.  */
     811                 :            : 
     812                 :            : static void
     813                 :     527960 : emit_resx (gimple_seq *seq, eh_region region)
     814                 :            : {
     815                 :     527960 :   gresx *x = gimple_build_resx (region->index);
     816                 :     527960 :   gimple_seq_add_stmt (seq, x);
     817                 :     527960 :   if (region->outer)
     818                 :     289000 :     record_stmt_eh_region (region->outer, x);
     819                 :     527960 : }
     820                 :            : 
     821                 :            : /* Note that the current EH region may contain a throw, or a
     822                 :            :    call to a function which itself may contain a throw.  */
     823                 :            : 
     824                 :            : static void
     825                 :    1992890 : note_eh_region_may_contain_throw (eh_region region)
     826                 :            : {
     827                 :    2281890 :   while (bitmap_set_bit (eh_region_may_contain_throw_map, region->index))
     828                 :            :     {
     829                 :     584297 :       if (region->type == ERT_MUST_NOT_THROW)
     830                 :            :         break;
     831                 :     527960 :       region = region->outer;
     832                 :     527960 :       if (region == NULL)
     833                 :            :         break;
     834                 :            :     }
     835                 :    1992890 : }
     836                 :            : 
     837                 :            : /* Check if REGION has been marked as containing a throw.  If REGION is
     838                 :            :    NULL, this predicate is false.  */
     839                 :            : 
     840                 :            : static inline bool
     841                 :     805872 : eh_region_may_contain_throw (eh_region r)
     842                 :            : {
     843                 :     805868 :   return r && bitmap_bit_p (eh_region_may_contain_throw_map, r->index);
     844                 :            : }
     845                 :            : 
     846                 :            : /* We want to transform
     847                 :            :         try { body; } catch { stuff; }
     848                 :            :    to
     849                 :            :         normal_sequence:
     850                 :            :           body;
     851                 :            :           over:
     852                 :            :         eh_sequence:
     853                 :            :           landing_pad:
     854                 :            :           stuff;
     855                 :            :           goto over;
     856                 :            : 
     857                 :            :    TP is a GIMPLE_TRY node.  REGION is the region whose post_landing_pad
     858                 :            :    should be placed before the second operand, or NULL.  OVER is
     859                 :            :    an existing label that should be put at the exit, or NULL.  */
     860                 :            : 
     861                 :            : static gimple_seq
     862                 :      41426 : frob_into_branch_around (gtry *tp, eh_region region, tree over)
     863                 :            : {
     864                 :      41426 :   gimple *x;
     865                 :      41426 :   gimple_seq cleanup, result;
     866                 :      41426 :   location_t loc = gimple_location (tp);
     867                 :            : 
     868                 :      41426 :   cleanup = gimple_try_cleanup (tp);
     869                 :      41426 :   result = gimple_try_eval (tp);
     870                 :            : 
     871                 :      41426 :   if (region)
     872                 :      41426 :     emit_post_landing_pad (&eh_seq, region);
     873                 :            : 
     874                 :      41426 :   if (gimple_seq_may_fallthru (cleanup))
     875                 :            :     {
     876                 :          0 :       if (!over)
     877                 :          0 :         over = create_artificial_label (loc);
     878                 :          0 :       x = gimple_build_goto (over);
     879                 :          0 :       gimple_set_location (x, loc);
     880                 :          0 :       gimple_seq_add_stmt (&cleanup, x);
     881                 :            :     }
     882                 :      41426 :   gimple_seq_add_seq (&eh_seq, cleanup);
     883                 :            : 
     884                 :      41426 :   if (over)
     885                 :            :     {
     886                 :       8838 :       x = gimple_build_label (over);
     887                 :       8838 :       gimple_seq_add_stmt (&result, x);
     888                 :            :     }
     889                 :      41426 :   return result;
     890                 :            : }
     891                 :            : 
     892                 :            : /* A subroutine of lower_try_finally.  Duplicate the tree rooted at T.
     893                 :            :    Make sure to record all new labels found.  */
     894                 :            : 
     895                 :            : static gimple_seq
     896                 :     626350 : lower_try_finally_dup_block (gimple_seq seq, struct leh_state *outer_state,
     897                 :            :                              location_t loc)
     898                 :            : {
     899                 :     626350 :   gtry *region = NULL;
     900                 :     626350 :   gimple_seq new_seq;
     901                 :     626350 :   gimple_stmt_iterator gsi;
     902                 :            : 
     903                 :     626350 :   new_seq = copy_gimple_seq_and_replace_locals (seq);
     904                 :            : 
     905                 :    1465510 :   for (gsi = gsi_start (new_seq); !gsi_end_p (gsi); gsi_next (&gsi))
     906                 :            :     {
     907                 :     839158 :       gimple *stmt = gsi_stmt (gsi);
     908                 :            :       /* We duplicate __builtin_stack_restore at -O0 in the hope of eliminating
     909                 :            :          it on the EH paths.  When it is not eliminated, make it transparent in
     910                 :            :          the debug info.  */
     911                 :     839158 :       if (gimple_call_builtin_p (stmt, BUILT_IN_STACK_RESTORE))
     912                 :        533 :         gimple_set_location (stmt, UNKNOWN_LOCATION);
     913                 :     838625 :       else if (LOCATION_LOCUS (gimple_location (stmt)) == UNKNOWN_LOCATION)
     914                 :            :         {
     915                 :     626600 :           tree block = gimple_block (stmt);
     916                 :     626600 :           gimple_set_location (stmt, loc);
     917                 :    1465760 :           gimple_set_block (stmt, block);
     918                 :            :         }
     919                 :            :     }
     920                 :            : 
     921                 :     626350 :   if (outer_state->tf)
     922                 :     314104 :     region = outer_state->tf->try_finally_expr;
     923                 :     626350 :   collect_finally_tree_1 (new_seq, region);
     924                 :            : 
     925                 :     626350 :   return new_seq;
     926                 :            : }
     927                 :            : 
     928                 :            : /* A subroutine of lower_try_finally.  Create a fallthru label for
     929                 :            :    the given try_finally state.  The only tricky bit here is that
     930                 :            :    we have to make sure to record the label in our outer context.  */
     931                 :            : 
     932                 :            : static tree
     933                 :      79342 : lower_try_finally_fallthru_label (struct leh_tf_state *tf)
     934                 :            : {
     935                 :      79342 :   tree label = tf->fallthru_label;
     936                 :      79342 :   treemple temp;
     937                 :            : 
     938                 :      79342 :   if (!label)
     939                 :            :     {
     940                 :      79342 :       label = create_artificial_label (gimple_location (tf->try_finally_expr));
     941                 :      79342 :       tf->fallthru_label = label;
     942                 :      79342 :       if (tf->outer->tf)
     943                 :            :         {
     944                 :      40994 :           temp.t = label;
     945                 :      40994 :           record_in_finally_tree (temp, tf->outer->tf->try_finally_expr);
     946                 :            :         }
     947                 :            :     }
     948                 :      79342 :   return label;
     949                 :            : }
     950                 :            : 
     951                 :            : /* A subroutine of lower_try_finally.  If FINALLY consits of a
     952                 :            :    GIMPLE_EH_ELSE node, return it.  */
     953                 :            : 
     954                 :            : static inline geh_else *
     955                 :    1601890 : get_eh_else (gimple_seq finally)
     956                 :            : {
     957                 :    1601890 :   gimple *x = gimple_seq_first_stmt (finally);
     958                 :    1601890 :   if (gimple_code (x) == GIMPLE_EH_ELSE)
     959                 :            :     {
     960                 :    1602230 :       gcc_assert (gimple_seq_singleton_p (finally));
     961                 :    1602260 :       return as_a <geh_else *> (x);
     962                 :            :     }
     963                 :            :   return NULL;
     964                 :            : }
     965                 :            : 
     966                 :            : /* A subroutine of lower_try_finally.  If the eh_protect_cleanup_actions
     967                 :            :    langhook returns non-null, then the language requires that the exception
     968                 :            :    path out of a try_finally be treated specially.  To wit: the code within
     969                 :            :    the finally block may not itself throw an exception.  We have two choices
     970                 :            :    here. First we can duplicate the finally block and wrap it in a
     971                 :            :    must_not_throw region.  Second, we can generate code like
     972                 :            : 
     973                 :            :         try {
     974                 :            :           finally_block;
     975                 :            :         } catch {
     976                 :            :           if (fintmp == eh_edge)
     977                 :            :             protect_cleanup_actions;
     978                 :            :         }
     979                 :            : 
     980                 :            :    where "fintmp" is the temporary used in the switch statement generation
     981                 :            :    alternative considered below.  For the nonce, we always choose the first
     982                 :            :    option.
     983                 :            : 
     984                 :            :    THIS_STATE may be null if this is a try-cleanup, not a try-finally.  */
     985                 :            : 
     986                 :            : static void
     987                 :     486534 : honor_protect_cleanup_actions (struct leh_state *outer_state,
     988                 :            :                                struct leh_state *this_state,
     989                 :            :                                struct leh_tf_state *tf)
     990                 :            : {
     991                 :     486534 :   gimple_seq finally = gimple_try_cleanup (tf->top_p);
     992                 :            : 
     993                 :            :   /* EH_ELSE doesn't come from user code; only compiler generated stuff.
     994                 :            :      It does need to be handled here, so as to separate the (different)
     995                 :            :      EH path from the normal path.  But we should not attempt to wrap
     996                 :            :      it with a must-not-throw node (which indeed gets in the way).  */
     997                 :     486534 :   if (geh_else *eh_else = get_eh_else (finally))
     998                 :            :     {
     999                 :        301 :       gimple_try_set_cleanup (tf->top_p, gimple_eh_else_n_body (eh_else));
    1000                 :        301 :       finally = gimple_eh_else_e_body (eh_else);
    1001                 :            : 
    1002                 :            :       /* Let the ELSE see the exception that's being processed, but
    1003                 :            :          since the cleanup is outside the try block, process it with
    1004                 :            :          outer_state, otherwise it may be used as a cleanup for
    1005                 :            :          itself, and Bad Things (TM) ensue.  */
    1006                 :        301 :       eh_region save_ehp = outer_state->ehp_region;
    1007                 :        301 :       outer_state->ehp_region = this_state->cur_region;
    1008                 :        301 :       lower_eh_constructs_1 (outer_state, &finally);
    1009                 :        301 :       outer_state->ehp_region = save_ehp;
    1010                 :            :     }
    1011                 :            :   else
    1012                 :            :     {
    1013                 :            :       /* First check for nothing to do.  */
    1014                 :     486233 :       if (lang_hooks.eh_protect_cleanup_actions == NULL)
    1015                 :     142725 :         return;
    1016                 :     343508 :       tree actions = lang_hooks.eh_protect_cleanup_actions ();
    1017                 :     343508 :       if (actions == NULL)
    1018                 :            :         return;
    1019                 :            : 
    1020                 :     343508 :       if (this_state)
    1021                 :     285209 :         finally = lower_try_finally_dup_block (finally, outer_state,
    1022                 :     285209 :           gimple_location (tf->try_finally_expr));
    1023                 :            : 
    1024                 :            :       /* If this cleanup consists of a TRY_CATCH_EXPR with TRY_CATCH_IS_CLEANUP
    1025                 :            :          set, the handler of the TRY_CATCH_EXPR is another cleanup which ought
    1026                 :            :          to be in an enclosing scope, but needs to be implemented at this level
    1027                 :            :          to avoid a nesting violation (see wrap_temporary_cleanups in
    1028                 :            :          cp/decl.c).  Since it's logically at an outer level, we should call
    1029                 :            :          terminate before we get to it, so strip it away before adding the
    1030                 :            :          MUST_NOT_THROW filter.  */
    1031                 :     343508 :       gimple_stmt_iterator gsi = gsi_start (finally);
    1032                 :     343508 :       gimple *x = gsi_stmt (gsi);
    1033                 :     343508 :       if (gimple_code (x) == GIMPLE_TRY
    1034                 :      14986 :           && gimple_try_kind (x) == GIMPLE_TRY_CATCH
    1035                 :     358494 :           && gimple_try_catch_is_cleanup (x))
    1036                 :            :         {
    1037                 :       9670 :           gsi_insert_seq_before (&gsi, gimple_try_eval (x), GSI_SAME_STMT);
    1038                 :       9670 :           gsi_remove (&gsi, false);
    1039                 :            :         }
    1040                 :            : 
    1041                 :            :       /* Wrap the block with protect_cleanup_actions as the action.  */
    1042                 :     343508 :       geh_mnt *eh_mnt = gimple_build_eh_must_not_throw (actions);
    1043                 :     343508 :       gtry *try_stmt = gimple_build_try (finally,
    1044                 :            :                                          gimple_seq_alloc_with_stmt (eh_mnt),
    1045                 :            :                                          GIMPLE_TRY_CATCH);
    1046                 :     343508 :       finally = lower_eh_must_not_throw (outer_state, try_stmt);
    1047                 :            :     }
    1048                 :            : 
    1049                 :            :   /* Drop all of this into the exception sequence.  */
    1050                 :     343809 :   emit_post_landing_pad (&eh_seq, tf->region);
    1051                 :     343809 :   gimple_seq_add_seq (&eh_seq, finally);
    1052                 :     343809 :   if (gimple_seq_may_fallthru (finally))
    1053                 :     343809 :     emit_resx (&eh_seq, tf->region);
    1054                 :            : 
    1055                 :            :   /* Having now been handled, EH isn't to be considered with
    1056                 :            :      the rest of the outgoing edges.  */
    1057                 :     343809 :   tf->may_throw = false;
    1058                 :            : }
    1059                 :            : 
    1060                 :            : /* A subroutine of lower_try_finally.  We have determined that there is
    1061                 :            :    no fallthru edge out of the finally block.  This means that there is
    1062                 :            :    no outgoing edge corresponding to any incoming edge.  Restructure the
    1063                 :            :    try_finally node for this special case.  */
    1064                 :            : 
    1065                 :            : static void
    1066                 :          0 : lower_try_finally_nofallthru (struct leh_state *state,
    1067                 :            :                               struct leh_tf_state *tf)
    1068                 :            : {
    1069                 :          0 :   tree lab;
    1070                 :          0 :   gimple *x;
    1071                 :          0 :   geh_else *eh_else;
    1072                 :          0 :   gimple_seq finally;
    1073                 :          0 :   struct goto_queue_node *q, *qe;
    1074                 :            : 
    1075                 :          0 :   lab = create_artificial_label (gimple_location (tf->try_finally_expr));
    1076                 :            : 
    1077                 :            :   /* We expect that tf->top_p is a GIMPLE_TRY. */
    1078                 :          0 :   finally = gimple_try_cleanup (tf->top_p);
    1079                 :          0 :   tf->top_p_seq = gimple_try_eval (tf->top_p);
    1080                 :            : 
    1081                 :          0 :   x = gimple_build_label (lab);
    1082                 :          0 :   gimple_seq_add_stmt (&tf->top_p_seq, x);
    1083                 :            : 
    1084                 :          0 :   q = tf->goto_queue;
    1085                 :          0 :   qe = q + tf->goto_queue_active;
    1086                 :          0 :   for (; q < qe; ++q)
    1087                 :          0 :     if (q->index < 0)
    1088                 :          0 :       do_return_redirection (q, lab, NULL);
    1089                 :            :     else
    1090                 :          0 :       do_goto_redirection (q, lab, NULL, tf);
    1091                 :            : 
    1092                 :          0 :   replace_goto_queue (tf);
    1093                 :            : 
    1094                 :            :   /* Emit the finally block into the stream.  Lower EH_ELSE at this time.  */
    1095                 :          0 :   eh_else = get_eh_else (finally);
    1096                 :          0 :   if (eh_else)
    1097                 :            :     {
    1098                 :          0 :       finally = gimple_eh_else_n_body (eh_else);
    1099                 :          0 :       lower_eh_constructs_1 (state, &finally);
    1100                 :          0 :       gimple_seq_add_seq (&tf->top_p_seq, finally);
    1101                 :            : 
    1102                 :          0 :       if (tf->may_throw)
    1103                 :            :         {
    1104                 :          0 :           finally = gimple_eh_else_e_body (eh_else);
    1105                 :          0 :           lower_eh_constructs_1 (state, &finally);
    1106                 :            : 
    1107                 :          0 :           emit_post_landing_pad (&eh_seq, tf->region);
    1108                 :          0 :           gimple_seq_add_seq (&eh_seq, finally);
    1109                 :            :         }
    1110                 :            :     }
    1111                 :            :   else
    1112                 :            :     {
    1113                 :          0 :       lower_eh_constructs_1 (state, &finally);
    1114                 :          0 :       gimple_seq_add_seq (&tf->top_p_seq, finally);
    1115                 :            : 
    1116                 :          0 :       if (tf->may_throw)
    1117                 :            :         {
    1118                 :          0 :           emit_post_landing_pad (&eh_seq, tf->region);
    1119                 :            : 
    1120                 :          0 :           x = gimple_build_goto (lab);
    1121                 :          0 :           gimple_set_location (x, gimple_location (tf->try_finally_expr));
    1122                 :          0 :           gimple_seq_add_stmt (&eh_seq, x);
    1123                 :            :         }
    1124                 :            :     }
    1125                 :          0 : }
    1126                 :            : 
    1127                 :            : /* A subroutine of lower_try_finally.  We have determined that there is
    1128                 :            :    exactly one destination of the finally block.  Restructure the
    1129                 :            :    try_finally node for this special case.  */
    1130                 :            : 
    1131                 :            : static void
    1132                 :     797243 : lower_try_finally_onedest (struct leh_state *state, struct leh_tf_state *tf)
    1133                 :            : {
    1134                 :     797243 :   struct goto_queue_node *q, *qe;
    1135                 :     797243 :   geh_else *eh_else;
    1136                 :     797243 :   glabel *label_stmt;
    1137                 :     797243 :   gimple *x;
    1138                 :     797243 :   gimple_seq finally;
    1139                 :     797243 :   gimple_stmt_iterator gsi;
    1140                 :     797243 :   tree finally_label;
    1141                 :     797243 :   location_t loc = gimple_location (tf->try_finally_expr);
    1142                 :            : 
    1143                 :     797243 :   finally = gimple_try_cleanup (tf->top_p);
    1144                 :     797243 :   tf->top_p_seq = gimple_try_eval (tf->top_p);
    1145                 :            : 
    1146                 :            :   /* Since there's only one destination, and the destination edge can only
    1147                 :            :      either be EH or non-EH, that implies that all of our incoming edges
    1148                 :            :      are of the same type.  Therefore we can lower EH_ELSE immediately.  */
    1149                 :     797243 :   eh_else = get_eh_else (finally);
    1150                 :        345 :   if (eh_else)
    1151                 :            :     {
    1152                 :        345 :       if (tf->may_throw)
    1153                 :          0 :         finally = gimple_eh_else_e_body (eh_else);
    1154                 :            :       else
    1155                 :        345 :         finally = gimple_eh_else_n_body (eh_else);
    1156                 :            :     }
    1157                 :            : 
    1158                 :     797243 :   lower_eh_constructs_1 (state, &finally);
    1159                 :            : 
    1160                 :    1922890 :   for (gsi = gsi_start (finally); !gsi_end_p (gsi); gsi_next (&gsi))
    1161                 :            :     {
    1162                 :    1125650 :       gimple *stmt = gsi_stmt (gsi);
    1163                 :    1125650 :       if (LOCATION_LOCUS (gimple_location (stmt)) == UNKNOWN_LOCATION)
    1164                 :            :         {
    1165                 :     697313 :           tree block = gimple_block (stmt);
    1166                 :     697313 :           gimple_set_location (stmt, gimple_location (tf->try_finally_expr));
    1167                 :    1822960 :           gimple_set_block (stmt, block);
    1168                 :            :         }
    1169                 :            :     }
    1170                 :            : 
    1171                 :     797243 :   if (tf->may_throw)
    1172                 :            :     {
    1173                 :            :       /* Only reachable via the exception edge.  Add the given label to
    1174                 :            :          the head of the FINALLY block.  Append a RESX at the end.  */
    1175                 :        462 :       emit_post_landing_pad (&eh_seq, tf->region);
    1176                 :        462 :       gimple_seq_add_seq (&eh_seq, finally);
    1177                 :        462 :       emit_resx (&eh_seq, tf->region);
    1178                 :     604729 :       return;
    1179                 :            :     }
    1180                 :            : 
    1181                 :     796781 :   if (tf->may_fallthru)
    1182                 :            :     {
    1183                 :            :       /* Only reachable via the fallthru edge.  Do nothing but let
    1184                 :            :          the two blocks run together; we'll fall out the bottom.  */
    1185                 :     603805 :       gimple_seq_add_seq (&tf->top_p_seq, finally);
    1186                 :     603805 :       return;
    1187                 :            :     }
    1188                 :            : 
    1189                 :     192976 :   finally_label = create_artificial_label (loc);
    1190                 :     192976 :   label_stmt = gimple_build_label (finally_label);
    1191                 :     192976 :   gimple_seq_add_stmt (&tf->top_p_seq, label_stmt);
    1192                 :            : 
    1193                 :     192976 :   gimple_seq_add_seq (&tf->top_p_seq, finally);
    1194                 :            : 
    1195                 :     192976 :   q = tf->goto_queue;
    1196                 :     192976 :   qe = q + tf->goto_queue_active;
    1197                 :            : 
    1198                 :     192976 :   if (tf->may_return)
    1199                 :            :     {
    1200                 :            :       /* Reachable by return expressions only.  Redirect them.  */
    1201                 :          0 :       for (; q < qe; ++q)
    1202                 :          0 :         do_return_redirection (q, finally_label, NULL);
    1203                 :          0 :       replace_goto_queue (tf);
    1204                 :            :     }
    1205                 :            :   else
    1206                 :            :     {
    1207                 :            :       /* Reachable by goto expressions only.  Redirect them.  */
    1208                 :     422636 :       for (; q < qe; ++q)
    1209                 :     229660 :         do_goto_redirection (q, finally_label, NULL, tf);
    1210                 :     192976 :       replace_goto_queue (tf);
    1211                 :            : 
    1212                 :     192976 :       if (tf->dest_array[0] == tf->fallthru_label)
    1213                 :            :         {
    1214                 :            :           /* Reachable by goto to fallthru label only.  Redirect it
    1215                 :            :              to the new label (already created, sadly), and do not
    1216                 :            :              emit the final branch out, or the fallthru label.  */
    1217                 :          0 :           tf->fallthru_label = NULL;
    1218                 :          0 :           return;
    1219                 :            :         }
    1220                 :            :     }
    1221                 :            : 
    1222                 :            :   /* Place the original return/goto to the original destination
    1223                 :            :      immediately after the finally block. */
    1224                 :     192976 :   x = tf->goto_queue[0].cont_stmt;
    1225                 :     192976 :   gimple_seq_add_stmt (&tf->top_p_seq, x);
    1226                 :     192976 :   maybe_record_in_goto_queue (state, x);
    1227                 :            : }
    1228                 :            : 
    1229                 :            : /* A subroutine of lower_try_finally.  There are multiple edges incoming
    1230                 :            :    and outgoing from the finally block.  Implement this by duplicating the
    1231                 :            :    finally block for every destination.  */
    1232                 :            : 
    1233                 :            : static void
    1234                 :     158764 : lower_try_finally_copy (struct leh_state *state, struct leh_tf_state *tf)
    1235                 :            : {
    1236                 :     158764 :   gimple_seq finally;
    1237                 :     158764 :   gimple_seq new_stmt;
    1238                 :     158764 :   gimple_seq seq;
    1239                 :     158764 :   gimple *x;
    1240                 :     158764 :   geh_else *eh_else;
    1241                 :     158764 :   tree tmp;
    1242                 :     158764 :   location_t tf_loc = gimple_location (tf->try_finally_expr);
    1243                 :            : 
    1244                 :     158764 :   finally = gimple_try_cleanup (tf->top_p);
    1245                 :            : 
    1246                 :            :   /* Notice EH_ELSE, and simplify some of the remaining code
    1247                 :            :      by considering FINALLY to be the normal return path only.  */
    1248                 :     158764 :   eh_else = get_eh_else (finally);
    1249                 :          8 :   if (eh_else)
    1250                 :          8 :     finally = gimple_eh_else_n_body (eh_else);
    1251                 :            : 
    1252                 :     158764 :   tf->top_p_seq = gimple_try_eval (tf->top_p);
    1253                 :     158764 :   new_stmt = NULL;
    1254                 :            : 
    1255                 :     158764 :   if (tf->may_fallthru)
    1256                 :            :     {
    1257                 :      79086 :       seq = lower_try_finally_dup_block (finally, state, tf_loc);
    1258                 :      79086 :       lower_eh_constructs_1 (state, &seq);
    1259                 :      79086 :       gimple_seq_add_seq (&new_stmt, seq);
    1260                 :            : 
    1261                 :      79086 :       tmp = lower_try_finally_fallthru_label (tf);
    1262                 :      79086 :       x = gimple_build_goto (tmp);
    1263                 :      79086 :       gimple_set_location (x, tf_loc);
    1264                 :      79086 :       gimple_seq_add_stmt (&new_stmt, x);
    1265                 :            :     }
    1266                 :            : 
    1267                 :     158764 :   if (tf->may_throw)
    1268                 :            :     {
    1269                 :            :       /* We don't need to copy the EH path of EH_ELSE,
    1270                 :            :          since it is only emitted once.  */
    1271                 :     142254 :       if (eh_else)
    1272                 :          0 :         seq = gimple_eh_else_e_body (eh_else);
    1273                 :            :       else
    1274                 :     142254 :         seq = lower_try_finally_dup_block (finally, state, tf_loc);
    1275                 :     142254 :       lower_eh_constructs_1 (state, &seq);
    1276                 :            : 
    1277                 :     142254 :       emit_post_landing_pad (&eh_seq, tf->region);
    1278                 :     142254 :       gimple_seq_add_seq (&eh_seq, seq);
    1279                 :     142254 :       emit_resx (&eh_seq, tf->region);
    1280                 :            :     }
    1281                 :            : 
    1282                 :     158764 :   if (tf->goto_queue)
    1283                 :            :     {
    1284                 :     117422 :       struct goto_queue_node *q, *qe;
    1285                 :     117422 :       int return_index, index;
    1286                 :     117422 :       struct labels_s
    1287                 :            :       {
    1288                 :            :         struct goto_queue_node *q;
    1289                 :            :         tree label;
    1290                 :            :       } *labels;
    1291                 :            : 
    1292                 :     117422 :       return_index = tf->dest_array.length ();
    1293                 :     117422 :       labels = XCNEWVEC (struct labels_s, return_index + 1);
    1294                 :            : 
    1295                 :     117422 :       q = tf->goto_queue;
    1296                 :     117422 :       qe = q + tf->goto_queue_active;
    1297                 :     319934 :       for (; q < qe; q++)
    1298                 :            :         {
    1299                 :     202512 :           index = q->index < 0 ? return_index : q->index;
    1300                 :            : 
    1301                 :     202512 :           if (!labels[index].q)
    1302                 :     119801 :             labels[index].q = q;
    1303                 :            :         }
    1304                 :            : 
    1305                 :     354645 :       for (index = 0; index < return_index + 1; index++)
    1306                 :            :         {
    1307                 :     237223 :           tree lab;
    1308                 :            : 
    1309                 :     237223 :           q = labels[index].q;
    1310                 :     237223 :           if (! q)
    1311                 :     117422 :             continue;
    1312                 :            : 
    1313                 :     239602 :           lab = labels[index].label
    1314                 :     119801 :             = create_artificial_label (tf_loc);
    1315                 :            : 
    1316                 :     119801 :           if (index == return_index)
    1317                 :          0 :             do_return_redirection (q, lab, NULL);
    1318                 :            :           else
    1319                 :     119801 :             do_goto_redirection (q, lab, NULL, tf);
    1320                 :            : 
    1321                 :     119801 :           x = gimple_build_label (lab);
    1322                 :     119801 :           gimple_seq_add_stmt (&new_stmt, x);
    1323                 :            : 
    1324                 :     119801 :           seq = lower_try_finally_dup_block (finally, state, q->location);
    1325                 :     119801 :           lower_eh_constructs_1 (state, &seq);
    1326                 :     119801 :           gimple_seq_add_seq (&new_stmt, seq);
    1327                 :            : 
    1328                 :     119801 :           gimple_seq_add_stmt (&new_stmt, q->cont_stmt);
    1329                 :     119801 :           maybe_record_in_goto_queue (state, q->cont_stmt);
    1330                 :            :         }
    1331                 :            : 
    1332                 :     319934 :       for (q = tf->goto_queue; q < qe; q++)
    1333                 :            :         {
    1334                 :     202512 :           tree lab;
    1335                 :            : 
    1336                 :     202512 :           index = q->index < 0 ? return_index : q->index;
    1337                 :            : 
    1338                 :     202512 :           if (labels[index].q == q)
    1339                 :     119801 :             continue;
    1340                 :            : 
    1341                 :      82711 :           lab = labels[index].label;
    1342                 :            : 
    1343                 :      82711 :           if (index == return_index)
    1344                 :          0 :             do_return_redirection (q, lab, NULL);
    1345                 :            :           else
    1346                 :      82711 :             do_goto_redirection (q, lab, NULL, tf);
    1347                 :            :         }
    1348                 :            : 
    1349                 :     117422 :       replace_goto_queue (tf);
    1350                 :     117422 :       free (labels);
    1351                 :            :     }
    1352                 :            : 
    1353                 :            :   /* Need to link new stmts after running replace_goto_queue due
    1354                 :            :      to not wanting to process the same goto stmts twice.  */
    1355                 :     158764 :   gimple_seq_add_seq (&tf->top_p_seq, new_stmt);
    1356                 :     158764 : }
    1357                 :            : 
    1358                 :            : /* A subroutine of lower_try_finally.  There are multiple edges incoming
    1359                 :            :    and outgoing from the finally block.  Implement this by instrumenting
    1360                 :            :    each incoming edge and creating a switch statement at the end of the
    1361                 :            :    finally block that branches to the appropriate destination.  */
    1362                 :            : 
    1363                 :            : static void
    1364                 :        292 : lower_try_finally_switch (struct leh_state *state, struct leh_tf_state *tf)
    1365                 :            : {
    1366                 :        292 :   struct goto_queue_node *q, *qe;
    1367                 :        292 :   tree finally_tmp, finally_label;
    1368                 :        292 :   int return_index, eh_index, fallthru_index;
    1369                 :        292 :   int nlabels, ndests, j, last_case_index;
    1370                 :        292 :   tree last_case;
    1371                 :        292 :   auto_vec<tree> case_label_vec;
    1372                 :        292 :   gimple_seq switch_body = NULL;
    1373                 :        292 :   gimple *x;
    1374                 :        292 :   geh_else *eh_else;
    1375                 :        292 :   tree tmp;
    1376                 :        292 :   gimple *switch_stmt;
    1377                 :        292 :   gimple_seq finally;
    1378                 :        292 :   hash_map<tree, gimple *> *cont_map = NULL;
    1379                 :            :   /* The location of the TRY_FINALLY stmt.  */
    1380                 :        292 :   location_t tf_loc = gimple_location (tf->try_finally_expr);
    1381                 :            :   /* The location of the finally block.  */
    1382                 :        292 :   location_t finally_loc;
    1383                 :            : 
    1384                 :        292 :   finally = gimple_try_cleanup (tf->top_p);
    1385                 :        292 :   eh_else = get_eh_else (finally);
    1386                 :            : 
    1387                 :            :   /* Mash the TRY block to the head of the chain.  */
    1388                 :        292 :   tf->top_p_seq = gimple_try_eval (tf->top_p);
    1389                 :            : 
    1390                 :            :   /* The location of the finally is either the last stmt in the finally
    1391                 :            :      block or the location of the TRY_FINALLY itself.  */
    1392                 :        292 :   x = gimple_seq_last_stmt (finally);
    1393                 :        292 :   finally_loc = x ? gimple_location (x) : tf_loc;
    1394                 :            : 
    1395                 :            :   /* Prepare for switch statement generation.  */
    1396                 :        292 :   nlabels = tf->dest_array.length ();
    1397                 :        292 :   return_index = nlabels;
    1398                 :        292 :   eh_index = return_index + tf->may_return;
    1399                 :        292 :   fallthru_index = eh_index + (tf->may_throw && !eh_else);
    1400                 :        292 :   ndests = fallthru_index + tf->may_fallthru;
    1401                 :            : 
    1402                 :        292 :   finally_tmp = create_tmp_var (integer_type_node, "finally_tmp");
    1403                 :        292 :   finally_label = create_artificial_label (finally_loc);
    1404                 :            : 
    1405                 :            :   /* We use vec::quick_push on case_label_vec throughout this function,
    1406                 :            :      since we know the size in advance and allocate precisely as muce
    1407                 :            :      space as needed.  */
    1408                 :        292 :   case_label_vec.create (ndests);
    1409                 :        292 :   last_case = NULL;
    1410                 :        292 :   last_case_index = 0;
    1411                 :            : 
    1412                 :            :   /* Begin inserting code for getting to the finally block.  Things
    1413                 :            :      are done in this order to correspond to the sequence the code is
    1414                 :            :      laid out.  */
    1415                 :            : 
    1416                 :        292 :   if (tf->may_fallthru)
    1417                 :            :     {
    1418                 :        256 :       x = gimple_build_assign (finally_tmp,
    1419                 :            :                                build_int_cst (integer_type_node,
    1420                 :            :                                               fallthru_index));
    1421                 :        256 :       gimple_set_location (x, finally_loc);
    1422                 :        256 :       gimple_seq_add_stmt (&tf->top_p_seq, x);
    1423                 :            : 
    1424                 :        256 :       tmp = build_int_cst (integer_type_node, fallthru_index);
    1425                 :        256 :       last_case = build_case_label (tmp, NULL,
    1426                 :            :                                     create_artificial_label (finally_loc));
    1427                 :        256 :       case_label_vec.quick_push (last_case);
    1428                 :        256 :       last_case_index++;
    1429                 :            : 
    1430                 :        256 :       x = gimple_build_label (CASE_LABEL (last_case));
    1431                 :        256 :       gimple_seq_add_stmt (&switch_body, x);
    1432                 :            : 
    1433                 :        256 :       tmp = lower_try_finally_fallthru_label (tf);
    1434                 :        256 :       x = gimple_build_goto (tmp);
    1435                 :        256 :       gimple_set_location (x, finally_loc);
    1436                 :        256 :       gimple_seq_add_stmt (&switch_body, x);
    1437                 :            :     }
    1438                 :            : 
    1439                 :            :   /* For EH_ELSE, emit the exception path (plus resx) now, then
    1440                 :            :      subsequently we only need consider the normal path.  */
    1441                 :        292 :   if (eh_else)
    1442                 :            :     {
    1443                 :          8 :       if (tf->may_throw)
    1444                 :            :         {
    1445                 :          0 :           finally = gimple_eh_else_e_body (eh_else);
    1446                 :          0 :           lower_eh_constructs_1 (state, &finally);
    1447                 :            : 
    1448                 :          0 :           emit_post_landing_pad (&eh_seq, tf->region);
    1449                 :          0 :           gimple_seq_add_seq (&eh_seq, finally);
    1450                 :          0 :           emit_resx (&eh_seq, tf->region);
    1451                 :            :         }
    1452                 :            : 
    1453                 :          8 :       finally = gimple_eh_else_n_body (eh_else);
    1454                 :            :     }
    1455                 :        284 :   else if (tf->may_throw)
    1456                 :            :     {
    1457                 :          9 :       emit_post_landing_pad (&eh_seq, tf->region);
    1458                 :            : 
    1459                 :          9 :       x = gimple_build_assign (finally_tmp,
    1460                 :            :                                build_int_cst (integer_type_node, eh_index));
    1461                 :          9 :       gimple_seq_add_stmt (&eh_seq, x);
    1462                 :            : 
    1463                 :          9 :       x = gimple_build_goto (finally_label);
    1464                 :          9 :       gimple_set_location (x, tf_loc);
    1465                 :          9 :       gimple_seq_add_stmt (&eh_seq, x);
    1466                 :            : 
    1467                 :          9 :       tmp = build_int_cst (integer_type_node, eh_index);
    1468                 :          9 :       last_case = build_case_label (tmp, NULL,
    1469                 :            :                                     create_artificial_label (tf_loc));
    1470                 :          9 :       case_label_vec.quick_push (last_case);
    1471                 :          9 :       last_case_index++;
    1472                 :            : 
    1473                 :          9 :       x = gimple_build_label (CASE_LABEL (last_case));
    1474                 :          9 :       gimple_seq_add_stmt (&eh_seq, x);
    1475                 :          9 :       emit_resx (&eh_seq, tf->region);
    1476                 :            :     }
    1477                 :            : 
    1478                 :        292 :   x = gimple_build_label (finally_label);
    1479                 :        292 :   gimple_seq_add_stmt (&tf->top_p_seq, x);
    1480                 :            : 
    1481                 :        292 :   lower_eh_constructs_1 (state, &finally);
    1482                 :        292 :   gimple_seq_add_seq (&tf->top_p_seq, finally);
    1483                 :            : 
    1484                 :            :   /* Redirect each incoming goto edge.  */
    1485                 :        292 :   q = tf->goto_queue;
    1486                 :        292 :   qe = q + tf->goto_queue_active;
    1487                 :        292 :   j = last_case_index + tf->may_return;
    1488                 :            :   /* Prepare the assignments to finally_tmp that are executed upon the
    1489                 :            :      entrance through a particular edge. */
    1490                 :        825 :   for (; q < qe; ++q)
    1491                 :            :     {
    1492                 :        533 :       gimple_seq mod = NULL;
    1493                 :        533 :       int switch_id;
    1494                 :        533 :       unsigned int case_index;
    1495                 :            : 
    1496                 :        533 :       if (q->index < 0)
    1497                 :            :         {
    1498                 :          0 :           x = gimple_build_assign (finally_tmp,
    1499                 :            :                                    build_int_cst (integer_type_node,
    1500                 :            :                                                   return_index));
    1501                 :          0 :           gimple_seq_add_stmt (&mod, x);
    1502                 :          0 :           do_return_redirection (q, finally_label, mod);
    1503                 :          0 :           switch_id = return_index;
    1504                 :            :         }
    1505                 :            :       else
    1506                 :            :         {
    1507                 :        533 :           x = gimple_build_assign (finally_tmp,
    1508                 :        533 :                                    build_int_cst (integer_type_node, q->index));
    1509                 :        533 :           gimple_seq_add_stmt (&mod, x);
    1510                 :        533 :           do_goto_redirection (q, finally_label, mod, tf);
    1511                 :        533 :           switch_id = q->index;
    1512                 :            :         }
    1513                 :            : 
    1514                 :        533 :       case_index = j + q->index;
    1515                 :       1066 :       if (case_label_vec.length () <= case_index || !case_label_vec[case_index])
    1516                 :            :         {
    1517                 :        320 :           tree case_lab;
    1518                 :        320 :           tmp = build_int_cst (integer_type_node, switch_id);
    1519                 :        320 :           case_lab = build_case_label (tmp, NULL,
    1520                 :            :                                        create_artificial_label (tf_loc));
    1521                 :            :           /* We store the cont_stmt in the pointer map, so that we can recover
    1522                 :            :              it in the loop below.  */
    1523                 :        320 :           if (!cont_map)
    1524                 :        285 :             cont_map = new hash_map<tree, gimple *>;
    1525                 :        320 :           cont_map->put (case_lab, q->cont_stmt);
    1526                 :        320 :           case_label_vec.quick_push (case_lab);
    1527                 :            :         }
    1528                 :            :     }
    1529                 :        612 :   for (j = last_case_index; j < last_case_index + nlabels; j++)
    1530                 :            :     {
    1531                 :        320 :       gimple *cont_stmt;
    1532                 :            : 
    1533                 :        320 :       last_case = case_label_vec[j];
    1534                 :            : 
    1535                 :        320 :       gcc_assert (last_case);
    1536                 :        320 :       gcc_assert (cont_map);
    1537                 :            : 
    1538                 :        320 :       cont_stmt = *cont_map->get (last_case);
    1539                 :            : 
    1540                 :        320 :       x = gimple_build_label (CASE_LABEL (last_case));
    1541                 :        320 :       gimple_seq_add_stmt (&switch_body, x);
    1542                 :        320 :       gimple_seq_add_stmt (&switch_body, cont_stmt);
    1543                 :        320 :       maybe_record_in_goto_queue (state, cont_stmt);
    1544                 :            :     }
    1545                 :        292 :   if (cont_map)
    1546                 :        285 :     delete cont_map;
    1547                 :            : 
    1548                 :        292 :   replace_goto_queue (tf);
    1549                 :            : 
    1550                 :            :   /* Make sure that the last case is the default label, as one is required.
    1551                 :            :      Then sort the labels, which is also required in GIMPLE.  */
    1552                 :        292 :   CASE_LOW (last_case) = NULL;
    1553                 :        292 :   tree tem = case_label_vec.pop ();
    1554                 :        292 :   gcc_assert (tem == last_case);
    1555                 :        292 :   sort_case_labels (case_label_vec);
    1556                 :            : 
    1557                 :            :   /* Build the switch statement, setting last_case to be the default
    1558                 :            :      label.  */
    1559                 :        292 :   switch_stmt = gimple_build_switch (finally_tmp, last_case,
    1560                 :            :                                      case_label_vec);
    1561                 :        292 :   gimple_set_location (switch_stmt, finally_loc);
    1562                 :            : 
    1563                 :            :   /* Need to link SWITCH_STMT after running replace_goto_queue
    1564                 :            :      due to not wanting to process the same goto stmts twice.  */
    1565                 :        292 :   gimple_seq_add_stmt (&tf->top_p_seq, switch_stmt);
    1566                 :        292 :   gimple_seq_add_seq (&tf->top_p_seq, switch_body);
    1567                 :        292 : }
    1568                 :            : 
    1569                 :            : /* Decide whether or not we are going to duplicate the finally block.
    1570                 :            :    There are several considerations.
    1571                 :            : 
    1572                 :            :    Second, we'd like to prevent egregious code growth.  One way to
    1573                 :            :    do this is to estimate the size of the finally block, multiply
    1574                 :            :    that by the number of copies we'd need to make, and compare against
    1575                 :            :    the estimate of the size of the switch machinery we'd have to add.  */
    1576                 :            : 
    1577                 :            : static bool
    1578                 :     159056 : decide_copy_try_finally (int ndests, bool may_throw, gimple_seq finally)
    1579                 :            : {
    1580                 :     159056 :   int f_estimate, sw_estimate;
    1581                 :     159056 :   geh_else *eh_else;
    1582                 :            : 
    1583                 :            :   /* If there's an EH_ELSE involved, the exception path is separate
    1584                 :            :      and really doesn't come into play for this computation.  */
    1585                 :     159056 :   eh_else = get_eh_else (finally);
    1586                 :         16 :   if (eh_else)
    1587                 :            :     {
    1588                 :         16 :       ndests -= may_throw;
    1589                 :         16 :       finally = gimple_eh_else_n_body (eh_else);
    1590                 :            :     }
    1591                 :            : 
    1592                 :     159056 :   if (!optimize)
    1593                 :            :     {
    1594                 :      10770 :       gimple_stmt_iterator gsi;
    1595                 :            : 
    1596                 :      10770 :       if (ndests == 1)
    1597                 :            :         return true;
    1598                 :            : 
    1599                 :      23441 :       for (gsi = gsi_start (finally); !gsi_end_p (gsi); gsi_next (&gsi))
    1600                 :            :         {
    1601                 :            :           /* Duplicate __builtin_stack_restore in the hope of eliminating it
    1602                 :            :              on the EH paths and, consequently, useless cleanups.  */
    1603                 :      12960 :           gimple *stmt = gsi_stmt (gsi);
    1604                 :      12960 :           if (!is_gimple_debug (stmt)
    1605                 :      12960 :               && !gimple_clobber_p (stmt)
    1606                 :      13362 :               && !gimple_call_builtin_p (stmt, BUILT_IN_STACK_RESTORE))
    1607                 :            :             return false;
    1608                 :            :         }
    1609                 :            :       return true;
    1610                 :            :     }
    1611                 :            : 
    1612                 :            :   /* Finally estimate N times, plus N gotos.  */
    1613                 :     148286 :   f_estimate = estimate_num_insns_seq (finally, &eni_size_weights);
    1614                 :     148286 :   f_estimate = (f_estimate + 1) * ndests;
    1615                 :            : 
    1616                 :            :   /* Switch statement (cost 10), N variable assignments, N gotos.  */
    1617                 :     148286 :   sw_estimate = 10 + 2 * ndests;
    1618                 :            : 
    1619                 :            :   /* Optimize for size clearly wants our best guess.  */
    1620                 :     148286 :   if (optimize_function_for_size_p (cfun))
    1621                 :        674 :     return f_estimate < sw_estimate;
    1622                 :            : 
    1623                 :            :   /* ??? These numbers are completely made up so far.  */
    1624                 :     147612 :   if (optimize > 1)
    1625                 :     146944 :     return f_estimate < 100 || f_estimate < sw_estimate * 2;
    1626                 :            :   else
    1627                 :        670 :     return f_estimate < 40 || f_estimate * 2 < sw_estimate * 3;
    1628                 :            : }
    1629                 :            : 
    1630                 :            : /* REG is current region of a LEH state.
    1631                 :            :    is the enclosing region for a possible cleanup region, or the region
    1632                 :            :    itself.  Returns TRUE if such a region would be unreachable.
    1633                 :            : 
    1634                 :            :    Cleanup regions within a must-not-throw region aren't actually reachable
    1635                 :            :    even if there are throwing stmts within them, because the personality
    1636                 :            :    routine will call terminate before unwinding.  */
    1637                 :            : 
    1638                 :            : static bool
    1639                 :     880553 : cleanup_is_dead_in (leh_state *state)
    1640                 :            : {
    1641                 :     880553 :   if (flag_checking)
    1642                 :            :     {
    1643                 :     880553 :       eh_region reg = state->cur_region;
    1644                 :   33880900 :       while (reg && reg->type == ERT_CLEANUP)
    1645                 :   33000300 :         reg = reg->outer;
    1646                 :            : 
    1647                 :     880553 :       gcc_assert (reg == state->outer_non_cleanup);
    1648                 :            :     }
    1649                 :            : 
    1650                 :     880553 :   eh_region reg = state->outer_non_cleanup;
    1651                 :     880553 :   return (reg && reg->type == ERT_MUST_NOT_THROW);
    1652                 :            : }
    1653                 :            : 
    1654                 :            : /* A subroutine of lower_eh_constructs_1.  Lower a GIMPLE_TRY_FINALLY nodes
    1655                 :            :    to a sequence of labels and blocks, plus the exception region trees
    1656                 :            :    that record all the magic.  This is complicated by the need to
    1657                 :            :    arrange for the FINALLY block to be executed on all exits.  */
    1658                 :            : 
    1659                 :            : static gimple_seq
    1660                 :     977523 : lower_try_finally (struct leh_state *state, gtry *tp)
    1661                 :            : {
    1662                 :     977523 :   struct leh_tf_state this_tf;
    1663                 :     977523 :   struct leh_state this_state;
    1664                 :     977523 :   int ndests;
    1665                 :     977523 :   gimple_seq old_eh_seq;
    1666                 :            : 
    1667                 :            :   /* Process the try block.  */
    1668                 :            : 
    1669                 :     977523 :   memset (&this_tf, 0, sizeof (this_tf));
    1670                 :     977523 :   this_tf.try_finally_expr = tp;
    1671                 :     977523 :   this_tf.top_p = tp;
    1672                 :     977523 :   this_tf.outer = state;
    1673                 :     977523 :   if (using_eh_for_cleanups_p () && !cleanup_is_dead_in (state))
    1674                 :            :     {
    1675                 :     631592 :       this_tf.region = gen_eh_region_cleanup (state->cur_region);
    1676                 :     631592 :       this_state.cur_region = this_tf.region;
    1677                 :            :     }
    1678                 :            :   else
    1679                 :            :     {
    1680                 :     345931 :       this_tf.region = NULL;
    1681                 :     345931 :       this_state.cur_region = state->cur_region;
    1682                 :            :     }
    1683                 :            : 
    1684                 :     977523 :   this_state.outer_non_cleanup = state->outer_non_cleanup;
    1685                 :     977523 :   this_state.ehp_region = state->ehp_region;
    1686                 :     977523 :   this_state.tf = &this_tf;
    1687                 :            : 
    1688                 :     977523 :   old_eh_seq = eh_seq;
    1689                 :     977523 :   eh_seq = NULL;
    1690                 :            : 
    1691                 :     977523 :   lower_eh_constructs_1 (&this_state, gimple_try_eval_ptr (tp));
    1692                 :            : 
    1693                 :            :   /* Determine if the try block is escaped through the bottom.  */
    1694                 :     977523 :   this_tf.may_fallthru = gimple_seq_may_fallthru (gimple_try_eval (tp));
    1695                 :            : 
    1696                 :            :   /* Determine if any exceptions are possible within the try block.  */
    1697                 :     977523 :   if (this_tf.region)
    1698                 :    1263180 :     this_tf.may_throw = eh_region_may_contain_throw (this_tf.region);
    1699                 :     977523 :   if (this_tf.may_throw)
    1700                 :     428235 :     honor_protect_cleanup_actions (state, &this_state, &this_tf);
    1701                 :            : 
    1702                 :            :   /* Determine how many edges (still) reach the finally block.  Or rather,
    1703                 :            :      how many destinations are reached by the finally block.  Use this to
    1704                 :            :      determine how we process the finally block itself.  */
    1705                 :            : 
    1706                 :     977523 :   ndests = this_tf.dest_array.length ();
    1707                 :     977523 :   ndests += this_tf.may_fallthru;
    1708                 :     977523 :   ndests += this_tf.may_return;
    1709                 :     977523 :   ndests += this_tf.may_throw;
    1710                 :            : 
    1711                 :            :   /* If the FINALLY block is not reachable, dike it out.  */
    1712                 :     977523 :   if (ndests == 0)
    1713                 :            :     {
    1714                 :      21224 :       gimple_seq_add_seq (&this_tf.top_p_seq, gimple_try_eval (tp));
    1715                 :      21224 :       gimple_try_set_cleanup (tp, NULL);
    1716                 :            :     }
    1717                 :            :   /* If the finally block doesn't fall through, then any destination
    1718                 :            :      we might try to impose there isn't reached either.  There may be
    1719                 :            :      some minor amount of cleanup and redirection still needed.  */
    1720                 :     956299 :   else if (!gimple_seq_may_fallthru (gimple_try_cleanup (tp)))
    1721                 :          0 :     lower_try_finally_nofallthru (state, &this_tf);
    1722                 :            : 
    1723                 :            :   /* We can easily special-case redirection to a single destination.  */
    1724                 :     956299 :   else if (ndests == 1)
    1725                 :     797243 :     lower_try_finally_onedest (state, &this_tf);
    1726                 :     159056 :   else if (decide_copy_try_finally (ndests, this_tf.may_throw,
    1727                 :            :                                     gimple_try_cleanup (tp)))
    1728                 :     158764 :     lower_try_finally_copy (state, &this_tf);
    1729                 :            :   else
    1730                 :        292 :     lower_try_finally_switch (state, &this_tf);
    1731                 :            : 
    1732                 :            :   /* If someone requested we add a label at the end of the transformed
    1733                 :            :      block, do so.  */
    1734                 :     977523 :   if (this_tf.fallthru_label)
    1735                 :            :     {
    1736                 :            :       /* This must be reached only if ndests == 0. */
    1737                 :      79342 :       gimple *x = gimple_build_label (this_tf.fallthru_label);
    1738                 :      79342 :       gimple_seq_add_stmt (&this_tf.top_p_seq, x);
    1739                 :            :     }
    1740                 :            : 
    1741                 :     977523 :   this_tf.dest_array.release ();
    1742                 :     977523 :   free (this_tf.goto_queue);
    1743                 :     977523 :   if (this_tf.goto_queue_map)
    1744                 :        235 :     delete this_tf.goto_queue_map;
    1745                 :            : 
    1746                 :            :   /* If there was an old (aka outer) eh_seq, append the current eh_seq.
    1747                 :            :      If there was no old eh_seq, then the append is trivially already done.  */
    1748                 :     977523 :   if (old_eh_seq)
    1749                 :            :     {
    1750                 :      60128 :       if (eh_seq == NULL)
    1751                 :       5924 :         eh_seq = old_eh_seq;
    1752                 :            :       else
    1753                 :            :         {
    1754                 :      54204 :           gimple_seq new_eh_seq = eh_seq;
    1755                 :      54204 :           eh_seq = old_eh_seq;
    1756                 :      54204 :           gimple_seq_add_seq (&eh_seq, new_eh_seq);
    1757                 :            :         }
    1758                 :            :     }
    1759                 :            : 
    1760                 :     977523 :   return this_tf.top_p_seq;
    1761                 :            : }
    1762                 :            : 
    1763                 :            : /* A subroutine of lower_eh_constructs_1.  Lower a GIMPLE_TRY_CATCH with a
    1764                 :            :    list of GIMPLE_CATCH to a sequence of labels and blocks, plus the
    1765                 :            :    exception region trees that records all the magic.  */
    1766                 :            : 
    1767                 :            : static gimple_seq
    1768                 :      42390 : lower_catch (struct leh_state *state, gtry *tp)
    1769                 :            : {
    1770                 :      42390 :   eh_region try_region = NULL;
    1771                 :      42390 :   struct leh_state this_state = *state;
    1772                 :      42390 :   gimple_stmt_iterator gsi;
    1773                 :      42390 :   tree out_label;
    1774                 :      42390 :   gimple_seq new_seq, cleanup;
    1775                 :      42390 :   gimple *x;
    1776                 :      42390 :   geh_dispatch *eh_dispatch;
    1777                 :      42390 :   location_t try_catch_loc = gimple_location (tp);
    1778                 :      42390 :   location_t catch_loc = UNKNOWN_LOCATION;
    1779                 :            : 
    1780                 :      42390 :   if (flag_exceptions)
    1781                 :            :     {
    1782                 :      42386 :       try_region = gen_eh_region_try (state->cur_region);
    1783                 :      42386 :       this_state.cur_region = try_region;
    1784                 :      42386 :       this_state.outer_non_cleanup = this_state.cur_region;
    1785                 :            :     }
    1786                 :            : 
    1787                 :      42390 :   lower_eh_constructs_1 (&this_state, gimple_try_eval_ptr (tp));
    1788                 :            : 
    1789                 :      42390 :   if (!eh_region_may_contain_throw (try_region))
    1790                 :       3732 :     return gimple_try_eval (tp);
    1791                 :            : 
    1792                 :      38658 :   new_seq = NULL;
    1793                 :      38658 :   eh_dispatch = gimple_build_eh_dispatch (try_region->index);
    1794                 :      38658 :   gimple_seq_add_stmt (&new_seq, eh_dispatch);
    1795                 :      38658 :   emit_resx (&new_seq, try_region);
    1796                 :            : 
    1797                 :      38658 :   this_state.cur_region = state->cur_region;
    1798                 :      38658 :   this_state.outer_non_cleanup = state->outer_non_cleanup;
    1799                 :      38658 :   this_state.ehp_region = try_region;
    1800                 :            : 
    1801                 :            :   /* Add eh_seq from lowering EH in the cleanup sequence after the cleanup
    1802                 :            :      itself, so that e.g. for coverage purposes the nested cleanups don't
    1803                 :            :      appear before the cleanup body.  See PR64634 for details.  */
    1804                 :      38658 :   gimple_seq old_eh_seq = eh_seq;
    1805                 :      38658 :   eh_seq = NULL;
    1806                 :            : 
    1807                 :      38658 :   out_label = NULL;
    1808                 :      38658 :   cleanup = gimple_try_cleanup (tp);
    1809                 :      38658 :   for (gsi = gsi_start (cleanup);
    1810                 :      43784 :        !gsi_end_p (gsi);
    1811                 :       5126 :        gsi_next (&gsi))
    1812                 :            :     {
    1813                 :      41584 :       eh_catch c;
    1814                 :      41584 :       gcatch *catch_stmt;
    1815                 :      41584 :       gimple_seq handler;
    1816                 :            : 
    1817                 :      41584 :       catch_stmt = as_a <gcatch *> (gsi_stmt (gsi));
    1818                 :      41584 :       if (catch_loc == UNKNOWN_LOCATION)
    1819                 :      38658 :         catch_loc = gimple_location (catch_stmt);
    1820                 :      41584 :       c = gen_eh_region_catch (try_region, gimple_catch_types (catch_stmt));
    1821                 :            : 
    1822                 :      41584 :       handler = gimple_catch_handler (catch_stmt);
    1823                 :      41584 :       lower_eh_constructs_1 (&this_state, &handler);
    1824                 :            : 
    1825                 :      41584 :       c->label = create_artificial_label (UNKNOWN_LOCATION);
    1826                 :      41584 :       x = gimple_build_label (c->label);
    1827                 :      41584 :       gimple_seq_add_stmt (&new_seq, x);
    1828                 :            : 
    1829                 :      41584 :       gimple_seq_add_seq (&new_seq, handler);
    1830                 :            : 
    1831                 :      41584 :       if (gimple_seq_may_fallthru (new_seq))
    1832                 :            :         {
    1833                 :       9211 :           if (!out_label)
    1834                 :       8838 :             out_label = create_artificial_label (try_catch_loc);
    1835                 :            : 
    1836                 :       9211 :           x = gimple_build_goto (out_label);
    1837                 :       9211 :           gimple_seq_add_stmt (&new_seq, x);
    1838                 :            :         }
    1839                 :      41584 :       if (!c->type_list)
    1840                 :            :         break;
    1841                 :            :     }
    1842                 :            : 
    1843                 :            :   /* Try to set a location on the dispatching construct to avoid inheriting
    1844                 :            :      the location of the previous statement.  */
    1845                 :      38658 :   gimple_set_location (eh_dispatch, catch_loc);
    1846                 :            : 
    1847                 :      38658 :   gimple_try_set_cleanup (tp, new_seq);
    1848                 :            : 
    1849                 :      38658 :   gimple_seq new_eh_seq = eh_seq;
    1850                 :      38658 :   eh_seq = old_eh_seq;
    1851                 :      38658 :   gimple_seq ret_seq = frob_into_branch_around (tp, try_region, out_label);
    1852                 :      38658 :   gimple_seq_add_seq (&eh_seq, new_eh_seq);
    1853                 :      38658 :   return ret_seq;
    1854                 :            : }
    1855                 :            : 
    1856                 :            : /* A subroutine of lower_eh_constructs_1.  Lower a GIMPLE_TRY with a
    1857                 :            :    GIMPLE_EH_FILTER to a sequence of labels and blocks, plus the exception
    1858                 :            :    region trees that record all the magic.  */
    1859                 :            : 
    1860                 :            : static gimple_seq
    1861                 :       8389 : lower_eh_filter (struct leh_state *state, gtry *tp)
    1862                 :            : {
    1863                 :       8389 :   struct leh_state this_state = *state;
    1864                 :       8389 :   eh_region this_region = NULL;
    1865                 :       8389 :   gimple *inner, *x;
    1866                 :       8389 :   gimple_seq new_seq;
    1867                 :            : 
    1868                 :       8389 :   inner = gimple_seq_first_stmt (gimple_try_cleanup (tp));
    1869                 :            : 
    1870                 :       8389 :   if (flag_exceptions)
    1871                 :            :     {
    1872                 :       8389 :       this_region = gen_eh_region_allowed (state->cur_region,
    1873                 :            :                                            gimple_eh_filter_types (inner));
    1874                 :       8389 :       this_state.cur_region = this_region;
    1875                 :       8389 :       this_state.outer_non_cleanup = this_state.cur_region;
    1876                 :            :     }
    1877                 :            : 
    1878                 :       8389 :   lower_eh_constructs_1 (&this_state, gimple_try_eval_ptr (tp));
    1879                 :            : 
    1880                 :       8389 :   if (!eh_region_may_contain_throw (this_region))
    1881                 :       5621 :     return gimple_try_eval (tp);
    1882                 :            : 
    1883                 :       2768 :   this_state.cur_region = state->cur_region;
    1884                 :       2768 :   this_state.ehp_region = this_region;
    1885                 :            : 
    1886                 :       2768 :   new_seq = NULL;
    1887                 :       2768 :   x = gimple_build_eh_dispatch (this_region->index);
    1888                 :       2768 :   gimple_set_location (x, gimple_location (tp));
    1889                 :       2768 :   gimple_seq_add_stmt (&new_seq, x);
    1890                 :       2768 :   emit_resx (&new_seq, this_region);
    1891                 :            : 
    1892                 :       2768 :   this_region->u.allowed.label = create_artificial_label (UNKNOWN_LOCATION);
    1893                 :       2768 :   x = gimple_build_label (this_region->u.allowed.label);
    1894                 :       2768 :   gimple_seq_add_stmt (&new_seq, x);
    1895                 :            : 
    1896                 :       2768 :   lower_eh_constructs_1 (&this_state, gimple_eh_filter_failure_ptr (inner));
    1897                 :       2768 :   gimple_seq_add_seq (&new_seq, gimple_eh_filter_failure (inner));
    1898                 :            : 
    1899                 :       2768 :   gimple_try_set_cleanup (tp, new_seq);
    1900                 :            : 
    1901                 :       2768 :   return frob_into_branch_around (tp, this_region, NULL);
    1902                 :            : }
    1903                 :            : 
    1904                 :            : /* A subroutine of lower_eh_constructs_1.  Lower a GIMPLE_TRY with
    1905                 :            :    an GIMPLE_EH_MUST_NOT_THROW to a sequence of labels and blocks,
    1906                 :            :    plus the exception region trees that record all the magic.  */
    1907                 :            : 
    1908                 :            : static gimple_seq
    1909                 :     744630 : lower_eh_must_not_throw (struct leh_state *state, gtry *tp)
    1910                 :            : {
    1911                 :     744630 :   struct leh_state this_state = *state;
    1912                 :            : 
    1913                 :     744630 :   if (flag_exceptions)
    1914                 :            :     {
    1915                 :     744630 :       gimple *inner = gimple_seq_first_stmt (gimple_try_cleanup (tp));
    1916                 :     744630 :       eh_region this_region;
    1917                 :            : 
    1918                 :     744630 :       this_region = gen_eh_region_must_not_throw (state->cur_region);
    1919                 :     744630 :       this_region->u.must_not_throw.failure_decl
    1920                 :     744630 :         = gimple_eh_must_not_throw_fndecl (
    1921                 :     744630 :             as_a <geh_mnt *> (inner));
    1922                 :     744630 :       this_region->u.must_not_throw.failure_loc
    1923                 :     744630 :         = LOCATION_LOCUS (gimple_location (tp));
    1924                 :            : 
    1925                 :            :       /* In order to get mangling applied to this decl, we must mark it
    1926                 :            :          used now.  Otherwise, pass_ipa_free_lang_data won't think it
    1927                 :            :          needs to happen.  */
    1928                 :     744630 :       TREE_USED (this_region->u.must_not_throw.failure_decl) = 1;
    1929                 :            : 
    1930                 :     744630 :       this_state.cur_region = this_region;
    1931                 :     744630 :       this_state.outer_non_cleanup = this_state.cur_region;
    1932                 :            :     }
    1933                 :            : 
    1934                 :     744630 :   lower_eh_constructs_1 (&this_state, gimple_try_eval_ptr (tp));
    1935                 :            : 
    1936                 :     744630 :   return gimple_try_eval (tp);
    1937                 :            : }
    1938                 :            : 
    1939                 :            : /* Implement a cleanup expression.  This is similar to try-finally,
    1940                 :            :    except that we only execute the cleanup block for exception edges.  */
    1941                 :            : 
    1942                 :            : static gimple_seq
    1943                 :     152894 : lower_cleanup (struct leh_state *state, gtry *tp)
    1944                 :            : {
    1945                 :     152894 :   struct leh_state this_state = *state;
    1946                 :     152894 :   eh_region this_region = NULL;
    1947                 :     152894 :   struct leh_tf_state fake_tf;
    1948                 :     152894 :   gimple_seq result;
    1949                 :     152894 :   bool cleanup_dead = cleanup_is_dead_in (state);
    1950                 :            : 
    1951                 :     152894 :   if (flag_exceptions && !cleanup_dead)
    1952                 :            :     {
    1953                 :     123047 :       this_region = gen_eh_region_cleanup (state->cur_region);
    1954                 :     123047 :       this_state.cur_region = this_region;
    1955                 :     123047 :       this_state.outer_non_cleanup = state->outer_non_cleanup;
    1956                 :            :     }
    1957                 :            : 
    1958                 :     152894 :   lower_eh_constructs_1 (&this_state, gimple_try_eval_ptr (tp));
    1959                 :            : 
    1960                 :     152894 :   if (cleanup_dead || !eh_region_may_contain_throw (this_region))
    1961                 :      94595 :     return gimple_try_eval (tp);
    1962                 :            : 
    1963                 :            :   /* Build enough of a try-finally state so that we can reuse
    1964                 :            :      honor_protect_cleanup_actions.  */
    1965                 :      58299 :   memset (&fake_tf, 0, sizeof (fake_tf));
    1966                 :      58299 :   fake_tf.top_p = fake_tf.try_finally_expr = tp;
    1967                 :      58299 :   fake_tf.outer = state;
    1968                 :      58299 :   fake_tf.region = this_region;
    1969                 :      58299 :   fake_tf.may_fallthru = gimple_seq_may_fallthru (gimple_try_eval (tp));
    1970                 :      58299 :   fake_tf.may_throw = true;
    1971                 :            : 
    1972                 :      58299 :   honor_protect_cleanup_actions (state, NULL, &fake_tf);
    1973                 :            : 
    1974                 :      58299 :   if (fake_tf.may_throw)
    1975                 :            :     {
    1976                 :            :       /* In this case honor_protect_cleanup_actions had nothing to do,
    1977                 :            :          and we should process this normally.  */
    1978                 :          0 :       lower_eh_constructs_1 (state, gimple_try_cleanup_ptr (tp));
    1979                 :          0 :       result = frob_into_branch_around (tp, this_region,
    1980                 :            :                                         fake_tf.fallthru_label);
    1981                 :            :     }
    1982                 :            :   else
    1983                 :            :     {
    1984                 :            :       /* In this case honor_protect_cleanup_actions did nearly all of
    1985                 :            :          the work.  All we have left is to append the fallthru_label.  */
    1986                 :            : 
    1987                 :      58299 :       result = gimple_try_eval (tp);
    1988                 :      58299 :       if (fake_tf.fallthru_label)
    1989                 :            :         {
    1990                 :          0 :           gimple *x = gimple_build_label (fake_tf.fallthru_label);
    1991                 :          0 :           gimple_seq_add_stmt (&result, x);
    1992                 :            :         }
    1993                 :            :     }
    1994                 :      58299 :   return result;
    1995                 :            : }
    1996                 :            : 
    1997                 :            : /* Main loop for lowering eh constructs. Also moves gsi to the next
    1998                 :            :    statement. */
    1999                 :            : 
    2000                 :            : static void
    2001                 :   58641200 : lower_eh_constructs_2 (struct leh_state *state, gimple_stmt_iterator *gsi)
    2002                 :            : {
    2003                 :   58641200 :   gimple_seq replace;
    2004                 :   58641200 :   gimple *x;
    2005                 :   58641200 :   gimple *stmt = gsi_stmt (*gsi);
    2006                 :            : 
    2007                 :   58641200 :   switch (gimple_code (stmt))
    2008                 :            :     {
    2009                 :    7006340 :     case GIMPLE_CALL:
    2010                 :    7006340 :       {
    2011                 :    7006340 :         tree fndecl = gimple_call_fndecl (stmt);
    2012                 :    7006340 :         tree rhs, lhs;
    2013                 :            : 
    2014                 :    7006340 :         if (fndecl && fndecl_built_in_p (fndecl, BUILT_IN_NORMAL))
    2015                 :    1326460 :           switch (DECL_FUNCTION_CODE (fndecl))
    2016                 :            :             {
    2017                 :      22457 :             case BUILT_IN_EH_POINTER:
    2018                 :            :               /* The front end may have generated a call to
    2019                 :            :                  __builtin_eh_pointer (0) within a catch region.  Replace
    2020                 :            :                  this zero argument with the current catch region number.  */
    2021                 :      22457 :               if (state->ehp_region)
    2022                 :            :                 {
    2023                 :      44914 :                   tree nr = build_int_cst (integer_type_node,
    2024                 :      22457 :                                            state->ehp_region->index);
    2025                 :      22457 :                   gimple_call_set_arg (stmt, 0, nr);
    2026                 :            :                 }
    2027                 :            :               else
    2028                 :            :                 {
    2029                 :            :                   /* The user has dome something silly.  Remove it.  */
    2030                 :          0 :                   rhs = null_pointer_node;
    2031                 :          0 :                   goto do_replace;
    2032                 :            :                 }
    2033                 :      22457 :               break;
    2034                 :            : 
    2035                 :          0 :             case BUILT_IN_EH_FILTER:
    2036                 :            :               /* ??? This should never appear, but since it's a builtin it
    2037                 :            :                  is accessible to abuse by users.  Just remove it and
    2038                 :            :                  replace the use with the arbitrary value zero.  */
    2039                 :          0 :               rhs = build_int_cst (TREE_TYPE (TREE_TYPE (fndecl)), 0);
    2040                 :          0 :             do_replace:
    2041                 :          0 :               lhs = gimple_call_lhs (stmt);
    2042                 :          0 :               x = gimple_build_assign (lhs, rhs);
    2043                 :          0 :               gsi_insert_before (gsi, x, GSI_SAME_STMT);
    2044                 :            :               /* FALLTHRU */
    2045                 :            : 
    2046                 :          0 :             case BUILT_IN_EH_COPY_VALUES:
    2047                 :            :               /* Likewise this should not appear.  Remove it.  */
    2048                 :          0 :               gsi_remove (gsi, true);
    2049                 :    1582670 :               return;
    2050                 :            : 
    2051                 :            :             default:
    2052                 :            :               break;
    2053                 :            :             }
    2054                 :            :       }
    2055                 :            :       /* FALLTHRU */
    2056                 :            : 
    2057                 :   34805100 :     case GIMPLE_ASSIGN:
    2058                 :            :       /* If the stmt can throw, use a new temporary for the assignment
    2059                 :            :          to a LHS.  This makes sure the old value of the LHS is
    2060                 :            :          available on the EH edge.  Only do so for statements that
    2061                 :            :          potentially fall through (no noreturn calls e.g.), otherwise
    2062                 :            :          this new assignment might create fake fallthru regions.  */
    2063                 :   34805100 :       if (stmt_could_throw_p (cfun, stmt)
    2064                 :    2488600 :           && gimple_has_lhs (stmt)
    2065                 :    1863590 :           && gimple_stmt_may_fallthru (stmt)
    2066                 :    1863590 :           && !tree_could_throw_p (gimple_get_lhs (stmt))
    2067                 :   36506300 :           && is_gimple_reg_type (TREE_TYPE (gimple_get_lhs (stmt))))
    2068                 :            :         {
    2069                 :    1316750 :           tree lhs = gimple_get_lhs (stmt);
    2070                 :    1316750 :           tree tmp = create_tmp_var (TREE_TYPE (lhs));
    2071                 :    1316750 :           gimple *s = gimple_build_assign (lhs, tmp);
    2072                 :    1316750 :           gimple_set_location (s, gimple_location (stmt));
    2073                 :    2633470 :           gimple_set_block (s, gimple_block (stmt));
    2074                 :    1316750 :           gimple_set_lhs (stmt, tmp);
    2075                 :    1316750 :           if (TREE_CODE (TREE_TYPE (tmp)) == COMPLEX_TYPE
    2076                 :    1316750 :               || TREE_CODE (TREE_TYPE (tmp)) == VECTOR_TYPE)
    2077                 :       1976 :             DECL_GIMPLE_REG_P (tmp) = 1;
    2078                 :    1316750 :           gsi_insert_after (gsi, s, GSI_SAME_STMT);
    2079                 :            :         }
    2080                 :            :       /* Look for things that can throw exceptions, and record them.  */
    2081                 :   34805100 :       if (state->cur_region && stmt_could_throw_p (cfun, stmt))
    2082                 :            :         {
    2083                 :    1992890 :           record_stmt_eh_region (state->cur_region, stmt);
    2084                 :    1992890 :           note_eh_region_may_contain_throw (state->cur_region);
    2085                 :            :         }
    2086                 :            :       break;
    2087                 :            : 
    2088                 :    8814170 :     case GIMPLE_COND:
    2089                 :    8814170 :     case GIMPLE_GOTO:
    2090                 :    8814170 :     case GIMPLE_RETURN:
    2091                 :    8814170 :       maybe_record_in_goto_queue (state, stmt);
    2092                 :    8814170 :       break;
    2093                 :            : 
    2094                 :      33069 :     case GIMPLE_SWITCH:
    2095                 :      33069 :       verify_norecord_switch_expr (state, as_a <gswitch *> (stmt));
    2096                 :      33069 :       break;
    2097                 :            : 
    2098                 :    1582670 :     case GIMPLE_TRY:
    2099                 :    1582670 :       {
    2100                 :    1582670 :         gtry *try_stmt = as_a <gtry *> (stmt);
    2101                 :    1582670 :         if (gimple_try_kind (try_stmt) == GIMPLE_TRY_FINALLY)
    2102                 :     977523 :           replace = lower_try_finally (state, try_stmt);
    2103                 :            :         else
    2104                 :            :           {
    2105                 :     605151 :             x = gimple_seq_first_stmt (gimple_try_cleanup (try_stmt));
    2106                 :     605151 :             if (!x)
    2107                 :            :               {
    2108                 :        356 :                 replace = gimple_try_eval (try_stmt);
    2109                 :        356 :                 lower_eh_constructs_1 (state, &replace);
    2110                 :            :               }
    2111                 :            :             else
    2112                 :     604795 :               switch (gimple_code (x))
    2113                 :            :                 {
    2114                 :      42390 :                 case GIMPLE_CATCH:
    2115                 :      42390 :                   replace = lower_catch (state, try_stmt);
    2116                 :      42390 :                   break;
    2117                 :       8389 :                 case GIMPLE_EH_FILTER:
    2118                 :       8389 :                   replace = lower_eh_filter (state, try_stmt);
    2119                 :       8389 :                   break;
    2120                 :     401122 :                 case GIMPLE_EH_MUST_NOT_THROW:
    2121                 :     401122 :                   replace = lower_eh_must_not_throw (state, try_stmt);
    2122                 :     401122 :                   break;
    2123                 :          0 :                 case GIMPLE_EH_ELSE:
    2124                 :            :                   /* This code is only valid with GIMPLE_TRY_FINALLY.  */
    2125                 :          0 :                   gcc_unreachable ();
    2126                 :     152894 :                 default:
    2127                 :     152894 :                   replace = lower_cleanup (state, try_stmt);
    2128                 :     152894 :                   break;
    2129                 :            :                 }
    2130                 :            :           }
    2131                 :            :       }
    2132                 :            : 
    2133                 :            :       /* Remove the old stmt and insert the transformed sequence
    2134                 :            :          instead. */
    2135                 :    1582670 :       gsi_insert_seq_before (gsi, replace, GSI_SAME_STMT);
    2136                 :    1582670 :       gsi_remove (gsi, true);
    2137                 :            : 
    2138                 :            :       /* Return since we don't want gsi_next () */
    2139                 :    1582670 :       return;
    2140                 :            : 
    2141                 :          0 :     case GIMPLE_EH_ELSE:
    2142                 :            :       /* We should be eliminating this in lower_try_finally et al.  */
    2143                 :          0 :       gcc_unreachable ();
    2144                 :            : 
    2145                 :            :     default:
    2146                 :            :       /* A type, a decl, or some kind of statement that we're not
    2147                 :            :          interested in.  Don't walk them.  */
    2148                 :            :       break;
    2149                 :            :     }
    2150                 :            : 
    2151                 :   57058500 :   gsi_next (gsi);
    2152                 :            : }
    2153                 :            : 
    2154                 :            : /* A helper to unwrap a gimple_seq and feed stmts to lower_eh_constructs_2. */
    2155                 :            : 
    2156                 :            : static void
    2157                 :    4972270 : lower_eh_constructs_1 (struct leh_state *state, gimple_seq *pseq)
    2158                 :            : {
    2159                 :    4972270 :   gimple_stmt_iterator gsi;
    2160                 :   68476100 :   for (gsi = gsi_start (*pseq); !gsi_end_p (gsi);)
    2161                 :   58641200 :     lower_eh_constructs_2 (state, &gsi);
    2162                 :    4972270 : }
    2163                 :            : 
    2164                 :            : namespace {
    2165                 :            : 
    2166                 :            : const pass_data pass_data_lower_eh =
    2167                 :            : {
    2168                 :            :   GIMPLE_PASS, /* type */
    2169                 :            :   "eh", /* name */
    2170                 :            :   OPTGROUP_NONE, /* optinfo_flags */
    2171                 :            :   TV_TREE_EH, /* tv_id */
    2172                 :            :   PROP_gimple_lcf, /* properties_required */
    2173                 :            :   PROP_gimple_leh, /* properties_provided */
    2174                 :            :   0, /* properties_destroyed */
    2175                 :            :   0, /* todo_flags_start */
    2176                 :            :   0, /* todo_flags_finish */
    2177                 :            : };
    2178                 :            : 
    2179                 :            : class pass_lower_eh : public gimple_opt_pass
    2180                 :            : {
    2181                 :            : public:
    2182                 :     200773 :   pass_lower_eh (gcc::context *ctxt)
    2183                 :     401546 :     : gimple_opt_pass (pass_data_lower_eh, ctxt)
    2184                 :            :   {}
    2185                 :            : 
    2186                 :            :   /* opt_pass methods: */
    2187                 :            :   virtual unsigned int execute (function *);
    2188                 :            : 
    2189                 :            : }; // class pass_lower_eh
    2190                 :            : 
    2191                 :            : unsigned int
    2192                 :    1862760 : pass_lower_eh::execute (function *fun)
    2193                 :            : {
    2194                 :    1862760 :   struct leh_state null_state;
    2195                 :    1862760 :   gimple_seq bodyp;
    2196                 :            : 
    2197                 :    1862760 :   bodyp = gimple_body (current_function_decl);
    2198                 :    1862760 :   if (bodyp == NULL)
    2199                 :            :     return 0;
    2200                 :            : 
    2201                 :    1862760 :   finally_tree = new hash_table<finally_tree_hasher> (31);
    2202                 :    1862760 :   eh_region_may_contain_throw_map = BITMAP_ALLOC (NULL);
    2203                 :    1862760 :   memset (&null_state, 0, sizeof (null_state));
    2204                 :            : 
    2205                 :    1862760 :   collect_finally_tree_1 (bodyp, NULL);
    2206                 :    1862760 :   lower_eh_constructs_1 (&null_state, &bodyp);
    2207                 :    1862760 :   gimple_set_body (current_function_decl, bodyp);
    2208                 :            : 
    2209                 :            :   /* We assume there's a return statement, or something, at the end of
    2210                 :            :      the function, and thus ploping the EH sequence afterward won't
    2211                 :            :      change anything.  */
    2212                 :    1862760 :   gcc_assert (!gimple_seq_may_fallthru (bodyp));
    2213                 :    1862760 :   gimple_seq_add_seq (&bodyp, eh_seq);
    2214                 :            : 
    2215                 :            :   /* We assume that since BODYP already existed, adding EH_SEQ to it
    2216                 :            :      didn't change its value, and we don't have to re-set the function.  */
    2217                 :    1862760 :   gcc_assert (bodyp == gimple_body (current_function_decl));
    2218                 :            : 
    2219                 :    1862760 :   delete finally_tree;
    2220                 :    1862760 :   finally_tree = NULL;
    2221                 :    1862760 :   BITMAP_FREE (eh_region_may_contain_throw_map);
    2222                 :    1862760 :   eh_seq = NULL;
    2223                 :            : 
    2224                 :            :   /* If this function needs a language specific EH personality routine
    2225                 :            :      and the frontend didn't already set one do so now.  */
    2226                 :    1862760 :   if (function_needs_eh_personality (fun) == eh_personality_lang
    2227                 :    1862760 :       && !DECL_FUNCTION_PERSONALITY (current_function_decl))
    2228                 :     499560 :     DECL_FUNCTION_PERSONALITY (current_function_decl)
    2229                 :     499560 :       = lang_hooks.eh_personality ();
    2230                 :            : 
    2231                 :            :   return 0;
    2232                 :            : }
    2233                 :            : 
    2234                 :            : } // anon namespace
    2235                 :            : 
    2236                 :            : gimple_opt_pass *
    2237                 :     200773 : make_pass_lower_eh (gcc::context *ctxt)
    2238                 :            : {
    2239                 :     200773 :   return new pass_lower_eh (ctxt);
    2240                 :            : }
    2241                 :            : 
    2242                 :            : /* Create the multiple edges from an EH_DISPATCH statement to all of
    2243                 :            :    the possible handlers for its EH region.  Return true if there's
    2244                 :            :    no fallthru edge; false if there is.  */
    2245                 :            : 
    2246                 :            : bool
    2247                 :      50537 : make_eh_dispatch_edges (geh_dispatch *stmt)
    2248                 :            : {
    2249                 :      50537 :   eh_region r;
    2250                 :      50537 :   eh_catch c;
    2251                 :      50537 :   basic_block src, dst;
    2252                 :            : 
    2253                 :      50537 :   r = get_eh_region_from_number (gimple_eh_dispatch_region (stmt));
    2254                 :      50537 :   src = gimple_bb (stmt);
    2255                 :            : 
    2256                 :      50537 :   switch (r->type)
    2257                 :            :     {
    2258                 :      46638 :     case ERT_TRY:
    2259                 :      52570 :       for (c = r->u.eh_try.first_catch; c ; c = c->next_catch)
    2260                 :            :         {
    2261                 :      49768 :           dst = label_to_block (cfun, c->label);
    2262                 :      49768 :           make_edge (src, dst, 0);
    2263                 :            : 
    2264                 :            :           /* A catch-all handler doesn't have a fallthru.  */
    2265                 :      49768 :           if (c->type_list == NULL)
    2266                 :            :             return false;
    2267                 :            :         }
    2268                 :            :       break;
    2269                 :            : 
    2270                 :       3899 :     case ERT_ALLOWED_EXCEPTIONS:
    2271                 :       3899 :       dst = label_to_block (cfun, r->u.allowed.label);
    2272                 :       3899 :       make_edge (src, dst, 0);
    2273                 :       3899 :       break;
    2274                 :            : 
    2275                 :          0 :     default:
    2276                 :          0 :       gcc_unreachable ();
    2277                 :            :     }
    2278                 :            : 
    2279                 :            :   return true;
    2280                 :            : }
    2281                 :            : 
    2282                 :            : /* Create the single EH edge from STMT to its nearest landing pad,
    2283                 :            :    if there is such a landing pad within the current function.  */
    2284                 :            : 
    2285                 :            : void
    2286                 :    4032530 : make_eh_edges (gimple *stmt)
    2287                 :            : {
    2288                 :    4032530 :   basic_block src, dst;
    2289                 :    4032530 :   eh_landing_pad lp;
    2290                 :    4032530 :   int lp_nr;
    2291                 :            : 
    2292                 :    4032530 :   lp_nr = lookup_stmt_eh_lp (stmt);
    2293                 :    4032530 :   if (lp_nr <= 0)
    2294                 :            :     return;
    2295                 :            : 
    2296                 :    2582930 :   lp = get_eh_landing_pad_from_number (lp_nr);
    2297                 :    2582930 :   gcc_assert (lp != NULL);
    2298                 :            : 
    2299                 :    2582930 :   src = gimple_bb (stmt);
    2300                 :    2582930 :   dst = label_to_block (cfun, lp->post_landing_pad);
    2301                 :    2582930 :   make_edge (src, dst, EDGE_EH);
    2302                 :            : }
    2303                 :            : 
    2304                 :            : /* Do the work in redirecting EDGE_IN to NEW_BB within the EH region tree;
    2305                 :            :    do not actually perform the final edge redirection.
    2306                 :            : 
    2307                 :            :    CHANGE_REGION is true when we're being called from cleanup_empty_eh and
    2308                 :            :    we intend to change the destination EH region as well; this means
    2309                 :            :    EH_LANDING_PAD_NR must already be set on the destination block label.
    2310                 :            :    If false, we're being called from generic cfg manipulation code and we
    2311                 :            :    should preserve our place within the region tree.  */
    2312                 :            : 
    2313                 :            : static void
    2314                 :    2028930 : redirect_eh_edge_1 (edge edge_in, basic_block new_bb, bool change_region)
    2315                 :            : {
    2316                 :    2028930 :   eh_landing_pad old_lp, new_lp;
    2317                 :    2028930 :   basic_block old_bb;
    2318                 :    2028930 :   gimple *throw_stmt;
    2319                 :    2028930 :   int old_lp_nr, new_lp_nr;
    2320                 :    2028930 :   tree old_label, new_label;
    2321                 :    2028930 :   edge_iterator ei;
    2322                 :    2028930 :   edge e;
    2323                 :            : 
    2324                 :    2028930 :   old_bb = edge_in->dest;
    2325                 :    2028930 :   old_label = gimple_block_label (old_bb);
    2326                 :    2028930 :   old_lp_nr = EH_LANDING_PAD_NR (old_label);
    2327                 :    2028930 :   gcc_assert (old_lp_nr > 0);
    2328                 :    2028930 :   old_lp = get_eh_landing_pad_from_number (old_lp_nr);
    2329                 :            : 
    2330                 :    2028930 :   throw_stmt = last_stmt (edge_in->src);
    2331                 :    2028930 :   gcc_checking_assert (lookup_stmt_eh_lp (throw_stmt) == old_lp_nr);
    2332                 :            : 
    2333                 :    2028930 :   new_label = gimple_block_label (new_bb);
    2334                 :            : 
    2335                 :            :   /* Look for an existing region that might be using NEW_BB already.  */
    2336                 :    2028930 :   new_lp_nr = EH_LANDING_PAD_NR (new_label);
    2337                 :    2028930 :   if (new_lp_nr)
    2338                 :            :     {
    2339                 :    1173940 :       new_lp = get_eh_landing_pad_from_number (new_lp_nr);
    2340                 :    1173940 :       gcc_assert (new_lp);
    2341                 :            : 
    2342                 :            :       /* Unless CHANGE_REGION is true, the new and old landing pad
    2343                 :            :          had better be associated with the same EH region.  */
    2344                 :    1173940 :       gcc_assert (change_region || new_lp->region == old_lp->region);
    2345                 :            :     }
    2346                 :            :   else
    2347                 :            :     {
    2348                 :     854993 :       new_lp = NULL;
    2349                 :     854993 :       gcc_assert (!change_region);
    2350                 :            :     }
    2351                 :            : 
    2352                 :            :   /* Notice when we redirect the last EH edge away from OLD_BB.  */
    2353                 :    6131180 :   FOR_EACH_EDGE (e, ei, old_bb->preds)
    2354                 :    5187830 :     if (e != edge_in && (e->flags & EDGE_EH))
    2355                 :            :       break;
    2356                 :            : 
    2357                 :    2028930 :   if (new_lp)
    2358                 :            :     {
    2359                 :            :       /* NEW_LP already exists.  If there are still edges into OLD_LP,
    2360                 :            :          there's nothing to do with the EH tree.  If there are no more
    2361                 :            :          edges into OLD_LP, then we want to remove OLD_LP as it is unused.
    2362                 :            :          If CHANGE_REGION is true, then our caller is expecting to remove
    2363                 :            :          the landing pad.  */
    2364                 :    1173940 :       if (e == NULL && !change_region)
    2365                 :     664818 :         remove_eh_landing_pad (old_lp);
    2366                 :            :     }
    2367                 :            :   else
    2368                 :            :     {
    2369                 :            :       /* No correct landing pad exists.  If there are no more edges
    2370                 :            :          into OLD_LP, then we can simply re-use the existing landing pad.
    2371                 :            :          Otherwise, we have to create a new landing pad.  */
    2372                 :     854993 :       if (e == NULL)
    2373                 :            :         {
    2374                 :     176777 :           EH_LANDING_PAD_NR (old_lp->post_landing_pad) = 0;
    2375                 :     176777 :           new_lp = old_lp;
    2376                 :            :         }
    2377                 :            :       else
    2378                 :     678216 :         new_lp = gen_eh_landing_pad (old_lp->region);
    2379                 :     854993 :       new_lp->post_landing_pad = new_label;
    2380                 :     854993 :       EH_LANDING_PAD_NR (new_label) = new_lp->index;
    2381                 :            :     }
    2382                 :            : 
    2383                 :            :   /* Maybe move the throwing statement to the new region.  */
    2384                 :    2028930 :   if (old_lp != new_lp)
    2385                 :            :     {
    2386                 :    1852150 :       remove_stmt_from_eh_lp (throw_stmt);
    2387                 :    1852150 :       add_stmt_to_eh_lp (throw_stmt, new_lp->index);
    2388                 :            :     }
    2389                 :    2028930 : }
    2390                 :            : 
    2391                 :            : /* Redirect EH edge E to NEW_BB.  */
    2392                 :            : 
    2393                 :            : edge
    2394                 :     766967 : redirect_eh_edge (edge edge_in, basic_block new_bb)
    2395                 :            : {
    2396                 :     766967 :   redirect_eh_edge_1 (edge_in, new_bb, false);
    2397                 :     766967 :   return ssa_redirect_edge (edge_in, new_bb);
    2398                 :            : }
    2399                 :            : 
    2400                 :            : /* This is a subroutine of gimple_redirect_edge_and_branch.  Update the
    2401                 :            :    labels for redirecting a non-fallthru EH_DISPATCH edge E to NEW_BB.
    2402                 :            :    The actual edge update will happen in the caller.  */
    2403                 :            : 
    2404                 :            : void
    2405                 :          0 : redirect_eh_dispatch_edge (geh_dispatch *stmt, edge e, basic_block new_bb)
    2406                 :            : {
    2407                 :          0 :   tree new_lab = gimple_block_label (new_bb);
    2408                 :          0 :   bool any_changed = false;
    2409                 :          0 :   basic_block old_bb;
    2410                 :          0 :   eh_region r;
    2411                 :          0 :   eh_catch c;
    2412                 :            : 
    2413                 :          0 :   r = get_eh_region_from_number (gimple_eh_dispatch_region (stmt));
    2414                 :          0 :   switch (r->type)
    2415                 :            :     {
    2416                 :          0 :     case ERT_TRY:
    2417                 :          0 :       for (c = r->u.eh_try.first_catch; c ; c = c->next_catch)
    2418                 :            :         {
    2419                 :          0 :           old_bb = label_to_block (cfun, c->label);
    2420                 :          0 :           if (old_bb == e->dest)
    2421                 :            :             {
    2422                 :          0 :               c->label = new_lab;
    2423                 :          0 :               any_changed = true;
    2424                 :            :             }
    2425                 :            :         }
    2426                 :            :       break;
    2427                 :            : 
    2428                 :          0 :     case ERT_ALLOWED_EXCEPTIONS:
    2429                 :          0 :       old_bb = label_to_block (cfun, r->u.allowed.label);
    2430                 :          0 :       gcc_assert (old_bb == e->dest);
    2431                 :          0 :       r->u.allowed.label = new_lab;
    2432                 :          0 :       any_changed = true;
    2433                 :          0 :       break;
    2434                 :            : 
    2435                 :          0 :     default:
    2436                 :          0 :       gcc_unreachable ();
    2437                 :            :     }
    2438                 :            : 
    2439                 :          0 :   gcc_assert (any_changed);
    2440                 :          0 : }
    2441                 :            : 
    2442                 :            : /* Helper function for operation_could_trap_p and stmt_could_throw_p.  */
    2443                 :            : 
    2444                 :            : bool
    2445                 : 1186620000 : operation_could_trap_helper_p (enum tree_code op,
    2446                 :            :                                bool fp_operation,
    2447                 :            :                                bool honor_trapv,
    2448                 :            :                                bool honor_nans,
    2449                 :            :                                bool honor_snans,
    2450                 :            :                                tree divisor,
    2451                 :            :                                bool *handled)
    2452                 :            : {
    2453                 : 1186620000 :   *handled = true;
    2454                 : 1186620000 :   switch (op)
    2455                 :            :     {
    2456                 :    1876020 :     case TRUNC_DIV_EXPR:
    2457                 :    1876020 :     case CEIL_DIV_EXPR:
    2458                 :    1876020 :     case FLOOR_DIV_EXPR:
    2459                 :    1876020 :     case ROUND_DIV_EXPR:
    2460                 :    1876020 :     case EXACT_DIV_EXPR:
    2461                 :    1876020 :     case CEIL_MOD_EXPR:
    2462                 :    1876020 :     case FLOOR_MOD_EXPR:
    2463                 :    1876020 :     case ROUND_MOD_EXPR:
    2464                 :    1876020 :     case TRUNC_MOD_EXPR:
    2465                 :    1876020 :     case RDIV_EXPR:
    2466                 :    1876020 :       if (honor_snans)
    2467                 :            :         return true;
    2468                 :    1866730 :       if (fp_operation)
    2469                 :     302748 :         return flag_trapping_math;
    2470                 :    1563980 :       if (!TREE_CONSTANT (divisor) || integer_zerop (divisor))
    2471                 :     487075 :         return true;
    2472                 :            :       return false;
    2473                 :            : 
    2474                 :            :     case LT_EXPR:
    2475                 :            :     case LE_EXPR:
    2476                 :            :     case GT_EXPR:
    2477                 :            :     case GE_EXPR:
    2478                 :            :     case LTGT_EXPR:
    2479                 :            :       /* Some floating point comparisons may trap.  */
    2480                 :            :       return honor_nans;
    2481                 :            : 
    2482                 :   54097500 :     case EQ_EXPR:
    2483                 :   54097500 :     case NE_EXPR:
    2484                 :   54097500 :     case UNORDERED_EXPR:
    2485                 :   54097500 :     case ORDERED_EXPR:
    2486                 :   54097500 :     case UNLT_EXPR:
    2487                 :   54097500 :     case UNLE_EXPR:
    2488                 :   54097500 :     case UNGT_EXPR:
    2489                 :   54097500 :     case UNGE_EXPR:
    2490                 :   54097500 :     case UNEQ_EXPR:
    2491                 :   54097500 :       return honor_snans;
    2492                 :            : 
    2493                 :     980274 :     case NEGATE_EXPR:
    2494                 :     980274 :     case ABS_EXPR:
    2495                 :     980274 :     case CONJ_EXPR:
    2496                 :            :       /* These operations don't trap with floating point.  */
    2497                 :     980274 :       if (honor_trapv)
    2498                 :        240 :         return true;
    2499                 :            :       return false;
    2500                 :            : 
    2501                 :        749 :     case ABSU_EXPR:
    2502                 :            :       /* ABSU_EXPR never traps.  */
    2503                 :        749 :       return false;
    2504                 :            : 
    2505                 :   53312000 :     case PLUS_EXPR:
    2506                 :   53312000 :     case MINUS_EXPR:
    2507                 :   53312000 :     case MULT_EXPR:
    2508                 :            :       /* Any floating arithmetic may trap.  */
    2509                 :   53312000 :       if (fp_operation && flag_trapping_math)
    2510                 :            :         return true;
    2511                 :   52292400 :       if (honor_trapv)
    2512                 :      19871 :         return true;
    2513                 :            :       return false;
    2514                 :            : 
    2515                 :    8162200 :     case COMPLEX_EXPR:
    2516                 :    8162200 :     case CONSTRUCTOR:
    2517                 :            :       /* Constructing an object cannot trap.  */
    2518                 :    8162200 :       return false;
    2519                 :            : 
    2520                 :      20606 :     case COND_EXPR:
    2521                 :      20606 :     case VEC_COND_EXPR:
    2522                 :            :       /* Whether *COND_EXPR can trap depends on whether the
    2523                 :            :          first argument can trap, so signal it as not handled.
    2524                 :            :          Whether lhs is floating or not doesn't matter.  */
    2525                 :      20606 :       *handled = false;
    2526                 :      20606 :       return false;
    2527                 :            : 
    2528                 : 1038490000 :     default:
    2529                 :            :       /* Any floating arithmetic may trap.  */
    2530                 : 1038490000 :       if (fp_operation && flag_trapping_math)
    2531                 :            :         return true;
    2532                 :            : 
    2533                 : 1037000000 :       *handled = false;
    2534                 : 1037000000 :       return false;
    2535                 :            :     }
    2536                 :            : }
    2537                 :            : 
    2538                 :            : /* Return true if operation OP may trap.  FP_OPERATION is true if OP is applied
    2539                 :            :    on floating-point values.  HONOR_TRAPV is true if OP is applied on integer
    2540                 :            :    type operands that may trap.  If OP is a division operator, DIVISOR contains
    2541                 :            :    the value of the divisor.  */
    2542                 :            : 
    2543                 :            : bool
    2544                 : 2633420000 : operation_could_trap_p (enum tree_code op, bool fp_operation, bool honor_trapv,
    2545                 :            :                         tree divisor)
    2546                 :            : {
    2547                 :   23522000 :   bool honor_nans = (fp_operation && flag_trapping_math
    2548                 : 2648330000 :                      && !flag_finite_math_only);
    2549                 : 2633420000 :   bool honor_snans = fp_operation && flag_signaling_nans != 0;
    2550                 : 2633420000 :   bool handled;
    2551                 :            : 
    2552                 :            :   /* This function cannot tell whether or not COND_EXPR and VEC_COND_EXPR could
    2553                 :            :      trap, because that depends on the respective condition op.  */
    2554                 : 2633420000 :   gcc_assert (op != COND_EXPR && op != VEC_COND_EXPR);
    2555                 :            : 
    2556                 : 2633420000 :   if (TREE_CODE_CLASS (op) != tcc_comparison
    2557                 :            :       && TREE_CODE_CLASS (op) != tcc_unary
    2558                 : 2633420000 :       && TREE_CODE_CLASS (op) != tcc_binary)
    2559                 :            :     return false;
    2560                 :            : 
    2561                 :   66112500 :   return operation_could_trap_helper_p (op, fp_operation, honor_trapv,
    2562                 :            :                                         honor_nans, honor_snans, divisor,
    2563                 :   66112500 :                                         &handled);
    2564                 :            : }
    2565                 :            : 
    2566                 :            : 
    2567                 :            : /* Returns true if it is possible to prove that the index of
    2568                 :            :    an array access REF (an ARRAY_REF expression) falls into the
    2569                 :            :    array bounds.  */
    2570                 :            : 
    2571                 :            : static bool
    2572                 :  117755000 : in_array_bounds_p (tree ref)
    2573                 :            : {
    2574                 :  117755000 :   tree idx = TREE_OPERAND (ref, 1);
    2575                 :  117755000 :   tree min, max;
    2576                 :            : 
    2577                 :  117755000 :   if (TREE_CODE (idx) != INTEGER_CST)
    2578                 :            :     return false;
    2579                 :            : 
    2580                 :  115133000 :   min = array_ref_low_bound (ref);
    2581                 :  115133000 :   max = array_ref_up_bound (ref);
    2582                 :  115133000 :   if (!min
    2583                 :  115133000 :       || !max
    2584                 :  115127000 :       || TREE_CODE (min) != INTEGER_CST
    2585                 :  115127000 :       || TREE_CODE (max) != INTEGER_CST)
    2586                 :            :     return false;
    2587                 :            : 
    2588                 :  115123000 :   if (tree_int_cst_lt (idx, min)
    2589                 :  115123000 :       || tree_int_cst_lt (max, idx))
    2590                 :      28772 :     return false;
    2591                 :            : 
    2592                 :            :   return true;
    2593                 :            : }
    2594                 :            : 
    2595                 :            : /* Returns true if it is possible to prove that the range of
    2596                 :            :    an array access REF (an ARRAY_RANGE_REF expression) falls
    2597                 :            :    into the array bounds.  */
    2598                 :            : 
    2599                 :            : static bool
    2600                 :        395 : range_in_array_bounds_p (tree ref)
    2601                 :            : {
    2602                 :        395 :   tree domain_type = TYPE_DOMAIN (TREE_TYPE (ref));
    2603                 :        395 :   tree range_min, range_max, min, max;
    2604                 :            : 
    2605                 :        395 :   range_min = TYPE_MIN_VALUE (domain_type);
    2606                 :        395 :   range_max = TYPE_MAX_VALUE (domain_type);
    2607                 :        395 :   if (!range_min
    2608                 :        395 :       || !range_max
    2609                 :        395 :       || TREE_CODE (range_min) != INTEGER_CST
    2610                 :        395 :       || TREE_CODE (range_max) != INTEGER_CST)
    2611                 :            :     return false;
    2612                 :            : 
    2613                 :        395 :   min = array_ref_low_bound (ref);
    2614                 :        395 :   max = array_ref_up_bound (ref);
    2615                 :        395 :   if (!min
    2616                 :        395 :       || !max
    2617                 :        395 :       || TREE_CODE (min) != INTEGER_CST
    2618                 :        395 :       || TREE_CODE (max) != INTEGER_CST)
    2619                 :            :     return false;
    2620                 :            : 
    2621                 :        395 :   if (tree_int_cst_lt (range_min, min)
    2622                 :        395 :       || tree_int_cst_lt (max, range_max))
    2623                 :          0 :     return false;
    2624                 :            : 
    2625                 :            :   return true;
    2626                 :            : }
    2627                 :            : 
    2628                 :            : /* Return true if EXPR can trap, as in dereferencing an invalid pointer
    2629                 :            :    location or floating point arithmetic.  C.f. the rtl version, may_trap_p.
    2630                 :            :    This routine expects only GIMPLE lhs or rhs input.  */
    2631                 :            : 
    2632                 :            : bool
    2633                 : 2565740000 : tree_could_trap_p (tree expr)
    2634                 :            : {
    2635                 : 2565740000 :   enum tree_code code;
    2636                 : 2565740000 :   bool fp_operation = false;
    2637                 : 2565740000 :   bool honor_trapv = false;
    2638                 : 2565740000 :   tree t, base, div = NULL_TREE;
    2639                 :            : 
    2640                 : 2565740000 :   if (!expr)
    2641                 :            :     return false;
    2642                 :            : 
    2643                 :            :   /* In COND_EXPR and VEC_COND_EXPR only the condition may trap, but
    2644                 :            :      they won't appear as operands in GIMPLE form, so this is just for the
    2645                 :            :      GENERIC uses where it needs to recurse on the operands and so
    2646                 :            :      *COND_EXPR itself doesn't trap.  */
    2647                 : 2564510000 :   if (TREE_CODE (expr) == COND_EXPR || TREE_CODE (expr) == VEC_COND_EXPR)
    2648                 :            :     return false;
    2649                 :            : 
    2650                 : 2564510000 :   code = TREE_CODE (expr);
    2651                 : 2564510000 :   t = TREE_TYPE (expr);
    2652                 :            : 
    2653                 : 2564510000 :   if (t)
    2654                 :            :     {
    2655                 : 2564450000 :       if (COMPARISON_CLASS_P (expr))
    2656                 :    2687920 :         fp_operation = FLOAT_TYPE_P (TREE_TYPE (TREE_OPERAND (expr, 0)));
    2657                 :            :       else
    2658                 : 2565090000 :         fp_operation = FLOAT_TYPE_P (t);
    2659                 : 2564450000 :       honor_trapv = INTEGRAL_TYPE_P (t) && TYPE_OVERFLOW_TRAPS (t);
    2660                 :            :     }
    2661                 :            : 
    2662                 : 2564510000 :   if (TREE_CODE_CLASS (code) == tcc_binary)
    2663                 :      57168 :     div = TREE_OPERAND (expr, 1);
    2664                 : 2564510000 :   if (operation_could_trap_p (code, fp_operation, honor_trapv, div))
    2665                 :            :     return true;
    2666                 :            : 
    2667                 : 2564390000 :  restart:
    2668                 : 3231030000 :   switch (code)
    2669                 :            :     {
    2670                 :  666633000 :     case COMPONENT_REF:
    2671                 :  666633000 :     case REALPART_EXPR:
    2672                 :  666633000 :     case IMAGPART_EXPR:
    2673                 :  666633000 :     case BIT_FIELD_REF:
    2674                 :  666633000 :     case VIEW_CONVERT_EXPR:
    2675                 :  666633000 :     case WITH_SIZE_EXPR:
    2676                 :  666633000 :       expr = TREE_OPERAND (expr, 0);
    2677                 :  666633000 :       code = TREE_CODE (expr);
    2678                 :  666633000 :       goto restart;
    2679                 :            : 
    2680                 :        453 :     case ARRAY_RANGE_REF:
    2681                 :        453 :       base = TREE_OPERAND (expr, 0);
    2682                 :        453 :       if (tree_could_trap_p (base))
    2683                 :            :         return true;
    2684                 :        395 :       if (TREE_THIS_NOTRAP (expr))
    2685                 :            :         return false;
    2686                 :        395 :       return !range_in_array_bounds_p (expr);
    2687                 :            : 
    2688                 :  122274000 :     case ARRAY_REF:
    2689                 :  122274000 :       base = TREE_OPERAND (expr, 0);
    2690                 :  122274000 :       if (tree_could_trap_p (base))
    2691                 :            :         return true;
    2692                 :  117773000 :       if (TREE_THIS_NOTRAP (expr))
    2693                 :            :         return false;
    2694                 :  117755000 :       return !in_array_bounds_p (expr);
    2695                 :            : 
    2696                 :  412942000 :     case TARGET_MEM_REF:
    2697                 :  412942000 :     case MEM_REF:
    2698                 :  412942000 :       if (TREE_CODE (TREE_OPERAND (expr, 0)) == ADDR_EXPR
    2699                 :  412942000 :           && tree_could_trap_p (TREE_OPERAND (TREE_OPERAND (expr, 0), 0)))
    2700                 :            :         return true;
    2701                 :  412942000 :       if (TREE_THIS_NOTRAP (expr))
    2702                 :            :         return false;
    2703                 :            :       /* We cannot prove that the access is in-bounds when we have
    2704                 :            :          variable-index TARGET_MEM_REFs.  */
    2705                 :  342793000 :       if (code == TARGET_MEM_REF
    2706                 :  347588000 :           && (TMR_INDEX (expr) || TMR_INDEX2 (expr)))
    2707                 :            :         return true;
    2708                 :  338447000 :       if (TREE_CODE (TREE_OPERAND (expr, 0)) == ADDR_EXPR)
    2709                 :            :         {
    2710                 :  153522000 :           tree base = TREE_OPERAND (TREE_OPERAND (expr, 0), 0);
    2711                 :  153522000 :           poly_offset_int off = mem_ref_offset (expr);
    2712                 :  153522000 :           if (maybe_lt (off, 0))
    2713                 :            :             return true;
    2714                 :  153517000 :           if (TREE_CODE (base) == STRING_CST)
    2715                 :      55156 :             return maybe_le (TREE_STRING_LENGTH (base), off);
    2716                 :  153461000 :           tree size = DECL_SIZE_UNIT (base);
    2717                 :  153461000 :           if (size == NULL_TREE
    2718                 :  153455000 :               || !poly_int_tree_p (size)
    2719                 :  306916000 :               || maybe_le (wi::to_poly_offset (size), off))
    2720                 :      15797 :             return true;
    2721                 :            :           /* Now we are sure the first byte of the access is inside
    2722                 :            :              the object.  */
    2723                 :  153446000 :           return false;
    2724                 :            :         }
    2725                 :            :       return true;
    2726                 :            : 
    2727                 :     207534 :     case INDIRECT_REF:
    2728                 :     207534 :       return !TREE_THIS_NOTRAP (expr);
    2729                 :            : 
    2730                 :          0 :     case ASM_EXPR:
    2731                 :          0 :       return TREE_THIS_VOLATILE (expr);
    2732                 :            : 
    2733                 :      67894 :     case CALL_EXPR:
    2734                 :      67894 :       t = get_callee_fndecl (expr);
    2735                 :            :       /* Assume that calls to weak functions may trap.  */
    2736                 :      67894 :       if (!t || !DECL_P (t))
    2737                 :            :         return true;
    2738                 :      67874 :       if (DECL_WEAK (t))
    2739                 :          0 :         return tree_could_trap_p (t);
    2740                 :            :       return false;
    2741                 :            : 
    2742                 :         98 :     case FUNCTION_DECL:
    2743                 :            :       /* Assume that accesses to weak functions may trap, unless we know
    2744                 :            :          they are certainly defined in current TU or in some other
    2745                 :            :          LTO partition.  */
    2746                 :         98 :       if (DECL_WEAK (expr) && !DECL_COMDAT (expr) && DECL_EXTERNAL (expr))
    2747                 :            :         {
    2748                 :          0 :           cgraph_node *node = cgraph_node::get (expr);
    2749                 :          0 :           if (node)
    2750                 :          0 :             node = node->function_symbol ();
    2751                 :          0 :           return !(node && node->in_other_partition);
    2752                 :            :         }
    2753                 :            :       return false;
    2754                 :            : 
    2755                 :  739860000 :     case VAR_DECL:
    2756                 :            :       /* Assume that accesses to weak vars may trap, unless we know
    2757                 :            :          they are certainly defined in current TU or in some other
    2758                 :            :          LTO partition.  */
    2759                 :  740155000 :       if (DECL_WEAK (expr) && !DECL_COMDAT (expr) && DECL_EXTERNAL (expr))
    2760                 :            :         {
    2761                 :       3229 :           varpool_node *node = varpool_node::get (expr);
    2762                 :       3229 :           if (node)
    2763                 :       3229 :             node = node->ultimate_alias_target ();
    2764                 :       3229 :           return !(node && node->in_other_partition);
    2765                 :            :         }
    2766                 :            :       return false;
    2767                 :            : 
    2768                 :            :     default:
    2769                 :            :       return false;
    2770                 :            :     }
    2771                 :            : }
    2772                 :            : 
    2773                 :            : /* Return non-NULL if there is an integer operation with trapping overflow
    2774                 :            :    we can rewrite into non-trapping.  Called via walk_tree from
    2775                 :            :    rewrite_to_non_trapping_overflow.  */
    2776                 :            : 
    2777                 :            : static tree
    2778                 :        389 : find_trapping_overflow (tree *tp, int *walk_subtrees, void *data)
    2779                 :            : {
    2780                 :        389 :   if (EXPR_P (*tp)
    2781                 :        244 :       && ANY_INTEGRAL_TYPE_P (TREE_TYPE (*tp))
    2782                 :        598 :       && !operation_no_trapping_overflow (TREE_TYPE (*tp), TREE_CODE (*tp)))
    2783                 :         20 :     return *tp;
    2784                 :        369 :   if (IS_TYPE_OR_DECL_P (*tp)
    2785                 :        362 :       || (TREE_CODE (*tp) == SAVE_EXPR && data == NULL))
    2786                 :          7 :     *walk_subtrees = 0;
    2787                 :            :   return NULL_TREE;
    2788                 :            : }
    2789                 :            : 
    2790                 :            : /* Rewrite selected operations into unsigned arithmetics, so that they
    2791                 :            :    don't trap on overflow.  */
    2792                 :            : 
    2793                 :            : static tree
    2794                 :        123 : replace_trapping_overflow (tree *tp, int *walk_subtrees, void *data)
    2795                 :            : {
    2796                 :        123 :   if (find_trapping_overflow (tp, walk_subtrees, data))
    2797                 :            :     {
    2798                 :         13 :       tree type = TREE_TYPE (*tp);
    2799                 :         13 :       tree utype = unsigned_type_for (type);
    2800                 :         13 :       *walk_subtrees = 0;
    2801                 :         13 :       int len = TREE_OPERAND_LENGTH (*tp);
    2802                 :         39 :       for (int i = 0; i < len; ++i)
    2803                 :         26 :         walk_tree (&TREE_OPERAND (*tp, i), replace_trapping_overflow,
    2804                 :            :                    data, (hash_set<tree> *) data);
    2805                 :            : 
    2806                 :         13 :       if (TREE_CODE (*tp) == ABS_EXPR)
    2807                 :            :         {
    2808                 :          0 :           TREE_SET_CODE (*tp, ABSU_EXPR);
    2809                 :          0 :           TREE_TYPE (*tp) = utype;
    2810                 :          0 :           *tp = fold_convert (type, *tp);
    2811                 :            :         }
    2812                 :            :       else
    2813                 :            :         {
    2814                 :         13 :           TREE_TYPE (*tp) = utype;
    2815                 :         13 :           len = TREE_OPERAND_LENGTH (*tp);
    2816                 :         39 :           for (int i = 0; i < len; ++i)
    2817                 :         52 :             TREE_OPERAND (*tp, i)
    2818                 :         26 :               = fold_convert (utype, TREE_OPERAND (*tp, i));
    2819                 :         13 :           *tp = fold_convert (type, *tp);
    2820                 :            :         }
    2821                 :            :     }
    2822                 :        123 :   return NULL_TREE;
    2823                 :            : }
    2824                 :            : 
    2825                 :            : /* If any subexpression of EXPR can trap due to -ftrapv, rewrite it
    2826                 :            :    using unsigned arithmetics to avoid traps in it.  */
    2827                 :            : 
    2828                 :            : tree
    2829                 :      30449 : rewrite_to_non_trapping_overflow (tree expr)
    2830                 :            : {
    2831                 :      30449 :   if (!flag_trapv)
    2832                 :      30403 :     return expr;
    2833                 :         46 :   hash_set<tree> pset;
    2834                 :         46 :   if (!walk_tree (&expr, find_trapping_overflow, &pset, &pset))
    2835                 :         39 :     return expr;
    2836                 :          7 :   expr = unshare_expr (expr);
    2837                 :          7 :   pset.empty ();
    2838                 :          7 :   walk_tree (&expr, replace_trapping_overflow, &pset, &pset);
    2839                 :          7 :   return expr;
    2840                 :            : }
    2841                 :            : 
    2842                 :            : /* Helper for stmt_could_throw_p.  Return true if STMT (assumed to be a
    2843                 :            :    an assignment or a conditional) may throw.  */
    2844                 :            : 
    2845                 :            : static bool
    2846                 : 1160680000 : stmt_could_throw_1_p (gassign *stmt)
    2847                 :            : {
    2848                 : 1160680000 :   enum tree_code code = gimple_assign_rhs_code (stmt);
    2849                 : 1160680000 :   bool honor_nans = false;
    2850                 : 1160680000 :   bool honor_snans = false;
    2851                 : 1160680000 :   bool fp_operation = false;
    2852                 : 1160680000 :   bool honor_trapv = false;
    2853                 : 1160680000 :   tree t;
    2854                 : 1160680000 :   size_t i;
    2855                 : 1160680000 :   bool handled, ret;
    2856                 :            : 
    2857                 : 1160680000 :   if (TREE_CODE_CLASS (code) == tcc_comparison
    2858                 :            :       || TREE_CODE_CLASS (code) == tcc_unary
    2859                 : 1160680000 :       || TREE_CODE_CLASS (code) == tcc_binary)
    2860                 :            :     {
    2861                 :  177102000 :       if (TREE_CODE_CLASS (code) == tcc_comparison)
    2862                 :   28186200 :         t = TREE_TYPE (gimple_assign_rhs1 (stmt));
    2863                 :            :       else
    2864                 :  148916000 :         t = gimple_expr_type (stmt);
    2865                 :  177425000 :       fp_operation = FLOAT_TYPE_P (t);
    2866                 :  177102000 :       if (fp_operation)
    2867                 :            :         {
    2868                 :    5776520 :           honor_nans = flag_trapping_math && !flag_finite_math_only;
    2869                 :    5776520 :           honor_snans = flag_signaling_nans != 0;
    2870                 :            :         }
    2871                 :  171326000 :       else if (INTEGRAL_TYPE_P (t) && TYPE_OVERFLOW_TRAPS (t))
    2872                 :            :         honor_trapv = true;
    2873                 :            :     }
    2874                 :            : 
    2875                 :            :   /* First check the LHS.  */
    2876                 : 1160680000 :   if (tree_could_trap_p (gimple_assign_lhs (stmt)))
    2877                 :            :     return true;
    2878                 :            : 
    2879                 :            :   /* Check if the main expression may trap.  */
    2880                 : 1232000000 :   ret = operation_could_trap_helper_p (code, fp_operation, honor_trapv,
    2881                 :            :                                        honor_nans, honor_snans,
    2882                 :            :                                        gimple_assign_rhs2 (stmt),
    2883                 :            :                                        &handled);
    2884                 : 1118880000 :   if (handled)
    2885                 :            :     return ret;
    2886                 :            : 
    2887                 :            :   /* If the expression does not trap, see if any of the individual operands may
    2888                 :            :      trap.  */
    2889                 : 1955970000 :   for (i = 1; i < gimple_num_ops (stmt); i++)
    2890                 : 1066020000 :     if (tree_could_trap_p (gimple_op (stmt, i)))
    2891                 :            :       return true;
    2892                 :            : 
    2893                 :            :   return false;
    2894                 :            : }
    2895                 :            : 
    2896                 :            : 
    2897                 :            : /* Return true if statement STMT within FUN could throw an exception.  */
    2898                 :            : 
    2899                 :            : bool
    2900                 : 9427110000 : stmt_could_throw_p (function *fun, gimple *stmt)
    2901                 :            : {
    2902                 : 9427110000 :   if (!flag_exceptions)
    2903                 :            :     return false;
    2904                 :            : 
    2905                 :            :   /* The only statements that can throw an exception are assignments,
    2906                 :            :      conditionals, calls, resx, and asms.  */
    2907                 : 7033490000 :   switch (gimple_code (stmt))
    2908                 :            :     {
    2909                 :            :     case GIMPLE_RESX:
    2910                 :            :       return true;
    2911                 :            : 
    2912                 :  653387000 :     case GIMPLE_CALL:
    2913                 :  653387000 :       return !gimple_call_nothrow_p (as_a <gcall *> (stmt));
    2914                 :            : 
    2915                 :   95072300 :     case GIMPLE_COND:
    2916                 :   95072300 :       {
    2917                 :   95072300 :         if (fun && !fun->can_throw_non_call_exceptions)
    2918                 :            :           return false;
    2919                 :   48328900 :         gcond *cond = as_a <gcond *> (stmt);
    2920                 :   48328900 :         tree lhs = gimple_cond_lhs (cond);
    2921                 :   96657700 :         return operation_could_trap_p (gimple_cond_code (cond),
    2922                 :   48328900 :                                        FLOAT_TYPE_P (TREE_TYPE (lhs)),
    2923                 :   48328900 :                                        false, NULL_TREE);
    2924                 :            :       }
    2925                 :            : 
    2926                 : 2211120000 :     case GIMPLE_ASSIGN:
    2927                 : 2211120000 :       if ((fun && !fun->can_throw_non_call_exceptions)
    2928                 : 3405090000 :           || gimple_clobber_p (stmt))
    2929                 :            :         return false;
    2930                 : 1160680000 :       return stmt_could_throw_1_p (as_a <gassign *> (stmt));
    2931                 :            : 
    2932                 :     709718 :     case GIMPLE_ASM:
    2933                 :     709718 :       if (fun && !fun->can_throw_non_call_exceptions)
    2934                 :            :         return false;
    2935                 :      53316 :       return gimple_asm_volatile_p (as_a <gasm *> (stmt));
    2936                 :            : 
    2937                 : 4038440000 :     default:
    2938                 : 4038440000 :       return false;
    2939                 :            :     }
    2940                 :            : }
    2941                 :            : 
    2942                 :            : 
    2943                 :            : /* Return true if expression T could throw an exception.  */
    2944                 :            : 
    2945                 :            : bool
    2946                 :   23092800 : tree_could_throw_p (tree t)
    2947                 :            : {
    2948                 :   23092800 :   if (!flag_exceptions)
    2949                 :            :     return false;
    2950                 :   19382300 :   if (TREE_CODE (t) == MODIFY_EXPR)
    2951                 :            :     {
    2952                 :          0 :       if (cfun->can_throw_non_call_exceptions
    2953                 :          0 :           && tree_could_trap_p (TREE_OPERAND (t, 0)))
    2954                 :            :         return true;
    2955                 :          0 :       t = TREE_OPERAND (t, 1);
    2956                 :            :     }
    2957                 :            : 
    2958                 :   19382300 :   if (TREE_CODE (t) == WITH_SIZE_EXPR)
    2959                 :          0 :     t = TREE_OPERAND (t, 0);
    2960                 :   19382300 :   if (TREE_CODE (t) == CALL_EXPR)
    2961                 :          0 :     return (call_expr_flags (t) & ECF_NOTHROW) == 0;
    2962                 :   19382300 :   if (cfun->can_throw_non_call_exceptions)
    2963                 :   12725200 :     return tree_could_trap_p (t);
    2964                 :            :   return false;
    2965                 :            : }
    2966                 :            : 
    2967                 :            : /* Return true if STMT can throw an exception that is not caught within its
    2968                 :            :    function FUN.  FUN can be NULL but the function is extra conservative
    2969                 :            :    then.  */
    2970                 :            : 
    2971                 :            : bool
    2972                 :  341596000 : stmt_can_throw_external (function *fun, gimple *stmt)
    2973                 :            : {
    2974                 :  341596000 :   int lp_nr;
    2975                 :            : 
    2976                 :  341596000 :   if (!stmt_could_throw_p (fun, stmt))
    2977                 :            :     return false;
    2978                 :   24774500 :   if (!fun)
    2979                 :            :     return true;
    2980                 :            : 
    2981                 :   24772900 :   lp_nr = lookup_stmt_eh_lp_fn (fun, stmt);
    2982                 :   24772900 :   return lp_nr == 0;
    2983                 :            : }
    2984                 :            : 
    2985                 :            : /* Return true if STMT can throw an exception that is caught within its
    2986                 :            :    function FUN.  */
    2987                 :            : 
    2988                 :            : bool
    2989                 : 8078440000 : stmt_can_throw_internal (function *fun, gimple *stmt)
    2990                 :            : {
    2991                 : 8078440000 :   int lp_nr;
    2992                 :            : 
    2993                 : 8078440000 :   gcc_checking_assert (fun);
    2994                 : 8078440000 :   if (!stmt_could_throw_p (fun, stmt))
    2995                 :            :     return false;
    2996                 :            : 
    2997                 :  392460000 :   lp_nr = lookup_stmt_eh_lp_fn (fun, stmt);
    2998                 :  392460000 :   return lp_nr > 0;
    2999                 :            : }
    3000                 :            : 
    3001                 :            : /* Given a statement STMT in IFUN, if STMT can no longer throw, then
    3002                 :            :    remove any entry it might have from the EH table.  Return true if
    3003                 :            :    any change was made.  */
    3004                 :            : 
    3005                 :            : bool
    3006                 :  344802000 : maybe_clean_eh_stmt_fn (struct function *ifun, gimple *stmt)
    3007                 :            : {
    3008                 :  344802000 :   if (stmt_could_throw_p (ifun, stmt))
    3009                 :            :     return false;
    3010                 :  326762000 :   return remove_stmt_from_eh_lp_fn (ifun, stmt);
    3011                 :            : }
    3012                 :            : 
    3013                 :            : /* Likewise, but always use the current function.  */
    3014                 :            : 
    3015                 :            : bool
    3016                 :  344802000 : maybe_clean_eh_stmt (gimple *stmt)
    3017                 :            : {
    3018                 :  344802000 :   return maybe_clean_eh_stmt_fn (cfun, stmt);
    3019                 :            : }
    3020                 :            : 
    3021                 :            : /* Given a statement OLD_STMT and a new statement NEW_STMT that has replaced
    3022                 :            :    OLD_STMT in the function, remove OLD_STMT from the EH table and put NEW_STMT
    3023                 :            :    in the table if it should be in there.  Return TRUE if a replacement was
    3024                 :            :    done that my require an EH edge purge.  */
    3025                 :            : 
    3026                 :            : bool
    3027                 :   31218600 : maybe_clean_or_replace_eh_stmt (gimple *old_stmt, gimple *new_stmt)
    3028                 :            : {
    3029                 :   31218600 :   int lp_nr = lookup_stmt_eh_lp (old_stmt);
    3030                 :            : 
    3031                 :   31218600 :   if (lp_nr != 0)
    3032                 :            :     {
    3033                 :    1095690 :       bool new_stmt_could_throw = stmt_could_throw_p (cfun, new_stmt);
    3034                 :            : 
    3035                 :    1095690 :       if (new_stmt == old_stmt && new_stmt_could_throw)
    3036                 :            :         return false;
    3037                 :            : 
    3038                 :     203282 :       remove_stmt_from_eh_lp (old_stmt);
    3039                 :     203282 :       if (new_stmt_could_throw)
    3040                 :            :         {
    3041                 :        504 :           add_stmt_to_eh_lp (new_stmt, lp_nr);
    3042                 :        504 :           return false;
    3043                 :            :         }
    3044                 :            :       else
    3045                 :            :         return true;
    3046                 :            :     }
    3047                 :            : 
    3048                 :            :   return false;
    3049                 :            : }
    3050                 :            : 
    3051                 :            : /* Given a statement OLD_STMT in OLD_FUN and a duplicate statement NEW_STMT
    3052                 :            :    in NEW_FUN, copy the EH table data from OLD_STMT to NEW_STMT.  The MAP
    3053                 :            :    operand is the return value of duplicate_eh_regions.  */
    3054                 :            : 
    3055                 :            : bool
    3056                 :   47424400 : maybe_duplicate_eh_stmt_fn (struct function *new_fun, gimple *new_stmt,
    3057                 :            :                             struct function *old_fun, gimple *old_stmt,
    3058                 :            :                             hash_map<void *, void *> *map,
    3059                 :            :                             int default_lp_nr)
    3060                 :            : {
    3061                 :   47424400 :   int old_lp_nr, new_lp_nr;
    3062                 :            : 
    3063                 :   47424400 :   if (!stmt_could_throw_p (new_fun, new_stmt))
    3064                 :            :     return false;
    3065                 :            : 
    3066                 :     975977 :   old_lp_nr = lookup_stmt_eh_lp_fn (old_fun, old_stmt);
    3067                 :     975977 :   if (old_lp_nr == 0)
    3068                 :            :     {
    3069                 :     833171 :       if (default_lp_nr == 0)
    3070                 :            :         return false;
    3071                 :            :       new_lp_nr = default_lp_nr;
    3072                 :            :     }
    3073                 :     142806 :   else if (old_lp_nr > 0)
    3074                 :            :     {
    3075                 :     106825 :       eh_landing_pad old_lp, new_lp;
    3076                 :            : 
    3077                 :     106825 :       old_lp = (*old_fun->eh->lp_array)[old_lp_nr];
    3078                 :     106825 :       new_lp = static_cast<eh_landing_pad> (*map->get (old_lp));
    3079                 :     106825 :       new_lp_nr = new_lp->index;
    3080                 :            :     }
    3081                 :            :   else
    3082                 :            :     {
    3083                 :      35981 :       eh_region old_r, new_r;
    3084                 :            : 
    3085                 :      35981 :       old_r = (*old_fun->eh->region_array)[-old_lp_nr];
    3086                 :      35981 :       new_r = static_cast<eh_region> (*map->get (old_r));
    3087                 :      35981 :       new_lp_nr = -new_r->index;
    3088                 :            :     }
    3089                 :            : 
    3090                 :     433102 :   add_stmt_to_eh_lp_fn (new_fun, new_stmt, new_lp_nr);
    3091                 :     433102 :   return true;
    3092                 :            : }
    3093                 :            : 
    3094                 :            : /* Similar, but both OLD_STMT and NEW_STMT are within the current function,
    3095                 :            :    and thus no remapping is required.  */
    3096                 :            : 
    3097                 :            : bool
    3098                 :    7576320 : maybe_duplicate_eh_stmt (gimple *new_stmt, gimple *old_stmt)
    3099                 :            : {
    3100                 :    7576320 :   int lp_nr;
    3101                 :            : 
    3102                 :    7576320 :   if (!stmt_could_throw_p (cfun, new_stmt))
    3103                 :            :     return false;
    3104                 :            : 
    3105                 :      37740 :   lp_nr = lookup_stmt_eh_lp (old_stmt);
    3106                 :      37740 :   if (lp_nr == 0)
    3107                 :            :     return false;
    3108                 :            : 
    3109                 :       1123 :   add_stmt_to_eh_lp (new_stmt, lp_nr);
    3110                 :       1123 :   return true;
    3111                 :            : }
    3112                 :            : 
    3113                 :            : /* Returns TRUE if oneh and twoh are exception handlers (gimple_try_cleanup of
    3114                 :            :    GIMPLE_TRY) that are similar enough to be considered the same.  Currently
    3115                 :            :    this only handles handlers consisting of a single call, as that's the
    3116                 :            :    important case for C++: a destructor call for a particular object showing
    3117                 :            :    up in multiple handlers.  */
    3118                 :            : 
    3119                 :            : static bool
    3120                 :        356 : same_handler_p (gimple_seq oneh, gimple_seq twoh)
    3121                 :            : {
    3122                 :        356 :   gimple_stmt_iterator gsi;
    3123                 :        356 :   gimple *ones, *twos;
    3124                 :        356 :   unsigned int ai;
    3125                 :            : 
    3126                 :        356 :   gsi = gsi_start (oneh);
    3127                 :        356 :   if (!gsi_one_before_end_p (gsi))
    3128                 :            :     return false;
    3129                 :        356 :   ones = gsi_stmt (gsi);
    3130                 :            : 
    3131                 :        356 :   gsi = gsi_start (twoh);
    3132                 :        356 :   if (!gsi_one_before_end_p (gsi))
    3133                 :            :     return false;
    3134                 :        356 :   twos = gsi_stmt (gsi);
    3135                 :            : 
    3136                 :        356 :   if (!is_gimple_call (ones)
    3137                 :        356 :       || !is_gimple_call (twos)
    3138                 :        356 :       || gimple_call_lhs (ones)
    3139                 :        356 :       || gimple_call_lhs (twos)
    3140                 :        356 :       || gimple_call_chain (ones)
    3141                 :        356 :       || gimple_call_chain (twos)
    3142                 :        356 :       || !gimple_call_same_target_p (ones, twos)
    3143                 :        712 :       || gimple_call_num_args (ones) != gimple_call_num_args (twos))
    3144                 :          0 :     return false;
    3145                 :            : 
    3146                 :        712 :   for (ai = 0; ai < gimple_call_num_args (ones); ++ai)
    3147                 :        356 :     if (!operand_equal_p (gimple_call_arg (ones, ai),
    3148                 :        356 :                           gimple_call_arg (twos, ai), 0))
    3149                 :            :       return false;
    3150                 :            : 
    3151                 :            :   return true;
    3152                 :            : }
    3153                 :            : 
    3154                 :            : /* Optimize
    3155                 :            :     try { A() } finally { try { ~B() } catch { ~A() } }
    3156                 :            :     try { ... } finally { ~A() }
    3157                 :            :    into
    3158                 :            :     try { A() } catch { ~B() }
    3159                 :            :     try { ~B() ... } finally { ~A() }
    3160                 :            : 
    3161                 :            :    This occurs frequently in C++, where A is a local variable and B is a
    3162                 :            :    temporary used in the initializer for A.  */
    3163                 :            : 
    3164                 :            : static void
    3165                 :      15843 : optimize_double_finally (gtry *one, gtry *two)
    3166                 :            : {
    3167                 :      15843 :   gimple *oneh;
    3168                 :      15843 :   gimple_stmt_iterator gsi;
    3169                 :      15843 :   gimple_seq cleanup;
    3170                 :            : 
    3171                 :      15843 :   cleanup = gimple_try_cleanup (one);
    3172                 :      15843 :   gsi = gsi_start (cleanup);
    3173                 :      15843 :   if (!gsi_one_before_end_p (gsi))
    3174                 :      15487 :     return;
    3175                 :            : 
    3176                 :      15264 :   oneh = gsi_stmt (gsi);
    3177                 :      15264 :   if (gimple_code (oneh) != GIMPLE_TRY
    3178                 :      15264 :       || gimple_try_kind (oneh) != GIMPLE_TRY_CATCH)
    3179                 :            :     return;
    3180                 :            : 
    3181                 :        356 :   if (same_handler_p (gimple_try_cleanup (oneh), gimple_try_cleanup (two)))
    3182                 :            :     {
    3183                 :        356 :       gimple_seq seq = gimple_try_eval (oneh);
    3184                 :            : 
    3185                 :        356 :       gimple_try_set_cleanup (one, seq);
    3186                 :        356 :       gimple_try_set_kind (one, GIMPLE_TRY_CATCH);
    3187                 :        356 :       seq = copy_gimple_seq_and_replace_locals (seq);
    3188                 :        356 :       gimple_seq_add_seq (&seq, gimple_try_eval (two));
    3189                 :        356 :       gimple_try_set_eval (two, seq);
    3190                 :            :     }
    3191                 :            : }
    3192                 :            : 
    3193                 :            : /* Perform EH refactoring optimizations that are simpler to do when code
    3194                 :            :    flow has been lowered but EH structures haven't.  */
    3195                 :            : 
    3196                 :            : static void
    3197                 :    4072810 : refactor_eh_r (gimple_seq seq)
    3198                 :            : {
    3199                 :    4072810 :   gimple_stmt_iterator gsi;
    3200                 :    4072810 :   gimple *one, *two;
    3201                 :            : 
    3202                 :    4072810 :   one = NULL;
    3203                 :    4072810 :   two = NULL;
    3204                 :    4072810 :   gsi = gsi_start (seq);
    3205                 :   37130200 :   while (1)
    3206                 :            :     {
    3207                 :   37130200 :       one = two;
    3208                 :   37130200 :       if (gsi_end_p (gsi))
    3209                 :            :         two = NULL;
    3210                 :            :       else
    3211                 :   33057400 :         two = gsi_stmt (gsi);
    3212                 :   37130200 :       if (one && two)
    3213                 :   29091400 :         if (gtry *try_one = dyn_cast <gtry *> (one))
    3214                 :   37154800 :           if (gtry *try_two = dyn_cast <gtry *> (two))
    3215                 :      24566 :             if (gimple_try_kind (try_one) == GIMPLE_TRY_FINALLY
    3216                 :      24566 :                 && gimple_try_kind (try_two) == GIMPLE_TRY_FINALLY)
    3217                 :      15843 :               optimize_double_finally (try_one, try_two);
    3218                 :   37130200 :       if (one)
    3219                 :   33057400 :         switch (gimple_code (one))
    3220                 :            :           {
    3221                 :    1323290 :           case GIMPLE_TRY:
    3222                 :    1323290 :             refactor_eh_r (gimple_try_eval (one));
    3223                 :    1323290 :             refactor_eh_r (gimple_try_cleanup (one));
    3224                 :    1323290 :             break;
    3225                 :      37530 :           case GIMPLE_CATCH:
    3226                 :      37530 :             refactor_eh_r (gimple_catch_handler (as_a <gcatch *> (one)));
    3227                 :      37530 :             break;
    3228                 :       8389 :           case GIMPLE_EH_FILTER:
    3229                 :       8389 :             refactor_eh_r (gimple_eh_filter_failure (one));
    3230                 :       8389 :             break;
    3231                 :        665 :           case GIMPLE_EH_ELSE:
    3232                 :        665 :             {
    3233                 :        665 :               geh_else *eh_else_stmt = as_a <geh_else *> (one);
    3234                 :        665 :               refactor_eh_r (gimple_eh_else_n_body (eh_else_stmt));
    3235                 :        665 :               refactor_eh_r (gimple_eh_else_e_body (eh_else_stmt));
    3236                 :            :             }
    3237                 :        665 :             break;
    3238                 :            :           default:
    3239                 :            :             break;
    3240                 :            :           }
    3241                 :   37130200 :       if (two)
    3242                 :   33057400 :         gsi_next (&gsi);
    3243                 :            :       else
    3244                 :            :         break;
    3245                 :            :     }
    3246                 :    4072810 : }
    3247                 :            : 
    3248                 :            : namespace {
    3249                 :            : 
    3250                 :            : const pass_data pass_data_refactor_eh =
    3251                 :            : {
    3252                 :            :   GIMPLE_PASS, /* type */
    3253                 :            :   "ehopt", /* name */
    3254                 :            :   OPTGROUP_NONE, /* optinfo_flags */
    3255                 :            :   TV_TREE_EH, /* tv_id */
    3256                 :            :   PROP_gimple_lcf, /* properties_required */
    3257                 :            :   0, /* properties_provided */
    3258                 :            :   0, /* properties_destroyed */
    3259                 :            :   0, /* todo_flags_start */
    3260                 :            :   0, /* todo_flags_finish */
    3261                 :            : };
    3262                 :            : 
    3263                 :            : class pass_refactor_eh : public gimple_opt_pass
    3264                 :            : {
    3265                 :            : public:
    3266                 :     200773 :   pass_refactor_eh (gcc::context *ctxt)
    3267                 :     401546 :     : gimple_opt_pass (pass_data_refactor_eh, ctxt)
    3268                 :            :   {}
    3269                 :            : 
    3270                 :            :   /* opt_pass methods: */
    3271                 :    1862760 :   virtual bool gate (function *) { return flag_exceptions != 0; }
    3272                 :    1378980 :   virtual unsigned int execute (function *)
    3273                 :            :     {
    3274                 :    1378980 :       refactor_eh_r (gimple_body (current_function_decl));
    3275                 :    1378980 :       return 0;
    3276                 :            :     }
    3277                 :            : 
    3278                 :            : }; // class pass_refactor_eh
    3279                 :            : 
    3280                 :            : } // anon namespace
    3281                 :            : 
    3282                 :            : gimple_opt_pass *
    3283                 :     200773 : make_pass_refactor_eh (gcc::context *ctxt)
    3284                 :            : {
    3285                 :     200773 :   return new pass_refactor_eh (ctxt);
    3286                 :            : }
    3287                 :            : 
    3288                 :            : /* At the end of gimple optimization, we can lower RESX.  */
    3289                 :            : 
    3290                 :            : static bool
    3291                 :     125096 : lower_resx (basic_block bb, gresx *stmt,
    3292                 :            :             hash_map<eh_region, tree> *mnt_map)
    3293                 :            : {
    3294                 :     125096 :   int lp_nr;
    3295                 :     125096 :   eh_region src_r, dst_r;
    3296                 :     125096 :   gimple_stmt_iterator gsi;
    3297                 :     125096 :   gimple *x;
    3298                 :     125096 :   tree fn, src_nr;
    3299                 :     125096 :   bool ret = false;
    3300                 :            : 
    3301                 :     125096 :   lp_nr = lookup_stmt_eh_lp (stmt);
    3302                 :     125096 :   if (lp_nr != 0)
    3303                 :      74592 :     dst_r = get_eh_region_from_lp_number (lp_nr);
    3304                 :            :   else
    3305                 :      50504 :     dst_r = NULL;
    3306                 :            : 
    3307                 :     125096 :   src_r = get_eh_region_from_number (gimple_resx_region (stmt));
    3308                 :     125096 :   gsi = gsi_last_bb (bb);
    3309                 :            : 
    3310                 :     125096 :   if (src_r == NULL)
    3311                 :            :     {
    3312                 :            :       /* We can wind up with no source region when pass_cleanup_eh shows
    3313                 :            :          that there are no entries into an eh region and deletes it, but
    3314                 :            :          then the block that contains the resx isn't removed.  This can
    3315                 :            :          happen without optimization when the switch statement created by
    3316                 :            :          lower_try_finally_switch isn't simplified to remove the eh case.
    3317                 :            : 
    3318                 :            :          Resolve this by expanding the resx node to an abort.  */
    3319                 :            : 
    3320                 :          0 :       fn = builtin_decl_implicit (BUILT_IN_TRAP);
    3321                 :          0 :       x = gimple_build_call (fn, 0);
    3322                 :          0 :       gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3323                 :            : 
    3324                 :          0 :       while (EDGE_COUNT (bb->succs) > 0)
    3325                 :          0 :         remove_edge (EDGE_SUCC (bb, 0));
    3326                 :            :     }
    3327                 :     125096 :   else if (dst_r)
    3328                 :            :     {
    3329                 :            :       /* When we have a destination region, we resolve this by copying
    3330                 :            :          the excptr and filter values into place, and changing the edge
    3331                 :            :          to immediately after the landing pad.  */
    3332                 :      74592 :       edge e;
    3333                 :            : 
    3334                 :      74592 :       if (lp_nr < 0)
    3335                 :            :         {
    3336                 :        197 :           basic_block new_bb;
    3337                 :        197 :           tree lab;
    3338                 :            : 
    3339                 :            :           /* We are resuming into a MUST_NOT_CALL region.  Expand a call to
    3340                 :            :              the failure decl into a new block, if needed.  */
    3341                 :        197 :           gcc_assert (dst_r->type == ERT_MUST_NOT_THROW);
    3342                 :            : 
    3343                 :        197 :           tree *slot = mnt_map->get (dst_r);
    3344                 :         43 :           if (slot == NULL)
    3345                 :            :             {
    3346                 :        154 :               gimple_stmt_iterator gsi2;
    3347                 :            : 
    3348                 :        154 :               new_bb = create_empty_bb (bb);
    3349                 :        154 :               new_bb->count = bb->count;
    3350                 :        154 :               add_bb_to_loop (new_bb, bb->loop_father);
    3351                 :        154 :               lab = gimple_block_label (new_bb);
    3352                 :        154 :               gsi2 = gsi_start_bb (new_bb);
    3353                 :            : 
    3354                 :        154 :               fn = dst_r->u.must_not_throw.failure_decl;
    3355                 :        154 :               x = gimple_build_call (fn, 0);
    3356                 :        154 :               gimple_set_location (x, dst_r->u.must_not_throw.failure_loc);
    3357                 :        154 :               gsi_insert_after (&gsi2, x, GSI_CONTINUE_LINKING);
    3358                 :            : 
    3359                 :        154 :               mnt_map->put (dst_r, lab);
    3360                 :            :             }
    3361                 :            :           else
    3362                 :            :             {
    3363                 :         43 :               lab = *slot;
    3364                 :         43 :               new_bb = label_to_block (cfun, lab);
    3365                 :            :             }
    3366                 :            : 
    3367                 :        197 :           gcc_assert (EDGE_COUNT (bb->succs) == 0);
    3368                 :        197 :           e = make_single_succ_edge (bb, new_bb, EDGE_FALLTHRU);
    3369                 :            :         }
    3370                 :            :       else
    3371                 :            :         {
    3372                 :      74395 :           edge_iterator ei;
    3373                 :      74395 :           tree dst_nr = build_int_cst (integer_type_node, dst_r->index);
    3374                 :            : 
    3375                 :      74395 :           fn = builtin_decl_implicit (BUILT_IN_EH_COPY_VALUES);
    3376                 :      74395 :           src_nr = build_int_cst (integer_type_node, src_r->index);
    3377                 :      74395 :           x = gimple_build_call (fn, 2, dst_nr, src_nr);
    3378                 :      74395 :           gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3379                 :            : 
    3380                 :            :           /* Update the flags for the outgoing edge.  */
    3381                 :      74395 :           e = single_succ_edge (bb);
    3382                 :      74395 :           gcc_assert (e->flags & EDGE_EH);
    3383                 :      74395 :           e->flags = (e->flags & ~EDGE_EH) | EDGE_FALLTHRU;
    3384                 :      74395 :           e->probability = profile_probability::always ();
    3385                 :            : 
    3386                 :            :           /* If there are no more EH users of the landing pad, delete it.  */
    3387                 :     102495 :           FOR_EACH_EDGE (e, ei, e->dest->preds)
    3388                 :      88604 :             if (e->flags & EDGE_EH)
    3389                 :            :               break;
    3390                 :      74395 :           if (e == NULL)
    3391                 :            :             {
    3392                 :      13891 :               eh_landing_pad lp = get_eh_landing_pad_from_number (lp_nr);
    3393                 :      13891 :               remove_eh_landing_pad (lp);
    3394                 :            :             }
    3395                 :            :         }
    3396                 :            : 
    3397                 :      74592 :       ret = true;
    3398                 :            :     }
    3399                 :            :   else
    3400                 :            :     {
    3401                 :      50504 :       tree var;
    3402                 :            : 
    3403                 :            :       /* When we don't have a destination region, this exception escapes
    3404                 :            :          up the call chain.  We resolve this by generating a call to the
    3405                 :            :          _Unwind_Resume library function.  */
    3406                 :            : 
    3407                 :            :       /* The ARM EABI redefines _Unwind_Resume as __cxa_end_cleanup
    3408                 :            :          with no arguments for C++.  Check for that.  */
    3409                 :      50504 :       if (src_r->use_cxa_end_cleanup)
    3410                 :            :         {
    3411                 :          0 :           fn = builtin_decl_implicit (BUILT_IN_CXA_END_CLEANUP);
    3412                 :          0 :           x = gimple_build_call (fn, 0);
    3413                 :          0 :           gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3414                 :            :         }
    3415                 :            :       else
    3416                 :            :         {
    3417                 :      50504 :           fn = builtin_decl_implicit (BUILT_IN_EH_POINTER);
    3418                 :      50504 :           src_nr = build_int_cst (integer_type_node, src_r->index);
    3419                 :      50504 :           x = gimple_build_call (fn, 1, src_nr);
    3420                 :      50504 :           var = create_tmp_var (ptr_type_node);
    3421                 :      50504 :           var = make_ssa_name (var, x);
    3422                 :      50504 :           gimple_call_set_lhs (x, var);
    3423                 :      50504 :           gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3424                 :            : 
    3425                 :            :           /* When exception handling is delegated to a caller function, we
    3426                 :            :              have to guarantee that shadow memory variables living on stack
    3427                 :            :              will be cleaner before control is given to a parent function.  */
    3428                 :      50504 :           if (sanitize_flags_p (SANITIZE_ADDRESS))
    3429                 :            :             {
    3430                 :        249 :               tree decl
    3431                 :        249 :                 = builtin_decl_implicit (BUILT_IN_ASAN_HANDLE_NO_RETURN);
    3432                 :        249 :               gimple *g = gimple_build_call (decl, 0);
    3433                 :        249 :               gimple_set_location (g, gimple_location (stmt));
    3434                 :        249 :               gsi_insert_before (&gsi, g, GSI_SAME_STMT);
    3435                 :            :             }
    3436                 :            : 
    3437                 :      50504 :           fn = builtin_decl_implicit (BUILT_IN_UNWIND_RESUME);
    3438                 :      50504 :           x = gimple_build_call (fn, 1, var);
    3439                 :      50504 :           gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3440                 :            :         }
    3441                 :            : 
    3442                 :      50504 :       gcc_assert (EDGE_COUNT (bb->succs) == 0);
    3443                 :            :     }
    3444                 :            : 
    3445                 :     125096 :   gsi_remove (&gsi, true);
    3446                 :            : 
    3447                 :     125096 :   return ret;
    3448                 :            : }
    3449                 :            : 
    3450                 :            : namespace {
    3451                 :            : 
    3452                 :            : const pass_data pass_data_lower_resx =
    3453                 :            : {
    3454                 :            :   GIMPLE_PASS, /* type */
    3455                 :            :   "resx", /* name */
    3456                 :            :   OPTGROUP_NONE, /* optinfo_flags */
    3457                 :            :   TV_TREE_EH, /* tv_id */
    3458                 :            :   PROP_gimple_lcf, /* properties_required */
    3459                 :            :   0, /* properties_provided */
    3460                 :            :   0, /* properties_destroyed */
    3461                 :            :   0, /* todo_flags_start */
    3462                 :            :   0, /* todo_flags_finish */
    3463                 :            : };
    3464                 :            : 
    3465                 :            : class pass_lower_resx : public gimple_opt_pass
    3466                 :            : {
    3467                 :            : public:
    3468                 :     200773 :   pass_lower_resx (gcc::context *ctxt)
    3469                 :     401546 :     : gimple_opt_pass (pass_data_lower_resx, ctxt)
    3470                 :            :   {}
    3471                 :            : 
    3472                 :            :   /* opt_pass methods: */
    3473                 :     944512 :   virtual bool gate (function *) { return flag_exceptions != 0; }
    3474                 :            :   virtual unsigned int execute (function *);
    3475                 :            : 
    3476                 :            : }; // class pass_lower_resx
    3477                 :            : 
    3478                 :            : unsigned
    3479                 :     515999 : pass_lower_resx::execute (function *fun)
    3480                 :            : {
    3481                 :     515999 :   basic_block bb;
    3482                 :     515999 :   bool dominance_invalidated = false;
    3483                 :     515999 :   bool any_rewritten = false;
    3484                 :            : 
    3485                 :     515999 :   hash_map<eh_region, tree> mnt_map;
    3486                 :            : 
    3487                 :    6227840 :   FOR_EACH_BB_FN (bb, fun)
    3488                 :            :     {
    3489                 :    5711840 :       gimple *last = last_stmt (bb);
    3490                 :    5711840 :       if (last && is_gimple_resx (last))
    3491                 :            :         {
    3492                 :     125096 :           dominance_invalidated |=
    3493                 :     125096 :             lower_resx (bb, as_a <gresx *> (last), &mnt_map);
    3494                 :     125096 :           any_rewritten = true;
    3495                 :            :         }
    3496                 :            :     }
    3497                 :            : 
    3498                 :     515999 :   if (dominance_invalidated)
    3499                 :            :     {
    3500                 :      13761 :       free_dominance_info (CDI_DOMINATORS);
    3501                 :      13761 :       free_dominance_info (CDI_POST_DOMINATORS);
    3502                 :            :     }
    3503                 :            : 
    3504                 :     997336 :   return any_rewritten ? TODO_update_ssa_only_virtuals : 0;
    3505                 :            : }
    3506                 :            : 
    3507                 :            : } // anon namespace
    3508                 :            : 
    3509                 :            : gimple_opt_pass *
    3510                 :     200773 : make_pass_lower_resx (gcc::context *ctxt)
    3511                 :            : {
    3512                 :     200773 :   return new pass_lower_resx (ctxt);
    3513                 :            : }
    3514                 :            : 
    3515                 :            : /* Try to optimize var = {v} {CLOBBER} stmts followed just by
    3516                 :            :    external throw.  */
    3517                 :            : 
    3518                 :            : static void
    3519                 :     316441 : optimize_clobbers (basic_block bb)
    3520                 :            : {
    3521                 :     316441 :   gimple_stmt_iterator gsi = gsi_last_bb (bb);
    3522                 :     316441 :   bool any_clobbers = false;
    3523                 :     316441 :   bool seen_stack_restore = false;
    3524                 :     316441 :   edge_iterator ei;
    3525                 :     316441 :   edge e;
    3526                 :            : 
    3527                 :            :   /* Only optimize anything if the bb contains at least one clobber,
    3528                 :            :      ends with resx (checked by caller), optionally contains some
    3529                 :            :      debug stmts or labels, or at most one __builtin_stack_restore
    3530                 :            :      call, and has an incoming EH edge.  */
    3531                 :    2478380 :   for (gsi_prev (&gsi); !gsi_end_p (gsi); gsi_prev (&gsi))
    3532                 :            :     {
    3533                 :    1226050 :       gimple *stmt = gsi_stmt (gsi);
    3534                 :    1226050 :       if (is_gimple_debug (stmt))
    3535                 :     692616 :         continue;
    3536                 :     533436 :       if (gimple_clobber_p (stmt))
    3537                 :            :         {
    3538                 :     229923 :           any_clobbers = true;
    3539                 :     229923 :           continue;
    3540                 :            :         }
    3541                 :     303721 :       if (!seen_stack_restore
    3542                 :     303513 :           && gimple_call_builtin_p (stmt, BUILT_IN_STACK_RESTORE))
    3543                 :            :         {
    3544                 :        208 :           seen_stack_restore = true;
    3545                 :        208 :           continue;
    3546                 :            :         }
    3547                 :     303305 :       if (gimple_code (stmt) == GIMPLE_LABEL)
    3548                 :            :         break;
    3549                 :     199430 :       return;
    3550                 :            :     }
    3551                 :     222651 :   if (!any_clobbers)
    3552                 :            :     return;
    3553                 :     131185 :   FOR_EACH_EDGE (e, ei, bb->preds)
    3554                 :     126024 :     if (e->flags & EDGE_EH)
    3555                 :            :       break;
    3556                 :     122172 :   if (e == NULL)
    3557                 :            :     return;
    3558                 :     117011 :   gsi = gsi_last_bb (bb);
    3559                 :    1172530 :   for (gsi_prev (&gsi); !gsi_end_p (gsi); gsi_prev (&gsi))
    3560                 :            :     {
    3561                 :     469255 :       gimple *stmt = gsi_stmt (gsi);
    3562                 :     469255 :       if (!gimple_clobber_p (stmt))
    3563                 :     278152 :         continue;
    3564                 :     191103 :       unlink_stmt_vdef (stmt);
    3565                 :     191103 :       gsi_remove (&gsi, true);
    3566                 :     191103 :       release_defs (stmt);
    3567                 :            :     }
    3568                 :            : }
    3569                 :            : 
    3570                 :            : /* Try to sink var = {v} {CLOBBER} stmts followed just by
    3571                 :            :    internal throw to successor BB.
    3572                 :            :    SUNK, if not NULL, is an array of sequences indexed by basic-block
    3573                 :            :    index to sink to and to pick up sinking opportunities from.
    3574                 :            :    If FOUND_OPPORTUNITY is not NULL then do not perform the optimization
    3575                 :            :    but set *FOUND_OPPORTUNITY to true.  */
    3576                 :            : 
    3577                 :            : static int
    3578                 :     318612 : sink_clobbers (basic_block bb,
    3579                 :            :                gimple_seq *sunk = NULL, bool *found_opportunity = NULL)
    3580                 :            : {
    3581                 :     318612 :   edge e;
    3582                 :     318612 :   edge_iterator ei;
    3583                 :     318612 :   gimple_stmt_iterator gsi, dgsi;
    3584                 :     318612 :   basic_block succbb;
    3585                 :     318612 :   bool any_clobbers = false;
    3586                 :     318612 :   unsigned todo = 0;
    3587                 :            : 
    3588                 :            :   /* Only optimize if BB has a single EH successor and
    3589                 :            :      all predecessor edges are EH too.  */
    3590                 :     318612 :   if (!single_succ_p (bb)
    3591                 :     318604 :       || (single_succ_edge (bb)->flags & EDGE_EH) == 0)
    3592                 :            :     return 0;
    3593                 :            : 
    3594                 :    1549990 :   FOR_EACH_EDGE (e, ei, bb->preds)
    3595                 :            :     {
    3596                 :    1240420 :       if ((e->flags & EDGE_EH) == 0)
    3597                 :            :         return 0;
    3598                 :            :     }
    3599                 :            : 
    3600                 :            :   /* And BB contains only CLOBBER stmts before the final
    3601                 :            :      RESX.  */
    3602                 :     309572 :   gsi = gsi_last_bb (bb);
    3603                 :    2935970 :   for (gsi_prev (&gsi); !gsi_end_p (gsi); gsi_prev (&gsi))
    3604                 :            :     {
    3605                 :    1467980 :       gimple *stmt = gsi_stmt (gsi);
    3606                 :    1467980 :       if (is_gimple_debug (stmt))
    3607                 :     945009 :         continue;
    3608                 :     522976 :       if (gimple_code (stmt) == GIMPLE_LABEL)
    3609                 :            :         break;
    3610                 :     402592 :       if (!gimple_clobber_p (stmt))
    3611                 :            :         return 0;
    3612                 :            :       any_clobbers = true;
    3613                 :            :     }
    3614                 :     120384 :   if (!any_clobbers && (!sunk || gimple_seq_empty_p (sunk[bb->index])))
    3615                 :            :     return 0;
    3616                 :            : 
    3617                 :            :   /* If this was a dry run, tell it we found clobbers to sink.  */
    3618                 :      88592 :   if (found_opportunity)
    3619                 :            :     {
    3620                 :       2560 :       *found_opportunity = true;
    3621                 :       2560 :       return 0;
    3622                 :            :     }
    3623                 :            : 
    3624                 :      86032 :   edge succe = single_succ_edge (bb);
    3625                 :      86032 :   succbb = succe->dest;
    3626                 :            : 
    3627                 :            :   /* See if there is a virtual PHI node to take an updated virtual
    3628                 :            :      operand from.  */
    3629                 :      86032 :   gphi *vphi = NULL;
    3630                 :      86032 :   for (gphi_iterator gpi = gsi_start_phis (succbb);
    3631                 :      88888 :        !gsi_end_p (gpi); gsi_next (&gpi))
    3632                 :            :     {
    3633                 :      67998 :       tree res = gimple_phi_result (gpi.phi ());
    3634                 :     135996 :       if (virtual_operand_p (res))
    3635                 :            :         {
    3636                 :            :           vphi = gpi.phi ();
    3637                 :            :           break;
    3638                 :            :         }
    3639                 :            :     }
    3640                 :            : 
    3641                 :      86032 :   gimple *first_sunk = NULL;
    3642                 :      86032 :   gimple *last_sunk = NULL;
    3643                 :      86032 :   if (sunk && !(succbb->flags & BB_VISITED))
    3644                 :       6442 :     dgsi = gsi_start (sunk[succbb->index]);
    3645                 :            :   else
    3646                 :     161454 :     dgsi = gsi_after_labels (succbb);
    3647                 :      86032 :   gsi = gsi_last_bb (bb);
    3648                 :     625898 :   for (gsi_prev (&gsi); !gsi_end_p (gsi); gsi_prev (&gsi))
    3649                 :            :     {
    3650                 :     312949 :       gimple *stmt = gsi_stmt (gsi);
    3651                 :     312949 :       tree lhs;
    3652                 :     312949 :       if (is_gimple_debug (stmt))
    3653                 :      98208 :         continue;
    3654                 :     214741 :       if (gimple_code (stmt) == GIMPLE_LABEL)
    3655                 :            :         break;
    3656                 :     128709 :       lhs = gimple_assign_lhs (stmt);
    3657                 :            :       /* Unfortunately we don't have dominance info updated at this
    3658                 :            :          point, so checking if
    3659                 :            :          dominated_by_p (CDI_DOMINATORS, succbb,
    3660                 :            :                          gimple_bb (SSA_NAME_DEF_STMT (TREE_OPERAND (lhs, 0)))
    3661                 :            :          would be too costly.  Thus, avoid sinking any clobbers that
    3662                 :            :          refer to non-(D) SSA_NAMEs.  */
    3663                 :     128710 :       if (TREE_CODE (lhs) == MEM_REF
    3664                 :        132 :           && TREE_CODE (TREE_OPERAND (lhs, 0)) == SSA_NAME
    3665                 :     128836 :           && !SSA_NAME_IS_DEFAULT_DEF (TREE_OPERAND (lhs, 0)))
    3666                 :            :         {
    3667                 :          1 :           unlink_stmt_vdef (stmt);
    3668                 :          1 :           gsi_remove (&gsi, true);
    3669                 :          1 :           release_defs (stmt);
    3670                 :          1 :           continue;
    3671                 :            :         }
    3672                 :            : 
    3673                 :            :       /* As we do not change stmt order when sinking across a
    3674                 :            :          forwarder edge we can keep virtual operands in place.  */
    3675                 :     128708 :       gsi_remove (&gsi, false);
    3676                 :     128708 :       gsi_insert_before (&dgsi, stmt, GSI_NEW_STMT);
    3677                 :     128708 :       if (!first_sunk)
    3678                 :      85957 :         first_sunk = stmt;
    3679                 :            :       last_sunk = stmt;
    3680                 :            :     }
    3681                 :      86032 :   if (sunk && !gimple_seq_empty_p (sunk[bb->index]))
    3682                 :            :     {
    3683                 :        900 :       if (!first_sunk)
    3684                 :         74 :         first_sunk = gsi_stmt (gsi_last (sunk[bb->index]));
    3685                 :        900 :       last_sunk = gsi_stmt (gsi_start (sunk[bb->index]));
    3686                 :        900 :       gsi_insert_seq_before_without_update (&dgsi,
    3687                 :            :                                             sunk[bb->index], GSI_NEW_STMT);
    3688                 :        900 :       sunk[bb->index] = NULL;
    3689                 :            :     }
    3690                 :      86032 :   if (first_sunk)
    3691                 :            :     {
    3692                 :            :       /* Adjust virtual operands if we sunk across a virtual PHI.  */
    3693                 :      86031 :       if (vphi)
    3694                 :            :         {
    3695                 :      65142 :           imm_use_iterator iter;
    3696                 :      65142 :           use_operand_p use_p;
    3697                 :      65142 :           gimple *use_stmt;
    3698                 :      65142 :           tree phi_def = gimple_phi_result (vphi);
    3699                 :     126202 :           FOR_EACH_IMM_USE_STMT (use_stmt, iter, phi_def)
    3700                 :     189860 :             FOR_EACH_IMM_USE_ON_STMT (use_p, iter)
    3701                 :     128800 :               SET_USE (use_p, gimple_vdef (first_sunk));
    3702                 :      65142 :           if (SSA_NAME_OCCURS_IN_ABNORMAL_PHI (phi_def))
    3703                 :            :             {
    3704                 :          0 :               SSA_NAME_OCCURS_IN_ABNORMAL_PHI (gimple_vdef (first_sunk)) = 1;
    3705                 :          0 :               SSA_NAME_OCCURS_IN_ABNORMAL_PHI (phi_def) = 0;
    3706                 :            :             }
    3707                 :     130284 :           SET_USE (PHI_ARG_DEF_PTR_FROM_EDGE (vphi, succe),
    3708                 :            :                    gimple_vuse (last_sunk));
    3709                 :     130284 :           SET_USE (gimple_vuse_op (last_sunk), phi_def);
    3710                 :            :         }
    3711                 :            :       /* If there isn't a single predecessor but no virtual PHI node
    3712                 :            :          arrange for virtual operands to be renamed.  */
    3713                 :      20889 :       else if (!single_pred_p (succbb)
    3714                 :      25607 :                && TREE_CODE (gimple_vuse (last_sunk)) == SSA_NAME)
    3715                 :            :         {
    3716                 :       4668 :           mark_virtual_operand_for_renaming (gimple_vuse (last_sunk));
    3717                 :       4668 :           todo |= TODO_update_ssa_only_virtuals;
    3718                 :            :         }
    3719                 :            :     }
    3720                 :            : 
    3721                 :      86032 :   return todo;
    3722                 :            : }
    3723                 :            : 
    3724                 :            : /* At the end of inlining, we can lower EH_DISPATCH.  Return true when 
    3725                 :            :    we have found some duplicate labels and removed some edges.  */
    3726                 :            : 
    3727                 :            : static bool
    3728                 :      35894 : lower_eh_dispatch (basic_block src, geh_dispatch *stmt)
    3729                 :            : {
    3730                 :      35894 :   gimple_stmt_iterator gsi;
    3731                 :      35894 :   int region_nr;
    3732                 :      35894 :   eh_region r;
    3733                 :      35894 :   tree filter, fn;
    3734                 :      35894 :   gimple *x;
    3735                 :      35894 :   bool redirected = false;
    3736                 :            : 
    3737                 :      35894 :   region_nr = gimple_eh_dispatch_region (stmt);
    3738                 :      35894 :   r = get_eh_region_from_number (region_nr);
    3739                 :            : 
    3740                 :      35894 :   gsi = gsi_last_bb (src);
    3741                 :            : 
    3742                 :      35894 :   switch (r->type)
    3743                 :            :     {
    3744                 :      34502 :     case ERT_TRY:
    3745                 :      34502 :       {
    3746                 :      34502 :         auto_vec<tree> labels;
    3747                 :      34502 :         tree default_label = NULL;
    3748                 :      34502 :         eh_catch c;
    3749                 :      34502 :         edge_iterator ei;
    3750                 :      34502 :         edge e;
    3751                 :      69004 :         hash_set<tree> seen_values;
    3752                 :            : 
    3753                 :            :         /* Collect the labels for a switch.  Zero the post_landing_pad
    3754                 :            :            field becase we'll no longer have anything keeping these labels
    3755                 :            :            in existence and the optimizer will be free to merge these
    3756                 :            :            blocks at will.  */
    3757                 :      39557 :         for (c = r->u.eh_try.first_catch; c ; c = c->next_catch)
    3758                 :            :           {
    3759                 :      37370 :             tree tp_node, flt_node, lab = c->label;
    3760                 :      37370 :             bool have_label = false;
    3761                 :            : 
    3762                 :      37370 :             c->label = NULL;
    3763                 :      37370 :             tp_node = c->type_list;
    3764                 :      37370 :             flt_node = c->filter_list;
    3765                 :            : 
    3766                 :      37370 :             if (tp_node == NULL)
    3767                 :            :               {
    3768                 :            :                 default_label = lab;
    3769                 :            :                 break;
    3770                 :            :               }
    3771                 :       5055 :             do
    3772                 :            :               {
    3773                 :            :                 /* Filter out duplicate labels that arise when this handler 
    3774                 :            :                    is shadowed by an earlier one.  When no labels are 
    3775                 :            :                    attached to the handler anymore, we remove 
    3776                 :            :                    the corresponding edge and then we delete unreachable 
    3777                 :            :                    blocks at the end of this pass.  */
    3778                 :       5055 :                 if (! seen_values.contains (TREE_VALUE (flt_node)))
    3779                 :            :                   {
    3780                 :       5045 :                     tree t = build_case_label (TREE_VALUE (flt_node),
    3781                 :       5045 :                                                NULL, lab);
    3782                 :       5045 :                     labels.safe_push (t);
    3783                 :       5045 :                     seen_values.add (TREE_VALUE (flt_node));
    3784                 :       5045 :                     have_label = true;
    3785                 :            :                   }
    3786                 :            : 
    3787                 :       5055 :                 tp_node = TREE_CHAIN (tp_node);
    3788                 :       5055 :                 flt_node = TREE_CHAIN (flt_node);
    3789                 :            :               }
    3790                 :       5055 :             while (tp_node);
    3791                 :       5055 :             if (! have_label)
    3792                 :            :               {
    3793                 :         10 :                 remove_edge (find_edge (src, label_to_block (cfun, lab)));
    3794                 :         10 :                 redirected = true;
    3795                 :            :               }
    3796                 :            :           }
    3797                 :            : 
    3798                 :            :         /* Clean up the edge flags.  */
    3799                 :      74049 :         FOR_EACH_EDGE (e, ei, src->succs)
    3800                 :            :           {
    3801                 :      39547 :             if (e->flags & EDGE_FALLTHRU)
    3802                 :            :               {
    3803                 :            :                 /* If there was no catch-all, use the fallthru edge.  */
    3804                 :       2187 :                 if (default_label == NULL)
    3805                 :       2187 :                   default_label = gimple_block_label (e->dest);
    3806                 :       2187 :                 e->flags &= ~EDGE_FALLTHRU;
    3807                 :            :               }
    3808                 :            :           }
    3809                 :      34502 :         gcc_assert (default_label != NULL);
    3810                 :            : 
    3811                 :            :         /* Don't generate a switch if there's only a default case.
    3812                 :            :            This is common in the form of try { A; } catch (...) { B; }.  */
    3813                 :      34502 :         if (!labels.exists ())
    3814                 :            :           {
    3815                 :      30404 :             e = single_succ_edge (src);
    3816                 :      30404 :             e->flags |= EDGE_FALLTHRU;
    3817                 :            :           }
    3818                 :            :         else
    3819                 :            :           {
    3820                 :       4098 :             fn = builtin_decl_implicit (BUILT_IN_EH_FILTER);
    3821                 :       4098 :             x = gimple_build_call (fn, 1, build_int_cst (integer_type_node,
    3822                 :            :                                                          region_nr));
    3823                 :       4098 :             filter = create_tmp_var (TREE_TYPE (TREE_TYPE (fn)));
    3824                 :       4098 :             filter = make_ssa_name (filter, x);
    3825                 :       4098 :             gimple_call_set_lhs (x, filter);
    3826                 :       4098 :             gimple_set_location (x, gimple_location (stmt));
    3827                 :       4098 :             gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3828                 :            : 
    3829                 :            :             /* Turn the default label into a default case.  */
    3830                 :       4098 :             default_label = build_case_label (NULL, NULL, default_label);
    3831                 :       4098 :             sort_case_labels (labels);
    3832                 :            : 
    3833                 :       4098 :             x = gimple_build_switch (filter, default_label, labels);
    3834                 :       4098 :             gimple_set_location (x, gimple_location (stmt));
    3835                 :       4098 :             gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3836                 :            :           }
    3837                 :            :       }
    3838                 :      34502 :       break;
    3839                 :            : 
    3840                 :       1392 :     case ERT_ALLOWED_EXCEPTIONS:
    3841                 :       1392 :       {
    3842                 :       1392 :         edge b_e = BRANCH_EDGE (src);
    3843                 :       1392 :         edge f_e = FALLTHRU_EDGE (src);
    3844                 :            : 
    3845                 :       1392 :         fn = builtin_decl_implicit (BUILT_IN_EH_FILTER);
    3846                 :       1392 :         x = gimple_build_call (fn, 1, build_int_cst (integer_type_node,
    3847                 :            :                                                      region_nr));
    3848                 :       1392 :         filter = create_tmp_var (TREE_TYPE (TREE_TYPE (fn)));
    3849                 :       1392 :         filter = make_ssa_name (filter, x);
    3850                 :       1392 :         gimple_call_set_lhs (x, filter);
    3851                 :       1392 :         gimple_set_location (x, gimple_location (stmt));
    3852                 :       1392 :         gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3853                 :            : 
    3854                 :       1392 :         r->u.allowed.label = NULL;
    3855                 :       1392 :         x = gimple_build_cond (EQ_EXPR, filter,
    3856                 :       1392 :                                build_int_cst (TREE_TYPE (filter),
    3857                 :       1392 :                                               r->u.allowed.filter),
    3858                 :            :                                NULL_TREE, NULL_TREE);
    3859                 :       1392 :         gsi_insert_before (&gsi, x, GSI_SAME_STMT);
    3860                 :            : 
    3861                 :       1392 :         b_e->flags = b_e->flags | EDGE_TRUE_VALUE;
    3862                 :       1392 :         f_e->flags = (f_e->flags & ~EDGE_FALLTHRU) | EDGE_FALSE_VALUE;
    3863                 :            :       }
    3864                 :       1392 :       break;
    3865                 :            : 
    3866                 :          0 :     default:
    3867                 :          0 :       gcc_unreachable ();
    3868                 :            :     }
    3869                 :            : 
    3870                 :            :   /* Replace the EH_DISPATCH with the SWITCH or COND generated above.  */
    3871                 :      35894 :   gsi_remove (&gsi, true);
    3872                 :      35894 :   return redirected;
    3873                 :            : }
    3874                 :            : 
    3875                 :            : namespace {
    3876                 :            : 
    3877                 :            : const pass_data pass_data_lower_eh_dispatch =
    3878                 :            : {
    3879                 :            :   GIMPLE_PASS, /* type */
    3880                 :            :   "ehdisp", /* name */
    3881                 :            :   OPTGROUP_NONE, /* optinfo_flags */
    3882                 :            :   TV_TREE_EH, /* tv_id */
    3883                 :            :   PROP_gimple_lcf, /* properties_required */
    3884                 :            :   0, /* properties_provided */
    3885                 :            :   0, /* properties_destroyed */
    3886                 :            :   0, /* todo_flags_start */
    3887                 :            :   0, /* todo_flags_finish */
    3888                 :            : };
    3889                 :            : 
    3890                 :            : class pass_lower_eh_dispatch : public gimple_opt_pass
    3891                 :            : {
    3892                 :            : public:
    3893                 :     200773 :   pass_lower_eh_dispatch (gcc::context *ctxt)
    3894                 :     401546 :     : gimple_opt_pass (pass_data_lower_eh_dispatch, ctxt)
    3895                 :            :   {}
    3896                 :            : 
    3897                 :            :   /* opt_pass methods: */
    3898                 :     944512 :   virtual bool gate (function *fun) { return fun->eh->region_tree != NULL; }
    3899                 :            :   virtual unsigned int execute (function *);
    3900                 :            : 
    3901                 :            : }; // class pass_lower_eh_dispatch
    3902                 :            : 
    3903                 :            : unsigned
    3904                 :      98522 : pass_lower_eh_dispatch::execute (function *fun)
    3905                 :            : {
    3906                 :      98522 :   basic_block bb;
    3907                 :      98522 :   int flags = 0;
    3908                 :      98522 :   bool redirected = false;
    3909                 :      98522 :   bool any_resx_to_process = false;
    3910                 :            : 
    3911                 :      98522 :   assign_filter_values ();
    3912                 :            : 
    3913                 :    2616680 :   FOR_EACH_BB_FN (bb, fun)
    3914                 :            :     {
    3915                 :    2518150 :       gimple *last = last_stmt (bb);
    3916                 :    2518150 :       if (last == NULL)
    3917                 :      67194 :         continue;
    3918                 :    2450960 :       if (gimple_code (last) == GIMPLE_EH_DISPATCH)
    3919                 :            :         {
    3920                 :      35894 :           redirected |= lower_eh_dispatch (bb,
    3921                 :            :                                            as_a <geh_dispatch *> (last));
    3922                 :      35894 :           flags |= TODO_update_ssa_only_virtuals;
    3923                 :            :         }
    3924                 :    2415060 :       else if (gimple_code (last) == GIMPLE_RESX)
    3925                 :            :         {
    3926                 :     151187 :           if (stmt_can_throw_external (fun, last))
    3927                 :      67989 :             optimize_clobbers (bb);
    3928                 :      83198 :           else if (!any_resx_to_process)
    3929                 :      78304 :             sink_clobbers (bb, NULL, &any_resx_to_process);
    3930                 :            :         }
    3931                 :    2450960 :       bb->flags &= ~BB_VISITED;
    3932                 :            :     }
    3933                 :      98522 :   if (redirected)
    3934                 :            :     {
    3935                 :         10 :       free_dominance_info (CDI_DOMINATORS);
    3936                 :         10 :       delete_unreachable_blocks ();
    3937                 :            :     }
    3938                 :            : 
    3939                 :      98522 :   if (any_resx_to_process)
    3940                 :            :     {
    3941                 :            :       /* Make sure to catch all secondary sinking opportunities by processing
    3942                 :            :          blocks in RPO order and after all CFG modifications from lowering
    3943                 :            :          and unreachable block removal.  */
    3944                 :       2560 :       int *rpo = XNEWVEC  (int, n_basic_blocks_for_fn (fun));
    3945                 :       2560 :       int rpo_n = pre_and_rev_post_order_compute_fn (fun, NULL, rpo, false);
    3946                 :       2560 :       gimple_seq *sunk = XCNEWVEC (gimple_seq, last_basic_block_for_fn (fun));
    3947                 :     115722 :       for (int i = 0; i < rpo_n; ++i)
    3948                 :            :         {
    3949                 :     113162 :           bb = BASIC_BLOCK_FOR_FN (fun, rpo[i]);
    3950                 :     113162 :           gimple *last = last_stmt (bb);
    3951                 :     113162 :           if (last
    3952                 :     111902 :               && gimple_code (last) == GIMPLE_RESX
    3953                 :     124841 :               && !stmt_can_throw_external (fun, last))
    3954                 :       8809 :             flags |= sink_clobbers (bb, sunk);
    3955                 :            :           /* If there were any clobbers sunk into this BB, insert them now.  */
    3956                 :     113162 :           if (!gimple_seq_empty_p (sunk[bb->index]))
    3957                 :            :             {
    3958                 :       3268 :               gimple_stmt_iterator gsi = gsi_after_labels (bb);
    3959                 :       3268 :               gsi_insert_seq_before (&gsi, sunk[bb->index], GSI_NEW_STMT);
    3960                 :       3268 :               sunk[bb->index] = NULL;
    3961                 :            :             }
    3962                 :     113162 :           bb->flags |= BB_VISITED;
    3963                 :            :         }
    3964                 :       2560 :       free (rpo);
    3965                 :       2560 :       free (sunk);
    3966                 :            :     }
    3967                 :            : 
    3968                 :      98522 :   return flags;
    3969                 :            : }
    3970                 :            : 
    3971                 :            : } // anon namespace
    3972                 :            : 
    3973                 :            : gimple_opt_pass *
    3974                 :     200773 : make_pass_lower_eh_dispatch (gcc::context *ctxt)
    3975                 :            : {
    3976                 :     200773 :   return new pass_lower_eh_dispatch (ctxt);
    3977                 :            : }
    3978                 :            : 
    3979                 :            : /* Walk statements, see what regions and, optionally, landing pads
    3980                 :            :    are really referenced.
    3981                 :            :    
    3982                 :            :    Returns in R_REACHABLEP an sbitmap with bits set for reachable regions,
    3983                 :            :    and in LP_REACHABLE an sbitmap with bits set for reachable landing pads.
    3984                 :            : 
    3985                 :            :    Passing NULL for LP_REACHABLE is valid, in this case only reachable
    3986                 :            :    regions are marked.
    3987                 :            : 
    3988                 :            :    The caller is responsible for freeing the returned sbitmaps.  */
    3989                 :            : 
    3990                 :            : static void
    3991                 :     926944 : mark_reachable_handlers (sbitmap *r_reachablep, sbitmap *lp_reachablep)
    3992                 :            : {
    3993                 :     926944 :   sbitmap r_reachable, lp_reachable;
    3994                 :     926944 :   basic_block bb;
    3995                 :     926944 :   bool mark_landing_pads = (lp_reachablep != NULL);
    3996                 :     926944 :   gcc_checking_assert (r_reachablep != NULL);
    3997                 :            : 
    3998                 :     926944 :   r_reachable = sbitmap_alloc (cfun->eh->region_array->length ());
    3999                 :     926944 :   bitmap_clear (r_reachable);
    4000                 :     926944 :   *r_reachablep = r_reachable;
    4001                 :            : 
    4002                 :     926944 :   if (mark_landing_pads)
    4003                 :            :     {
    4004                 :     746798 :       lp_reachable = sbitmap_alloc (cfun->eh->lp_array->length ());
    4005                 :     746798 :       bitmap_clear (lp_reachable);
    4006                 :     746798 :       *lp_reachablep = lp_reachable;
    4007                 :            :     }
    4008                 :            :   else
    4009                 :            :     lp_reachable = NULL;
    4010                 :            : 
    4011                 :   13638900 :   FOR_EACH_BB_FN (bb, cfun)
    4012                 :            :     {
    4013                 :   12712000 :       gimple_stmt_iterator gsi;
    4014                 :            : 
    4015                 :  114489000 :       for (gsi = gsi_start_bb (bb); !gsi_end_p (gsi); gsi_next (&gsi))
    4016                 :            :         {
    4017                 :   89064800 :           gimple *stmt = gsi_stmt (gsi);
    4018                 :            : 
    4019                 :   89064800 :           if (mark_landing_pads)
    4020                 :            :             {
    4021                 :   53826900 :               int lp_nr = lookup_stmt_eh_lp (stmt);
    4022                 :            : 
    4023                 :            :               /* Negative LP numbers are MUST_NOT_THROW regions which
    4024                 :            :                  are not considered BB enders.  */
    4025                 :   53826900 :               if (lp_nr < 0)
    4026                 :      65191 :                 bitmap_set_bit (r_reachable, -lp_nr);
    4027                 :            : 
    4028                 :            :               /* Positive LP numbers are real landing pads, and BB enders.  */
    4029                 :   53761700 :               else if (lp_nr > 0)
    4030                 :            :                 {
    4031                 :    2466180 :                   gcc_assert (gsi_one_before_end_p (gsi));
    4032                 :    2466180 :                   eh_region region = get_eh_region_from_lp_number (lp_nr);
    4033                 :    2466180 :                   bitmap_set_bit (r_reachable, region->index);
    4034                 :    2466180 :                   bitmap_set_bit (lp_reachable, lp_nr);
    4035                 :            :                 }
    4036                 :            :             }
    4037                 :            : 
    4038                 :            :           /* Avoid removing regions referenced from RESX/EH_DISPATCH.  */
    4039                 :   89064800 :           switch (gimple_code (stmt))
    4040                 :            :             {
    4041                 :     687109 :             case GIMPLE_RESX:
    4042                 :     687109 :               bitmap_set_bit (r_reachable,
    4043                 :     687109 :                               gimple_resx_region (as_a <gresx *> (stmt)));
    4044                 :            :               break;
    4045                 :      57319 :             case GIMPLE_EH_DISPATCH:
    4046                 :   89122200 :               bitmap_set_bit (r_reachable,
    4047                 :            :                               gimple_eh_dispatch_region (
    4048                 :      57319 :                                 as_a <geh_dispatch *> (stmt)));
    4049                 :            :               break;
    4050                 :    5245110 :             case GIMPLE_CALL:
    4051                 :    5245110 :               if (gimple_call_builtin_p (stmt, BUILT_IN_EH_COPY_VALUES))
    4052                 :        594 :                 for (int i = 0; i < 2; ++i)
    4053                 :            :                   {
    4054                 :        396 :                     tree rt = gimple_call_arg (stmt, i);
    4055                 :        396 :                     HOST_WIDE_INT ri = tree_to_shwi (rt);
    4056                 :            : 
    4057                 :        396 :                     gcc_assert (ri == (int)ri);
    4058                 :        396 :                     bitmap_set_bit (r_reachable, ri);
    4059                 :            :                   }
    4060                 :            :               break;
    4061                 :            :             default:
    4062                 :            :               break;
    4063                 :            :             }
    4064                 :            :         }
    4065                 :            :     }
    4066                 :     926944 : }
    4067                 :            : 
    4068                 :            : /* Remove unreachable handlers and unreachable landing pads.  */
    4069                 :            : 
    4070                 :            : static void
    4071                 :     746798 : remove_unreachable_handlers (void)
    4072                 :            : {
    4073                 :     746798 :   sbitmap r_reachable, lp_reachable;
    4074                 :     746798 :   eh_region region;
    4075                 :     746798 :   eh_landing_pad lp;
    4076                 :     746798 :   unsigned i;
    4077                 :            : 
    4078                 :     746798 :   mark_reachable_handlers (&r_reachable, &lp_reachable);
    4079                 :            : 
    4080                 :     746798 :   if (dump_file)
    4081                 :            :     {
    4082                 :          4 :       fprintf (dump_file, "Before removal of unreachable regions:\n");
    4083                 :          4 :       dump_eh_tree (dump_file, cfun);
    4084                 :          4 :       fprintf (dump_file, "Reachable regions: ");
    4085                 :          4 :       dump_bitmap_file (dump_file, r_reachable);
    4086                 :          4 :       fprintf (dump_file, "Reachable landing pads: ");
    4087                 :          4 :       dump_bitmap_file (dump_file, lp_reachable);
    4088                 :            :     }
    4089                 :            : 
    4090                 :     746798 :   if (dump_file)
    4091                 :            :     {
    4092                 :         24 :       FOR_EACH_VEC_SAFE_ELT (cfun->eh->region_array, i, region)
    4093                 :         20 :         if (region && !bitmap_bit_p (r_reachable, region->index))
    4094                 :          8 :           fprintf (dump_file,
    4095                 :            :                    "Removing unreachable region %d\n",
    4096                 :            :                    region->index);
    4097                 :            :     }
    4098                 :            : 
    4099                 :     746798 :   remove_unreachable_eh_regions (r_reachable);
    4100                 :            : 
    4101                 :    3140940 :   FOR_EACH_VEC_SAFE_ELT (cfun->eh->lp_array, i, lp)
    4102                 :    2394140 :     if (lp && !bitmap_bit_p (lp_reachable, lp->index))
    4103                 :            :       {
    4104                 :      10630 :         if (dump_file)
    4105                 :          0 :           fprintf (dump_file,
    4106                 :            :                    "Removing unreachable landing pad %d\n",
    4107                 :            :                    lp->index);
    4108                 :      10630 :         remove_eh_landing_pad (lp);
    4109                 :            :       }
    4110                 :            : 
    4111                 :     746798 :   if (dump_file)
    4112                 :            :     {
    4113                 :          4 :       fprintf (dump_file, "\n\nAfter removal of unreachable regions:\n");
    4114                 :          4 :       dump_eh_tree (dump_file, cfun);
    4115                 :          4 :       fprintf (dump_file, "\n\n");
    4116                 :            :     }
    4117                 :            : 
    4118                 :     746798 :   sbitmap_free (r_reachable);
    4119                 :     746798 :   sbitmap_free (lp_reachable);
    4120                 :            : 
    4121                 :     746798 :   if (flag_checking)
    4122                 :     746798 :     verify_eh_tree (cfun);
    4123                 :     746798 : }
    4124                 :            : 
    4125                 :            : /* Remove unreachable handlers if any landing pads have been removed after
    4126                 :            :    last ehcleanup pass (due to gimple_purge_dead_eh_edges).  */
    4127                 :            : 
    4128                 :            : void
    4129                 :    1111340 : maybe_remove_unreachable_handlers (void)
    4130                 :            : {
    4131                 :    1111340 :   eh_landing_pad lp;
    4132                 :    1111340 :   unsigned i;
    4133                 :            : 
    4134                 :    1111340 :   if (cfun->eh == NULL)
    4135                 :            :     return;
    4136                 :            : 
    4137                 :    3494620 :   FOR_EACH_VEC_SAFE_ELT (cfun->eh->lp_array, i, lp)
    4138                 :    2388510 :     if (lp
    4139                 :    2388510 :         && (lp->post_landing_pad == NULL_TREE
    4140                 :     241718 :             || label_to_block (cfun, lp->post_landing_pad) == NULL))
    4141                 :            :       {
    4142                 :       5230 :         remove_unreachable_handlers ();
    4143                 :       5230 :         return;
    4144                 :            :       }
    4145                 :            : }
    4146                 :            : 
    4147                 :            : /* Remove regions that do not have landing pads.  This assumes
    4148                 :            :    that remove_unreachable_handlers has already been run, and
    4149                 :            :    that we've just manipulated the landing pads since then.
    4150                 :            : 
    4151                 :            :    Preserve regions with landing pads and regions that prevent
    4152                 :            :    exceptions from propagating further, even if these regions
    4153                 :            :    are not reachable.  */
    4154                 :            : 
    4155                 :            : static void
    4156                 :     180146 : remove_unreachable_handlers_no_lp (void)
    4157                 :            : {
    4158                 :     180146 :   eh_region region;
    4159                 :     180146 :   sbitmap r_reachable;
    4160                 :     180146 :   unsigned i;
    4161                 :            : 
    4162                 :     180146 :   mark_reachable_handlers (&r_reachable, /*lp_reachablep=*/NULL);
    4163                 :            : 
    4164                 :    1468150 :   FOR_EACH_VEC_SAFE_ELT (cfun->eh->region_array, i, region)
    4165                 :            :     {
    4166                 :    1288010 :       if (! region)
    4167                 :     745825 :         continue;
    4168                 :            : 
    4169                 :     542183 :       if (region->landing_pads != NULL
    4170                 :     323304 :           || region->type == ERT_MUST_NOT_THROW)
    4171                 :     241975 :         bitmap_set_bit (r_reachable, region->index);
    4172                 :            : 
    4173                 :     542183 :       if (dump_file
    4174                 :     542183 :           && !bitmap_bit_p (r_reachable, region->index))
    4175                 :          8 :         fprintf (dump_file,
    4176                 :            :                  "Removing unreachable region %d\n",
    4177                 :            :                  region->index);
    4178                 :            :     }
    4179                 :            : 
    4180                 :     180146 :   remove_unreachable_eh_regions (r_reachable);
    4181                 :            : 
    4182                 :     180146 :   sbitmap_free (r_reachable);
    4183                 :     180146 : }
    4184                 :            : 
    4185                 :            : /* Undo critical edge splitting on an EH landing pad.  Earlier, we
    4186                 :            :    optimisticaly split all sorts of edges, including EH edges.  The
    4187                 :            :    optimization passes in between may not have needed them; if not,
    4188                 :            :    we should undo the split.
    4189                 :            : 
    4190                 :            :    Recognize this case by having one EH edge incoming to the BB and
    4191                 :            :    one normal edge outgoing; BB should be empty apart from the
    4192                 :            :    post_landing_pad label.
    4193                 :            : 
    4194                 :            :    Note that this is slightly different from the empty handler case
    4195                 :            :    handled by cleanup_empty_eh, in that the actual handler may yet
    4196                 :            :    have actual code but the landing pad has been separated from the
    4197                 :            :    handler.  As such, cleanup_empty_eh relies on this transformation
    4198                 :            :    having been done first.  */
    4199                 :            : 
    4200                 :            : static bool
    4201                 :    1227320 : unsplit_eh (eh_landing_pad lp)
    4202                 :            : {
    4203                 :    1227320 :   basic_block bb = label_to_block (cfun, lp->post_landing_pad);
    4204                 :    1227320 :   gimple_stmt_iterator gsi;
    4205                 :    1227320 :   edge e_in, e_out;
    4206                 :            : 
    4207                 :            :   /* Quickly check the edge counts on BB for singularity.  */
    4208                 :    1227320 :   if (!single_pred_p (bb) || !single_succ_p (bb))
    4209                 :            :     return false;
    4210                 :     945105 :   e_in = single_pred_edge (bb);
    4211                 :     945105 :   e_out = single_succ_edge (bb);
    4212                 :            : 
    4213                 :            :   /* Input edge must be EH and output edge must be normal.  */
    4214                 :     945105 :   if ((e_in->flags & EDGE_EH) == 0 || (e_out->flags & EDGE_EH) != 0)
    4215                 :            :     return false;
    4216                 :            : 
    4217                 :            :   /* The block must be empty except for the labels and debug insns.  */
    4218                 :     808834 :   gsi = gsi_after_labels (bb);
    4219                 :     808834 :   if (!gsi_end_p (gsi) && is_gimple_debug (gsi_stmt (gsi)))
    4220                 :       6268 :     gsi_next_nondebug (&gsi);
    4221                 :     808834 :   if (!gsi_end_p (gsi))
    4222                 :            :     return false;
    4223                 :            : 
    4224                 :            :   /* The destination block must not already have a landing pad
    4225                 :            :      for a different region.  */
    4226                 :    2257490 :   for (gsi = gsi_start_bb (e_out->dest); !gsi_end_p (gsi); gsi_next (&gsi))
    4227                 :            :     {
    4228                 :    1504640 :       glabel *label_stmt = dyn_cast <glabel *> (gsi_stmt (gsi));
    4229                 :     752200 :       tree lab;
    4230                 :     752200 :       int lp_nr;
    4231                 :            : 
    4232                 :     752200 :       if (!label_stmt)
    4233                 :            :         break;
    4234                 :     752200 :       lab = gimple_label_label (label_stmt);
    4235                 :     752200 :       lp_nr = EH_LANDING_PAD_NR (lab);
    4236                 :     752200 :       if (lp_nr && get_eh_region_from_lp_number (lp_nr) != lp->region)
    4237                 :            :         return false;
    4238                 :            :     }
    4239                 :            : 
    4240                 :            :   /* The new destination block must not already be a destination of
    4241                 :            :      the source block, lest we merge fallthru and eh edges and get
    4242                 :            :      all sorts of confused.  */
    4243                 :     752645 :   if (find_edge (e_in->src, e_out->dest))
    4244                 :            :     return false;
    4245                 :            : 
    4246                 :            :   /* ??? We can get degenerate phis due to cfg cleanups.  I would have
    4247                 :            :      thought this should have been cleaned up by a phicprop pass, but
    4248                 :            :      that doesn't appear to handle virtuals.  Propagate by hand.  */
    4249                 :     752645 :   if (!gimple_seq_empty_p (phi_nodes (bb)))
    4250                 :            :     {
    4251                 :          0 :       for (gphi_iterator gpi = gsi_start_phis (bb); !gsi_end_p (gpi); )
    4252                 :            :         {
    4253                 :          0 :           gimple *use_stmt;
    4254                 :          0 :           gphi *phi = gpi.phi ();
    4255                 :          0 :           tree lhs = gimple_phi_result (phi);
    4256                 :          0 :           tree rhs = gimple_phi_arg_def (phi, 0);
    4257                 :          0 :           use_operand_p use_p;
    4258                 :          0 :           imm_use_iterator iter;
    4259                 :            : 
    4260                 :          0 :           FOR_EACH_IMM_USE_STMT (use_stmt, iter, lhs)
    4261                 :            :             {
    4262                 :          0 :               FOR_EACH_IMM_USE_ON_STMT (use_p, iter)
    4263                 :          0 :                 SET_USE (use_p, rhs);
    4264                 :            :             }
    4265                 :            : 
    4266                 :          0 :           if (SSA_NAME_OCCURS_IN_ABNORMAL_PHI (lhs))
    4267                 :          0 :             SSA_NAME_OCCURS_IN_ABNORMAL_PHI (rhs) = 1;
    4268                 :            : 
    4269                 :          0 :           remove_phi_node (&gpi, true);
    4270                 :            :         }
    4271                 :            :     }
    4272                 :            : 
    4273                 :     752645 :   if (dump_file && (dump_flags & TDF_DETAILS))
    4274                 :          0 :     fprintf (dump_file, "Unsplit EH landing pad %d to block %i.\n",
    4275                 :          0 :              lp->index, e_out->dest->index);
    4276                 :            : 
    4277                 :            :   /* Redirect the edge.  Since redirect_eh_edge_1 expects to be moving
    4278                 :            :      a successor edge, humor it.  But do the real CFG change with the
    4279                 :            :      predecessor of E_OUT in order to preserve the ordering of arguments
    4280                 :            :      to the PHI nodes in E_OUT->DEST.  */
    4281                 :     752645 :   redirect_eh_edge_1 (e_in, e_out->dest, false);
    4282                 :     752645 :   redirect_edge_pred (e_out, e_in->src);
    4283                 :     752645 :   e_out->flags = e_in->flags;
    4284                 :     752645 :   e_out->probability = e_in->probability;
    4285                 :     752645 :   remove_edge (e_in);
    4286                 :            : 
    4287                 :     752645 :   return true;
    4288                 :            : }
    4289                 :            : 
    4290                 :            : /* Examine each landing pad block and see if it matches unsplit_eh.  */
    4291                 :            : 
    4292                 :            : static bool
    4293                 :     366227 : unsplit_all_eh (void)
    4294                 :            : {
    4295                 :     366227 :   bool changed = false;
    4296                 :     366227 :   eh_landing_pad lp;
    4297                 :     366227 :   int i;
    4298                 :            : 
    4299                 :    2094150 :   for (i = 1; vec_safe_iterate (cfun->eh->lp_array, i, &lp); ++i)
    4300                 :    1727920 :     if (lp)
    4301                 :    1227320 :       changed |= unsplit_eh (lp);
    4302                 :            : 
    4303                 :     366227 :   return changed;
    4304                 :            : }
    4305                 :            : 
    4306                 :            : /* Wrapper around unsplit_all_eh that makes it usable everywhere.  */
    4307                 :            : 
    4308                 :            : void
    4309                 :     166832 : unsplit_eh_edges (void)
    4310                 :            : {
    4311                 :     166832 :   bool changed;
    4312                 :            : 
    4313                 :            :   /* unsplit_all_eh can die looking up unreachable landing pads.  */
    4314                 :     166832 :   maybe_remove_unreachable_handlers ();
    4315                 :            : 
    4316                 :     166832 :   changed = unsplit_all_eh ();
    4317                 :            : 
    4318                 :            :   /* If EH edges have been unsplit, delete unreachable forwarder blocks.  */
    4319                 :     166832 :   if (changed)
    4320                 :            :     {
    4321                 :       9243 :       free_dominance_info (CDI_DOMINATORS);
    4322                 :       9243 :       free_dominance_info (CDI_POST_DOMINATORS);
    4323                 :       9243 :       delete_unreachable_blocks ();
    4324                 :            :     }
    4325                 :     166832 : }
    4326                 :            : 
    4327                 :            : /* A subroutine of cleanup_empty_eh.  Redirect all EH edges incoming
    4328                 :            :    to OLD_BB to NEW_BB; return true on success, false on failure.
    4329                 :            : 
    4330                 :            :    OLD_BB_OUT is the edge into NEW_BB from OLD_BB, so if we miss any
    4331                 :            :    PHI variables from OLD_BB we can pick them up from OLD_BB_OUT.
    4332                 :            :    Virtual PHIs may be deleted and marked for renaming.  */
    4333                 :            : 
    4334                 :            : static bool
    4335                 :     112683 : cleanup_empty_eh_merge_phis (basic_block new_bb, basic_block old_bb,
    4336                 :            :                              edge old_bb_out, bool change_region)
    4337                 :            : {
    4338                 :     112683 :   gphi_iterator ngsi, ogsi;
    4339                 :     112683 :   edge_iterator ei;
    4340                 :     112683 :   edge e;
    4341                 :     112683 :   bitmap ophi_handled;
    4342                 :            : 
    4343                 :            :   /* The destination block must not be a regular successor for any
    4344                 :            :      of the preds of the landing pad.  Thus, avoid turning
    4345                 :            :         <..>
    4346                 :            :          |  \ EH
    4347                 :            :          |  <..>
    4348                 :            :          |  /
    4349                 :            :         <..>
    4350                 :            :      into
    4351                 :            :         <..>
    4352                 :            :         |  | EH
    4353                 :            :         <..>
    4354                 :            :      which CFG verification would choke on.  See PR45172 and PR51089.  */
    4355                 :     112683 :   if (!single_pred_p (new_bb))
    4356                 :     601307 :     FOR_EACH_EDGE (e, ei, old_bb->preds)
    4357                 :     507344 :       if (find_edge (e->src, new_bb))
    4358                 :            :         return false;
    4359                 :            : 
    4360                 :     819949 :   FOR_EACH_EDGE (e, ei, old_bb->preds)
    4361                 :     707267 :     redirect_edge_var_map_clear (e);
    4362                 :            : 
    4363                 :     112682 :   ophi_handled = BITMAP_ALLOC (NULL);
    4364                 :            : 
    4365                 :            :   /* First, iterate through the PHIs on NEW_BB and set up the edge_var_map
    4366                 :            :      for the edges we're going to move.  */
    4367                 :     207781 :   for (ngsi = gsi_start_phis (new_bb); !gsi_end_p (ngsi); gsi_next (&ngsi))
    4368                 :            :     {
    4369                 :      95100 :       gphi *ophi, *nphi = ngsi.phi ();
    4370                 :      95100 :       tree nresult, nop;
    4371                 :            : 
    4372                 :      95100 :       nresult = gimple_phi_result (nphi);
    4373                 :      95100 :       nop = gimple_phi_arg_def (nphi, old_bb_out->dest_idx);
    4374                 :            : 
    4375                 :            :       /* Find the corresponding PHI in OLD_BB so we can forward-propagate
    4376                 :            :          the source ssa_name.  */
    4377                 :      95100 :       ophi = NULL;
    4378                 :      96828 :       for (ogsi = gsi_start_phis (old_bb); !gsi_end_p (ogsi); gsi_next (&ogsi))
    4379                 :            :         {
    4380                 :      39461 :           ophi = ogsi.phi ();
    4381                 :      39461 :           if (gimple_phi_result (ophi) == nop)
    4382                 :            :             break;
    4383                 :       1728 :           ophi = NULL;
    4384                 :            :         }
    4385                 :            : 
    4386                 :            :       /* If we did find the corresponding PHI, copy those inputs.  */
    4387                 :      95100 :       if (ophi)
    4388                 :            :         {
    4389                 :            :           /* If NOP is used somewhere else beyond phis in new_bb, give up.  */
    4390                 :      37733 :           if (!has_single_use (nop))
    4391                 :            :             {
    4392                 :        216 :               imm_use_iterator imm_iter;
    4393                 :        216 :               use_operand_p use_p;
    4394                 :            : 
    4395                 :        663 :               FOR_EACH_IMM_USE_FAST (use_p, imm_iter, nop)
    4396                 :            :                 {
    4397                 :        448 :                   if (!gimple_debug_bind_p (USE_STMT (use_p))
    4398                 :        448 :                       && (gimple_code (USE_STMT (use_p)) != GIMPLE_PHI
    4399                 :        447 :                           || gimple_bb (USE_STMT (use_p)) != new_bb))
    4400                 :          1 :                     goto fail;
    4401                 :            :                 }
    4402                 :            :             }
    4403                 :      37732 :           bitmap_set_bit (ophi_handled, SSA_NAME_VERSION (nop));
    4404                 :     487745 :           FOR_EACH_EDGE (e, ei, old_bb->preds)
    4405                 :            :             {
    4406                 :     450013 :               location_t oloc;
    4407                 :     450013 :               tree oop;
    4408                 :            : 
    4409                 :     450013 :               if ((e->flags & EDGE_EH) == 0)
    4410                 :         24 :                 continue;
    4411                 :     449989 :               oop = gimple_phi_arg_def (ophi, e->dest_idx);
    4412                 :     449989 :               oloc = gimple_phi_arg_location (ophi, e->dest_idx);
    4413                 :     449989 :               redirect_edge_var_map_add (e, nresult, oop, oloc);
    4414                 :            :             }
    4415                 :            :         }
    4416                 :            :       /* If we didn't find the PHI, if it's a real variable or a VOP, we know
    4417                 :            :          from the fact that OLD_BB is tree_empty_eh_handler_p that the
    4418                 :            :          variable is unchanged from input to the block and we can simply
    4419                 :            :          re-use the input to NEW_BB from the OLD_BB_OUT edge.  */
    4420                 :            :       else
    4421                 :            :         {
    4422                 :      57367 :           location_t nloc
    4423                 :      57367 :             = gimple_phi_arg_location (nphi, old_bb_out->dest_idx);
    4424                 :     121945 :           FOR_EACH_EDGE (e, ei, old_bb->preds)
    4425                 :      64578 :             redirect_edge_var_map_add (e, nresult, nop, nloc);
    4426                 :            :         }
    4427                 :            :     }
    4428                 :            : 
    4429                 :            :   /* Second, verify that all PHIs from OLD_BB have been handled.  If not,
    4430                 :            :      we don't know what values from the other edges into NEW_BB to use.  */
    4431                 :     150394 :   for (ogsi = gsi_start_phis (old_bb); !gsi_end_p (ogsi); gsi_next (&ogsi))
    4432                 :            :     {
    4433                 :      48362 :       gphi *ophi = ogsi.phi ();
    4434                 :      48362 :       tree oresult = gimple_phi_result (ophi);
    4435                 :      48362 :       if (!bitmap_bit_p (ophi_handled, SSA_NAME_VERSION (oresult)))
    4436                 :      10649 :         goto fail;
    4437                 :            :     }
    4438                 :            : 
    4439                 :            :   /* Finally, move the edges and update the PHIs.  */
    4440                 :     611514 :   for (ei = ei_start (old_bb->preds); (e = ei_safe_edge (ei)); )
    4441                 :     509482 :     if (e->flags & EDGE_EH)
    4442                 :            :       {
    4443                 :            :         /* ???  CFG manipluation routines do not try to update loop
    4444                 :            :            form on edge redirection.  Do so manually here for now.  */
    4445                 :            :         /* If we redirect a loop entry or latch edge that will either create
    4446                 :            :            a multiple entry loop or rotate the loop.  If the loops merge
    4447                 :            :            we may have created a loop with multiple latches.
    4448                 :            :            All of this isn't easily fixed thus cancel the affected loop
    4449                 :            :            and mark the other loop as possibly having multiple latches.  */
    4450                 :     509317 :         if (e->dest == e->dest->loop_father->header)
    4451                 :            :           {
    4452                 :          0 :             mark_loop_for_removal (e->dest->loop_father);
    4453                 :          0 :             new_bb->loop_father->latch = NULL;
    4454                 :          0 :             loops_state_set (LOOPS_MAY_HAVE_MULTIPLE_LATCHES);
    4455                 :            :           }
    4456                 :     509317 :         redirect_eh_edge_1 (e, new_bb, change_region);
    4457                 :     509317 :         redirect_edge_succ (e, new_bb);
    4458                 :     509317 :         flush_pending_stmts (e);
    4459                 :            :       }
    4460                 :            :     else
    4461                 :        165 :       ei_next (&ei);
    4462                 :            : 
    4463                 :     102032 :   BITMAP_FREE (ophi_handled);
    4464                 :     102032 :   return true;
    4465                 :            : 
    4466                 :      10650 :  fail:
    4467                 :     208435 :   FOR_EACH_EDGE (e, ei, old_bb->preds)
    4468                 :     197785 :     redirect_edge_var_map_clear (e);
    4469                 :      10650 :   BITMAP_FREE (ophi_handled);
    4470                 :      10650 :   return false;
    4471                 :            : }
    4472                 :            : 
    4473                 :            : /* A subroutine of cleanup_empty_eh.  Move a landing pad LP from its
    4474                 :            :    old region to NEW_REGION at BB.  */
    4475                 :            : 
    4476                 :            : static void
    4477                 :      10603 : cleanup_empty_eh_move_lp (basic_block bb, edge e_out,
    4478                 :            :                           eh_landing_pad lp, eh_region new_region)
    4479                 :            : {
    4480                 :      10603 :   gimple_stmt_iterator gsi;
    4481                 :      10603 :   eh_landing_pad *pp;
    4482                 :            : 
    4483                 :      10603 :   for (pp = &lp->region->landing_pads; *pp != lp; pp = &(*pp)->next_lp)
    4484                 :          0 :     continue;
    4485                 :      10603 :   *pp = lp->next_lp;
    4486                 :            : 
    4487                 :      10603 :   lp->region = new_region;
    4488                 :      10603 :   lp->next_lp = new_region->landing_pads;
    4489                 :      10603 :   new_region->landing_pads = lp;
    4490                 :            : 
    4491                 :            :   /* Delete the RESX that was matched within the empty handler block.  */
    4492                 :      10603 :   gsi = gsi_last_bb (bb);
    4493                 :      10603 :   unlink_stmt_vdef (gsi_stmt (gsi));
    4494                 :      10603 :   gsi_remove (&gsi, true);
    4495                 :            : 
    4496                 :            :   /* Clean up E_OUT for the fallthru.  */
    4497                 :      10603 :   e_out->flags = (e_out->flags & ~EDGE_EH) | EDGE_FALLTHRU;
    4498                 :      10603 :   e_out->probability = profile_probability::always ();
    4499                 :      10603 : }
    4500                 :            : 
    4501                 :            : /* A subroutine of cleanup_empty_eh.  Handle more complex cases of
    4502                 :            :    unsplitting than unsplit_eh was prepared to handle, e.g. when
    4503                 :            :    multiple incoming edges and phis are involved.  */
    4504                 :            : 
    4505                 :            : static bool
    4506                 :        138 : cleanup_empty_eh_unsplit (basic_block bb, edge e_out, eh_landing_pad lp)
    4507                 :            : {
    4508                 :        138 :   gimple_stmt_iterator gsi;
    4509                 :        138 :   tree lab;
    4510                 :            : 
    4511                 :            :   /* We really ought not have totally lost everything following
    4512                 :            :      a landing pad label.  Given that BB is empty, there had better
    4513                 :            :      be a successor.  */
    4514                 :        138 :   gcc_assert (e_out != NULL);
    4515                 :            : 
    4516                 :            :   /* The destination block must not already have a landing pad
    4517                 :            :      for a different region.  */
    4518                 :        138 :   lab = NULL;
    4519                 :        353 :   for (gsi = gsi_start_bb (e_out->dest); !gsi_end_p (gsi); gsi_next (&gsi))
    4520                 :            :     {
    4521                 :        215 :       glabel *stmt = dyn_cast <glabel *> (gsi_stmt (gsi));
    4522                 :         77 :       int lp_nr;
    4523                 :            : 
    4524                 :         77 :       if (!stmt)
    4525                 :            :         break;
    4526                 :         77 :       lab = gimple_label_label (stmt);
    4527                 :         77 :       lp_nr = EH_LANDING_PAD_NR (lab);
    4528                 :         77 :       if (lp_nr && get_eh_region_from_lp_number (lp_nr) != lp->region)
    4529                 :            :         return false;
    4530                 :            :     }
    4531                 :            : 
    4532                 :            :   /* Attempt to move the PHIs into the successor block.  */
    4533                 :        138 :   if (cleanup_empty_eh_merge_phis (e_out->dest, bb, e_out, false))
    4534                 :            :     {
    4535                 :        136 :       if (dump_file && (dump_flags & TDF_DETAILS))
    4536                 :          0 :         fprintf (dump_file,
    4537                 :            :                  "Unsplit EH landing pad %d to block %i "
    4538                 :            :                  "(via cleanup_empty_eh).\n",
    4539                 :          0 :                  lp->index, e_out->dest->index);
    4540                 :        136 :       return true;
    4541                 :            :     }
    4542                 :            : 
    4543                 :            :   return false;
    4544                 :            : }
    4545                 :            : 
    4546                 :            : /* Return true if edge E_FIRST is part of an empty infinite loop
    4547                 :            :    or leads to such a loop through a series of single successor
    4548                 :            :    empty bbs.  */
    4549                 :            : 
    4550                 :            : static bool
    4551                 :        163 : infinite_empty_loop_p (edge e_first)
    4552                 :            : {
    4553                 :        163 :   bool inf_loop = false;
    4554                 :        163 :   edge e;
    4555                 :            : 
    4556                 :        163 :   if (e_first->dest == e_first->src)
    4557                 :            :     return true;
    4558                 :            : 
    4559                 :        163 :   e_first->src->aux = (void *) 1;
    4560                 :        201 :   for (e = e_first; single_succ_p (e->dest); e = single_succ_edge (e->dest))
    4561                 :            :     {
    4562                 :         88 :       gimple_stmt_iterator gsi;
    4563                 :         88 :       if (e->dest->aux)
    4564                 :            :         {
    4565                 :            :           inf_loop = true;
    4566                 :         50 :           break;
    4567                 :            :         }
    4568                 :         63 :       e->dest->aux = (void *) 1;
    4569                 :         63 :       gsi = gsi_after_labels (e->dest);
    4570                 :         63 :       if (!gsi_end_p (gsi) && is_gimple_debug (gsi_stmt (gsi)))
    4571                 :        159 :         gsi_next_nondebug (&gsi);
    4572                 :         63 :       if (!gsi_end_p (gsi))
    4573                 :            :         break;
    4574                 :            :     }
    4575                 :        163 :   e_first->src->aux = NULL;
    4576                 :        226 :   for (e = e_first; e->dest->aux; e = single_succ_edge (e->dest))
    4577                 :         63 :     e->dest->aux = NULL;
    4578                 :            : 
    4579                 :            :   return inf_loop;
    4580                 :            : }
    4581                 :            : 
    4582                 :            : /* Examine the block associated with LP to determine if it's an empty
    4583                 :            :    handler for its EH region.  If so, attempt to redirect EH edges to
    4584                 :            :    an outer region.  Return true the CFG was updated in any way.  This
    4585                 :            :    is similar to jump forwarding, just across EH edges.  */
    4586                 :            : 
    4587                 :            : static bool
    4588                 :     578252 : cleanup_empty_eh (eh_landing_pad lp)
    4589                 :            : {
    4590                 :     578252 :   basic_block bb = label_to_block (cfun, lp->post_landing_pad);
    4591                 :     578252 :   gimple_stmt_iterator gsi;
    4592                 :     578252 :   gimple *resx;
    4593                 :     578252 :   eh_region new_region;
    4594                 :     578252 :   edge_iterator ei;
    4595                 :     578252 :   edge e, e_out;
    4596                 :     578252 :   bool has_non_eh_pred;
    4597                 :     578252 :   bool ret = false;
    4598                 :     578252 :   int new_lp_nr;
    4599                 :            : 
    4600                 :            :   /* There can be zero or one edges out of BB.  This is the quickest test.  */
    4601                 :     578252 :   switch (EDGE_COUNT (bb->succs))
    4602                 :            :     {
    4603                 :            :     case 0:
    4604                 :            :       e_out = NULL;
    4605                 :            :       break;
    4606                 :     282799 :     case 1:
    4607                 :     282799 :       e_out = single_succ_edge (bb);
    4608                 :     282799 :       break;
    4609                 :            :     default:
    4610                 :            :       return false;
    4611                 :            :     }
    4612                 :            : 
    4613                 :     531631 :   gsi = gsi_last_nondebug_bb (bb);
    4614                 :     531631 :   resx = gsi_stmt (gsi);
    4615                 :     531631 :   if (resx && is_gimple_resx (resx))
    4616                 :            :     {
    4617                 :     479951 :       if (stmt_can_throw_external (cfun, resx))
    4618                 :     248452 :         optimize_clobbers (bb);
    4619                 :     231499 :       else if (sink_clobbers (bb))
    4620                 :       4668 :         ret = true;
    4621                 :            :     }
    4622                 :            : 
    4623                 :     531631 :   gsi = gsi_after_labels (bb);
    4624                 :            : 
    4625                 :            :   /* Make sure to skip debug statements.  */
    4626                 :     531631 :   if (!gsi_end_p (gsi) && is_gimple_debug (gsi_stmt (gsi)))
    4627                 :     919899 :     gsi_next_nondebug (&gsi);
    4628                 :            : 
    4629                 :            :   /* If the block is totally empty, look for more unsplitting cases.  */
    4630                 :     531631 :   if (gsi_end_p (gsi))
    4631                 :            :     {
    4632                 :            :       /* For the degenerate case of an infinite loop bail out.
    4633                 :            :          If bb has no successors and is totally empty, which can happen e.g.
    4634                 :            :          because of incorrect noreturn attribute, bail out too.  */
    4635                 :        163 :       if (e_out == NULL
    4636                 :        163 :           || infinite_empty_loop_p (e_out))
    4637                 :         25 :         return ret;
    4638                 :            : 
    4639                 :        138 :       return ret | cleanup_empty_eh_unsplit (bb, e_out, lp);
    4640                 :            :     }
    4641                 :            : 
    4642                 :            :   /* The block should consist only of a single RESX statement, modulo a
    4643                 :            :      preceding call to __builtin_stack_restore if there is no outgoing
    4644                 :            :      edge, since the call can be eliminated in this case.  */
    4645                 :     531468 :   resx = gsi_stmt (gsi);
    4646                 :     531468 :   if (!e_out && gimple_call_builtin_p (resx, BUILT_IN_STACK_RESTORE))
    4647                 :            :     {
    4648                 :        151 :       gsi_next_nondebug (&gsi);
    4649                 :            :       resx = gsi_stmt (gsi);
    4650                 :            :     }
    4651                 :     531468 :   if (!is_gimple_resx (resx))
    4652                 :            :     return ret;
    4653                 :     300580 :   gcc_assert (gsi_one_nondebug_before_end_p (gsi));
    4654                 :            : 
    4655                 :            :   /* Determine if there are non-EH edges, or resx edges into the handler.  */
    4656                 :     300580 :   has_non_eh_pred = false;
    4657                 :    2166200 :   FOR_EACH_EDGE (e, ei, bb->preds)
    4658                 :    1865620 :     if (!(e->flags & EDGE_EH))
    4659                 :        426 :       has_non_eh_pred = true;
    4660                 :            : 
    4661                 :            :   /* Find the handler that's outer of the empty handler by looking at
    4662                 :            :      where the RESX instruction was vectored.  */
    4663                 :     300580 :   new_lp_nr = lookup_stmt_eh_lp (resx);
    4664                 :     300580 :   new_region = get_eh_region_from_lp_number (new_lp_nr);
    4665                 :            : 
    4666                 :            :   /* If there's no destination region within the current function,
    4667                 :            :      redirection is trivial via removing the throwing statements from
    4668                 :            :      the EH region, removing the EH edges, and allowing the block
    4669                 :            :      to go unreachable.  */
    4670                 :     300580 :   if (new_region == NULL)
    4671                 :            :     {
    4672                 :     188035 :       gcc_assert (e_out == NULL);
    4673                 :    1346750 :       for (ei = ei_start (bb->preds); (e = ei_safe_edge (ei)); )
    4674                 :    1158710 :         if (e->flags & EDGE_EH)
    4675                 :            :           {
    4676                 :    1158500 :             gimple *stmt = last_stmt (e->src);
    4677                 :    1158500 :             remove_stmt_from_eh_lp (stmt);
    4678                 :    1158500 :             remove_edge (e);
    4679                 :            :           }
    4680                 :            :         else
    4681                 :        212 :           ei_next (&ei);
    4682                 :     188035 :       goto succeed;
    4683                 :            :     }
    4684                 :            : 
    4685                 :            :   /* If the destination region is a MUST_NOT_THROW, allow the runtime
    4686                 :            :      to handle the abort and allow the blocks to go unreachable.  */
    4687                 :     112545 :   if (new_region->type == ERT_MUST_NOT_THROW)
    4688                 :            :     {
    4689                 :          0 :       for (ei = ei_start (bb->preds); (e = ei_safe_edge (ei)); )
    4690                 :          0 :         if (e->flags & EDGE_EH)
    4691                 :            :           {
    4692                 :          0 :             gimple *stmt = last_stmt (e->src);
    4693                 :          0 :             remove_stmt_from_eh_lp (stmt);
    4694                 :          0 :             add_stmt_to_eh_lp (stmt, new_lp_nr);
    4695                 :          0 :             remove_edge (e);
    4696                 :            :           }
    4697                 :            :         else
    4698                 :          0 :           ei_next (&ei);
    4699                 :          0 :       goto succeed;
    4700                 :            :     }
    4701                 :            : 
    4702                 :            :   /* Try to redirect the EH edges and merge the PHIs into the destination
    4703                 :            :      landing pad block.  If the merge succeeds, we'll already have redirected
    4704                 :            :      all the EH edges.  The handler itself will go unreachable if there were
    4705                 :            :      no normal edges.  */
    4706                 :     112545 :   if (cleanup_empty_eh_merge_phis (e_out->dest, bb, e_out, true))
    4707                 :     101896 :     goto succeed;
    4708                 :            : 
    4709                 :            :   /* Finally, if all input edges are EH edges, then we can (potentially)
    4710                 :            :      reduce the number of transfers from the runtime by moving the landing
    4711                 :            :      pad from the original region to the new region.  This is a win when
    4712                 :            :      we remove the last CLEANUP region along a particular exception
    4713                 :            :      propagation path.  Since nothing changes except for the region with
    4714                 :            :      which the landing pad is associated, the PHI nodes do not need to be
    4715                 :            :      adjusted at all.  */
    4716                 :      10649 :   if (!has_non_eh_pred)
    4717                 :            :     {
    4718                 :      10603 :       cleanup_empty_eh_move_lp (bb, e_out, lp, new_region);
    4719                 :      10603 :       if (dump_file && (dump_flags & TDF_DETAILS))
    4720                 :          0 :         fprintf (dump_file, "Empty EH handler %i moved to EH region %i.\n",
    4721                 :            :                  lp->index, new_region->index);
    4722                 :            : 
    4723                 :            :       /* ??? The CFG didn't change, but we may have rendered the
    4724                 :            :          old EH region unreachable.  Trigger a cleanup there.  */
    4725                 :      10603 :       return true;
    4726                 :            :     }
    4727                 :            : 
    4728                 :            :   return ret;
    4729                 :            : 
    4730                 :     289931 :  succeed:
    4731                 :     289931 :   if (dump_file && (dump_flags & TDF_DETAILS))
    4732                 :          8 :     fprintf (dump_file, "Empty EH handler %i removed.\n", lp->index);
    4733                 :     289931 :   remove_eh_landing_pad (lp);
    4734                 :     289931 :   return true;
    4735                 :            : }
    4736                 :            : 
    4737                 :            : /* Do a post-order traversal of the EH region tree.  Examine each
    4738                 :            :    post_landing_pad block and see if we can eliminate it as empty.  */
    4739                 :            : 
    4740                 :            : static bool
    4741                 :     217881 : cleanup_all_empty_eh (void)
    4742                 :            : {
    4743                 :     217881 :   bool changed = false;
    4744                 :     217881 :   eh_landing_pad lp;
    4745                 :     217881 :   int i;
    4746                 :            : 
    4747                 :            :   /* Ideally we'd walk the region tree and process LPs inner to outer
    4748                 :            :      to avoid quadraticness in EH redirection.  Walking the LP array
    4749                 :            :      in reverse seems to be an approximation of that.  */
    4750                 :    1806360 :   for (i = vec_safe_length (cfun->eh->lp_array) - 1; i >= 1; --i)
    4751                 :            :     {
    4752                 :    1370590 :       lp = (*cfun->eh->lp_array)[i];
    4753                 :    1370590 :       if (lp)
    4754                 :     578252 :         changed |= cleanup_empty_eh (lp);
    4755                 :            :     }
    4756                 :            : 
    4757                 :     217881 :   return changed;
    4758                 :            : }
    4759                 :            : 
    4760                 :            : /* Perform cleanups and lowering of exception handling
    4761                 :            :     1) cleanups regions with handlers doing nothing are optimized out
    4762                 :            :     2) MUST_NOT_THROW regions that became dead because of 1) are optimized out
    4763                 :            :     3) Info about regions that are containing instructions, and regions
    4764                 :            :        reachable via local EH edges is collected
    4765                 :            :     4) Eh tree is pruned for regions no longer necessary.
    4766                 :            : 
    4767                 :            :    TODO: Push MUST_NOT_THROW regions to the root of the EH tree.
    4768                 :            :          Unify those that have the same failure decl and locus.
    4769                 :            : */
    4770                 :            : 
    4771                 :            : static unsigned int
    4772                 :     741568 : execute_cleanup_eh_1 (void)
    4773                 :            : {
    4774                 :            :   /* Do this first: unsplit_all_eh and cleanup_all_empty_eh can die
    4775                 :            :      looking up unreachable landing pads.  */
    4776                 :     741568 :   remove_unreachable_handlers ();
    4777                 :            : 
    4778                 :            :   /* Watch out for the region tree vanishing due to all unreachable.  */
    4779                 :     741568 :   if (cfun->eh->region_tree)
    4780                 :            :     {
    4781                 :     217881 :       bool changed = false;
    4782                 :            : 
    4783                 :     217881 :       if (optimize)
    4784                 :     199395 :         changed |= unsplit_all_eh ();
    4785                 :     217881 :       changed |= cleanup_all_empty_eh ();
    4786                 :            : 
    4787                 :     217881 :       if (changed)
    4788                 :            :         {
    4789                 :     180146 :           free_dominance_info (CDI_DOMINATORS);
    4790                 :     180146 :           free_dominance_info (CDI_POST_DOMINATORS);
    4791                 :            : 
    4792                 :            :           /* We delayed all basic block deletion, as we may have performed
    4793                 :            :              cleanups on EH edges while non-EH edges were still present.  */
    4794                 :     180146 :           delete_unreachable_blocks ();
    4795                 :            : 
    4796                 :            :           /* We manipulated the landing pads.  Remove any region that no
    4797                 :            :              longer has a landing pad.  */
    4798                 :     180146 :           remove_unreachable_handlers_no_lp ();
    4799                 :            : 
    4800                 :     180146 :           return TODO_cleanup_cfg | TODO_update_ssa_only_virtuals;
    4801                 :            :         }
    4802                 :            :     }
    4803                 :            : 
    4804                 :            :   return 0;
    4805                 :            : }
    4806                 :            : 
    4807                 :            : namespace {
    4808                 :            : 
    4809                 :            : const pass_data pass_data_cleanup_eh =
    4810                 :            : {
    4811                 :            :   GIMPLE_PASS, /* type */
    4812                 :            :   "ehcleanup", /* name */
    4813                 :            :   OPTGROUP_NONE, /* optinfo_flags */
    4814                 :            :   TV_TREE_EH, /* tv_id */
    4815                 :            :   PROP_gimple_lcf, /* properties_required */
    4816                 :            :   0, /* properties_provided */
    4817                 :            :   0, /* properties_destroyed */
    4818                 :            :   0, /* todo_flags_start */
    4819                 :            :   0, /* todo_flags_finish */
    4820                 :            : };
    4821                 :            : 
    4822                 :            : class pass_cleanup_eh : public gimple_opt_pass
    4823                 :            : {
    4824                 :            : public:
    4825                 :     401546 :   pass_cleanup_eh (gcc::context *ctxt)
    4826                 :     803092 :     : gimple_opt_pass (pass_data_cleanup_eh, ctxt)
    4827                 :            :   {}
    4828                 :            : 
    4829                 :            :   /* opt_pass methods: */
    4830                 :     200773 :   opt_pass * clone () { return new pass_cleanup_eh (m_ctxt); }
    4831                 :    2535170 :   virtual bool gate (function *fun)
    4832                 :            :     {
    4833                 :    2535170 :       return fun->eh != NULL && fun->eh->region_tree != NULL;
    4834                 :            :     }
    4835                 :            : 
    4836                 :            :   virtual unsigned int execute (function *);
    4837                 :            : 
    4838                 :            : }; // class pass_cleanup_eh
    4839                 :            : 
    4840                 :            : unsigned int
    4841                 :     741568 : pass_cleanup_eh::execute (function *fun)
    4842                 :            : {
    4843                 :     741568 :   int ret = execute_cleanup_eh_1 ();
    4844                 :            : 
    4845                 :            :   /* If the function no longer needs an EH personality routine
    4846                 :            :      clear it.  This exposes cross-language inlining opportunities
    4847                 :            :      and avoids references to a never defined personality routine.  */
    4848                 :     741568 :   if (DECL_FUNCTION_PERSONALITY (current_function_decl)
    4849                 :     741568 :       && function_needs_eh_personality (fun) != eh_personality_lang)
    4850                 :     465308 :     DECL_FUNCTION_PERSONALITY (current_function_decl) = NULL_TREE;
    4851                 :            : 
    4852                 :     741568 :   return ret;
    4853                 :            : }
    4854                 :            : 
    4855                 :            : } // anon namespace
    4856                 :            : 
    4857                 :            : gimple_opt_pass *
    4858                 :     200773 : make_pass_cleanup_eh (gcc::context *ctxt)
    4859                 :            : {
    4860                 :     200773 :   return new pass_cleanup_eh (ctxt);
    4861                 :            : }
    4862                 :            : 
    4863                 :            : /* Disable warnings about missing quoting in GCC diagnostics for
    4864                 :            :    the verification errors.  Their format strings don't follow GCC
    4865                 :            :    diagnostic conventions but are only used for debugging.  */
    4866                 :            : #if __GNUC__ >= 10
    4867                 :            : #  pragma GCC diagnostic push
    4868                 :            : #  pragma GCC diagnostic ignored "-Wformat-diag"
    4869                 :            : #endif
    4870                 :            : 
    4871                 :            : /* Verify that BB containing STMT as the last statement, has precisely the
    4872                 :            :    edge that make_eh_edges would create.  */
    4873                 :            : 
    4874                 :            : DEBUG_FUNCTION bool
    4875                 :  979649000 : verify_eh_edges (gimple *stmt)
    4876                 :            : {
    4877                 :  979649000 :   basic_block bb = gimple_bb (stmt);
    4878                 :  979649000 :   eh_landing_pad lp = NULL;
    4879                 :  979649000 :   int lp_nr;
    4880                 :  979649000 :   edge_iterator ei;
    4881                 :  979649000 :   edge e, eh_edge;
    4882                 :            : 
    4883                 :  979649000 :   lp_nr = lookup_stmt_eh_lp (stmt);
    4884                 :  979649000 :   if (lp_nr > 0)
    4885                 :  122050000 :     lp = get_eh_landing_pad_from_number (lp_nr);
    4886                 :            : 
    4887                 :  979649000 :   eh_edge = NULL;
    4888                 : 2386250000 :   FOR_EACH_EDGE (e, ei, bb->succs)
    4889                 :            :     {
    4890                 : 1406600000 :       if (e->flags & EDGE_EH)
    4891                 :            :         {
    4892                 :  122050000 :           if (eh_edge)
    4893                 :            :             {
    4894                 :          0 :               error ("BB %i has multiple EH edges", bb->index);
    4895                 :          0 :               return true;
    4896                 :            :             }
    4897                 :            :           else
    4898                 :            :             eh_edge = e;
    4899                 :            :         }
    4900                 :            :     }
    4901                 :            : 
    4902                 :  979649000 :   if (lp == NULL)
    4903                 :            :     {
    4904                 :  857599000 :       if (eh_edge)
    4905                 :            :         {
    4906                 :          0 :           error ("BB %i cannot throw but has an EH edge", bb->index);
    4907                 :          0 :           return true;
    4908                 :            :         }
    4909                 :            :       return false;
    4910                 :            :     }
    4911                 :            : 
    4912                 :  122050000 :   if (!stmt_could_throw_p (cfun, stmt))
    4913                 :            :     {
    4914                 :          0 :       error ("BB %i last statement has incorrectly set lp", bb->index);
    4915                 :          0 :       return true;
    4916                 :            :     }
    4917                 :            : 
    4918                 :  122050000 :   if (eh_edge == NULL)
    4919                 :            :     {
    4920                 :          0 :       error ("BB %i is missing an EH edge", bb->index);
    4921                 :          0 :       return true;
    4922                 :            :     }
    4923                 :            : 
    4924                 :  122050000 :   if (eh_edge->dest != label_to_block (cfun, lp->post_landing_pad))
    4925                 :            :     {
    4926                 :          0 :       error ("Incorrect EH edge %i->%i", bb->index, eh_edge->dest->index);
    4927                 :          0 :       return true;
    4928                 :            :     }
    4929                 :            : 
    4930                 :            :   return false;
    4931                 :            : }
    4932                 :            : 
    4933                 :            : /* Similarly, but handle GIMPLE_EH_DISPATCH specifically.  */
    4934                 :            : 
    4935                 :            : DEBUG_FUNCTION bool
    4936                 :    1461830 : verify_eh_dispatch_edge (geh_dispatch *stmt)
    4937                 :            : {
    4938                 :    1461830 :   eh_region r;
    4939                 :    1461830 :   eh_catch c;
    4940                 :    1461830 :   basic_block src, dst;
    4941                 :    1461830 :   bool want_fallthru = true;
    4942                 :    1461830 :   edge_iterator ei;
    4943                 :    1461830 :   edge e, fall_edge;
    4944                 :            : 
    4945                 :    1461830 :   r = get_eh_region_from_number (gimple_eh_dispatch_region (stmt));
    4946                 :    1461830 :   src = gimple_bb (stmt);
    4947                 :            : 
    4948                 :    3135820 :   FOR_EACH_EDGE (e, ei, src->succs)
    4949                 :    1673990 :     gcc_assert (e->aux == NULL);
    4950                 :            : 
    4951                 :    1461830 :   switch (r->type)
    4952                 :            :     {
    4953                 :    1425930 :     case ERT_TRY:
    4954                 :    1602190 :       for (c = r->u.eh_try.first_catch; c ; c = c->next_catch)
    4955                 :            :         {
    4956                 :    1521050 :           dst = label_to_block (cfun, c->label);
    4957                 :    1521050 :           e = find_edge (src, dst);
    4958                 :    1521050 :           if (e == NULL)
    4959                 :            :             {
    4960                 :          0 :               error ("BB %i is missing an edge", src->index);
    4961                 :          0 :               return true;
    4962                 :            :             }
    4963                 :    1521050 :           e->aux = (void *)e;
    4964                 :            : 
    4965                 :            :           /* A catch-all handler doesn't have a fallthru.  */
    4966                 :    1521050 :           if (c->type_list == NULL)
    4967                 :            :             {
    4968                 :            :               want_fallthru = false;
    4969                 :            :               break;
    4970                 :            :             }
    4971                 :            :         }
    4972                 :            :       break;
    4973                 :            : 
    4974                 :      35901 :     case ERT_ALLOWED_EXCEPTIONS:
    4975                 :      35901 :       dst = label_to_block (cfun, r->u.allowed.label);
    4976                 :      35901 :       e = find_edge (src, dst);
    4977                 :      35901 :       if (e == NULL)
    4978                 :            :         {
    4979                 :          0 :           error ("BB %i is missing an edge", src->index);
    4980                 :          0 :           return true;
    4981                 :            :         }
    4982                 :      35901 :       e->aux = (void *)e;
    4983                 :      35901 :       break;
    4984                 :            : 
    4985                 :          0 :     default:
    4986                 :          0 :       gcc_unreachable ();
    4987                 :            :     }
    4988                 :            : 
    4989                 :    1461830 :   fall_edge = NULL;
    4990                 :    3135820 :   FOR_EACH_EDGE (e, ei, src->succs)
    4991                 :            :     {
    4992                 :    1673990 :       if (e->flags & EDGE_FALLTHRU)
    4993                 :            :         {
    4994                 :     117040 :           if (fall_edge != NULL)
    4995                 :            :             {
    4996                 :          0 :               error ("BB %i too many fallthru edges", src->index);
    4997                 :          0 :               return true;
    4998                 :            :             }
    4999                 :            :           fall_edge = e;
    5000                 :            :         }
    5001                 :    1556950 :       else if (e->aux)
    5002                 :    1556950 :         e->aux = NULL;
    5003                 :            :       else
    5004                 :            :         {
    5005                 :          0 :           error ("BB %i has incorrect edge", src->index);
    5006                 :          0 :           return true;
    5007                 :            :         }
    5008                 :            :     }
    5009                 :    1461830 :   if ((fall_edge != NULL) ^ want_fallthru)
    5010                 :            :     {
    5011                 :          0 :       error ("BB %i has incorrect fallthru edge", src->index);
    5012                 :          0 :       return true;
    5013                 :            :     }
    5014                 :            : 
    5015                 :            :   return false;
    5016                 :            : }
    5017                 :            : 
    5018                 :            : #if __GNUC__ >= 10
    5019                 :            : #  pragma GCC diagnostic pop
    5020                 :            : #endif

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.