jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Ported schedule

Browse source
This commit is contained in:
Cédric Pasteur 2010-06-18 12:02:39 +02:00
parent 50a0768a24
commit f6d4a0f5d1
2 changed files with 14 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
minils/minils.ml
View file

@ -208,6 +208,7 @@ struct
let rec read is_left acc e =
let acc =
match e.e_desc with
| Evar n -> add n acc
| Emerge(x, c_e_list) ->
let acc = add x acc in
List.fold_left (fun acc (_, e) -> read is_left acc e) acc c_e_list
@ -292,15 +293,13 @@ struct
| _ -> []
end
(*
(* data-flow dependences. pre-dependences are discarded *)
module DataFlowDep = Make
(struct
type equation = eq
let read eq = Vars.read true eq
let def = Vars.def
let linear_read eq = Vars.linear_use [] eq.eq_rhs
let mem_reset = Vars.mem_reset
let antidep = Vars.antidep
end)
@ -309,10 +308,7 @@ module AllDep = Make
(struct
type equation = eq
let read eq = Vars.read false eq
let linear_read eq = Vars.linear_use [] eq.eq_rhs
let mem_reset = Vars.mem_reset
let def = Vars.def
let antidep eq = false
end)
*)