Home | History | Annotate | Line # | Download | only in gcc
tree-switch-conversion.h revision 1.1.1.3
      1 /* Tree switch conversion for GNU compiler.
      2    Copyright (C) 2017-2022 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 it under
      7 the terms of the GNU General Public License as published by the Free
      8 Software Foundation; either version 3, or (at your option) any later
      9 version.
     10 
     11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
     12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
     13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
     14 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 #ifndef TREE_SWITCH_CONVERSION_H
     21 #define TREE_SWITCH_CONVERSION_H
     22 
     23 namespace tree_switch_conversion {
     24 
     25 /* Type of cluster.  */
     26 
     27 enum cluster_type
     28 {
     29   SIMPLE_CASE,
     30   JUMP_TABLE,
     31   BIT_TEST
     32 };
     33 
     34 #define PRINT_CASE(f,c) print_generic_expr (f, c)
     35 
     36 /* Abstract base class for representing a cluster of cases.
     37 
     38    Here is the inheritance hierarachy, and the enum_cluster_type
     39    values for the concrete subclasses:
     40 
     41    cluster
     42    |-simple_cluster (SIMPLE_CASE)
     43    `-group_cluster
     44      |-jump_table_cluster (JUMP_TABLE)
     45      `-bit_test_cluster   (BIT_TEST).  */
     46 
     47 class cluster
     48 {
     49 public:
     50   /* Constructor.  */
     51   inline cluster (tree case_label_expr, basic_block case_bb,
     52 		  profile_probability prob, profile_probability subtree_prob);
     53 
     54   /* Destructor.  */
     55   virtual ~cluster ()
     56   {}
     57 
     58   /* Return type.  */
     59   virtual cluster_type get_type () = 0;
     60 
     61   /* Get low value covered by a cluster.  */
     62   virtual tree get_low () = 0;
     63 
     64   /* Get high value covered by a cluster.  */
     65   virtual tree get_high () = 0;
     66 
     67   /* Debug content of a cluster.  */
     68   virtual void debug () = 0;
     69 
     70   /* Dump content of a cluster.  */
     71   virtual void dump (FILE *f, bool details = false) = 0;
     72 
     73   /* Emit GIMPLE code to handle the cluster.  */
     74   virtual void emit (tree, tree, tree, basic_block, location_t) = 0;
     75 
     76   /* Return true if a cluster handles only a single case value and the
     77      value is not a range.  */
     78   virtual bool is_single_value_p ()
     79   {
     80     return false;
     81   }
     82 
     83   /* Return range of a cluster.  If value would overflow in type of LOW,
     84      then return 0.  */
     85   static unsigned HOST_WIDE_INT get_range (tree low, tree high)
     86   {
     87     wide_int w = wi::to_wide (high) - wi::to_wide (low);
     88     if (wi::neg_p (w, TYPE_SIGN (TREE_TYPE (low))) || !wi::fits_uhwi_p (w))
     89       return 0;
     90     return w.to_uhwi () + 1;
     91   }
     92 
     93   /* Case label.  */
     94   tree m_case_label_expr;
     95 
     96   /* Basic block of the case.  */
     97   basic_block m_case_bb;
     98 
     99   /* Probability of taking this cluster.  */
    100   profile_probability m_prob;
    101 
    102   /* Probability of reaching subtree rooted at this node.  */
    103   profile_probability m_subtree_prob;
    104 
    105 protected:
    106   /* Default constructor.  */
    107   cluster () {}
    108 };
    109 
    110 cluster::cluster (tree case_label_expr, basic_block case_bb,
    111 		  profile_probability prob, profile_probability subtree_prob):
    112   m_case_label_expr (case_label_expr), m_case_bb (case_bb), m_prob (prob),
    113   m_subtree_prob (subtree_prob)
    114 {
    115 }
    116 
    117 /* Subclass of cluster representing a simple contiguous range
    118    from [low..high].  */
    119 
    120 class simple_cluster: public cluster
    121 {
    122 public:
    123   /* Constructor.  */
    124   inline simple_cluster (tree low, tree high, tree case_label_expr,
    125 			 basic_block case_bb, profile_probability prob,
    126 			 bool has_forward_bb = false);
    127 
    128   /* Destructor.  */
    129   ~simple_cluster ()
    130   {}
    131 
    132   cluster_type
    133   get_type ()
    134   {
    135     return SIMPLE_CASE;
    136   }
    137 
    138   tree
    139   get_low ()
    140   {
    141     return m_low;
    142   }
    143 
    144   tree
    145   get_high ()
    146   {
    147     return m_high;
    148   }
    149 
    150   void set_high (tree high)
    151   {
    152     m_high = high;
    153   }
    154 
    155   void
    156   debug ()
    157   {
    158     dump (stderr);
    159   }
    160 
    161   void
    162   dump (FILE *f, bool details ATTRIBUTE_UNUSED = false)
    163   {
    164     PRINT_CASE (f, get_low ());
    165     if (get_low () != get_high ())
    166       {
    167 	fprintf (f, "-");
    168 	PRINT_CASE (f, get_high ());
    169       }
    170     fprintf (f, " ");
    171   }
    172 
    173   void emit (tree, tree, tree, basic_block, location_t)
    174   {
    175     gcc_unreachable ();
    176   }
    177 
    178   bool is_single_value_p ()
    179   {
    180     return tree_int_cst_equal (get_low (), get_high ());
    181   }
    182 
    183   /* Return number of comparisons needed for the case.  */
    184   unsigned
    185   get_comparison_count ()
    186   {
    187     return m_range_p ? 2 : 1;
    188   }
    189 
    190   /* Low value of the case.  */
    191   tree m_low;
    192 
    193   /* High value of the case.  */
    194   tree m_high;
    195 
    196   /* True if case is a range.  */
    197   bool m_range_p;
    198 
    199   /* True if the case will use a forwarder BB.  */
    200   bool m_has_forward_bb;
    201 };
    202 
    203 simple_cluster::simple_cluster (tree low, tree high, tree case_label_expr,
    204 				basic_block case_bb, profile_probability prob,
    205 				bool has_forward_bb):
    206   cluster (case_label_expr, case_bb, prob, prob),
    207   m_low (low), m_high (high), m_has_forward_bb (has_forward_bb)
    208 {
    209   m_range_p = m_high != NULL;
    210   if (m_high == NULL)
    211     m_high = m_low;
    212 }
    213 
    214 /* Abstract subclass of jump table and bit test cluster,
    215    handling a collection of simple_cluster instances.  */
    216 
    217 class group_cluster: public cluster
    218 {
    219 public:
    220   /* Constructor.  */
    221   group_cluster (vec<cluster *> &clusters, unsigned start, unsigned end);
    222 
    223   /* Destructor.  */
    224   ~group_cluster ();
    225 
    226   tree
    227   get_low ()
    228   {
    229     return m_cases[0]->get_low ();
    230   }
    231 
    232   tree
    233   get_high ()
    234   {
    235     return m_cases[m_cases.length () - 1]->get_high ();
    236   }
    237 
    238   void
    239   debug ()
    240   {
    241     dump (stderr);
    242   }
    243 
    244   void dump (FILE *f, bool details = false);
    245 
    246   /* List of simple clusters handled by the group.  */
    247   vec<simple_cluster *> m_cases;
    248 };
    249 
    250 /* Concrete subclass of group_cluster representing a collection
    251    of cases to be implemented as a jump table.
    252    The "emit" vfunc gernerates a nested switch statement which
    253    is later lowered to a jump table.  */
    254 
    255 class jump_table_cluster: public group_cluster
    256 {
    257 public:
    258   /* Constructor.  */
    259   jump_table_cluster (vec<cluster *> &clusters, unsigned start, unsigned end)
    260   : group_cluster (clusters, start, end)
    261   {}
    262 
    263   cluster_type
    264   get_type ()
    265   {
    266     return JUMP_TABLE;
    267   }
    268 
    269   void emit (tree index_expr, tree index_type,
    270 	     tree default_label_expr, basic_block default_bb, location_t loc);
    271 
    272   /* Find jump tables of given CLUSTERS, where all members of the vector
    273      are of type simple_cluster.  New clusters are returned.  */
    274   static vec<cluster *> find_jump_tables (vec<cluster *> &clusters);
    275 
    276   /* Return true when cluster starting at START and ending at END (inclusive)
    277      can build a jump-table.  COMPARISON_COUNT is number of comparison
    278      operations needed if the clusters are expanded as decision tree.
    279      MAX_RATIO tells about the maximum code growth (in percent).  */
    280   static bool can_be_handled (const vec<cluster *> &clusters, unsigned start,
    281 			      unsigned end, unsigned HOST_WIDE_INT max_ratio,
    282 			      unsigned HOST_WIDE_INT comparison_count);
    283 
    284   /* Return true if cluster starting at START and ending at END (inclusive)
    285      is profitable transformation.  */
    286   static bool is_beneficial (const vec<cluster *> &clusters, unsigned start,
    287 			     unsigned end);
    288 
    289   /* Return the smallest number of different values for which it is best
    290      to use a jump-table instead of a tree of conditional branches.  */
    291   static inline unsigned int case_values_threshold (void);
    292 
    293   /* Return whether jump table expansion is allowed.  */
    294   static inline bool is_enabled (void);
    295 };
    296 
    297 /* A GIMPLE switch statement can be expanded to a short sequence of bit-wise
    298 comparisons.  "switch(x)" is converted into "if ((1 << (x-MINVAL)) & CST)"
    299 where CST and MINVAL are integer constants.  This is better than a series
    300 of compare-and-banch insns in some cases,  e.g. we can implement:
    301 
    302 	if ((x==4) || (x==6) || (x==9) || (x==11))
    303 
    304 as a single bit test:
    305 
    306 	if ((1<<x) & ((1<<4)|(1<<6)|(1<<9)|(1<<11)))
    307 
    308 This transformation is only applied if the number of case targets is small,
    309 if CST constains at least 3 bits, and "1 << x" is cheap.  The bit tests are
    310 performed in "word_mode".
    311 
    312 The following example shows the code the transformation generates:
    313 
    314 	int bar(int x)
    315 	{
    316 		switch (x)
    317 		{
    318 		case '0':  case '1':  case '2':  case '3':  case '4':
    319 		case '5':  case '6':  case '7':  case '8':  case '9':
    320 		case 'A':  case 'B':  case 'C':  case 'D':  case 'E':
    321 		case 'F':
    322 			return 1;
    323 		}
    324 		return 0;
    325 	}
    326 
    327 ==>
    328 
    329 	bar (int x)
    330 	{
    331 		tmp1 = x - 48;
    332 		if (tmp1 > (70 - 48)) goto L2;
    333 		tmp2 = 1 << tmp1;
    334 		tmp3 = 0b11111100000001111111111;
    335 		if ((tmp2 & tmp3) != 0) goto L1 ; else goto L2;
    336 	L1:
    337 		return 1;
    338 	L2:
    339 		return 0;
    340 	}
    341 
    342 TODO: There are still some improvements to this transformation that could
    343 be implemented:
    344 
    345 * A narrower mode than word_mode could be used if that is cheaper, e.g.
    346   for x86_64 where a narrower-mode shift may result in smaller code.
    347 
    348 * The compounded constant could be shifted rather than the one.  The
    349   test would be either on the sign bit or on the least significant bit,
    350   depending on the direction of the shift.  On some machines, the test
    351   for the branch would be free if the bit to test is already set by the
    352   shift operation.
    353 
    354 This transformation was contributed by Roger Sayle, see this e-mail:
    355    http://gcc.gnu.org/ml/gcc-patches/2003-01/msg01950.html
    356 */
    357 
    358 class bit_test_cluster: public group_cluster
    359 {
    360 public:
    361   /* Constructor.  */
    362   bit_test_cluster (vec<cluster *> &clusters, unsigned start, unsigned end,
    363 		    bool handles_entire_switch)
    364   :group_cluster (clusters, start, end),
    365   m_handles_entire_switch (handles_entire_switch)
    366   {}
    367 
    368   cluster_type
    369   get_type ()
    370   {
    371     return BIT_TEST;
    372   }
    373 
    374 /*  Expand a switch statement by a short sequence of bit-wise
    375     comparisons.  "switch(x)" is effectively converted into
    376     "if ((1 << (x-MINVAL)) & CST)" where CST and MINVAL are
    377     integer constants.
    378 
    379     INDEX_EXPR is the value being switched on.
    380 
    381     MINVAL is the lowest case value of in the case nodes,
    382     and RANGE is highest value minus MINVAL.  MINVAL and RANGE
    383     are not guaranteed to be of the same type as INDEX_EXPR
    384     (the gimplifier doesn't change the type of case label values,
    385     and MINVAL and RANGE are derived from those values).
    386     MAXVAL is MINVAL + RANGE.
    387 
    388     There *MUST* be max_case_bit_tests or less unique case
    389     node targets.  */
    390   void emit (tree index_expr, tree index_type,
    391 	     tree default_label_expr, basic_block default_bb, location_t loc);
    392 
    393   /* Find bit tests of given CLUSTERS, where all members of the vector
    394      are of type simple_cluster.  New clusters are returned.  */
    395   static vec<cluster *> find_bit_tests (vec<cluster *> &clusters);
    396 
    397   /* Return true when RANGE of case values with UNIQ labels
    398      can build a bit test.  */
    399   static bool can_be_handled (unsigned HOST_WIDE_INT range, unsigned uniq);
    400 
    401   /* Return true when cluster starting at START and ending at END (inclusive)
    402      can build a bit test.  */
    403   static bool can_be_handled (const vec<cluster *> &clusters, unsigned start,
    404 			      unsigned end);
    405 
    406   /* Return true when COUNT of cases of UNIQ labels is beneficial for bit test
    407      transformation.  */
    408   static bool is_beneficial (unsigned count, unsigned uniq);
    409 
    410   /* Return true if cluster starting at START and ending at END (inclusive)
    411      is profitable transformation.  */
    412   static bool is_beneficial (const vec<cluster *> &clusters, unsigned start,
    413 			     unsigned end);
    414 
    415 /* Split the basic block at the statement pointed to by GSIP, and insert
    416    a branch to the target basic block of E_TRUE conditional on tree
    417    expression COND.
    418 
    419    It is assumed that there is already an edge from the to-be-split
    420    basic block to E_TRUE->dest block.  This edge is removed, and the
    421    profile information on the edge is re-used for the new conditional
    422    jump.
    423 
    424    The CFG is updated.  The dominator tree will not be valid after
    425    this transformation, but the immediate dominators are updated if
    426    UPDATE_DOMINATORS is true.
    427 
    428    Returns the newly created basic block.  */
    429   static basic_block hoist_edge_and_branch_if_true (gimple_stmt_iterator *gsip,
    430 						    tree cond,
    431 						    basic_block case_bb,
    432 						    profile_probability prob,
    433 						    location_t);
    434 
    435   /* Return whether bit test expansion is allowed.  */
    436   static inline bool is_enabled (void)
    437   {
    438     return flag_bit_tests;
    439   }
    440 
    441   /* True when the jump table handles an entire switch statement.  */
    442   bool m_handles_entire_switch;
    443 
    444   /* Maximum number of different basic blocks that can be handled by
    445      a bit test.  */
    446   static const int m_max_case_bit_tests = 3;
    447 };
    448 
    449 /* Helper struct to find minimal clusters.  */
    450 
    451 class min_cluster_item
    452 {
    453 public:
    454   /* Constructor.  */
    455   min_cluster_item (unsigned count, unsigned start, unsigned non_jt_cases):
    456     m_count (count), m_start (start), m_non_jt_cases (non_jt_cases)
    457   {}
    458 
    459   /* Count of clusters.  */
    460   unsigned m_count;
    461 
    462   /* Index where is cluster boundary.  */
    463   unsigned m_start;
    464 
    465   /* Total number of cases that will not be in a jump table.  */
    466   unsigned m_non_jt_cases;
    467 };
    468 
    469 /* Helper struct to represent switch decision tree.  */
    470 
    471 class case_tree_node
    472 {
    473 public:
    474   /* Empty Constructor.  */
    475   case_tree_node ();
    476 
    477   /* Return true when it has a child.  */
    478   bool has_child ()
    479   {
    480     return m_left != NULL || m_right != NULL;
    481   }
    482 
    483   /* Left son in binary tree.  */
    484   case_tree_node *m_left;
    485 
    486   /* Right son in binary tree; also node chain.  */
    487   case_tree_node *m_right;
    488 
    489   /* Parent of node in binary tree.  */
    490   case_tree_node *m_parent;
    491 
    492   /* Cluster represented by this tree node.  */
    493   cluster *m_c;
    494 };
    495 
    496 inline
    497 case_tree_node::case_tree_node ():
    498   m_left (NULL), m_right (NULL), m_parent (NULL), m_c (NULL)
    499 {
    500 }
    501 
    502 unsigned int
    503 jump_table_cluster::case_values_threshold (void)
    504 {
    505   unsigned int threshold = param_case_values_threshold;
    506 
    507   if (threshold == 0)
    508     threshold = targetm.case_values_threshold ();
    509 
    510   return threshold;
    511 }
    512 
    513 /* Return whether jump table expansion is allowed.  */
    514 bool jump_table_cluster::is_enabled (void)
    515 {
    516   /* If neither casesi or tablejump is available, or flag_jump_tables
    517      over-ruled us, we really have no choice.  */
    518   if (!targetm.have_casesi () && !targetm.have_tablejump ())
    519     return false;
    520   if (!flag_jump_tables)
    521     return false;
    522 #ifndef ASM_OUTPUT_ADDR_DIFF_ELT
    523   if (flag_pic)
    524     return false;
    525 #endif
    526 
    527   return true;
    528 }
    529 
    530 /* A case_bit_test represents a set of case nodes that may be
    531    selected from using a bit-wise comparison.  HI and LO hold
    532    the integer to be tested against, TARGET_EDGE contains the
    533    edge to the basic block to jump to upon success and BITS
    534    counts the number of case nodes handled by this test,
    535    typically the number of bits set in HI:LO.  The LABEL field
    536    is used to quickly identify all cases in this set without
    537    looking at label_to_block for every case label.  */
    538 
    539 class case_bit_test
    540 {
    541 public:
    542   wide_int mask;
    543   basic_block target_bb;
    544   tree label;
    545   int bits;
    546 
    547   /* Comparison function for qsort to order bit tests by decreasing
    548      probability of execution.  */
    549   static int cmp (const void *p1, const void *p2);
    550 };
    551 
    552 class switch_decision_tree
    553 {
    554 public:
    555   /* Constructor.  */
    556   switch_decision_tree (gswitch *swtch): m_switch (swtch), m_phi_mapping (),
    557     m_case_bbs (), m_case_node_pool ("struct case_node pool"),
    558     m_case_list (NULL)
    559   {
    560   }
    561 
    562   /* Analyze switch statement and return true when the statement is expanded
    563      as decision tree.  */
    564   bool analyze_switch_statement ();
    565 
    566   /* Attempt to expand CLUSTERS as a decision tree.  Return true when
    567      expanded.  */
    568   bool try_switch_expansion (vec<cluster *> &clusters);
    569   /* Compute the number of case labels that correspond to each outgoing edge of
    570      switch statement.  Record this information in the aux field of the edge.
    571      */
    572   void compute_cases_per_edge ();
    573 
    574   /* Before switch transformation, record all SSA_NAMEs defined in switch BB
    575      and used in a label basic block.  */
    576   void record_phi_operand_mapping ();
    577 
    578   /* Append new operands to PHI statements that were introduced due to
    579      addition of new edges to case labels.  */
    580   void fix_phi_operands_for_edges ();
    581 
    582   /* Generate a decision tree, switching on INDEX_EXPR and jumping to
    583      one of the labels in CASE_LIST or to the DEFAULT_LABEL.
    584 
    585      We generate a binary decision tree to select the appropriate target
    586      code.  */
    587   void emit (basic_block bb, tree index_expr,
    588 	     profile_probability default_prob, tree index_type);
    589 
    590   /* Emit step-by-step code to select a case for the value of INDEX.
    591      The thus generated decision tree follows the form of the
    592      case-node binary tree NODE, whose nodes represent test conditions.
    593      DEFAULT_PROB is probability of cases leading to default BB.
    594      INDEX_TYPE is the type of the index of the switch.  */
    595   basic_block emit_case_nodes (basic_block bb, tree index,
    596 			       case_tree_node *node,
    597 			       profile_probability default_prob,
    598 			       tree index_type, location_t);
    599 
    600   /* Take an ordered list of case nodes
    601      and transform them into a near optimal binary tree,
    602      on the assumption that any target code selection value is as
    603      likely as any other.
    604 
    605      The transformation is performed by splitting the ordered
    606      list into two equal sections plus a pivot.  The parts are
    607      then attached to the pivot as left and right branches.  Each
    608      branch is then transformed recursively.  */
    609   static void balance_case_nodes (case_tree_node **head,
    610 				  case_tree_node *parent);
    611 
    612   /* Dump ROOT, a list or tree of case nodes, to file F.  */
    613   static void dump_case_nodes (FILE *f, case_tree_node *root, int indent_step,
    614 			       int indent_level);
    615 
    616   /* Add an unconditional jump to CASE_BB that happens in basic block BB.  */
    617   static void emit_jump (basic_block bb, basic_block case_bb);
    618 
    619   /* Generate code to compare OP0 with OP1 so that the condition codes are
    620      set and to jump to LABEL_BB if the condition is true.
    621      COMPARISON is the GIMPLE comparison (EQ, NE, GT, etc.).
    622      PROB is the probability of jumping to LABEL_BB.  */
    623   static basic_block emit_cmp_and_jump_insns (basic_block bb, tree op0,
    624 					      tree op1, tree_code comparison,
    625 					      basic_block label_bb,
    626 					      profile_probability prob,
    627 					      location_t);
    628 
    629   /* Generate code to jump to LABEL if OP0 and OP1 are equal in mode MODE.
    630      PROB is the probability of jumping to LABEL_BB.  */
    631   static basic_block do_jump_if_equal (basic_block bb, tree op0, tree op1,
    632 				       basic_block label_bb,
    633 				       profile_probability prob,
    634 				       location_t);
    635 
    636   /* Reset the aux field of all outgoing edges of switch basic block.  */
    637   static inline void reset_out_edges_aux (gswitch *swtch);
    638 
    639   /* Switch statement.  */
    640   gswitch *m_switch;
    641 
    642   /* Map of PHI nodes that have to be fixed after expansion.  */
    643   hash_map<tree, tree> m_phi_mapping;
    644 
    645   /* List of basic blocks that belong to labels of the switch.  */
    646   auto_vec<basic_block> m_case_bbs;
    647 
    648   /* Basic block with default label.  */
    649   basic_block m_default_bb;
    650 
    651   /* A pool for case nodes.  */
    652   object_allocator<case_tree_node> m_case_node_pool;
    653 
    654   /* Balanced tree of case nodes.  */
    655   case_tree_node *m_case_list;
    656 };
    657 
    658 /*
    659      Switch initialization conversion
    660 
    661 The following pass changes simple initializations of scalars in a switch
    662 statement into initializations from a static array.  Obviously, the values
    663 must be constant and known at compile time and a default branch must be
    664 provided.  For example, the following code:
    665 
    666 	int a,b;
    667 
    668 	switch (argc)
    669 	{
    670 	 case 1:
    671 	 case 2:
    672 		a_1 = 8;
    673 		b_1 = 6;
    674 		break;
    675 	 case 3:
    676 		a_2 = 9;
    677 		b_2 = 5;
    678 		break;
    679 	 case 12:
    680 		a_3 = 10;
    681 		b_3 = 4;
    682 		break;
    683 	 default:
    684 		a_4 = 16;
    685 		b_4 = 1;
    686 		break;
    687 	}
    688 	a_5 = PHI <a_1, a_2, a_3, a_4>
    689 	b_5 = PHI <b_1, b_2, b_3, b_4>
    690 
    691 
    692 is changed into:
    693 
    694 	static const int = CSWTCH01[] = {6, 6, 5, 1, 1, 1, 1, 1, 1, 1, 1, 4};
    695 	static const int = CSWTCH02[] = {8, 8, 9, 16, 16, 16, 16, 16, 16, 16,
    696 				 16, 16, 10};
    697 
    698 	if (((unsigned) argc) - 1 < 11)
    699 	  {
    700 	    a_6 = CSWTCH02[argc - 1];
    701 	    b_6 = CSWTCH01[argc - 1];
    702 	  }
    703 	else
    704 	  {
    705 	    a_7 = 16;
    706 	    b_7 = 1;
    707 	  }
    708 	a_5 = PHI <a_6, a_7>
    709 	b_b = PHI <b_6, b_7>
    710 
    711 There are further constraints.  Specifically, the range of values across all
    712 case labels must not be bigger than param_switch_conversion_branch_ratio
    713 (default eight) times the number of the actual switch branches.
    714 
    715 This transformation was contributed by Martin Jambor, see this e-mail:
    716    http://gcc.gnu.org/ml/gcc-patches/2008-07/msg00011.html  */
    717 
    718 /* The main structure of the pass.  */
    719 class switch_conversion
    720 {
    721 public:
    722   /* Constructor.  */
    723   switch_conversion ();
    724 
    725   /* Destructor.  */
    726   ~switch_conversion ();
    727 
    728   /* The following function is invoked on every switch statement (the current
    729      one is given in SWTCH) and runs the individual phases of switch
    730      conversion on it one after another until one fails or the conversion
    731      is completed.  On success, NULL is in m_reason, otherwise points
    732      to a string with the reason why the conversion failed.  */
    733   void expand (gswitch *swtch);
    734 
    735   /* Collection information about SWTCH statement.  */
    736   void collect (gswitch *swtch);
    737 
    738   /* Checks whether the range given by individual case statements of the switch
    739      switch statement isn't too big and whether the number of branches actually
    740      satisfies the size of the new array.  */
    741   bool check_range ();
    742 
    743   /* Checks whether all but the final BB basic blocks are empty.  */
    744   bool check_all_empty_except_final ();
    745 
    746   /* This function checks whether all required values in phi nodes in final_bb
    747      are constants.  Required values are those that correspond to a basic block
    748      which is a part of the examined switch statement.  It returns true if the
    749      phi nodes are OK, otherwise false.  */
    750   bool check_final_bb ();
    751 
    752   /* The following function allocates default_values, target_{in,out}_names and
    753      constructors arrays.  The last one is also populated with pointers to
    754      vectors that will become constructors of new arrays.  */
    755   void create_temp_arrays ();
    756 
    757   /* Populate the array of default values in the order of phi nodes.
    758      DEFAULT_CASE is the CASE_LABEL_EXPR for the default switch branch
    759      if the range is non-contiguous or the default case has standard
    760      structure, otherwise it is the first non-default case instead.  */
    761   void gather_default_values (tree default_case);
    762 
    763   /* The following function populates the vectors in the constructors array with
    764      future contents of the static arrays.  The vectors are populated in the
    765      order of phi nodes.  */
    766   void build_constructors ();
    767 
    768   /* If all values in the constructor vector are products of a linear function
    769      a * x + b, then return true.  When true, COEFF_A and COEFF_B and
    770      coefficients of the linear function.  Note that equal values are special
    771      case of a linear function with a and b equal to zero.  */
    772   bool contains_linear_function_p (vec<constructor_elt, va_gc> *vec,
    773 				   wide_int *coeff_a, wide_int *coeff_b);
    774 
    775   /* Return type which should be used for array elements, either TYPE's
    776      main variant or, for integral types, some smaller integral type
    777      that can still hold all the constants.  */
    778   tree array_value_type (tree type, int num);
    779 
    780   /* Create an appropriate array type and declaration and assemble a static
    781      array variable.  Also create a load statement that initializes
    782      the variable in question with a value from the static array.  SWTCH is
    783      the switch statement being converted, NUM is the index to
    784      arrays of constructors, default values and target SSA names
    785      for this particular array.  ARR_INDEX_TYPE is the type of the index
    786      of the new array, PHI is the phi node of the final BB that corresponds
    787      to the value that will be loaded from the created array.  TIDX
    788      is an ssa name of a temporary variable holding the index for loads from the
    789      new array.  */
    790   void build_one_array (int num, tree arr_index_type,
    791 			gphi *phi, tree tidx);
    792 
    793   /* Builds and initializes static arrays initialized with values gathered from
    794      the switch statement.  Also creates statements that load values from
    795      them.  */
    796   void build_arrays ();
    797 
    798   /* Generates and appropriately inserts loads of default values at the position
    799      given by GSI.  Returns the last inserted statement.  */
    800   gassign *gen_def_assigns (gimple_stmt_iterator *gsi);
    801 
    802   /* Deletes the unused bbs and edges that now contain the switch statement and
    803      its empty branch bbs.  BBD is the now dead BB containing
    804      the original switch statement, FINAL is the last BB of the converted
    805      switch statement (in terms of succession).  */
    806   void prune_bbs (basic_block bbd, basic_block final, basic_block default_bb);
    807 
    808   /* Add values to phi nodes in final_bb for the two new edges.  E1F is the edge
    809      from the basic block loading values from an array and E2F from the basic
    810      block loading default values.  BBF is the last switch basic block (see the
    811      bbf description in the comment below).  */
    812   void fix_phi_nodes (edge e1f, edge e2f, basic_block bbf);
    813 
    814   /* Creates a check whether the switch expression value actually falls into the
    815      range given by all the cases.  If it does not, the temporaries are loaded
    816      with default values instead.  */
    817   void gen_inbound_check ();
    818 
    819   /* Switch statement for which switch conversion takes place.  */
    820   gswitch *m_switch;
    821 
    822   /* The expression used to decide the switch branch.  */
    823   tree m_index_expr;
    824 
    825   /* The following integer constants store the minimum and maximum value
    826      covered by the case labels.  */
    827   tree m_range_min;
    828   tree m_range_max;
    829 
    830   /* The difference between the above two numbers.  Stored here because it
    831      is used in all the conversion heuristics, as well as for some of the
    832      transformation, and it is expensive to re-compute it all the time.  */
    833   tree m_range_size;
    834 
    835   /* Basic block that contains the actual GIMPLE_SWITCH.  */
    836   basic_block m_switch_bb;
    837 
    838   /* Basic block that is the target of the default case.  */
    839   basic_block m_default_bb;
    840 
    841   /* The single successor block of all branches out of the GIMPLE_SWITCH,
    842      if such a block exists.  Otherwise NULL.  */
    843   basic_block m_final_bb;
    844 
    845   /* The probability of the default edge in the replaced switch.  */
    846   profile_probability m_default_prob;
    847 
    848   /* Number of phi nodes in the final bb (that we'll be replacing).  */
    849   int m_phi_count;
    850 
    851   /* Constructors of new static arrays.  */
    852   vec<constructor_elt, va_gc> **m_constructors;
    853 
    854   /* Array of default values, in the same order as phi nodes.  */
    855   tree *m_default_values;
    856 
    857   /* Array of ssa names that are initialized with a value from a new static
    858      array.  */
    859   tree *m_target_inbound_names;
    860 
    861   /* Array of ssa names that are initialized with the default value if the
    862      switch expression is out of range.  */
    863   tree *m_target_outbound_names;
    864 
    865   /* VOP SSA_NAME.  */
    866   tree m_target_vop;
    867 
    868   /* The first load statement that loads a temporary from a new static array.
    869    */
    870   gimple *m_arr_ref_first;
    871 
    872   /* The last load statement that loads a temporary from a new static array.  */
    873   gimple *m_arr_ref_last;
    874 
    875   /* String reason why the case wasn't a good candidate that is written to the
    876      dump file, if there is one.  */
    877   const char *m_reason;
    878 
    879   /* True if default case is not used for any value between range_min and
    880      range_max inclusive.  */
    881   bool m_contiguous_range;
    882 
    883   /* True if default case does not have the required shape for other case
    884      labels.  */
    885   bool m_default_case_nonstandard;
    886 
    887   /* Number of uniq labels for non-default edges.  */
    888   unsigned int m_uniq;
    889 
    890   /* Count is number of non-default edges.  */
    891   unsigned int m_count;
    892 
    893   /* True if CFG has been changed.  */
    894   bool m_cfg_altered;
    895 };
    896 
    897 void
    898 switch_decision_tree::reset_out_edges_aux (gswitch *swtch)
    899 {
    900   basic_block bb = gimple_bb (swtch);
    901   edge e;
    902   edge_iterator ei;
    903   FOR_EACH_EDGE (e, ei, bb->succs)
    904     e->aux = (void *) 0;
    905 }
    906 
    907 /* Release CLUSTERS vector and destruct all dynamically allocated items.  */
    908 
    909 static inline void
    910 release_clusters (vec<cluster *> &clusters)
    911 {
    912   for (unsigned i = 0; i < clusters.length (); i++)
    913     delete clusters[i];
    914   clusters.release ();
    915 }
    916 
    917 } // tree_switch_conversion namespace
    918 
    919 #endif // TREE_SWITCH_CONVERSION_H
    920