Schedgentype 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