X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fstat%2Fdistrib.c;h=ea9bd253d15a376135a10d06e66ad4bbc0c7a486;hb=69c991e03a0eb1b284e6d0c41623d340a8e26d16;hp=452ae10526431aabd67566476c61d8e2ac17504c;hpb=a53a992f1fe0c26ce089c66d7310d1a2a5566d49;p=libfirm

diff --git a/ir/stat/distrib.c b/ir/stat/distrib.c
index 452ae1052..ea9bd253d 100644
--- a/ir/stat/distrib.c
+++ b/ir/stat/distrib.c
@@ -1,281 +1,261 @@
 /*
- * Project:     libFIRM
- * File name:   ir/ir/distrib.c
- * Purpose:     Statistics for Firm. Distribution tables.
- * Author:      Michael Beck
- * Created:
- * CVS-ID:      $Id$
- * Copyright:   (c) 2004 Universität Karlsruhe
- * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+ * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
+ *
+ * This file is part of libFirm.
+ *
+ * This file may be distributed and/or modified under the terms of the
+ * GNU General Public License version 2 as published by the Free Software
+ * Foundation and appearing in the file LICENSE.GPL included in the
+ * packaging of this file.
+ *
+ * Licensees holding valid libFirm Professional Edition licenses may use
+ * this file in accordance with the libFirm Commercial License.
+ * Agreement provided with the Software.
+ *
+ * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+ * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE.
  */
-#ifdef HAVE_CONFIG_H
-# include "config.h"
-#endif
+
+/**
+ * @file
+ * @brief   Statistics for Firm. Distribution tables.
+ * @author  Michael Beck
+ * @version $Id$
+ */
+#include "config.h"
 
 #include "hashptr.h"
 #include "irtools.h"
 #include "xmalloc.h"
 #include "firmstat_t.h"
 
-static const counter_t _cnt_0 = { { 0 } };
-
 /**
  * calculates a hash value for an address
  */
