Module Schedgen
type code_dag_node = {
instr : Linearize.instruction;
delay : int;
sons : (code_dag_node * int) list;
date : int;
length : int;
ancestors : int;
emitted_ancestors : int;
}
type scheduler_generic = TODO: a
type #scheduler_generic = TODO: a
val reset : unit -> unit