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

Fixed problem with application of memalloc

Browse source
This commit is contained in:
Cédric Pasteur 2011-09-09 15:53:15 +02:00
parent c550b09805
commit b0bb7ad39f
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/memalloc_apply.ml
View file

@ -107,9 +107,9 @@ let extvalue funs (env, mut, j) w = match w.w_desc with
(* replace with representative *)
let iv = ivar_of_ext_value w in
try
let w =
let neww =
ext_value_of_pattern (mk_pattern Types.invalid_type (repr_from_ivar env iv)) in
{ w with w_desc = w.w_desc }, (env, mut, j)
{ w with w_desc = neww.w_desc }, (env, mut, j)
with
| Not_found -> Obc_mapfold.extvalue funs (env, mut, j) w