nsz Git - libfirm/blob - ir/be/bestat.c

   1 #include "irnode_t.h"
   2 #include "irprintf.h"
   3 #include "irgwalk.h"
   4 #include "irhooks.h"
   5 #include "dbginfo_t.h"
   6 #include "firmstat.h"
   7 #include "ident.h"
   8
   9 #include "bestat.h"
  10 #include "belive_t.h"
  11 #include "besched.h"
  12
  13 /**
  14  * Compare two live entries.
  15  */
  16 static int cmp_irn_live(const void *a, const void *b)
  17 {
  18   const irn_live_t *p = a;
  19   const irn_live_t *q = b;
  20
  21   return !(p->block == q->block && p->irn == q->irn);
  22 }
  23
  24 /**
  25  * Collect reg pressure statistics per block and per class.
  26  */
  27 static void stat_reg_pressure_block(ir_node *block, void *env) {
  28         be_irg_t         *birg = env;
  29         const arch_env_t *aenv = birg->main_env->arch_env;
  30         int i, n = arch_isa_get_n_reg_class(aenv->isa);
  31
  32         for (i = 0; i < n; i++) {
  33                 const arch_register_class_t *cls = arch_isa_get_reg_class(aenv->isa, i);
  34                 ir_node  *irn;
  35                 pset     *live_nodes = new_pset(cmp_irn_live, 64);
  36                 int       max_live;
  37
  38                 live_nodes = be_liveness_end_of_block(aenv, cls, block, live_nodes);
  39                 max_live   = pset_count(live_nodes);
  40
  41                 sched_foreach_reverse(block, irn) {
  42                         int cnt;
  43
  44                         live_nodes = be_liveness_transfer(aenv, cls, irn, live_nodes);
  45                         cnt        = pset_count(live_nodes);
  46
  47                         max_live = cnt < max_live ? max_live : cnt;
  48                 }
  49
  50                 hook_be_block_regpressure(block, birg->irg, max_live, new_id_from_str(cls->name));
  51         }
  52 }
  53
  54 void be_do_stat_reg_pressure(be_irg_t *birg) {
  55         /* Collect register pressure information for each block */
  56         irg_block_walk_graph(birg->irg, stat_reg_pressure_block, NULL, birg);
  57 }