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

Fix compilation

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;
top1 @ top2, bot1 @ bot2
| 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]
| Alinread(n) -> let g = Env.find n lin_map in attach g n; [g], [g]
| Aread(n) -> let g = make ac in attach g n; [g], [g]
| Atuple(l) ->
let make_graph_tuple ac =
match ac with