From 7b281317f4ed97f0b5787e8a82c21bfde21c42ca Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?L=C3=A9onard=20G=C3=A9rard?= Date: Fri, 18 Nov 2011 16:14:28 +0100 Subject: [PATCH] fix scalarize --- compiler/obc/transformations/scalarize.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/obc/transformations/scalarize.ml b/compiler/obc/transformations/scalarize.ml index 07ccfc7..05a7409 100644 --- a/compiler/obc/transformations/scalarize.ml +++ b/compiler/obc/transformations/scalarize.ml @@ -51,10 +51,10 @@ let act funs () a = match a with [a] 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 | [],[] -> - copy_array + copy_array, () | _ -> let block = mk_block ~locals: new_vd (new_eq @ [copy_array]) in Ablock block, ()