nsz Git - libfirm/blob - ir/be/besched.c

   1
   2 #include "impl.h"
   3 #include "irprintf.h"
   4 #include "irgwalk.h"
   5 #include "irnode.h"
   6
   7 #include "besched_t.h"
   8 #include "besched.h"
   9 #include "belistsched.h"
  10
  11 FIRM_IMPL1(sched_get_time_step, int, const ir_node *)
  12 FIRM_IMPL1(sched_has_succ, int, const ir_node *)
  13 FIRM_IMPL1(sched_has_prev, int, const ir_node *)
  14 FIRM_IMPL1(sched_succ, ir_node *, const ir_node *)
  15 FIRM_IMPL1(sched_prev, ir_node *, const ir_node *)
  16 FIRM_IMPL1(sched_first, ir_node *, const ir_node *)
  17 FIRM_IMPL1(sched_last, ir_node *, const ir_node *)
  18
  19 size_t sched_irn_data_offset = 0;
  20
  21 static void block_sched_dumper(ir_node *block, void *env)
  22 {
  23         FILE *f = env;
  24         const ir_node *curr;
  25
  26         ir_fprintf(f, "%n:\n", block);
  27         sched_foreach(block, curr) {
  28                 ir_fprintf(f, "\t%n\n", curr);
  29         }
  30 }
  31
  32 void be_sched_dump(FILE *f, const ir_graph *irg)
  33 {
  34         irg_block_walk_graph((ir_graph *) irg, block_sched_dumper, NULL, f);
  35 }
  36
  37 void be_sched_init(void)
  38 {
  39         sched_irn_data_offset = register_additional_node_data(sizeof(sched_info_t));
  40 }
  41
  42 void be_sched_test(void)
  43 {
  44         int i, n;
  45         struct obstack obst;
  46
  47         obstack_init(&obst);
  48
  49         for(i = 0, n = get_irp_n_irgs(); i < n; ++i) {
  50                 ir_graph *irg = get_irp_irg(i);
  51
  52                 list_sched(irg, trivial_selector, NULL);
  53                 be_sched_dump(stdout, irg);
  54         }
  55
  56         obstack_free(&obst, NULL);
  57 }