Force fby to be scheduled at the end

2012-06-20 17:09:30 +02:00 · 2012-06-20 17:09:30 +02:00 · 5e1dad630b
commit 5e1dad630b
parent 7a10ba028a
1 changed files with 1 additions and 0 deletions
--- a/compiler/minils/transformations/schedule_interf.ml
+++ b/compiler/minils/transformations/schedule_interf.ml
@ -87,6 +87,7 @@ struct
  let next_equation rem_eqs ck env =
    let bonus eq = match eq.eq_rhs.e_desc with
      | Eapp ({a_op = (Eupdate | Efield_update) },_,_) -> 1
+      | Efby _ -> 20
      | _ -> 0
    in
    let cost eq =