Switch live on entry to a per block basis from per variable.

[official-gcc.git] / gcc / tree-ssa-live.c

/* Liveness for SSA trees.
   Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
   Contributed by Andrew MacLeod <amacleod@redhat.com>

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GCC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING.  If not, write to
the Free Software Foundation, 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.  */

#include "config.h"
#include "system.h"
#include "coretypes.h"
#include "tm.h"
#include "tree.h"
#include "flags.h"
#include "basic-block.h"
#include "function.h"
#include "diagnostic.h"
#include "bitmap.h"
#include "tree-flow.h"
#include "tree-gimple.h"
#include "tree-inline.h"
#include "varray.h"
#include "timevar.h"
#include "hashtab.h"
#include "tree-dump.h"
#include "tree-ssa-live.h"
#include "toplev.h"
#include "vecprim.h"

static void live_worklist (tree_live_info_p);
static tree_live_info_p new_tree_live_info (var_map);
static inline void set_if_valid (var_map, bitmap, tree);
static inline void add_conflicts_if_valid (tpa_p, conflict_graph,
                                           var_map, bitmap, tree);
static partition_pair_p find_partition_pair (coalesce_list_p, int, int, bool);
#ifdef ENABLE_CHECKING
static void  verify_live_on_entry (tree_live_info_p);
#endif

/* This is where the mapping from SSA version number to real storage variable
   is tracked.  

   All SSA versions of the same variable may not ultimately be mapped back to
   the same real variable. In that instance, we need to detect the live
   range overlap, and give one of the variable new storage. The vector
   'partition_to_var' tracks which partition maps to which variable.

   Given a VAR, it is sometimes desirable to know which partition that VAR
   represents.  There is an additional field in the variable annotation to
   track that information.  */

/* Create a variable partition map of SIZE, initialize and return it.  */

var_map
init_var_map (int size)
{
  var_map map;

  map = (var_map) xmalloc (sizeof (struct _var_map));
  map->var_partition = partition_new (size);
  map->partition_to_var 
              = (tree *)xmalloc (size * sizeof (tree));
  memset (map->partition_to_var, 0, size * sizeof (tree));

  map->partition_to_compact = NULL;
  map->compact_to_partition = NULL;
  map->num_partitions = size;
  map->partition_size = size;
  return map;
}


/* Free memory associated with MAP.  */

void
delete_var_map (var_map map)
{
  free (map->partition_to_var);
  partition_delete (map->var_partition);
  if (map->partition_to_compact)
    free (map->partition_to_compact);
  if (map->compact_to_partition)
    free (map->compact_to_partition);
  free (map);
}


/* This function will combine the partitions in MAP for VAR1 and VAR2.  It 
   Returns the partition which represents the new partition.  If the two 
   partitions cannot be combined, NO_PARTITION is returned.  */

int
var_union (var_map map, tree var1, tree var2)
{
  int p1, p2, p3;
  tree root_var = NULL_TREE;
  tree other_var = NULL_TREE;

  /* This is independent of partition_to_compact. If partition_to_compact is 
     on, then whichever one of these partitions is absorbed will never have a
     dereference into the partition_to_compact array any more.  */

  if (TREE_CODE (var1) == SSA_NAME)
    p1 = partition_find (map->var_partition, SSA_NAME_VERSION (var1));
  else
    {
      p1 = var_to_partition (map, var1);
      if (map->compact_to_partition)
        p1 = map->compact_to_partition[p1];
      root_var = var1;
    }
  
  if (TREE_CODE (var2) == SSA_NAME)
    p2 = partition_find (map->var_partition, SSA_NAME_VERSION (var2));
  else
    {
      p2 = var_to_partition (map, var2);
      if (map->compact_to_partition)
        p2 = map->compact_to_partition[p2];

      /* If there is no root_var set, or it's not a user variable, set the
         root_var to this one.  */
      if (!root_var || (DECL_P (root_var) && DECL_IGNORED_P (root_var)))
        {
          other_var = root_var;
          root_var = var2;
        }
      else 
        other_var = var2;
    }

  gcc_assert (p1 != NO_PARTITION);
  gcc_assert (p2 != NO_PARTITION);

  if (p1 == p2)
    p3 = p1;
  else
    p3 = partition_union (map->var_partition, p1, p2);

  if (map->partition_to_compact)
    p3 = map->partition_to_compact[p3];

  if (root_var)
    change_partition_var (map, root_var, p3);
  if (other_var)
    change_partition_var (map, other_var, p3);

  return p3;
}


/* Compress the partition numbers in MAP such that they fall in the range 
   0..(num_partitions-1) instead of wherever they turned out during
   the partitioning exercise.  This removes any references to unused
   partitions, thereby allowing bitmaps and other vectors to be much
   denser.  Compression type is controlled by FLAGS.

   This is implemented such that compaction doesn't affect partitioning.
   Ie., once partitions are created and possibly merged, running one
   or more different kind of compaction will not affect the partitions
   themselves.  Their index might change, but all the same variables will
   still be members of the same partition group.  This allows work on reduced
   sets, and no loss of information when a larger set is later desired.

   In particular, coalescing can work on partitions which have 2 or more
   definitions, and then 'recompact' later to include all the single
   definitions for assignment to program variables.  */

void 
compact_var_map (var_map map, int flags)
{
  sbitmap used;
  int tmp, root, root_i;
  unsigned int x, limit, count;
  tree var;
  root_var_p rv = NULL;

  limit = map->partition_size;
  used = sbitmap_alloc (limit);
  sbitmap_zero (used);

  /* Already compressed? Abandon the old one.  */
  if (map->partition_to_compact)
    {
      free (map->partition_to_compact);
      map->partition_to_compact = NULL;
    }
  if (map->compact_to_partition)
    {
      free (map->compact_to_partition);
      map->compact_to_partition = NULL;
    }

  map->num_partitions = map->partition_size;

  if (flags & VARMAP_NO_SINGLE_DEFS)
    rv = root_var_init (map);

  map->partition_to_compact = (int *)xmalloc (limit * sizeof (int));
  memset (map->partition_to_compact, 0xff, (limit * sizeof (int)));

  /* Find out which partitions are actually referenced.  */
  count = 0;
  for (x = 0; x < limit; x++)
    {
      tmp = partition_find (map->var_partition, x);
      if (!TEST_BIT (used, tmp) && map->partition_to_var[tmp] != NULL_TREE)
        {
          /* It is referenced, check to see if there is more than one version
             in the root_var table, if one is available.  */
          if (rv)
            {
              root = root_var_find (rv, tmp);
              root_i = root_var_first_partition (rv, root);
              /* If there is only one, don't include this in the compaction.  */
              if (root_var_next_partition (rv, root_i) == ROOT_VAR_NONE)
                continue;
            }
          SET_BIT (used, tmp);
          count++;
        }
    }

  /* Build a compacted partitioning.  */
  if (count != limit)
    {
      sbitmap_iterator sbi;

      map->compact_to_partition = (int *)xmalloc (count * sizeof (int));
      count = 0;
      /* SSA renaming begins at 1, so skip 0 when compacting.  */
      EXECUTE_IF_SET_IN_SBITMAP (used, 1, x, sbi)
        {
          map->partition_to_compact[x] = count;
          map->compact_to_partition[count] = x;
          var = map->partition_to_var[x];
          if (TREE_CODE (var) != SSA_NAME)
            change_partition_var (map, var, count);
          count++;
        }
    }
  else
    {
      free (map->partition_to_compact);
      map->partition_to_compact = NULL;
    }

  map->num_partitions = count;

  if (rv)
    root_var_delete (rv);
  sbitmap_free (used);
}


