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