Project

General

Profile

Revision db1c5c00 src/main_lustre_compiler.ml

View differences:

src/main_lustre_compiler.ml
261 261
      Access.check_prog normalized_prog;
262 262
    end;
263 263

  
264
  (* Computation of node equation scheduling. It also break dependency cycles. *)
265
  let cycle_free_prog, node_schs = Scheduling.schedule_prog normalized_prog in
266

  
264 267
  (* DFS with modular code generation *)
265 268
  report ~level:1 (fun fmt -> fprintf fmt ".. machines generation@,");
266
  let machine_code = Machine_code.translate_prog normalized_prog in
269
  let machine_code = Machine_code.translate_prog cycle_free_prog node_schs in
267 270
  report ~level:2 (fun fmt -> fprintf fmt "@[<v 2>@ %a@]@,"
268 271
    (Utils.fprintf_list ~sep:"@ " Machine_code.pp_machine)
269 272
    machine_code);

Also available in: Unified diff