/* This function is used to change the representative variable in MAP for VAR's 
   partition from an SSA_NAME variable to a regular variable.  This allows 
   partitions to be mapped back to real variables.  */
  
void 
change_partition_var (var_map map, tree var, int part)
{
  var_ann_t ann;

  gcc_assert (TREE_CODE (var) != SSA_NAME);

  ann = var_ann (var);
  ann->out_of_ssa_tag = 1;
  VAR_ANN_PARTITION (ann) = part;
  if (map->compact_to_partition)
    map->partition_to_var[map->compact_to_partition[part]] = var;
}

static inline void mark_all_vars_used (tree *);

/* Helper function for mark_all_vars_used, called via walk_tree.  */

static tree
mark_all_vars_used_1 (tree *tp, int *walk_subtrees,
                      void *data ATTRIBUTE_UNUSED)
{
  tree t = *tp;

  if (TREE_CODE (t) == SSA_NAME)
    t = SSA_NAME_VAR (t);

  /* Ignore TREE_ORIGINAL for TARGET_MEM_REFS, as well as other
     fields that do not contain vars.  */
  if (TREE_CODE (t) == TARGET_MEM_REF)
    {
      mark_all_vars_used (&TMR_SYMBOL (t));
      mark_all_vars_used (&TMR_BASE (t));
      mark_all_vars_used (&TMR_INDEX (t));
      *walk_subtrees = 0;
      return NULL;
    }

  /* Only need to mark VAR_DECLS; parameters and return results are not
     eliminated as unused.  */
  if (TREE_CODE (t) == VAR_DECL)
    set_is_used (t);

  if (IS_TYPE_OR_DECL_P (t))
    *walk_subtrees = 0;

  return NULL;
}

/* Mark all VAR_DECLS under *EXPR_P as used, so that they won't be 
   eliminated during the tree->rtl conversion process.  */

static inline void
mark_all_vars_used (tree *expr_p)
{
  walk_tree (expr_p, mark_all_vars_used_1, NULL, NULL);
}


/* Remove local variables that are not referenced in the IL.  */

void
remove_unused_locals (void)
{
  basic_block bb;
  tree t, *cell;

  /* Assume all locals are unused.  */
  for (t = cfun->unexpanded_var_list; t; t = TREE_CHAIN (t))
    {
      tree var = TREE_VALUE (t);
      if (TREE_CODE (var) != FUNCTION_DECL
          && var_ann (var))
        var_ann (var)->used = false;
    }

  /* Walk the CFG marking all referenced symbols.  */
  FOR_EACH_BB (bb)
    {
      block_stmt_iterator bsi;
      tree phi, def;

      /* Walk the statements.  */
      for (bsi = bsi_start (bb); !bsi_end_p (bsi); bsi_next (&bsi))
        mark_all_vars_used (bsi_stmt_ptr (bsi));

      for (phi = phi_nodes (bb); phi; phi = PHI_CHAIN (phi))
        {
          use_operand_p arg_p;
          ssa_op_iter i;

          /* No point processing globals.  */
          if (is_global_var (SSA_NAME_VAR (PHI_RESULT (phi))))
            continue;

          def = PHI_RESULT (phi);
          mark_all_vars_used (&def);

          FOR_EACH_PHI_ARG (arg_p, phi, i, SSA_OP_ALL_USES)
            {
              tree arg = USE_FROM_PTR (arg_p);
              mark_all_vars_used (&arg);
            }
        }
    }

  /* Remove unmarked vars and clear used flag.  */
  for (cell = &cfun->unexpanded_var_list; *cell; )
    {
      tree var = TREE_VALUE (*cell);
      var_ann_t ann;

      if (TREE_CODE (var) != FUNCTION_DECL
          && (!(ann = var_ann (var))
              || !ann->used))
        {
          *cell = TREE_CHAIN (*cell);
          continue;
        }

      cell = &TREE_CHAIN (*cell);
    }
}

/* This function looks through the program and uses FLAGS to determine what 
   SSA versioned variables are given entries in a new partition table.  This
   new partition map is returned.  */

var_map
create_ssa_var_map (void)
{
  block_stmt_iterator bsi;
  basic_block bb;
  tree var;
  tree stmt;
  var_map map;
  ssa_op_iter iter;
#ifdef ENABLE_CHECKING
  bitmap used_in_real_ops;
  bitmap used_in_virtual_ops;
#endif

  map = init_var_map (num_ssa_names + 1);

#ifdef ENABLE_CHECKING
  used_in_real_ops = BITMAP_ALLOC (NULL);
  used_in_virtual_ops = BITMAP_ALLOC (NULL);
#endif

  FOR_EACH_BB (bb)
    {
      tree phi, arg;

      for (phi = phi_nodes (bb); phi; phi = PHI_CHAIN (phi))
        {
          int i;
          register_ssa_partition (map, PHI_RESULT (phi));
          for (i = 0; i < PHI_NUM_ARGS (phi); i++)
            {
              arg = PHI_ARG_DEF (phi, i);
              if (TREE_CODE (arg) == SSA_NAME)
                register_ssa_partition (map, arg);

              mark_all_vars_used (&PHI_ARG_DEF_TREE (phi, i));
            }
        }

      for (bsi = bsi_start (bb); !bsi_end_p (bsi); bsi_next (&bsi))
        {
          stmt = bsi_stmt (bsi);

          /* Register USE and DEF operands in each statement.  */
          FOR_EACH_SSA_TREE_OPERAND (var, stmt, iter, (SSA_OP_DEF|SSA_OP_USE))
            {
              register_ssa_partition (map, var);

#ifdef ENABLE_CHECKING
              bitmap_set_bit (used_in_real_ops, DECL_UID (SSA_NAME_VAR (var)));
#endif
            }

#ifdef ENABLE_CHECKING
          /* Validate that virtual ops don't get used in funny ways.  */
          FOR_EACH_SSA_TREE_OPERAND (var, stmt, iter, 
                                     SSA_OP_VIRTUAL_USES | SSA_OP_VMUSTDEF)
            {
              bitmap_set_bit (used_in_virtual_ops, 
                              DECL_UID (SSA_NAME_VAR (var)));
            }

#endif /* ENABLE_CHECKING */

          mark_all_vars_used (bsi_stmt_ptr (bsi));
        }
    }

#if defined ENABLE_CHECKING
  {
    unsigned i;
    bitmap both = BITMAP_ALLOC (NULL);
    bitmap_and (both, used_in_real_ops, used_in_virtual_ops);
    if (!bitmap_empty_p (both))
      {
        bitmap_iterator bi;

        EXECUTE_IF_SET_IN_BITMAP (both, 0, i, bi)
          fprintf (stderr, "Variable %s used in real and virtual operands\n",
                   get_name (referenced_var (i)));
        internal_error ("SSA corruption");
      }

    BITMAP_FREE (used_in_real_ops);
    BITMAP_FREE (used_in_virtual_ops);
    BITMAP_FREE (both);
  }
#endif

  return map;
}


