Project

General

Profile

Revision 95fb046e src/optimize_machine.ml

View differences:

src/optimize_machine.ml
268 268

  
269 269
let machines_unfold consts node_schs machines =
270 270
  List.fold_right (fun m (machines, removed) ->
271
    let fanin = (IMap.find m.mname.node_id node_schs).Scheduling.fanin_table in
271
    let fanin = (IMap.find m.mname.node_id node_schs).Scheduling_type.fanin_table in
272 272
    let elim_consts, _ = instrs_unfold fanin IMap.empty (List.map instr_of_const consts) in
273 273
    let (m, removed_m) =  machine_unfold fanin elim_consts m in
274 274
    (m::machines, IMap.add m.mname.node_id removed_m removed)

Also available in: Unified diff