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

fix scalarize

This commit is contained in:
Léonard Gérard 2011-11-18 16:14:28 +01:00
parent 9d8a0be512
commit 7b281317f4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/obc/transformations/scalarize.ml
View File

@ -51,10 +51,10 @@ let act funs () a = match a with
[a] [a]
in in
let copy_array = fresh_for (mk_exp_const_int 0) (mk_exp_static_int size) copy_i in let copy_array = fresh_for (mk_exp_const_int 0) (mk_exp_static_int size) copy_i in
(* resulting block *) (* resulting act *)
(match new_vd, new_eq with (match new_vd, new_eq with
| [],[] -> | [],[] ->
copy_array copy_array, ()
| _ -> | _ ->
let block = mk_block ~locals: new_vd (new_eq @ [copy_array]) in let block = mk_block ~locals: new_vd (new_eq @ [copy_array]) in
Ablock block, () Ablock block, ()