/* Allocate and return a new live range information object base on MAP.  */

static tree_live_info_p
new_tree_live_info (var_map map)
{
  tree_live_info_p live;
  unsigned x;

  live = (tree_live_info_p) xmalloc (sizeof (struct tree_live_info_d));
  live->map = map;
  live->num_blocks = last_basic_block;

  live->livein = (bitmap *)xmalloc (last_basic_block * sizeof (bitmap));
  for (x = 0; x < (unsigned)last_basic_block; x++)
    live->livein[x] = BITMAP_ALLOC (NULL);

  live->liveout = (bitmap *)xmalloc (last_basic_block * sizeof (bitmap));
  for (x = 0; x < (unsigned)last_basic_block; x++)
    live->liveout[x] = BITMAP_ALLOC (NULL);

  live->work_stack = XNEWVEC (int, last_basic_block);
  live->stack_top = live->work_stack;

  live->global = BITMAP_ALLOC (NULL);
  return live;
}


/* Free storage for live range info object LIVE.  */

void 
delete_tree_live_info (tree_live_info_p live)
{
  int x;

  BITMAP_FREE (live->global);
  free (live->work_stack);

  for (x = live->num_blocks - 1; x >= 0; x--)
    BITMAP_FREE (live->liveout[x]);
  free (live->liveout);

  for (x = live->num_blocks - 1; x >= 0; x--)
    BITMAP_FREE (live->livein[x]);
  free (live->livein);

  free (live);
}


/* Visit basic block BB, and propogate any required live on entry bits from 
   LIVE into the predecessors.  VISITED is the bitmap of visited blocks.  
   TMP is a temporary work bitmap which is passed in to avoid reallocting
   it each time.  */

static void 
loe_visit_block (tree_live_info_p live, basic_block bb, sbitmap visited,
                 bitmap tmp)
{
  edge e;
  bool change;
  edge_iterator ei;
  basic_block pred_bb;
  bitmap loe;
  gcc_assert (!TEST_BIT (visited, bb->index));

  SET_BIT (visited, bb->index);
  loe = live_on_entry (live, bb);

  FOR_EACH_EDGE (e, ei, bb->preds)
    {
      pred_bb = e->src;
      if (pred_bb == ENTRY_BLOCK_PTR)
        continue;
      /* tmp is vars live-=on-entry from BB that aren't defined in the
         pred. block.  This should be the live on entry vars to pred.  
         Note that liveout is the DEFs in a block while live on entry is
         being calculated.  */
      bitmap_and_compl (tmp, loe, live->liveout[pred_bb->index]);

      /* Add these bits to live-on-entry for the pred. if there are any 
         changes, and pred_bb has been visited already, add it to the
         revisit stack.  */
      change = bitmap_ior_into (live_on_entry (live, pred_bb), tmp);
      if (TEST_BIT (visited, pred_bb->index) && change)
        {
          RESET_BIT (visited, pred_bb->index);
          *(live->stack_top)++ = pred_bb->index;
        }
    }
}


/* Using LIVE, fill in all the live-on-entry blocks between the defs and uses 
   of all the vairables.  */

static void
live_worklist (tree_live_info_p live)
{
  unsigned b;
  basic_block bb;
  sbitmap visited = sbitmap_alloc (last_basic_block + 1);
  bitmap tmp = BITMAP_ALLOC (NULL);

  sbitmap_zero (visited);

  /* Visit all the blocks in reverse order and propogate live on entry values
     into the predecessors blocks.  */
  FOR_EACH_BB_REVERSE (bb)
    loe_visit_block (live, bb, visited, tmp);

  /* Process any blocks which require further iteration.  */
  while (live->stack_top != live->work_stack)
    {
      b = *--(live->stack_top);
      loe_visit_block (live, BASIC_BLOCK (b), visited, tmp);
    }

  BITMAP_FREE (tmp);
  sbitmap_free (visited);
}


/* Calulate the initial live on entry vector for SSA_NAME using immediate_use
   links.  Set the live on entry fields in LIVE.  Def's are marked temporarily
   in the liveout vector.  */

static void
set_var_live_on_entry (tree ssa_name, tree_live_info_p live)
{
  int p;
  tree stmt;
  use_operand_p use;
  basic_block def_bb = NULL;
  imm_use_iterator imm_iter;
  bool global = false;

  p = var_to_partition (live->map, ssa_name);
  if (p == NO_PARTITION)
    return;

  stmt = SSA_NAME_DEF_STMT (ssa_name);
  if (stmt)
    {
      def_bb = bb_for_stmt (stmt);
      /* Mark defs in liveout bitmap for now.  */
      if (def_bb)
        bitmap_set_bit (live->liveout[def_bb->index], p);
    }
  else
    def_bb = ENTRY_BLOCK_PTR;

  /* Visit each use of SSA_NAME and if it isn't in the same block as the def,
     add it to the list of live on entry blocks.  */
  FOR_EACH_IMM_USE_FAST (use, imm_iter, ssa_name)
    {
      tree use_stmt = USE_STMT (use);
      basic_block add_block = NULL;

      if (TREE_CODE (use_stmt) == PHI_NODE)
        {
          /* Uses in PHI's are considered to be live at exit of the SRC block
             as this is where a copy would be inserted.  Check to see if it is
             defined in that block, or whether its live on entry.  */
          int index = PHI_ARG_INDEX_FROM_USE (use);
          edge e = PHI_ARG_EDGE (use_stmt, index);
          if (e->src != ENTRY_BLOCK_PTR)
            {
              if (e->src != def_bb)
                add_block = e->src;
            }
        }
      else
        {
          /* If its not defined in this block, its live on entry.  */
          basic_block use_bb = bb_for_stmt (use_stmt);
          if (use_bb != def_bb)
            add_block = use_bb;
        }  

      /* If there was a live on entry use, set the bit.  */
      if (add_block)
        {
          global = true;
          bitmap_set_bit (live->livein[add_block->index], p);
        }
    }

  /* If SSA_NAME is live on entry to at least one block, fill in all the live
     on entry blocks between the def and all the uses.  */
  if (global)
    bitmap_set_bit (live->global, p);
}


/* Calculate the live on exit vectors based on the entry info in LIVEINFO.  */

