3 * File name: ir/ir/distrib.c
4 * Purpose: Statistics for Firm. Distribution tables.
8 * Copyright: (c) 2004 Universität Karlsruhe
9 * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE.
15 #include "firmstat_t.h"
18 * calculates a hash value for an address
19 * Addresses are typically aligned at 32bit, so we ignore the lowest bits
21 static unsigned addr_hash(const void *object)
23 return (unsigned)object >> 3;
27 * calculates a hash value for an integer
29 static unsigned int_hash(const void *object)
31 return (unsigned)object;
35 * compare function for integer distribution tables
37 static int int_cmp_fun(const void *elt, const void *key)
46 * create a new distribution table
48 distrib_tbl_t *stat_new_distrib_tbl(pset_cmp_fun cmp_func, distrib_hash_fun hash_func)
52 res = malloc(sizeof(*res));
57 obstack_init(&res->cnts);
59 /* create the hash-table */
60 res->hash_map = new_pset(cmp_func, 8);
61 res->hash_func = hash_func ? hash_func : addr_hash;
68 * create a new distribution table for an integer distribution
70 distrib_tbl_t *stat_new_int_distrib_tbl(void)
72 distrib_tbl_t *res = stat_new_distrib_tbl(int_cmp_fun, int_hash);
81 * destroy a distribution table
83 void stat_delete_distrib_tbl(distrib_tbl_t *tbl)
86 /* free all entries */
87 obstack_free(&tbl->cnts, NULL);
89 /* delete the hash table */
90 del_pset(tbl->hash_map);
95 * Returns the associates distrib_entry_t for an object
97 static distrib_entry_t *distrib_get_entry(distrib_tbl_t *tbl, const void *object)
100 distrib_entry_t *elem;
104 elem = pset_find(tbl->hash_map, &key, tbl->hash_func(object));
108 elem = obstack_alloc(&tbl->cnts, sizeof(*elem));
113 elem->object = object;
115 return pset_insert(tbl->hash_map, elem, tbl->hash_func(object));
119 * adds a new object count into the distribution table
121 void stat_add_distrib_tbl(distrib_tbl_t *tbl, const void *object, const counter_t *cnt)
123 distrib_entry_t *elem = distrib_get_entry(tbl, object);
125 cnt_add(&elem->cnt, cnt);
129 * adds a new key count into the integer distribution table
131 void stat_add_int_distrib_tbl(distrib_tbl_t *tbl, int key, const counter_t *cnt)
133 stat_add_distrib_tbl(tbl, (const void *)key, cnt);
137 * calculates the mean value of a distribution
139 double stat_calc_mean_distrib_tbl(distrib_tbl_t *tbl)
141 distrib_entry_t *entry;
146 /* integer distribution, need min, max */
149 entry = pset_first(tbl->hash_map);
155 max = (int)entry->object;
156 sum = cnt_to_dbl(&entry->cnt);
159 for (entry = pset_next(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
160 int value = (int)entry->object;
167 sum += cnt_to_dbl(&entry->cnt);
169 count = max - min + 1;
174 for (entry = pset_first(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {
175 sum += cnt_to_dbl(&entry->cnt);
180 return count ? sum / (double)count : 0.0;
184 * iterates over all entries in a distribution table
186 void stat_iterate_distrib_tbl(distrib_tbl_t *tbl, eval_distrib_entry_fun eval)
188 distrib_entry_t *entry;
190 for (entry = pset_first(tbl->hash_map); entry; entry = pset_next(tbl->hash_map)) {