Cmmgen
val compunit : (Clambda.ulambda * Clambda.preallocated_block list * Clambda.preallocated_constant list) -> Cmm.phrase list