void
calculate_live_on_exit (tree_live_info_p liveinfo)
{
  unsigned i;
  int p;
  tree t, phi;
  basic_block bb;
  edge e;
  edge_iterator ei;

  /* live on entry calculations used the liveouit vector for defs.  */
  FOR_EACH_BB (bb)
    bitmap_clear (liveinfo->liveout[bb->index]);

  /* Set all the live-on-exit bits for uses in PHIs.  */
  FOR_EACH_BB (bb)
    {
      /* Mark the PHI arguments which are live on exit to the pred block.  */
      for (phi = phi_nodes (bb); phi; phi = PHI_CHAIN (phi))
        for (i = 0; i < (unsigned)PHI_NUM_ARGS (phi); i++)
          { 
            t = PHI_ARG_DEF (phi, i);
            if (TREE_CODE (t) != SSA_NAME)
              continue;
            p = var_to_partition (liveinfo->map, t);
            if (p == NO_PARTITION)
              continue;
            e = PHI_ARG_EDGE (phi, i);
            if (e->src != ENTRY_BLOCK_PTR)
              bitmap_set_bit (liveinfo->liveout[e->src->index], p);
          }

      /* add each successors live on entry to this bock live on exit.  */
      FOR_EACH_EDGE (e, ei, bb->succs)
        if (e->dest != EXIT_BLOCK_PTR)
          bitmap_ior_into (liveinfo->liveout[bb->index],
                           live_on_entry (liveinfo, e->dest));
    }
}

/* Given partition map MAP, calculate all the live on entry bitmaps for 
   each partition.  Return a new live info object.  */

tree_live_info_p 
calculate_live_ranges (var_map map)
{
  tree var;
  unsigned i;
  tree_live_info_p live;

  live = new_tree_live_info (map);
  for (i = 0; i < num_var_partitions (map); i++)
    {
      var = partition_to_var (map, i);
      if (var != NULL_TREE)
        set_var_live_on_entry (var, live);
    }

  live_worklist (live);

#ifdef ENABLE_CHECKING
  verify_live_on_entry (live);
#endif

  calculate_live_on_exit (live);
  return live;
}


/* Initialize a tree_partition_associator object using MAP.  */

static tpa_p
tpa_init (var_map map)
{
  tpa_p tpa;
  int num_partitions = num_var_partitions (map);
  int x;

  if (num_partitions == 0)
    return NULL;

  tpa = (tpa_p) xmalloc (sizeof (struct tree_partition_associator_d));
  tpa->num_trees = 0;
  tpa->uncompressed_num = -1;
  tpa->map = map;
  tpa->next_partition = (int *)xmalloc (num_partitions * sizeof (int));
  memset (tpa->next_partition, TPA_NONE, num_partitions * sizeof (int));

  tpa->partition_to_tree_map = (int *)xmalloc (num_partitions * sizeof (int));
  memset (tpa->partition_to_tree_map, TPA_NONE, num_partitions * sizeof (int));

  x = MAX (40, (num_partitions / 20));
  tpa->trees = VEC_alloc (tree, heap, x);
  tpa->first_partition = VEC_alloc (int, heap, x);

  return tpa;

}


/* Remove PARTITION_INDEX from TREE_INDEX's list in the tpa structure TPA.  */

void
tpa_remove_partition (tpa_p tpa, int tree_index, int partition_index)
{
  int i;

  i = tpa_first_partition (tpa, tree_index);
  if (i == partition_index)
    {
      VEC_replace (int, tpa->first_partition, tree_index,
                   tpa->next_partition[i]);
    }
  else
    {
      for ( ; i != TPA_NONE; i = tpa_next_partition (tpa, i))
        {
          if (tpa->next_partition[i] == partition_index)
            {
              tpa->next_partition[i] = tpa->next_partition[partition_index];
              break;
            }
        }
    }
}


/* Free the memory used by tree_partition_associator object TPA.  */

void
tpa_delete (tpa_p tpa)
{
  if (!tpa)
    return;

  VEC_free (tree, heap, tpa->trees);
  VEC_free (int, heap, tpa->first_partition);
  free (tpa->partition_to_tree_map);
  free (tpa->next_partition);
  free (tpa);
}


/* This function will remove any tree entries from TPA which have only a single
   element.  This will help keep the size of the conflict graph down.  The 
   function returns the number of remaining tree lists.  */

int 
tpa_compact (tpa_p tpa)
{
  int last, x, y, first, swap_i;
  tree swap_t;

  /* Find the last list which has more than 1 partition.  */
  for (last = tpa->num_trees - 1; last > 0; last--)
    {
      first = tpa_first_partition (tpa, last);
      if (tpa_next_partition (tpa, first) != NO_PARTITION)
        break;
    }

  x = 0;
  while (x < last)
    {
      first = tpa_first_partition (tpa, x);

      /* If there is not more than one partition, swap with the current end
         of the tree list.  */
      if (tpa_next_partition (tpa, first) == NO_PARTITION)
        {
          swap_t = VEC_index (tree, tpa->trees, last);
          swap_i = VEC_index (int, tpa->first_partition, last);

          /* Update the last entry. Since it is known to only have one
             partition, there is nothing else to update.  */
          VEC_replace (tree, tpa->trees, last,
                       VEC_index (tree, tpa->trees, x));
          VEC_replace (int, tpa->first_partition, last,
                       VEC_index (int, tpa->first_partition, x));
          tpa->partition_to_tree_map[tpa_first_partition (tpa, last)] = last;

          /* Since this list is known to have more than one partition, update
             the list owner entries.  */
          VEC_replace (tree, tpa->trees, x, swap_t);
          VEC_replace (int, tpa->first_partition, x, swap_i);
          for (y = tpa_first_partition (tpa, x); 
               y != NO_PARTITION; 
               y = tpa_next_partition (tpa, y))
            tpa->partition_to_tree_map[y] = x;

          /* Ensure last is a list with more than one partition.  */
          last--;
          for (; last > x; last--)
            {
              first = tpa_first_partition (tpa, last);
              if (tpa_next_partition (tpa, first) != NO_PARTITION)
                break;
            }
        }
      x++;
    }

  first = tpa_first_partition (tpa, x);
  if (tpa_next_partition (tpa, first) != NO_PARTITION)
    x++;
  tpa->uncompressed_num = tpa->num_trees;
  tpa->num_trees = x;
  return last;
}


/* Initialize a root_var object with SSA partitions from MAP which are based 
   on each root variable.  */

root_var_p
root_var_init (var_map map)
{
  root_var_p rv;
  int num_partitions = num_var_partitions (map);
  int x, p;
  tree t;
  var_ann_t ann;
  sbitmap seen;

  rv = tpa_init (map);
  if (!rv)
    return NULL;

  seen = sbitmap_alloc (num_partitions);
  sbitmap_zero (seen);

  /* Start at the end and work towards the front. This will provide a list
     that is ordered from smallest to largest.  */
  for (x = num_partitions - 1; x >= 0; x--)
    {
      t = partition_to_var (map, x);

      /* The var map may not be compacted yet, so check for NULL.  */
      if (!t) 
        continue;

      p = var_to_partition (map, t);

      gcc_assert (p != NO_PARTITION);

      /* Make sure we only put coalesced partitions into the list once.  */
      if (TEST_BIT (seen, p))
        continue;
      SET_BIT (seen, p);
      if (TREE_CODE (t) == SSA_NAME)
        t = SSA_NAME_VAR (t);
      ann = var_ann (t);
      if (ann->root_var_processed)
        {
          rv->next_partition[p] = VEC_index (int, rv->first_partition, 
                                             VAR_ANN_ROOT_INDEX (ann));
          VEC_replace (int, rv->first_partition, VAR_ANN_ROOT_INDEX (ann), p);
        }
      else
        {
          ann->root_var_processed = 1;
          VAR_ANN_ROOT_INDEX (ann) = rv->num_trees++;
          VEC_safe_push (tree, heap, rv->trees, t);
          VEC_safe_push (int, heap, rv->first_partition, p);
        }
      rv->partition_to_tree_map[p] = VAR_ANN_ROOT_INDEX (ann);
    }

  /* Reset the out_of_ssa_tag flag on each variable for later use.  */
  for (x = 0; x < rv->num_trees; x++)
    {
      t = VEC_index (tree, rv->trees, x);
      var_ann (t)->root_var_processed = 0;
    }

  sbitmap_free (seen);
  return rv;
}


