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

Fixed error in computation of targeting

Browse source
This commit is contained in:
Cédric Pasteur 2011-04-27 15:10:10 +02:00
parent 6f32564ad5
commit c3d47f4d4b
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
compiler/minils/analysis/interference.ml
View file

@ -391,11 +391,14 @@ let coalesce_linear_vars () =
let find_targeting f =
let find_output outputs_lins (acc,i) l =
let idx = Misc.index (fun l1 -> l = l1) outputs_lins in
if idx >= 0 then
(i, idx)::acc, i+1
else
acc, i+1
match l with
| Lvar _ ->
let idx = Misc.index (fun l1 -> l = l1) outputs_lins in
if idx >= 0 then
(i, idx)::acc, i+1
else
acc, i+1
| _ -> acc, i+1
in
let desc = Modules.find_value f in
let inputs_lins = linearities_of_arg_list desc.node_inputs in