#include <malloc.h>
#endif
+#ifdef __linux__
+#include <malloc.h>
+#endif /* __linux__ */
+
#ifdef HAVE_ALLOCA_H
#include <alloca.h>
#endif
#include "irnode_t.h"
#include "irprintf.h"
#include "irtools.h"
+#include "irbitset.h"
#include "beifg_t.h"
#include "beifg_impl.h"
#include "irphase.h"
/** Defines values for the ifg performance test */
#define BE_CH_PERFORMANCETEST_MIN_NODES (50)
-#define BE_CH_PERFORMANCETEST_COUNT (10)
+#define BE_CH_PERFORMANCETEST_COUNT (500)
typedef struct _coloring_t coloring_t;
ir_node *n, *m;
const int node_count = be_ifg_check_get_node_count(ifg);
- int neighbours_count = 0;
int i = 0;
ir_node **all_nodes = xmalloc(node_count * sizeof(all_nodes[0]));
{
if(!node_is_in_irgs_storage(ifg->env->irg, n))
{
- printf ("+%F is in ifg but not in the current irg!",n);
+ ir_printf("+%F is in ifg but not in the current irg!", n);
assert (node_is_in_irgs_storage(ifg->env->irg, n));
}
}
+void be_ifg_check_sorted_to_file(const be_ifg_t *ifg, FILE *f)
+{
+ void *iter1 = be_ifg_nodes_iter_alloca(ifg);
+ void *iter2 = be_ifg_neighbours_iter_alloca(ifg);
+
+ ir_node *n, *m;
+ const int node_count = be_ifg_check_get_node_count(ifg);
+ int i = 0;
+
+ ir_node **all_nodes = xmalloc(node_count * sizeof(all_nodes[0]));
+
+ be_ifg_foreach_node(ifg, iter1, n)
+ {
+ if(!node_is_in_irgs_storage(ifg->env->irg, n))
+ {
+ ir_fprintf (f,"+%F is in ifg but not in the current irg!",n);
+ assert (node_is_in_irgs_storage(ifg->env->irg, n));
+ }
+
+ all_nodes[i] = n;
+ i++;
+ }
+
+ qsort(all_nodes, node_count, sizeof(all_nodes[0]), be_ifg_check_cmp_nodes);
+
+ for (i = 0; i < node_count; i++)
+ {
+ ir_node **neighbours = xmalloc(node_count * sizeof(neighbours[0]));
+ int j = 0;
+ int k = 0;
+ int degree = 0;
+
+ degree = be_ifg_degree(ifg, all_nodes[i]);
+
+ be_ifg_foreach_neighbour(ifg, iter2, all_nodes[i], m)
+ {
+ neighbours[j] = m;
+ j++;
+ }
+
+ qsort(neighbours, j, sizeof(neighbours[0]), be_ifg_check_cmp_nodes);
+
+ ir_fprintf (f,"%d. %+F's neighbours(%d): ", i+1, all_nodes[i], degree);
+
+ for(k = 0; k < j; k++)
+ {
+ ir_fprintf (f,"%+F, ", neighbours[k]);
+ }
+
+ ir_fprintf (f,"\n");
+
+ free(neighbours);
+ }
+
+ free(all_nodes);
+
+}
+
void be_ifg_check_performance(be_chordal_env_t *chordal_env)
{
+#ifdef WITH_LIBCORE
int tests = BE_CH_PERFORMANCETEST_COUNT;
coloring_t coloring;
-#ifdef __linux__
- struct mallinfo minfo;
- int used_memory = 0;
-#endif /* __linux__ */
+ int used_memory;
int i = 0;
int rt;
lc_timer_t *timer = lc_timer_register("getTime","get Time of copy minimization using the ifg");
unsigned long elapsed_usec = 0;
- if ((int) get_irg_estimated_node_cnt >= BE_CH_PERFORMANCETEST_MIN_NODES)
+ if (get_irg_estimated_node_cnt(chordal_env->irg) >= BE_CH_PERFORMANCETEST_MIN_NODES)
{
-
coloring_init(&coloring, chordal_env->irg, chordal_env->birg->main_env->arch_env);
coloring_save(&coloring);
for (i = 0; i<tests; i++) /* performance test with std */
{
-#ifdef __linux__
- minfo = mallinfo();
- used_memory = minfo.uordblks;
-#endif /* __linux__ */
+
+ used_memory = lc_get_heap_used_bytes();
rt = lc_timer_enter_high_priority();
lc_timer_start(timer);
lc_timer_stop(timer);
rt = lc_timer_leave_high_priority();
-#ifdef __linux__
- minfo = mallinfo();
- used_memory = minfo.uordblks - used_memory;
-#endif /* __linux__ */
+ used_memory = lc_get_heap_used_bytes() - used_memory;
coloring_restore(&coloring);
/* calculating average */
elapsed_usec = elapsed_usec / tests;
- ir_printf("\nstd:; %+F; ",current_ir_graph);
-#ifdef __linux__
- ir_printf("%u; ", used_memory);
-#endif /* __linux__ */
- ir_printf("%u; ", elapsed_usec);
+ ir_printf("\nstd:; %+F; %u; %u ",current_ir_graph, used_memory, elapsed_usec);
- i=0;
-#ifdef __linux__
used_memory=0;
-#endif /* __linux__ */
elapsed_usec=0;
for (i = 0; i<tests; i++) /* performance test with clique */
{
-#ifdef __linux__
- minfo = mallinfo();
- used_memory = minfo.uordblks;
-#endif /* __linux__ */
+ used_memory = lc_get_heap_used_bytes();
rt = lc_timer_enter_high_priority();
lc_timer_start(timer);
lc_timer_stop(timer);
rt = lc_timer_leave_high_priority();
-#ifdef __linux__
- minfo = mallinfo();
- used_memory = minfo.uordblks - used_memory;
-#endif /* __linux__ */
+ used_memory = lc_get_heap_used_bytes() - used_memory;
coloring_restore(&coloring);
/* calculating average */
elapsed_usec = elapsed_usec / tests;
- ir_printf("\nclique:; %+F; ",current_ir_graph);
-#ifdef __linux__
- ir_printf("%u; ", used_memory);
-#endif /* __linux__ */
- ir_printf("%u; ", elapsed_usec);
+ ir_printf("\nclique:; %+F; %u; %u ",current_ir_graph, used_memory, elapsed_usec);
- i=0;
-#ifdef __linux__
used_memory=0;
-#endif /* __linux__ */
elapsed_usec=0;
for (i = 0; i<tests; i++) /* performance test with list */
{
-#ifdef __linux__
- minfo = mallinfo();
- used_memory = minfo.uordblks;
-#endif /* __linux__ */
+ used_memory = lc_get_heap_used_bytes();
rt = lc_timer_enter_high_priority();
lc_timer_start(timer);
lc_timer_stop(timer);
rt = lc_timer_leave_high_priority();
-#ifdef __linux__
- minfo = mallinfo();
- used_memory = minfo.uordblks - used_memory;
-#endif /* __linux__ */
+ used_memory = lc_get_heap_used_bytes() - used_memory;
coloring_restore(&coloring);
/* calculating average */
elapsed_usec = elapsed_usec / tests;
- ir_printf("\nlist:; %+F; ",current_ir_graph);
-#ifdef __linux__
- ir_printf("%u; ", used_memory);
-#endif /* __linux__ */
- ir_printf("%u; ", elapsed_usec);
+ ir_printf("\nlist:; %+F; %u; %u ",current_ir_graph, used_memory, elapsed_usec);
- i=0;
-#ifdef __linux__
used_memory=0;
-#endif /* __linux__ */
elapsed_usec=0;
for (i = 0; i<tests; i++) /* performance test with pointer */
{
-#ifdef __linux__
- minfo = mallinfo();
- used_memory = minfo.uordblks;
-#endif /* __linux__ */
+ used_memory = lc_get_heap_used_bytes();
rt = lc_timer_enter_high_priority();
lc_timer_start(timer);
lc_timer_stop(timer);
rt = lc_timer_leave_high_priority();
-#ifdef __linux__
- minfo = mallinfo();
- used_memory = minfo.uordblks - used_memory;
-#endif /* __linux__ */
+ used_memory = lc_get_heap_used_bytes() - used_memory;
coloring_restore(&coloring);
/* calculating average */
elapsed_usec = elapsed_usec / tests;
- ir_printf("\npointer:; %+F; ",current_ir_graph);
-#ifdef __linux__
- ir_printf("%u; ", used_memory);
-#endif /* __linux__ */
- ir_printf("%u; ", elapsed_usec);
+ ir_printf("\npointer:; %+F; %u; %u ",current_ir_graph, used_memory, elapsed_usec);
i=0;
-#ifdef __linux__
used_memory=0;
-#endif /* __linux__ */
elapsed_usec=0;
}
chordal_env->ifg = old_if;
+#endif /* WITH_LIBCORE */
}
void be_ifg_dump_dot(be_ifg_t *ifg, ir_graph *irg, FILE *file, const be_ifg_dump_dot_cb_t *cb, void *self)
fprintf(file, "}\n");
bitset_free(nodes);
}
+
+static void int_comp_rec(const be_chordal_env_t *cenv, ir_node *n, bitset_t *seen)
+{
+ void *neigh_it = be_ifg_neighbours_iter_alloca(cenv->ifg);
+ ir_node *m;
+
+ be_ifg_foreach_neighbour(cenv->ifg, neigh_it, n, m) {
+ if(!bitset_contains_irn(seen, m) && !arch_irn_is(cenv->birg->main_env->arch_env, m, ignore)) {
+ bitset_add_irn(seen, m);
+ int_comp_rec(cenv, m, seen);
+ }
+ }
+
+}
+
+static int int_component_stat(const be_chordal_env_t *cenv)
+{
+ int n_comp = 0;
+ void *nodes_it = be_ifg_nodes_iter_alloca(cenv->ifg);
+ bitset_t *seen = bitset_irg_malloc(cenv->irg);
+
+ ir_node *n;
+
+ be_ifg_foreach_node(cenv->ifg, nodes_it, n) {
+ if(!bitset_contains_irn(seen, n) && !arch_irn_is(cenv->birg->main_env->arch_env, n, ignore)) {
+ ++n_comp;
+ bitset_add_irn(seen, n);
+ int_comp_rec(cenv, n, seen);
+ }
+ }
+
+ free(seen);
+ return n_comp;
+}
+
+void be_ifg_stat(const be_chordal_env_t *cenv, be_ifg_stat_t *stat)
+{
+ void *nodes_it = be_ifg_nodes_iter_alloca(cenv->ifg);
+ void *neigh_it = be_ifg_neighbours_iter_alloca(cenv->ifg);
+ bitset_t *nodes = bitset_irg_malloc(cenv->irg);
+
+ ir_node *n, *m;
+
+ memset(stat, 0, sizeof(stat[0]));
+ be_ifg_foreach_node(cenv->ifg, nodes_it, n) {
+ stat->n_nodes += 1;
+ be_ifg_foreach_neighbour(cenv->ifg, neigh_it, n, m) {
+ bitset_add_irn(nodes, n);
+ stat->n_edges += !bitset_contains_irn(nodes, m);
+ }
+ }
+
+ stat->n_comps = int_component_stat(cenv);
+ bitset_free(nodes);
+}