/* Hash function for 2 integer coalesce pairs.  */
#define COALESCE_HASH_FN(R1, R2) ((R2) * ((R2) - 1) / 2 + (R1))


/* Return hash value for partition pair PAIR.  */

unsigned int 
partition_pair_map_hash (const void *pair)
{
  hashval_t a = (hashval_t)(((partition_pair_p)pair)->first_partition);
  hashval_t b = (hashval_t)(((partition_pair_p)pair)->second_partition);

  return COALESCE_HASH_FN (a,b);
}


/* Return TRUE if PAIR1 is equivilent to PAIR2.  */

int 
partition_pair_map_eq (const void *pair1, const void *pair2)
{
  partition_pair_p p1 = (partition_pair_p) pair1;
  partition_pair_p p2 = (partition_pair_p) pair2;

  return (p1->first_partition == p2->first_partition
          && p1->second_partition == p2->second_partition);
}


/* Create a new coalesce list object from MAP and return it.  */

coalesce_list_p 
create_coalesce_list (var_map map)
{
  coalesce_list_p list;
  unsigned size = num_ssa_names * 3;

  if (size < 40)
    size = 40;

  list = xmalloc (sizeof (struct coalesce_list_d));
  list->list = htab_create (size, partition_pair_map_hash,
                            partition_pair_map_eq, NULL);

  list->map = map;
  list->sorted = NULL;
  list->add_mode = true;
  list->num_sorted = 0;
  return list;
}


/* Delete coalesce list CL.  */

void 
delete_coalesce_list (coalesce_list_p cl)
{
  htab_delete (cl->list);
  if (cl->sorted)
    free (cl->sorted);
  gcc_assert (cl->num_sorted == 0);
  free (cl);
}


/* Find a matching coalesce pair object in CL for partitions P1 and P2.  If 
   one isn't found, return NULL if CREATE is false, otherwise create a new 
   coalesce pair object and return it.  */

static partition_pair_p
find_partition_pair (coalesce_list_p cl, int p1, int p2, bool create)
{
  struct partition_pair p, *pair;
  void **slot;
  unsigned int hash;
    
  /* normalize so that p1 is the smaller value.  */
  if (p2 < p1)
    {
      p.first_partition = p2;
      p.second_partition = p1;
    }
  else
    {
      p.first_partition = p1;
      p.second_partition = p2;
    }
  
  
  hash = partition_pair_map_hash (&p);
  pair = (struct partition_pair *) htab_find_with_hash (cl->list, &p, hash);

  if (create && !pair)
    {
      gcc_assert (cl->add_mode);
      pair = xmalloc (sizeof (struct partition_pair));
      pair->first_partition = p.first_partition;
      pair->second_partition = p.second_partition;
      pair->cost = 0;
      slot = htab_find_slot_with_hash (cl->list, pair, hash, INSERT);
      *(struct partition_pair **)slot = pair;
    }

  return pair;
}

/* Return cost of execution of copy instruction with FREQUENCY
   possibly on CRITICAL edge and in HOT basic block.  */
int
coalesce_cost (int frequency, bool hot, bool critical)
{
  /* Base costs on BB frequencies bounded by 1.  */
  int cost = frequency;

  if (!cost)
    cost = 1;
  if (optimize_size || hot)
    cost = 1;
  /* Inserting copy on critical edge costs more
     than inserting it elsewhere.  */
  if (critical)
    cost *= 2;
  return cost;
}

/* Add a potential coalesce between P1 and P2 in CL with a cost of VALUE.  */

void 
add_coalesce (coalesce_list_p cl, int p1, int p2,
              int value)
{
  partition_pair_p node;

  gcc_assert (cl->add_mode);

  if (p1 == p2)
    return;

  node = find_partition_pair (cl, p1, p2, true);

  node->cost += value;
}


/* Comparison function to allow qsort to sort P1 and P2 in Ascendiong order.  */

static
int compare_pairs (const void *p1, const void *p2)
{
  return (*(partition_pair_p *)p1)->cost - (*(partition_pair_p *)p2)->cost;
}


static inline int
num_coalesce_pairs (coalesce_list_p cl)
{
  return htab_elements (cl->list);
}

typedef struct
{
  htab_iterator hti;
} partition_pair_iterator;

static inline partition_pair_p
first_partition_pair (coalesce_list_p cl, partition_pair_iterator *iter)
{
  partition_pair_p pair;

  pair = (partition_pair_p) first_htab_element (&(iter->hti), cl->list);
  return pair;
}

static inline bool
end_partition_pair_p (partition_pair_iterator *iter)
{
  return end_htab_p (&(iter->hti));
}

static inline partition_pair_p
next_partition_pair (partition_pair_iterator *iter)
{
  partition_pair_p pair;

  pair = (partition_pair_p) next_htab_element (&(iter->hti));
  return pair;
}

#define FOR_EACH_PARTITION_PAIR(PAIR, ITER, CL)         \
  for ((PAIR) = first_partition_pair ((CL), &(ITER));   \
       !end_partition_pair_p (&(ITER));                 \
       (PAIR) = next_partition_pair (&(ITER)))


/* Prepare CL for removal of preferred pairs.  When finished, list element 
   0 has all the coalesce pairs, sorted in order from most important coalesce 
   to least important.  */

void
sort_coalesce_list (coalesce_list_p cl)
{
  unsigned x, num;
  partition_pair_p p;
  partition_pair_iterator ppi;

  gcc_assert (cl->add_mode);

  cl->add_mode = false;

  /* allocate a vector for the pair pointers.  */
  num = num_coalesce_pairs (cl);
  cl->num_sorted = num;
  if (num == 0)
    return;
  cl->sorted = XNEWVEC (partition_pair_p, num);

  /* Populate the vector with pointers to the partition pairs.  */
  
  x = 0;
  FOR_EACH_PARTITION_PAIR (p, ppi, cl)
    cl->sorted[x++] = p;
  gcc_assert (x == num);

  if (num == 1)
    return;

  if (num == 2)
    {
      if (cl->sorted[0]->cost > cl->sorted[1]->cost)
        {
          p = cl->sorted[0];
          cl->sorted[0] = cl->sorted[1];
          cl->sorted[1] = p;
        }
      return;
    }

  /* Only call qsort if there are more than 2 items.  */
  if (num > 2)
      qsort (cl->sorted, num, sizeof (partition_pair_p), compare_pairs);
}


