Schedgen
type code_dag_node = {
instr : Linear.instruction;
delay : int;
mutable sons : (code_dag_node * int) list;
mutable date : int;
mutable length : int;
mutable ancestors : int;
mutable emitted_ancestors : int;
}
class virtual scheduler_generic : object ... end