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

Dep depends on global, so mv it accordingly

Browse source
This commit is contained in:
Cédric Pasteur 2010-06-18 11:53:31 +02:00
parent a20b30909c
commit 50a0768a24
1 changed files with 22 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
utilities/dep.ml → utilities/global/dep.ml
View file

@ -7,7 +7,6 @@
(* *)
(**************************************************************************)
(* dependences between equations *)
(* $Id$ *)
open Graph
open Ident
@ -17,9 +16,7 @@ sig
type equation
val read: equation -> ident list
val def: ident list -> equation -> ident list
val linear_read : equation -> ident list
val antidep: equation -> bool
val mem_reset : equation -> ident list
end
module Make (Read:READ) =
@ -45,9 +42,8 @@ struct
| eq :: eqs ->
let g = make eq in
let node_env = nametograph_env g (Read.def [] eq) node_env in
let n_to_graph = nametograph g (Read.def [] eq) (Read.antidep eq) n_to_graph in
let n_to_graph = nametograph g (Read.linear_read eq) true n_to_graph in
let n_to_graph = nametograph g (Read.mem_reset eq) false n_to_graph in
let n_to_graph = nametograph g (Read.def [] eq)
(Read.antidep eq) n_to_graph in
init_graph eqs (g :: g_list) n_to_graph node_env
in