/* Retrieve the best remaining pair to coalesce from CL.  Returns the 2 
   partitions via P1 and P2.  Their calculated cost is returned by the function.
   NO_BEST_COALESCE is returned if the coalesce list is empty.  */

static int
pop_best_coalesce (coalesce_list_p cl, int *p1, int *p2)
{
  partition_pair_p node;
  int ret;

  gcc_assert (!cl->add_mode);

  if (cl->num_sorted == 0)
    return NO_BEST_COALESCE;

  node = cl->sorted[--(cl->num_sorted)];

  *p1 = node->first_partition;
  *p2 = node->second_partition;
  ret = node->cost;
  free (node);

  return ret;
}


/* If variable VAR is in a partition in MAP, add a conflict in GRAPH between 
   VAR and any other live partitions in VEC which are associated via TPA.  
   Reset the live bit in VEC.  */

static inline void 
add_conflicts_if_valid (tpa_p tpa, conflict_graph graph,
                        var_map map, bitmap vec, tree var)
{ 
  int p, y, first;
  p = var_to_partition (map, var);
  if (p != NO_PARTITION)
    { 
      bitmap_clear_bit (vec, p);
      first = tpa_find_tree (tpa, p);
      /* If find returns nothing, this object isn't interesting.  */
      if (first == TPA_NONE)
        return;
      /* Only add interferences between objects in the same list.  */
      for (y = tpa_first_partition (tpa, first);
           y != TPA_NONE;
           y = tpa_next_partition (tpa, y))
        {
          if (bitmap_bit_p (vec, y))
            conflict_graph_add (graph, p, y);
        }
    }
}


/* If VAR is in a partition of MAP, set the bit for that partition in VEC.  */

static inline void
set_if_valid (var_map map, bitmap vec, tree var)
{
  int p = var_to_partition (map, var);
  if (p != NO_PARTITION)
    bitmap_set_bit (vec, p);
}

/* Return a conflict graph for the information contained in LIVE_INFO.  Only
   conflicts between items in the same TPA list are added.  If optional 
   coalesce list CL is passed in, any copies encountered are added.  */

conflict_graph
build_tree_conflict_graph (tree_live_info_p liveinfo, tpa_p tpa, 
                           coalesce_list_p cl)
{
  conflict_graph graph;
  var_map map;
  bitmap live;
  unsigned x, y, i;
  basic_block bb;
  int *partition_link, *tpa_nodes;
  VEC(int,heap) *tpa_to_clear;
  unsigned l;
  ssa_op_iter iter;
  bitmap_iterator bi;

  map = live_var_map (liveinfo);
  graph = conflict_graph_new (num_var_partitions (map));

  if (tpa_num_trees (tpa) == 0)
    return graph;

  live = BITMAP_ALLOC (NULL);

  partition_link = XCNEWVEC (int, num_var_partitions (map) + 1);
  tpa_nodes = XCNEWVEC (int, tpa_num_trees (tpa));
  tpa_to_clear = VEC_alloc (int, heap, 50);

  FOR_EACH_BB (bb)
    {
      block_stmt_iterator bsi;
      tree phi;
      int idx;

      /* Start with live on exit temporaries.  */
      bitmap_copy (live, live_on_exit (liveinfo, bb));

      for (bsi = bsi_last (bb); !bsi_end_p (bsi); bsi_prev (&bsi))
        {
          bool is_a_copy = false;
          tree stmt = bsi_stmt (bsi);

          /* A copy between 2 partitions does not introduce an interference 
             by itself.  If they did, you would never be able to coalesce 
             two things which are copied.  If the two variables really do 
             conflict, they will conflict elsewhere in the program.  
             
             This is handled specially here since we may also be interested 
             in copies between real variables and SSA_NAME variables.  We may
             be interested in trying to coalesce SSA_NAME variables with
             root variables in some cases.  */

          if (TREE_CODE (stmt) == MODIFY_EXPR)
            {
              tree lhs = TREE_OPERAND (stmt, 0);
              tree rhs = TREE_OPERAND (stmt, 1);
              int p1, p2;
              int bit;

              if (DECL_P (lhs) || TREE_CODE (lhs) == SSA_NAME)
                p1 = var_to_partition (map, lhs);
              else 
                p1 = NO_PARTITION;

              if (DECL_P (rhs) || TREE_CODE (rhs) == SSA_NAME)
                p2 = var_to_partition (map, rhs);
              else 
                p2 = NO_PARTITION;

              if (p1 != NO_PARTITION && p2 != NO_PARTITION)
                {
                  is_a_copy = true;
                  bit = bitmap_bit_p (live, p2);
                  /* If the RHS is live, make it not live while we add
                     the conflicts, then make it live again.  */
                  if (bit)
                    bitmap_clear_bit (live, p2);
                  add_conflicts_if_valid (tpa, graph, map, live, lhs);
                  if (bit)
                    bitmap_set_bit (live, p2);
                  if (cl)
                    add_coalesce (cl, p1, p2,
                                  coalesce_cost (bb->frequency,
                                                 maybe_hot_bb_p (bb), false));
                  set_if_valid (map, live, rhs);
                }
            }

          if (!is_a_copy)
            {
              tree var;
              FOR_EACH_SSA_TREE_OPERAND (var, stmt, iter, SSA_OP_DEF)
                {
                  add_conflicts_if_valid (tpa, graph, map, live, var);
                }

              FOR_EACH_SSA_TREE_OPERAND (var, stmt, iter, SSA_OP_USE)
                {
                  set_if_valid (map, live, var);
                }
            }
        }

      /* If result of a PHI is unused, then the loops over the statements
         will not record any conflicts.  However, since the PHI node is 
         going to be translated out of SSA form we must record a conflict
         between the result of the PHI and any variables with are live. 
         Otherwise the out-of-ssa translation may create incorrect code.  */
      for (phi = phi_nodes (bb); phi; phi = PHI_CHAIN (phi))
        {
          tree result = PHI_RESULT (phi);
          int p = var_to_partition (map, result);

          if (p != NO_PARTITION && ! bitmap_bit_p (live, p))
            add_conflicts_if_valid (tpa, graph, map, live, result);
        }

      /* Anything which is still live at this point interferes.  
         In order to implement this efficiently, only conflicts between
         partitions which have the same TPA root need be added.
         TPA roots which have been seen are tracked in 'tpa_nodes'.  A nonzero
         entry points to an index into 'partition_link', which then indexes 
         into itself forming a linked list of partitions sharing a tpa root 
         which have been seen as live up to this point.  Since partitions start
         at index zero, all entries in partition_link are (partition + 1).

         Conflicts are added between the current partition and any already seen.
         tpa_clear contains all the tpa_roots processed, and these are the only
         entries which need to be zero'd out for a clean restart.  */

      EXECUTE_IF_SET_IN_BITMAP (live, 0, x, bi)
        {
          i = tpa_find_tree (tpa, x);
          if (i != (unsigned)TPA_NONE)
            {
              int start = tpa_nodes[i];
              /* If start is 0, a new root reference list is being started.
                 Register it to be cleared.  */
              if (!start)
                VEC_safe_push (int, heap, tpa_to_clear, i);

              /* Add interferences to other tpa members seen.  */
              for (y = start; y != 0; y = partition_link[y])
                conflict_graph_add (graph, x, y - 1);
              tpa_nodes[i] = x + 1;
              partition_link[x + 1] = start;
            }
        }

        /* Now clear the used tpa root references.  */
        for (l = 0; VEC_iterate (int, tpa_to_clear, l, idx); l++)
          tpa_nodes[idx] = 0;
        VEC_truncate (int, tpa_to_clear, 0);
    }

  free (tpa_nodes);
  free (partition_link);
  VEC_free (int, heap, tpa_to_clear);
  BITMAP_FREE (live);
  return graph;
}


