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

Fix compilation

Browse source
This commit is contained in:
Cédric Pasteur 2010-06-28 16:15:44 +02:00
parent 9105b54c1f
commit 3a80061392
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
compiler/heptagon/analysis/causal.ml
View file

@ -220,8 +220,7 @@ let build ac =
top2; top2;
top1 @ top2, bot1 @ bot2 top1 @ top2, bot1 @ bot2
| Awrite(n) -> let g = Env.find n n_to_graph in [g], [g] | Awrite(n) -> let g = Env.find n n_to_graph in [g], [g]
| Aread(n) -> let g = make ac in attach g n; attach_lin g n; [g], [g] | Aread(n) -> let g = make ac in attach g n; [g], [g]
| Alinread(n) -> let g = Env.find n lin_map in attach g n; [g], [g]
| Atuple(l) -> | Atuple(l) ->
let make_graph_tuple ac = let make_graph_tuple ac =
match ac with match ac with