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

Fix memalloc_apply

Browse source
This commit is contained in:
Cédric Pasteur 2011-05-16 17:30:21 +02:00
parent 192572ea67
commit a48981f72c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/obc/transformations/memalloc_apply.ml
View file

@ -93,7 +93,7 @@ let lhs funs (env, mut, j) l = match l.pat_desc with
try
{ l with pat_desc = repr_from_ivar env iv }, (env, mut, j)
with
| Not_found -> l, (env, mut, j)
| Not_found -> Obc_mapfold.lhs funs (env, mut, j) l
let act funs (env,mut,j) a = match a with
| Acall(pat, o, Mstep, e_list) ->