/* This routine will attempt to coalesce the elements in TPA subject to the
   conflicts found in GRAPH.  If optional coalesce_list CL is provided, 
   only coalesces specified within the coalesce list are attempted.  Otherwise 
   an attempt is made to coalesce as many partitions within each TPA grouping 
   as possible.  If DEBUG is provided, debug output will be sent there.  */

void
coalesce_tpa_members (tpa_p tpa, conflict_graph graph, var_map map, 
                      coalesce_list_p cl, FILE *debug)
{
  int x, y, z, w;
  tree var, tmp;

  /* Attempt to coalesce any items in a coalesce list.  */
  if (cl)
    {
      while (pop_best_coalesce (cl, &x, &y) != NO_BEST_COALESCE)
        {
          if (debug)
            {
              fprintf (debug, "Coalesce list: (%d)", x);
              print_generic_expr (debug, partition_to_var (map, x), TDF_SLIM);
              fprintf (debug, " & (%d)", y);
              print_generic_expr (debug, partition_to_var (map, y), TDF_SLIM);
            }

          w = tpa_find_tree (tpa, x);
          z = tpa_find_tree (tpa, y);
          if (w != z || w == TPA_NONE || z == TPA_NONE)
            {
              if (debug)
                {
                  if (w != z)
                    fprintf (debug, ": Fail, Non-matching TPA's\n");
                  if (w == TPA_NONE)
                    fprintf (debug, ": Fail %d non TPA.\n", x);
                  else
                    fprintf (debug, ": Fail %d non TPA.\n", y);
                }
              continue;
            }
          var = partition_to_var (map, x);
          tmp = partition_to_var (map, y);
          x = var_to_partition (map, var);
          y = var_to_partition (map, tmp);
          if (debug)
            fprintf (debug, " [map: %d, %d] ", x, y);
          if (x == y)
            {
              if (debug)
                fprintf (debug, ": Already Coalesced.\n");
              continue;
            }
          if (!conflict_graph_conflict_p (graph, x, y))
            {
              z = var_union (map, var, tmp);
              if (z == NO_PARTITION)
                {
                  if (debug)
                    fprintf (debug, ": Unable to perform partition union.\n");
                  continue;
                }

              /* z is the new combined partition. We need to remove the other
                 partition from the list. Set x to be that other partition.  */
              if (z == x)
                {
                  conflict_graph_merge_regs (graph, x, y);
                  w = tpa_find_tree (tpa, y);
                  tpa_remove_partition (tpa, w, y);
                }
              else
                {
                  conflict_graph_merge_regs (graph, y, x);
                  w = tpa_find_tree (tpa, x);
                  tpa_remove_partition (tpa, w, x);
                }

              if (debug)
                fprintf (debug, ": Success -> %d\n", z);
            }
          else
            if (debug)
              fprintf (debug, ": Fail due to conflict\n");
        }
      /* If using a coalesce list, don't try to coalesce anything else.  */
      return;
    }

  for (x = 0; x < tpa_num_trees (tpa); x++)
    {
      while (tpa_first_partition (tpa, x) != TPA_NONE)
        {
          int p1, p2;
          /* Coalesce first partition with anything that doesn't conflict.  */
          y = tpa_first_partition (tpa, x);
          tpa_remove_partition (tpa, x, y);

          var = partition_to_var (map, y);
          /* p1 is the partition representative to which y belongs.  */
          p1 = var_to_partition (map, var);
          
          for (z = tpa_next_partition (tpa, y); 
               z != TPA_NONE; 
               z = tpa_next_partition (tpa, z))
            {
              tmp = partition_to_var (map, z);
              /* p2 is the partition representative to which z belongs.  */
              p2 = var_to_partition (map, tmp);
              if (debug)
                {
                  fprintf (debug, "Coalesce : ");
                  print_generic_expr (debug, var, TDF_SLIM);
                  fprintf (debug, " &");
                  print_generic_expr (debug, tmp, TDF_SLIM);
                  fprintf (debug, "  (%d ,%d)", p1, p2);
                }

              /* If partitions are already merged, don't check for conflict.  */
              if (tmp == var)
                {
                  tpa_remove_partition (tpa, x, z);
                  if (debug)
                    fprintf (debug, ": Already coalesced\n");
                }
              else
                if (!conflict_graph_conflict_p (graph, p1, p2))
                  {
                    int v;
                    if (tpa_find_tree (tpa, y) == TPA_NONE 
                        || tpa_find_tree (tpa, z) == TPA_NONE)
                      {
                        if (debug)
                          fprintf (debug, ": Fail non-TPA member\n");
                        continue;
                      }
                    if ((v = var_union (map, var, tmp)) == NO_PARTITION)
                      {
                        if (debug)
                          fprintf (debug, ": Fail cannot combine partitions\n");
                        continue;
                      }

                    tpa_remove_partition (tpa, x, z);
                    if (v == p1)
                      conflict_graph_merge_regs (graph, v, z);
                    else
                      {
                        /* Update the first partition's representative.  */
                        conflict_graph_merge_regs (graph, v, y);
                        p1 = v;
                      }

                    /* The root variable of the partition may be changed
                       now.  */
                    var = partition_to_var (map, p1);

                    if (debug)
                      fprintf (debug, ": Success -> %d\n", v);
                  }
                else
                  if (debug)
                    fprintf (debug, ": Fail, Conflict\n");
            }
        }
    }
}


/* Send debug info for coalesce list CL to file F.  */

void 
dump_coalesce_list (FILE *f, coalesce_list_p cl)
{
  partition_pair_p node;
  partition_pair_iterator ppi;
  int x;
  tree var;

  if (cl->add_mode)
    {
      fprintf (f, "Coalesce List:\n");
      FOR_EACH_PARTITION_PAIR (node, ppi, cl)
        {
          tree var1 = partition_to_var (cl->map, node->first_partition);
          tree var2 = partition_to_var (cl->map, node->second_partition);
          print_generic_expr (f, var1, TDF_SLIM);
          fprintf (f, " <-> ");
          print_generic_expr (f, var2, TDF_SLIM);
          fprintf (f, "  (%1d), ", node->cost);
          fprintf (f, "\n");
        }
    }
  else
    {
      fprintf (f, "Sorted Coalesce list:\n");
      for (x = cl->num_sorted - 1 ; x >=0; x--)
        {
          node = cl->sorted[x];
          fprintf (f, "(%d) ", node->cost);
          var = partition_to_var (cl->map, node->first_partition);
          print_generic_expr (f, var, TDF_SLIM);
          fprintf (f, " <-> ");
          var = partition_to_var (cl->map, node->second_partition);
          print_generic_expr (f, var, TDF_SLIM);
          fprintf (f, "\n");
        }
    }
}


