Dep depends on global, so mv it accordingly
This commit is contained in:
parent
a20b30909c
commit
50a0768a24
|
@ -7,7 +7,6 @@
|
||||||
(* *)
|
(* *)
|
||||||
(**************************************************************************)
|
(**************************************************************************)
|
||||||
(* dependences between equations *)
|
(* dependences between equations *)
|
||||||
(* $Id$ *)
|
|
||||||
|
|
||||||
open Graph
|
open Graph
|
||||||
open Ident
|
open Ident
|
||||||
|
@ -17,9 +16,7 @@ sig
|
||||||
type equation
|
type equation
|
||||||
val read: equation -> ident list
|
val read: equation -> ident list
|
||||||
val def: ident list -> equation -> ident list
|
val def: ident list -> equation -> ident list
|
||||||
val linear_read : equation -> ident list
|
|
||||||
val antidep: equation -> bool
|
val antidep: equation -> bool
|
||||||
val mem_reset : equation -> ident list
|
|
||||||
end
|
end
|
||||||
|
|
||||||
module Make (Read:READ) =
|
module Make (Read:READ) =
|
||||||
|
@ -45,9 +42,8 @@ struct
|
||||||
| eq :: eqs ->
|
| eq :: eqs ->
|
||||||
let g = make eq in
|
let g = make eq in
|
||||||
let node_env = nametograph_env g (Read.def [] eq) node_env 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.def [] eq)
|
||||||
let n_to_graph = nametograph g (Read.linear_read eq) true n_to_graph in
|
(Read.antidep eq) n_to_graph in
|
||||||
let n_to_graph = nametograph g (Read.mem_reset eq) false n_to_graph in
|
|
||||||
init_graph eqs (g :: g_list) n_to_graph node_env
|
init_graph eqs (g :: g_list) n_to_graph node_env
|
||||||
in
|
in
|
||||||
|
|
Loading…
Reference in a new issue