-static unsigned addr_hash(const void *object)
-{
-  return HASH_PTR(object);
+static unsigned addr_hash(const void *object) {
+	return HASH_PTR(object);
 }
 
 /**
  * calculates a hash value for an integer
  */
-static unsigned int_hash(const void *object)
-{
-  return (unsigned)PTR_TO_INT(object);
+static unsigned int_hash(const void *object) {
+	return (unsigned)PTR_TO_INT(object);
 }
 
 /**
  * compare function for integer distribution tables
  */
-static int int_cmp_fun(const void *elt, const void *key)
-{
-  const distrib_entry_t *p1 = elt;
-  const distrib_entry_t *p2 = key;
+static int int_cmp_fun(const void *elt, const void *key) {
+	const distrib_entry_t *p1 = elt;
+	const distrib_entry_t *p2 = key;
 
-  return (int)(p1->object) - (int)(p2->object);
+	return (char *)p1->object - (char *)p2->object;
 }
 
 /*
  * create a new distribution table
  */
-distrib_tbl_t *stat_new_distrib_tbl(pset_cmp_fun cmp_func, distrib_hash_fun hash_func)
-{
-  distrib_tbl_t *res;
+distrib_tbl_t *stat_new_distrib_tbl(pset_cmp_fun cmp_func, distrib_hash_fun hash_func) {
+	distrib_tbl_t *res = XMALLOC(distrib_tbl_t);
 
-  res = xmalloc(sizeof(*res));
+	obstack_init(&res->cnts);
 
-  obstack_init(&res->cnts);
+	/* create the hash-table */
+	res->hash_map  = new_pset(cmp_func, 8);
+	res->hash_func = hash_func ? hash_func : addr_hash;
+	res->int_dist  = 0;
 
-  /* create the hash-table */
-  res->hash_map  = new_pset(cmp_func, 8);
-  res->hash_func = hash_func ? hash_func : addr_hash;
-  res->int_dist  = 0;
-
-  return res;
+	return res;
 }
 
 /*
  * create a new distribution table for an integer distribution
  */
-distrib_tbl_t *stat_new_int_distrib_tbl(void)
-{
-  distrib_tbl_t *res = stat_new_distrib_tbl(int_cmp_fun, int_hash);
+distrib_tbl_t *stat_new_int_distrib_tbl(void) {
+	distrib_tbl_t *res = stat_new_distrib_tbl(int_cmp_fun, int_hash);
 
-  if (res)
-    res->int_dist = 1;
+	if (res)
+		res->int_dist = 1;
 
-  return res;
+	return res;
 }
 
 /*
  * destroy a distribution table
  */
-void stat_delete_distrib_tbl(distrib_tbl_t *tbl)
-{
-  if (tbl) {
-    /* free all entries */
-    obstack_free(&tbl->cnts, NULL);
-
-    /* delete the hash table */
-    del_pset(tbl->hash_map);
-  }
+void stat_delete_distrib_tbl(distrib_tbl_t *tbl) {
+	if (tbl) {
+		/* free all entries */
+		obstack_free(&tbl->cnts, NULL);
+
+		/* delete the hash table */
+		del_pset(tbl->hash_map);
+	}
 }
 
 /**
  * Returns the associates distrib_entry_t for an object
  */
-static distrib_entry_t *distrib_get_entry(distrib_tbl_t *tbl, const void *object)
-{
-  distrib_entry_t key;
-  distrib_entry_t *elem;
+static distrib_entry_t *distrib_get_entry(distrib_tbl_t *tbl, const void *object) {
+	distrib_entry_t key;
+	distrib_entry_t *elem;
 
-  key.object = object;
+	key.object = object;
 
-  elem = pset_find(tbl->hash_map, &key, tbl->hash_func(object));
-  if (elem)
-    return elem;
+	elem = pset_find(tbl->hash_map, &key, tbl->hash_func(object));
+	if (elem)
+		return elem;
 
-  elem = obstack_alloc(&tbl->cnts, sizeof(*elem));
+	elem = obstack_alloc(&tbl->cnts, sizeof(*elem));
 
-  /* clear counter */
-  cnt_clr(&elem->cnt);
+	/* clear counter */
+	cnt_clr(&elem->cnt);
 
-  elem->object = object;
+	elem->object = object;
 
-  return pset_insert(tbl->hash_map, elem, tbl->hash_func(object));
+	return pset_insert(tbl->hash_map, elem, tbl->hash_func(object));
 }
 
 /*
  * adds a new object count into the distribution table
  */
-void stat_add_distrib_tbl(distrib_tbl_t *tbl, const void *object, const counter_t *cnt)
-{
-  distrib_entry_t *elem = distrib_get_entry(tbl, object);
+void stat_add_distrib_tbl(distrib_tbl_t *tbl, const void *object, const counter_t *cnt) {
+	distrib_entry_t *elem = distrib_get_entry(tbl, object);
 
-  cnt_add(&elem->cnt, cnt);
+	cnt_add(&elem->cnt, cnt);
 }
 
 /*
  * adds a new key count into the integer distribution table
  */
-void stat_add_int_distrib_tbl(distrib_tbl_t *tbl, int key, const counter_t *cnt)
-{
-  stat_add_distrib_tbl(tbl, (const void *)key, cnt);
+void stat_add_int_distrib_tbl(distrib_tbl_t *tbl, int key, const counter_t *cnt) {
+	stat_add_distrib_tbl(tbl, INT_TO_PTR(key), cnt);
 }
 
 /*
  * increases object count by one
  */
-void stat_inc_distrib_tbl(distrib_tbl_t *tbl, const void *object)
-{
-  distrib_entry_t *elem = distrib_get_entry(tbl, object);
+void stat_inc_distrib_tbl(distrib_tbl_t *tbl, const void *object) {
+	distrib_entry_t *elem = distrib_get_entry(tbl, object);
 
-  cnt_inc(&elem->cnt);
+	cnt_inc(&elem->cnt);
 }
 
 /*
  * increases key count by one
  */
-void stat_inc_int_distrib_tbl(distrib_tbl_t *tbl, int key)
-{
-  stat_inc_distrib_tbl(tbl, (const void *)key);
+void stat_inc_int_distrib_tbl(distrib_tbl_t *tbl, int key) {
+	stat_inc_distrib_tbl(tbl, INT_TO_PTR(key));
 }
 
-
 /*
  * inserts a new object with count 0 into the distribution table
  * if object is already present, nothing happens
  */
-void stat_insert_distrib_tbl(distrib_tbl_t *tbl, const void *object)
-{
-  distrib_entry_t *elem = distrib_get_entry(tbl, object);
-
-  cnt_add(&elem->cnt, &_cnt_0);
+void stat_insert_distrib_tbl(distrib_tbl_t *tbl, const void *object) {
+	/* executed for side effect */
+	(void)distrib_get_entry(tbl, object);
 }
 
 /*
  * inserts a new key with count 0 into the integer distribution table
  * if key is already present, nothing happens
  */
-void stat_insert_int_distrib_tbl(distrib_tbl_t *tbl, int key)
-{
-  stat_insert_distrib_tbl(tbl, (const void *)key);
+void stat_insert_int_distrib_tbl(distrib_tbl_t *tbl, int key) {
+	stat_insert_distrib_tbl(tbl, INT_TO_PTR(key));
 }
 
 /*
  * returns the sum over all counters in a distribution table
  */
-int stat_get_count_distrib_tbl(distrib_tbl_t *tbl)
-{
-  distrib_entry_t *entry;
-  int sum = 0;
-
-  for (entry = pset_first(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
-    sum += cnt_to_int(&entry->cnt);
-  }
+int stat_get_count_distrib_tbl(distrib_tbl_t *tbl) {
+	distrib_entry_t *entry;
+	counter_t cnt = ZERO_CNT;
 
-  return sum;
+	foreach_pset(tbl->hash_map, entry)
+		cnt_add(&cnt, &entry->cnt);
+	return cnt_to_uint(&cnt);
 }
 
 /*
  * calculates the mean value of a distribution
  */
-double stat_calc_mean_distrib_tbl(distrib_tbl_t *tbl)
-{
-  distrib_entry_t *entry;
-  unsigned count;
-  double sum;
-
-  if (tbl->int_dist) {
-    /* integer distribution, need min, max */
-    int min, max;
-
-    entry = pset_first(tbl->hash_map);
-
-    if (! entry)
-      return 0.0;
-
-    min =
-    max = (int)entry->object;
-    sum = cnt_to_dbl(&entry->cnt);
-
-
-    for (entry = pset_next(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
-      int value = (int)entry->object;
-
-      if (value < min)
-        min = value;
-      if (value > max);
-        max = value;
-
-      sum += cnt_to_dbl(&entry->cnt);
-    }
-    count = max - min + 1;
-  }
-  else {
-    sum = 0.0;
-    count = 0;
-    for (entry = pset_first(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
-      sum += cnt_to_dbl(&entry->cnt);
-      ++count;
-    }
-  }
-
-  return count ? sum / (double)count : 0.0;
+double stat_calc_mean_distrib_tbl(distrib_tbl_t *tbl) {
+	distrib_entry_t *entry;
+	unsigned count;
+	double sum;
+
+	if (tbl->int_dist) {
+		/* integer distribution, need min, max */
+		int min, max;
+
+		entry = pset_first(tbl->hash_map);
+
+		if (! entry)
+			return 0.0;
+
+		min =
+		max = PTR_TO_INT(entry->object);
+		sum = cnt_to_dbl(&entry->cnt);
+
+
+		for (entry = pset_next(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
+			int value = PTR_TO_INT(entry->object);
+
+			if (value < min)
+				min = value;
+			if (value > max)
+				max = value;
+
+			sum += cnt_to_dbl(&entry->cnt);
+		}
+		count = max - min + 1;
+	} else {
+		sum = 0.0;
+		count = 0;
+		foreach_pset(tbl->hash_map, entry) {
+			sum += cnt_to_dbl(&entry->cnt);
+			++count;
+		}
+	}
+
+	return count ? sum / (double)count : 0.0;
 }
 
 /*
  * calculates the average value of a distribution
  */
-double stat_calc_avg_distrib_tbl(distrib_tbl_t *tbl)
-{
-  distrib_entry_t *entry;
-  unsigned         count = 0;
-  double           sum   = 0.0;
-
-  if (tbl->int_dist) {
-    entry = pset_first(tbl->hash_map);
-
-    if (! entry)
-      return 0.0;
-
-    sum   = cnt_to_dbl(&entry->cnt);
-	count = cnt_to_int(&entry->cnt);
-
-    for (entry = pset_next(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
-      sum   += cnt_to_dbl(&entry->cnt) * (int)entry->object;
-      count += cnt_to_int(&entry->cnt);
-    }
-  }
-  else {
-    for (entry = pset_first(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
-      sum += cnt_to_dbl(&entry->cnt);
-      ++count;
-    }
-  }
-
-  return count ? sum / (double)count : 0.0;
+double stat_calc_avg_distrib_tbl(distrib_tbl_t *tbl) {
+	distrib_entry_t *entry;
+	unsigned        count = 0;
+	double          sum   = 0.0;
+
+	if (tbl->int_dist) {
+		if (pset_count(tbl->hash_map) <= 0)
+			return 0.0;
+
+		foreach_pset(tbl->hash_map, entry) {
+			sum   += cnt_to_dbl(&entry->cnt) * PTR_TO_INT(entry->object);
+			count += cnt_to_uint(&entry->cnt);
+		}
+	} else {
+		foreach_pset(tbl->hash_map, entry) {
+			sum += cnt_to_dbl(&entry->cnt);
+			++count;
+		}
+	}
+
+	return count ? sum / (double)count : 0.0;
 }
 
 /**
  * iterates over all entries in a distribution table
  */
-void stat_iterate_distrib_tbl(distrib_tbl_t *tbl, eval_distrib_entry_fun eval, void *env)
-{
-  distrib_entry_t *entry;
+void stat_iterate_distrib_tbl(const distrib_tbl_t *tbl, eval_distrib_entry_fun eval, void *env) {
+	distrib_entry_t *entry;
 
-  for (entry = pset_first(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
-    eval(entry, env);
-  }
+	foreach_pset(tbl->hash_map, entry)
+		eval(entry, env);
 }