#include "irdump_t.h"
#include "irdom.h"
#include "irflag.h"
+#include "irprintf.h"
#include "hashptr.h"
/*------------------------------------------------------------------*/
int region_attr_cmp(const void *e1, const void *e2, size_t size) {
region_attr *ra1 = (region_attr *)e1;
region_attr *ra2 = (region_attr *)e2;
+ (void) size;
return (ra1->reg != ra2->reg);
}
}
-static int find_previous_loop(ir_loop *l, ir_loop *pred_l, ir_node *b, ir_node *pred_b, ir_node *cfop) {
+static int find_previous_loop(ir_loop *l, ir_loop *pred_l, ir_node *b,
+ ir_node *pred_b, ir_node *cfop)
+{
ir_loop *outer = get_loop_outer_loop(l);
int found, i;
int l_pos = get_loop_element_pos(outer, l);
+ (void) pred_l;
assert(l_pos > -1);
assert(l_pos > 0 && "Is this a necessary condition? There could be a perfect nest ...");
}
}
- if (!found) {
- DDMG(current_ir_graph);
- DDML(l);
- DDML(pred_l);
- DDMN(b);
- DDMN(pred_b);
- }
-
return found;
}
if (is_backedge(b, i)) {
if (b != get_loop_element(l, 0).node) {
if (get_firm_verbosity()) {
- printf("Loophead not at loop position 0. "); DDMN(b);
+ ir_printf("Loophead not at loop position 0. %+F\n", b);
}
}
/* There are no backedges in the interval decomposition. */
if (!found) {
if (b != get_loop_element(l, 0).node) {
if (get_firm_verbosity()) {
- printf("Loop entry not at loop position 0. "); DDMN(b);
+ ir_printf("Loop entry not at loop position 0. %+F\n", b);
}
}
found = find_outer_loop(l, pred_l, pred, cfop);
found = find_previous_loop(l, pred_l, b, pred, cfop);
}
if (!found) {
- DDMG(current_ir_graph);
- DDMN(b);
- DDMN(pred);
assert(is_backedge(b, i));
assert(found && "backedge from inner loop");
}
if (b != get_loop_element(l, 0).node) {
/* Check for improper region */
if (has_backedges(b)) {
- printf("Improper Region!!!!!!\n");
- DDMG(current_ir_graph);
- DDMN(b);
- DDML(l);
+ ir_fprintf(stderr, "Improper Region!!!!!! %+F\n", b);
}
}
}
if (is_ir_node(reg)) {
if (get_Block_n_cfgpreds((ir_node *)reg) != get_region_n_ins(reg)) {
- printf("n_cfgpreds = %d, n_ins = %d\n", get_Block_n_cfgpreds((ir_node *)reg), get_region_n_ins(reg));
- DDMN((ir_node *)reg);
+ ir_printf("n_cfgpreds = %d, n_ins = %d\n %+F\n", get_Block_n_cfgpreds((ir_node *)reg), get_region_n_ins(reg), (ir_node*) reg);
}
}