From 9686e2db01a48bfe3799889f056a14d2e9ab6afa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= Date: Fri, 29 Apr 2011 08:59:55 +0200 Subject: [PATCH] Oops, forgot to recurse on the pattern of Acall --- compiler/obc/transformations/memalloc_apply.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/obc/transformations/memalloc_apply.ml b/compiler/obc/transformations/memalloc_apply.ml index 1f9ee4d..6128df0 100644 --- a/compiler/obc/transformations/memalloc_apply.ml +++ b/compiler/obc/transformations/memalloc_apply.ml @@ -101,6 +101,7 @@ let act funs (env,mut,j) a = match a with let e_list = List.map (fun e -> fst (Obc_mapfold.exp_it funs (env,mut,j) e)) e_list in let fix_pat p a l = if Linearity.is_linear a.a_linearity then l else p::l in let pat = List.fold_right2 fix_pat pat desc.node_outputs [] in + let pat = List.map (fun l -> fst (Obc_mapfold.lhs_it funs (env,mut,j) l)) pat in Acall(pat, o, Mstep, e_list), (env,mut,j) | _ -> raise Errors.Fallback