Module Schedgen
type code_dag_node={instr : Linearize.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