/*
- * 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.
+ * Copyright (C) 2012 University of Karlsruhe.
*/
/**
* @file
* @brief Statistics for Firm. Distribution tables.
* @author Michael Beck
- * @version $Id$
*/
-#ifdef HAVE_CONFIG_H
-# include "config.h"
-#endif
+#include "config.h"
#include "hashptr.h"
-#include "irtools.h"
+#include "util.h"
#include "xmalloc.h"
#include "firmstat_t.h"
/**
* 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) {
+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 = (const distrib_entry_t*)elt;
+ const distrib_entry_t *p2 = (const distrib_entry_t*)key;
- return (char *)p1->object - (char *)p2->object;
+ if (p1->object == p2->object)
+ return 0;
+ return p1->object < p2->object ? -1 : 1;
}
/*
* 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;
-
- res = xmalloc(sizeof(*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);
obstack_init(&res->cnts);
/*
* create a new distribution table for an integer distribution
*/
-distrib_tbl_t *stat_new_int_distrib_tbl(void) {
+distrib_tbl_t *stat_new_int_distrib_tbl(void)
+{
distrib_tbl_t *res = stat_new_distrib_tbl(int_cmp_fun, int_hash);
if (res)
/*
* destroy a distribution table
*/
-void stat_delete_distrib_tbl(distrib_tbl_t *tbl) {
+void stat_delete_distrib_tbl(distrib_tbl_t *tbl)
+{
if (tbl) {
/* free all entries */
obstack_free(&tbl->cnts, NULL);
/**
* Returns the associates distrib_entry_t for an object
*/
-static distrib_entry_t *distrib_get_entry(distrib_tbl_t *tbl, const void *object) {
+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;
- elem = pset_find(tbl->hash_map, &key, tbl->hash_func(object));
+ elem = (distrib_entry_t*)pset_find(tbl->hash_map, &key, tbl->hash_func(object));
if (elem)
return elem;
- elem = obstack_alloc(&tbl->cnts, sizeof(*elem));
+ elem = OALLOC(&tbl->cnts, distrib_entry_t);
/* clear counter */
cnt_clr(&elem->cnt);
elem->object = object;
- return pset_insert(tbl->hash_map, elem, tbl->hash_func(object));
+ return (distrib_entry_t*)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) {
+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);
/*
* 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) {
+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);
/*
* 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) {
+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 stat_get_count_distrib_tbl(distrib_tbl_t *tbl)
+{
counter_t cnt = ZERO_CNT;
- foreach_pset(tbl->hash_map, entry)
+ foreach_pset(tbl->hash_map, distrib_entry_t, 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 stat_calc_mean_distrib_tbl(distrib_tbl_t *tbl)
+{
+ size_t count;
double sum;
if (tbl->int_dist) {
/* integer distribution, need min, max */
- int min, max;
-
- entry = pset_first(tbl->hash_map);
-
- if (! entry)
+ if (pset_count(tbl->hash_map) == 0)
return 0.0;
- min =
- max = (int)entry->object;
- sum = cnt_to_dbl(&entry->cnt);
-
+ int min = INT_MAX;
+ int max = INT_MIN;
+ sum = 0.0;
- for (entry = pset_next(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
- int value = (int)entry->object;
+ foreach_pset(tbl->hash_map, distrib_entry_t, entry) {
+ int value = PTR_TO_INT(entry->object);
if (value < min)
min = value;
} else {
sum = 0.0;
count = 0;
- foreach_pset(tbl->hash_map, entry) {
+ foreach_pset(tbl->hash_map, distrib_entry_t, entry) {
sum += cnt_to_dbl(&entry->cnt);
++count;
}
/*
* 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;
+double stat_calc_avg_distrib_tbl(distrib_tbl_t *tbl)
+{
+ size_t 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) * (int)entry->object;
+ foreach_pset(tbl->hash_map, distrib_entry_t, 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) {
+ foreach_pset(tbl->hash_map, distrib_entry_t, entry) {
sum += cnt_to_dbl(&entry->cnt);
++count;
}
/**
* iterates over all entries in a distribution table
*/
-void stat_iterate_distrib_tbl(const distrib_tbl_t *tbl, eval_distrib_entry_fun eval, void *env) {
- distrib_entry_t *entry;
-
- foreach_pset(tbl->hash_map, entry)
+void stat_iterate_distrib_tbl(const distrib_tbl_t *tbl, eval_distrib_entry_fun eval, void *env)
+{
+ foreach_pset(tbl->hash_map, distrib_entry_t, entry)
eval(entry, env);
}
projects / libfirm / blobdiff