From: Christian Würdig <chriswue@ipd.info.uni-karlsruhe.de>
Date: Mon, 10 Apr 2006 15:23:34 +0000 (+0000)
Subject: added permutation lowering statistics
X-Git-Url: http://nsz.repo.hu/git/?a=commitdiff_plain;h=962297fd814612b8086cdd7205db98272e288b89;p=libfirm

added permutation lowering statistics
---

diff --git a/ir/be/belower.c b/ir/be/belower.c
index 061df35a3..be27b68c9 100644
--- a/ir/be/belower.c
+++ b/ir/be/belower.c
@@ -14,7 +14,9 @@
 #include <stdlib.h>
 
 #include "ircons.h"
+#include "ident.h"
 #include "debug.h"
+#include "irhooks.h"
 
 #include "bearch.h"
 #include "belower.h"
@@ -261,15 +263,18 @@ static perm_cycle_t *get_perm_cycle(perm_cycle_t *cycle, reg_pair_t *pairs, int
 static void lower_perm_node(ir_node *irn, void *walk_env) {
 	const arch_register_class_t *reg_class;
 	const arch_env_t            *arch_env;
-	lower_env_t     *env   = walk_env;
-	perm_stat_t    **pstat = env->pstat;
+	lower_env_t     *env         = walk_env;
+	perm_stat_t    **pstat       = env->pstat;
+	int              pstat_idx   = -1;
+	int              real_size   = 0;
+	int              n, i, pn, do_copy, j, n_ops;
 	reg_pair_t      *pairs;
 	const ir_edge_t *edge;
 	perm_cycle_t    *cycle;
-	int              n, i, pn, do_copy, j, pstat_idx = -1;
 	ir_node         *sched_point, *block, *in[2];
 	ir_node         *arg1, *arg2, *res1, *res2;
 	ir_node         *cpyxchg = NULL;
+	ident           *cls_id;
 	DEBUG_ONLY(firm_dbg_module_t *mod;)
 
 	arch_env = env->chord_env->birg->main_env->arch_env;
@@ -291,6 +296,7 @@ static void lower_perm_node(ir_node *irn, void *walk_env) {
 	assert(n == get_irn_n_edges(irn) && "perm's in and out numbers different");
 
 	reg_class = arch_get_irn_register(arch_env, get_irn_n(irn, 0))->reg_class;
+	cls_id    = new_id_from_str(reg_class->name);
 	pairs     = alloca(n * sizeof(pairs[0]));
 
 	if (env->do_stat) {
@@ -356,8 +362,11 @@ static void lower_perm_node(ir_node *irn, void *walk_env) {
 	if (env->do_stat && get_n_checked_pairs(pairs, n) < n) {
 		pstat[pstat_idx]->num_real_perms++;
 		pstat[pstat_idx]->real_perm_size_ar[n - 1]++;
+		real_size = n - get_n_checked_pairs(pairs, n);
 	}
 
+	hook_be_block_stat_perm(cls_id, reg_class->n_regs, irn, block, n, real_size);
+
 	/* check for cycles and chains */
 	while (get_n_checked_pairs(pairs, n) < n) {
 		i = 0;
@@ -405,6 +414,7 @@ static void lower_perm_node(ir_node *irn, void *walk_env) {
 			res1 = get_node_for_register(pairs, n, cycle->elems[i], 1);
 			res2 = get_node_for_register(pairs, n, cycle->elems[i + 1], 1);
 
+			n_ops = 0;
 			/*
 				If we have a cycle and don't copy: we need to create exchange nodes
 				NOTE: An exchange node is a perm node with 2 INs and 2 OUTs
@@ -450,6 +460,7 @@ static void lower_perm_node(ir_node *irn, void *walk_env) {
 					irn, res1, cycle->elems[i]->name, res2, cycle->elems[i + 1]->name));
 
 				cpyxchg = be_new_Perm(reg_class, env->chord_env->irg, block, 2, in);
+				n_ops++;
 
 				if (i > 0) {
 					/* cycle is not done yet */
@@ -492,6 +503,7 @@ static void lower_perm_node(ir_node *irn, void *walk_env) {
 
 				cpyxchg = be_new_Copy(reg_class, env->chord_env->irg, block, arg1);
 				arch_set_irn_register(arch_env, cpyxchg, cycle->elems[i + 1]);
+				n_ops++;
 
 				/* remove the proj from the schedule */
 				sched_remove(res2);
@@ -505,12 +517,18 @@ static void lower_perm_node(ir_node *irn, void *walk_env) {
 				/* set the new scheduling point */
 				sched_point = cpyxchg;
 			}
+
+			if (env->do_stat) {
+				hook_be_block_stat_permcycle(cls_id, irn, block, cycle->type == PERM_CHAIN, cycle->n_elems, n_ops);
+			}
 		}
 
 		free((void *) cycle->elems);
 		free(cycle);
 	}
 
+
+
 	/* remove the perm from schedule */
 	sched_remove(irn);
 }