/* Output tree_partition_associator object TPA to file F..  */

void
tpa_dump (FILE *f, tpa_p tpa)
{
  int x, i;

  if (!tpa)
    return;

  for (x = 0; x < tpa_num_trees (tpa); x++)
    {
      print_generic_expr (f, tpa_tree (tpa, x), TDF_SLIM);
      fprintf (f, " : (");
      for (i = tpa_first_partition (tpa, x); 
           i != TPA_NONE;
           i = tpa_next_partition (tpa, i))
        {
          fprintf (f, "(%d)",i);
          print_generic_expr (f, partition_to_var (tpa->map, i), TDF_SLIM);
          fprintf (f, " ");

#ifdef ENABLE_CHECKING
          if (tpa_find_tree (tpa, i) != x)
            fprintf (f, "**find tree incorrectly set** ");
#endif

        }
      fprintf (f, ")\n");
    }
  fflush (f);
}


/* Output partition map MAP to file F.  */

void
dump_var_map (FILE *f, var_map map)
{
  int t;
  unsigned x, y;
  int p;

  fprintf (f, "\nPartition map \n\n");

  for (x = 0; x < map->num_partitions; x++)
    {
      if (map->compact_to_partition != NULL)
        p = map->compact_to_partition[x];
      else
        p = x;

      if (map->partition_to_var[p] == NULL_TREE)
        continue;

      t = 0;
      for (y = 1; y < num_ssa_names; y++)
        {
          p = partition_find (map->var_partition, y);
          if (map->partition_to_compact)
            p = map->partition_to_compact[p];
          if (p == (int)x)
            {
              if (t++ == 0)
                {
                  fprintf(f, "Partition %d (", x);
                  print_generic_expr (f, partition_to_var (map, p), TDF_SLIM);
                  fprintf (f, " - ");
                }
              fprintf (f, "%d ", y);
            }
        }
      if (t != 0)
        fprintf (f, ")\n");
    }
  fprintf (f, "\n");
}


/* Output live range info LIVE to file F, controlled by FLAG.  */

void
dump_live_info (FILE *f, tree_live_info_p live, int flag)
{
  basic_block bb;
  unsigned i;
  var_map map = live->map;
  bitmap_iterator bi;

  if ((flag & LIVEDUMP_ENTRY) && live->livein)
    {
      FOR_EACH_BB (bb)
        {
          fprintf (f, "\nLive on entry to BB%d : ", bb->index);
          EXECUTE_IF_SET_IN_BITMAP (live->livein[bb->index], 0, i, bi)
            {
              print_generic_expr (f, partition_to_var (map, i), TDF_SLIM);
              fprintf (f, "  ");
            }
          fprintf (f, "\n");
        }
    }

  if ((flag & LIVEDUMP_EXIT) && live->liveout)
    {
      FOR_EACH_BB (bb)
        {
          fprintf (f, "\nLive on exit from BB%d : ", bb->index);
          EXECUTE_IF_SET_IN_BITMAP (live->liveout[bb->index], 0, i, bi)
            {
              print_generic_expr (f, partition_to_var (map, i), TDF_SLIM);
              fprintf (f, "  ");
            }
          fprintf (f, "\n");
        }
    }
}

#ifdef ENABLE_CHECKING
void
register_ssa_partition_check (tree ssa_var)
{
  gcc_assert (TREE_CODE (ssa_var) == SSA_NAME);
  if (!is_gimple_reg (SSA_NAME_VAR (ssa_var)))
    {
      fprintf (stderr, "Illegally registering a virtual SSA name :");
      print_generic_expr (stderr, ssa_var, TDF_SLIM);
      fprintf (stderr, " in the SSA->Normal phase.\n");
      internal_error ("SSA corruption");
    }
}


/* Verify that the info in LIVE matches the current cfg.  */
static void
verify_live_on_entry (tree_live_info_p live)
{
  unsigned i;
  tree var;
  tree phi, stmt;
  basic_block bb;
  edge e;
  int num;
  edge_iterator ei;
  var_map map = live->map;

   /* Check for live on entry partitions and report those with a DEF in
      the program. This will typically mean an optimization has done
      something wrong.  */

  bb = ENTRY_BLOCK_PTR;
  num = 0;
  FOR_EACH_EDGE (e, ei, bb->succs)
    {
      int entry_block = e->dest->index;
      if (e->dest == EXIT_BLOCK_PTR)
        continue;
      for (i = 0; i < (unsigned)num_var_partitions (map); i++)
        {
          basic_block tmp;
          tree d;
          bitmap loe;
          var = partition_to_var (map, i);
          stmt = SSA_NAME_DEF_STMT (var);
          tmp = bb_for_stmt (stmt);
          d = gimple_default_def (cfun, SSA_NAME_VAR (var));

          loe = live_on_entry (live, e->dest);
          if (loe && bitmap_bit_p (loe, i))
            {
              if (!IS_EMPTY_STMT (stmt))
                {
                  num++;
                  print_generic_expr (stderr, var, TDF_SLIM);
                  fprintf (stderr, " is defined ");
                  if (tmp)
                    fprintf (stderr, " in BB%d, ", tmp->index);
                  fprintf (stderr, "by:\n");
                  print_generic_expr (stderr, stmt, TDF_SLIM);
                  fprintf (stderr, "\nIt is also live-on-entry to entry BB %d", 
                           entry_block);
                  fprintf (stderr, " So it appears to have multiple defs.\n");
                }
              else
                {
                  if (d != var)
                    {
                      num++;
                      print_generic_expr (stderr, var, TDF_SLIM);
                      fprintf (stderr, " is live-on-entry to BB%d ",entry_block);
                      if (d)
                        {
                          fprintf (stderr, " but is not the default def of ");
                          print_generic_expr (stderr, d, TDF_SLIM);
                          fprintf (stderr, "\n");
                        }
                      else
                        fprintf (stderr, " and there is no default def.\n");
                    }
                }
            }
          else
            if (d == var)
              {
                /* The only way this var shouldn't be marked live on entry is 
                   if it occurs in a PHI argument of the block.  */
                int z, ok = 0;
                for (phi = phi_nodes (e->dest); 
                     phi && !ok; 
                     phi = PHI_CHAIN (phi))
                  {
                    for (z = 0; z < PHI_NUM_ARGS (phi); z++)
                      if (var == PHI_ARG_DEF (phi, z))
                        {
                          ok = 1;
                          break;
                        }
                  }
                if (ok)
                  continue;
                num++;
                print_generic_expr (stderr, var, TDF_SLIM);
                fprintf (stderr, " is not marked live-on-entry to entry BB%d ", 
                         entry_block);
                fprintf (stderr, "but it is a default def so it should be.\n");
              }
        }
    }
  gcc_assert (num <= 0);
}
#endif